) -~ a , | ft ia! SI 
] Q « A ~~ @ 
Qene « 
@ LABEL OOO000000LINE 00977244? FXECUTE FSPOL/DISK FSPOL /DISK @ 
Ps RURROUGHS B*5700 ESPOL COMPYLFR MARK XV~,0,116 THURSDAY, 09/01/77» 11259 AM, © 
@ MCPA  /D1SK e 
BSRcostseseecssrsscese 
@ @ 
SOUKCF FILE: SYMBOL /MCP 
@ sey  ) 
P5700 MCP MARK XV1.0,178 05/09/77%179% 00001000°P 000080 
x 00002000 tT 000010 
Yd COMMENT! ¥ TITLES R5500/B5700 MARK XV] SYSTEM RELEASE * 00002010 T o0001I0 e 
* FILF 1p? SYMBOL/MCP TAPE 1D SYMROLI/FILEO000 *. 00002011 T 000030 
* THIS MATERTAL 1S PROPRTETARY TO BURROUGHS CORPORATION «# 00002012 T 000010 
eo. * AND 158 NOT TO RE. RFPRONUCED» USED, OR DISCLOSED * 00002013 T 000010 ‘ ©@ 
. * EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON * 00002014 T 000080 
* WRITTEH AUTHOR]ZATION OF THE PATENT DIVYSTON OF * 00002015 ‘T 000010 
| @ * BURROUGHS CORPORATION, DETROIT, MICHIGAN 48232 " 00002016 T 000010 e 
. * 7 * 00.002017 T 0000:0 
* COPYRIGHT (C) 1965» 1974+ 19720 19735 1974 * 00002048 T * 000030 
@ * BURROUGHS CORPORATION * 00002019 T 000010 4 ®@ 
* AAT59915 AA320206 AA393180 AA332366 AA465080 « ~ 00002090 T 000030 
* ANLI5655 AKG95656 +3 00002021 T 0000:0 
@ $ SET OMIT = NOTCDEBUGGING?: 00002100 fT 0000:0 @ 
BEGIN 00003000 ¥ 000070 
DEFINE MIXMAXe 98 COMMENTS MIXMAX MAY NOT BE LARGER THAN 293 00004000 T 0000:0 
@ PRT(201) =-*SEGMENT DESCRYPTOR® : 7 @ 
DEFINE: JORNUMAX= 4043 : COMMENT! JOBNUMAX SHOULD BE ABOUT _ 00005000 tT 0000!0 
x : 2xMITXMAX 4303 0000500; T 000010 
| @ DEFINE  MARKLEVFLs % MARK LEVEL IN ALPHA 00005010 T 0000:0 ®@ 
mXVT.O" i | 00005020 T 0000:0 
#, PATCHLEVEL® % PATCH RELEASE LEVEL IN ALPHA 00005030 T 0000:0 
| "178" . %179" 00005040 P 000030 2 
#, LOCALEVELs X LOCAL LEVEL IN ALPHA. ) 00005050 T 0000:0 oor 
: aia . ' 00005060 T 0000:0 ‘ 
e * i 00005070 T 000010 . © 
DEFINE | MCPTYPE = 638, | | 00005100 fF 0000:0 a eer 
NGINTYPE = ade 00005120 T 0000:0 a oo 
e. TSSTNTYPE 3 | 00005140 rT 0000:0 ©: 4 ©@ 
COMMENT THE ESPOL COMPILER” APPROPRIATELY TYPES THE MCP & . 00005160 T 0000:0 
INTRINSICS FILE HEADERS SO THAT A VALIDITY CHECK MAY BE MADE 00005180 T 0000:0 
@ DURTNG INITTALTZATION AND AT CI AND CM TIME, HEADERCG],0 3616] oo 00005185 T 000010 6 
IS THE FIELD USEN TO CONTAIN THE TYPES : — 00805190 T 0000:0 
DEFINE FSAD = £41745 9#, : oe 00005200 T 0000:0 
) UNUM = 1685], | - 00005210 T o0000t6 @ 
| RYBYCBYRY1eRYBY2) = 00005220 T 0000:0 
REGIN STREAMCASsTYPEDSPACEC10,SPOUTMSGAREAV) & 23x 4167@ 00005230 P 000010 
@ BEGIN DIteas DSt2BYBY2 LIT BYBY1$ END 00005240 T 0000:0 e 
FUNT(O)3 , 00005250 T 000030 
; END#S 00005260 7 000010 
@ DEFINE RESFRVFDISKSIZE=20008; 00005300 T 0000:0 @ 
COMMENT TRACESIZE IS THE SIZE OF THE CORE AREA USED TO STORE TRACE 00005500 T 000010 
INFORMATION BEFORE IT 1S WRITTEN ON DISK, - 00005600 tT 0000:0 
@ @ 
. eae, ie a) . : ‘ Ly fh oge tie “ & a, rt d 


4 


TRACARFASTART 1S THE ABSOLUTE DISK ADDRESS OF THE TRACE 00005700 T 0000:0 
AREA ON DSK, 00005800 T 0000:0 
TRACARFASIZE IS THE SIZF CIN DISK SEGMENTS) OF THE TRACE 00005900 T 000010 
AREA ON DYSk3 00005950 T 000030 
DEFINE TRACESIZE=30#s TRACARLASTART=10000#sTRACAREASIZER4BO#} 00006000 T 0000:0 
DEFINE HANG#DO UNTIL FALSE#3 00006100 T 000080 
DEFINE |.EFTARROW = "en#} 00006150 T 0000:0 
&$ SET oMIT = NOTCSAVERESULTS) 00006200 T 0000:0 
REAL JUNK=53% 00007000 tT 0000:0 
DEF YNE PSEUDOMAX = 31 #, % MAX NO OF PSEUD"RDRS O*ORIGIN 00007050 T 0000:0 
PSEUDOMAX1 = 32 #, % MAX NO OF PSEUD*RDRS 1"0RIGIN 00007055 Tr 0000:0 
PSFUNOMAXT = 63 &} % # ENTRIES YN TINY TABLE 72 00007060 T 0000:0 
COMMFNT TO REDEFINE MAX NO, OF PSEUNO RDORS+SIZF AND INTTIALTZATION 00007061 T 0000:0 
OF TINUE #) AT 00241900 MUST ALSO BE MODIFIED ACCORDINGLYS 00007062 Tf 0000:0 
COMMENT $ PSFUNOMAX MUST BE 20 AND §$ 34 00007065 T 0000:0 
PSFUDOMAX{ MUST Be 2 0 AND $ 32 00007070 T 0000:0 
PSEUDOMAXT MUST BE 2 31 AND $ 633% 00007075 T 0000;0 
COMMENT TO ANJUST THE PRIORI Ty» CORF ESTIMATE, AND STACK SIZE 00007200 T 0000:0 
OF LIBMAIN/DTSKs SEE SEQUENCE NUMBER 450754703 00007210 T 0000:0 
LABEL GOGOGOsNORMALFRROR,P2BUSYs»TIMERsEXTERNAL » INQUEST,» 00008000 fr 0000:0 
PROCSWITsP2FAKE sKEYBOARDREQUEST»RETURNsCOMINIT»MEMORYPAR]TY 00009000 T 000030 
; 00010000 T 0000:0 
DEFINE GETUSERDISK(GETUSERDISK4)=PETUSERDISKCGETUSERDISK1»0) 43% 00012001 T 000030 
$ SET oMIT = NOTCDUMP OR DEBUGGING) 00032159 T 0000:0 
DEFINE DUMPNOWCDUMPNOW1) = 000121460 T 0000:0 
NUMPCORE (DUMPNOW LR CGETSPACE (222000) + 39615333215] 43% 00012165 T 0000:0 
$ POP MIT 00012166 T 0000:0 
INTFGER RRRMECHEA201 3% 00013000 T 0000:0 
PRT(201) = RRRMECH 
DEFINE SPACECSPACE1) =C(GETSPACE(SPACE12000) + DIE 00013500 T 0000:0 
DEFINE MCPsML1)#3 SPRIVILEDGED USERCODE STORED IN ME1] 00013600 Tt 0000:0 
DEFINE & KFYIN TABLE DEFINE VALUES FOR "REPLY* 00013700 T 0000:0 
VAX = OV#, 00013710 T 0000:0 
VIL = 02%, 00033720 TF 0000:0 
VUL = 034, 00013730 7 0000:0 
VOT = O4#, 00013740 T 000050 
you = O5#, 00013750 T 0000:0 
VWY = O64, 00013760 T 0000:0 
VRM = 128s» 00013770 T 9000:0 
VOK = 22%, 00013760 T 000010 
VFM = 23%, 00013790 T 0000:0 
VFR = PUR, 00013800 T 000030 
VOF = 258» 00013810 Tr 0000:0 
VCC = 214s 00013820 T 0000:0 
VIF = 3783 00013830 T 0000:0 
DEFINE 00013850 T 0000:0 
$ SET OMIT = AUXMeM 00013860 T 0000:0 
SPACESTACKSIZF = 8083 00013870 tT 0000:0 
$ SET OMIT = NOTCAUXMEM) 00013880 T 000030 
SAVF INTEGFR PROCEDURE GETSPACECSIZEsTYPEsSAVEF)32% 00014000 T 0000:0 
START OF SAVE SFGMENTS BASE ADDRESS *® 00000 
PRT¢202) = cETSPACE 
VALUE SIZEeTYPEsSAVEF3SZ 00015000 T 0000:0 
INTEGER SIZE,TYPESS 00016000 T 0000:0 
BOOLEAN SAVEFS FORWARD?S 00017000 T 000030 
NEFINE Z16/7« 00017005 c 0000:0 
Do yk 4 yy 


TYPFHSPACECTYPEDSPACELeTYPFDSPACF2) & %167= 
CGETSPACE CTYPEDSPACE ya TYPEDSPACE 220) 42)# &% ¥167" 
» ARRAYDESCCARRAYDESC1 + ARRAYDESC2) «= %167= 
cPMPGETSPACE CARRAYDE SC 4 spARRAYDESC2s0)427] & ARRAYDESC) C(SIZEV)# & 
» SAVEARRAYDESCCSAVEARRAYDESC1»2SAVEARRAYDESC2) = R167" 
CIMPGETSPACE(CSAVEARRAYDESC1 + SAVEARRAYDESC201)+2)) 167 
: & SAVEARRAYDESC1 f£SIZE})# & 
, ¥%167@ 


BRYEERLARALE KAA TASTE RSA ALAAA LALA RRETBRALEAALAALERAGAALLAK TALL AALKALAYLL TY 
TIO IO II IOI IRI IOIICIIGIOISIIGI IOI IOI IO IO IO II a ICH 


x* *% 
%* MEMORY AREA TYPFS STORED IN 386 FIELD OF FIRST MEMORY *% 
7% LINK OF ALL MEMORY AREAS *% 
a* *% 


FRO RR OI IO OIIOIOIOI GOI I III ICICI GOI IOIOR IOI IGIOIOISR I IOI IR IOI iri tok ag, 
BREAVARAXAALEBAALALAEALA BEALL REAASRALL SALVA SAL KVALALLLALLRALK LHL AKL LLALY 


DEFINE %167= 
UNKNOWNAREAV = O# ¢ Z167@ 
»CODFAREAV = 4% & %167= 
»DATAAREAV = Oo & %167= 
eT CRUFFERAREAYV = 3# % Y1i67= 
eALGOLFTBAREAV = 4# ¥ %167" 
sTNQUSRYBUFFAREFAV = 5S# g %167" 
sCOBOLFIRAREAV = 6# ¢ ¥167= 
eTYPE7INTARFAYV = 78 g Z167= 
*D1rSKHEADERARFAV = BF ¥ ¥167« 
»>MAINTBUFFAREAV = OF ¢ %167= 
»sLRLFONAREAV = 10# ¢ X167= 
eSFEGZEROAREAV = 144% ¢ ¥167= 
»STACKAREAYV = 12# ¢ %167" 
eTYPEA3INTAREAV = 13# & Z1i67= 
eScRATCHDIRARFAV = 148% g ¥167= 
»OPSETAREAV = 15% g %167= 
PDrRTOPAREAV = 164 gy %167° 
2 SPOUTMSGAREAYV = 17# ¢ %167= 
»UVROWAREAV = {6% x %167= 
» JARROWAREAV 32 198 ¥ %167= 
»CTDROWAREAV = 20# ¢ Zi67= 
sTNQTNPUTAREAY = 278 ¥ B167= 
» INTARRAYAREAYV = 228 ¢% %167= 
eRJETNPUTAREAV = 23% ¢ ¥167= 
»DCOUFUEARFAV = 2u# ¥ Z167" 
*DALOCROWARFAV = 25# x ¥167= 
»SHEETAREAV = 26# ¢ R167" 
»STAWORDARFAV = 27% ¥ pC McP ONLY %167e 
oKEYINBUPFAREAV =z 288 ¢ %167« 
sF SAREAV = 298 ¢ Z167= 
eDC19QUEUEARE AV = 30# ¢ nC MCP ONLY %167= 
»AVTABLEAREAV = 34% ¢ %167= 
»TRACETABLEAREAV = 32# % DC MCP ONLY %167= 
sSFGNICTAREAV = 334 ¢ 2167s 
»STACKPRTAREAV a 34% x %167= 
»McPTABLEAREAV = 354 ¢ %167= 
eTRSTACKARFAV = 368 ¢Z ¥167 
eFPBAREAV = 37# ¢ ¥167= 
eCONTROLCARDAREAV = 38% ¢ £167 
»LaABELAREAV = 39% ¢ ¥167= 
dee 


00017010 
00047015 
00017020 
00017095 
00047030 
00047035 
00017040 
000437045 
00017100 
00017110 
000171320 
00047130 
00017140 
00047450 
00017160 
00017170 
00017180 
00017190 
00017200 
00017210 
00017220 
00017230 
00017240 
00017250 
00017260 
00047270 
00017280 
00017290 
00017300 
00017310 
00017320 
00017330 
00017340 
00037350 
00017360 
00037370 
00017380 
00017390 
00017400 
00017440 
00017420 
00017430 
00017440 
000147450 
00017460 
00017470 
00017480 
00017490 
00017500 
00017510 
00017520 
00017530 
00017540 
00047550 
00047860 
00017562 
00017564 


AODVAIAIAIAIAIGDANVAIAIAAARIAAAANAANANAANNAAAVIAANA AN AM N DMN MNDMD MANA AAA DAA AA oD 


000010 
0000:0 
000010 
0000:0 
000010 
000030 
000010 
000010 
0000:0 
0000:0 
000030 
0000:0 
0000:0 
000010 
0000:0 
000030 
0000:0 
0000:0 
0000:0 
0000:0 
000010 
0000:0 
0000:0 
0000:0 
000070 
0000:0 
000010 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
000030 
000030 
0000:0 
0000:0 
000030 
000070 
0000:0 
0000:0 
0000:0 
000010 
0000:0 
000010 
0000180 
0000:0 
0000!0 
0000:0 
000070 
000030 
0000:0 
000050 
000030 
0000:0 
000010 
000010 
000010 


PRT¢203) 


PRT(204) 


PRT¢205) 


PRT¢206) 


PRT(¢207) 


PRT¢(210) 
PRT(241) 


PRTC212) 


PRT(213) 
PRT(214) 


»MAUMPAREAYV = 408 ¢ ¥167= 
PpESPDTSKAREAV = 41# ¢ ¥167m 
eLOGAREFAV = Ao# x %167 
eCANDFINPUTARFAV = 43# yg TSS MCP ONLY %167= 
PSORJOBINPUTARFAV = 44% ¥ TSS MCP ONLY K167= 
sTYPEGS = 45# x 3167s 
sTYPFE46 = 468 x ¥167= 
eTYPEA7 = 47#t 2 elor* 
»TYPF48 = 4B# ¢ %167° 


! %167= 
BELELEKALALAAALARAATLLTABRUSLSLLFVEAATASLISLALSLELLILLEKLLALL LVS LKVALAS 
FIR IRISIOUIIOIG OR GICI IO IOI IOIGIOOI INO II OR IO INO IIOI IO gE iok a donk 


%* *% 
%* MEMOR Y L tN kK S§ *% 
a *“% 


FI OIG IOI IOI III IOI IGG IOI OR IORI RZ 
BRXALAALAKARSARALAAAAAAA ABA RSSAAKASLSKZAALK LALA LLAALH AK LEAAKFLKHLLEKVASY 


, ¥167= 
% FYrELAS OF MEMORY LINK O OF ALL AREAS %167° 
% Z167" 
FIELD %167° 
ARFAAVAILF = 01:01 % = 0 FOR IN"USE ARFA» = 1 FOR AVAIL, AREA 
#ARFASAVEF = 02:01 % = 4 FOR IN"USE SAVE AREAs = 0 FOR OLAY AREA 
sARFATYPEF = 03306 % TYPE OF AREA (SEE ABOVE) %167« 
sARFAMTXF = 09:06 % MIX INDEX OF OWNER OF AREA ¥167= 
*ARFABACKLINKF = 18815 % ADDRESS OF PREVIOUS AREA %167" 
sARFAFWOLINKF = 33215 % ADDRESS OF NEXT AREA %167« 
; X167= 


SAVE REAL PROCEDURE WAITIOCIODeMASK,U)3% 


00017566 
00017568 
00017570 
00017572 
00017574 
00017576 
00017578 
00017580 
00047582 
00017600 
00017700 
00017710 
00017720 
00017730 
00017740 
00017750 
00017760 
00017762 
00017764 
00017766 
00017770 
00017780 
00017790 
00017800 
00037810 
00017820 
00017830 
00017840 
00018000 


START OF SAVE SEGMENT? BASE 


WATTIO 
VALUE 1ODsMASKeUF REAL TODsMASKsUS FORWARDS 
SAVF PROCFNURE DISKWAITCCORE+sSI7EeN1SK)3 


00019000 
00019400 


START OF SAVE SEGMENTS BASE 


NISKWAIT 
VALUE CORE,SIZE »DISK3 
REAL COREsSIZEeNISK3 
FORWARD3 
PROCEDURE FRRORFIXERCTYPE)$ VALUE TYPES REAL TYPES FORWARD? 


00019200 
00019300 
00019400 
00019500 


START OF REL SEGMENTS DISK 


FRRORFIXFR 
SAVE PROCEDURE SNOOZECPRYRsADDRESS»MASK)3 VALUE PRYR» ADDRESS» MASK? 


00020000 


START OF SAVE SEGMENTS BASE 


SNOOZE 
REA], PRYR$ NAMF ADDRESS? ARRAY MASKE*]3 FORWARDS 
DEFINE SLEEPCSLEEP 4 »SLEEP2 =SNOOZECPRYOR(PIMIXIeSLEEP1sSLEEP2 #3 
ARRAY PRYOR[*]} 


PRYOR 
REAL PiMIXsP?2MIX$ & SFE 00105000 
PiIMIX 
POMIX 
ARRAY SLATEL*1]3% 
SLATE 
REAL NSLATFsoLSLATESS 
NSLATE 
LSLATE 


DEFINE SLATESIZE=16#+SLATEND=SLATESIZEM1#SZSIZE MUST Be TWO POWER 


00021000 
00021500 
00021600 


00021700 


00022000 
00023000 


00023100 


¢ 000010 
Cc 000030 
c 0000t0 
c 000030 
c 000010 
c 000030 
c 000010 
c¢ 0000:0 
c 000010 
¢ 000030 
C 0000:0 
Cc 000010 
Cc 000030 
¢ 0000t0 
c 000030 
Cc 000010 
c 000030 
c 000030 
Cc 000010 
c 0000:0 
c 0000:0 
c 0000:0 
c 0000:0 
Cc 0000:0 
c 0000:0 
c 0000:0 
c 0000:0 
c 0000:0 
T 0000;:0 
ADDRESS # 


T 0000:0 
T 0000:0 
ADDRESS « 

000030 


0000:0 


T 
T 
T 000030 
t 
ADDRESS = 


T 0000:0 
ADDRESS »« 


T 000010 
T 0000:0 
T 0000:0 


T 0000:%0 


T 0000:0 
T 000010 


T 000010 


00000 


00000 


00002 


00000 


PRT¢160) 
PRT(161) 
PRT(162) 
PRT(163) 
PRT(164) 
PRT(165) 
PRT(166) 


PRTC170) 


PRT(162) 
PRT¢215) 


PRT(¢246) 


STACK¢F 41) 
STACK¢(F 42) 
STACK ¢F43) 
STACK EF 44) 


PRT¢246) «= 


REAL NT{=@{60,NT2=O1 61+ NT32@162,.NT4=O 1 63eNT5S=O 164 pNTOR@165—¢NT7=@166} 


00024000 
NT4 
NT2 
NT3 
NT4 
NT5 
NT6 
NT? 
ia ene cLOcK = @1703 % cCLOCK,£9:33] CONTAINS THe NUMBER OF TIME INTERVAL 00024005 
cle 
% INTERRUPTS PROCESSED SINCE HALT LOAD, CLOCK,(4236] 00024006 
% ALWAYS EQUALS ZERO, %156" 00024007 
COMMENT NT1 THRU NT? ARE USED BY THE MCP FOR TEMPORARY STORAGE, 00024010 
ALL PROCESSES THAT USF THESF VARIABLES ASSUME THAT IF CONTROL 00024020 
1S LOST, THEIR CONTENT MAY HAVE BEEN CHANGED BY THE TIME 00024030 
THAT CONTROV tS REGAINEN, 00024040 
aay pou s : 00024050 
ARRAY TSKA = NT3(*)3 
on 00024060 
REAL MCPBASE$ 
MCPBASE eunenee 
COMMENT MCPBASE CONTAINS THE DISK ANDRESS COCTAL) OF THE BEGINNING 00024200 
OF THE MCP THAT 1S CURRENTLY IN USE, THIS ADDRESS [S PASSED TO 00024910 
THE MCP BY THE LOADER ROUTINE AT EACH HALT/LOAD IN M£0),1481230), 00024290 
WHEN THE ESPBIT ROUTINE IS CALCULATING THE DISK ADDRESS 00024230 
OF AN MCP SEGMENTs IT ADDS MCPBASE TO THE ADDRESS THAT 00024240 
1S CONTAINED IN THE PRT CELL FOR THAT SEGMENT, 00024250 
FND COMMENTS 00024260 
LABEL NOTHINGTODOSINITIATE + START» STACKOVERFLOW, JOBUSY$ 00024270 
$ SET OMIT = NOTCAUXMEM OR MONYTOR)D 00024299 
$ SET OM]T = NOT MONTTOR 00024590 
DEFINE MCPNAMESEG = (DIRECTORYTOP@7)#; 00024910 
COMMENT MCPNAMFSEG CURRENTLY CONTAINS THE FOLLOWING! 00024920 
WORDE Oy*WORDE15] = FILE 10S OF THE AUXOATA FILES FOR MCP & INTRINCS, 00024930 
WORDE161™WORD(19] = CONTAIN THE WORD "AUXMEM * AS A MARKER, 00024940 
WORDL20y"WORDE 27) = FILE IDS oF THE MCP™S AT HALT/LOAD, 00024950 
WORDE 28) = USED BY DISKSQUASH FoR COMM, BETWEEN SHAREDISK SYSTEMS, 00024960 
, 00024970 
$ SET OMIT = NOTCNEWLOGGING) 00024999 
$ SET OMIT = NEWLOGGING 00025299 
DEFINE STARTLOGC(STARTLOG1)= | 00025300 
PROCTIMELSTARTLOGS Je(#PCDUP))=CLOCK*PCRTR)#> 00025400 
STOPLOGCSTOPLOG1+STOPLOG2)2 00025500 
PROCTIMELCSTOPLOG1] #€#PCDUP))+CLOCK+PCRTR) #3 00025600 
$ POP OMIT 00025601 
SAVE PROcCEnURE FSPaITs COMMENT PRESENCE BIT ROUTINE FOR ESP SEGMENTS 3% 00025900 
STaRT 
epane ART OF SAVE SEGMENTS BASE 
BEGIN INTEGER PRILOC,SYLLABLE»LOCsSIZE3% 00026000 
= PRTLOC 
s SYLLABLE 
= LOC 
=z SIZE 
FIELD MAYBEWORKEDON w= c¢7#4)3 & £156" 00027000 
ARRAY MYSELFEESPRITE 13% 00028000 
MYSELF 
REAL RCWs+0,DISKREAD:% 00029000 


AHA AHANDN A 


=" 


) 
T 


T 


0000!0 


0000:'0 


0000:0 
0000:0 
000030 
000070 
000010 
0000:0 
000020 
0000:0 


000030 


0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000!0 
000010 
000080 
0000:0 
0000:0 
0000:0 
0000:0 
000010 
0000:0 
0000't0 
000010 
0000:0 
0000:0 
000030 
0000170 
000030 
0000!0 
0000!10 
0000!30 
DNRESS «& 


0000:0 


000030 
000010 


0000!0 


00000 


STACK¢F 40) 
STACK ¢F 45) 


= R 
= DO 


CW 
1s 


KREAD 


£ SET OMIT = 


MAKE PRESENT? 


Be DR Be VQ DE DQ DR 


$ SET OMIT = 


$ SET OMIT = 


$ SFT OMIT = 


TRYAGAIN? 


& SET OMIT = 


LABEL MAKEPRESENTs TRYAGAIN3 

NOTCNEWLOGGING) 

PRTLOCe#CRCW INX O)&RCWL30810I2]3¢% 

STREAMCRSLT er SYLLABLE J eCLePRTLOC)33 
BEGIN St+CLs Sl#Si"2s VIeRSLTS DIeDI463 DS*2 CHR ENDS 


2156 


PRTLOC « IF SYLLABLE THEN NTS 

ELSe SYLLABLE.£36%10)3% 
¥ THIS 1S THE CODE WE WILL Pass To 
% GETSPACE THE FIRST TIME, IT REQUESTS 
% OVERLAY MEMORY FOR THE MCP. AND THAT 
% WE WANT TO BE RETURNED TO ON A NO 


SYLLABLE t5 81043 


% MEM, 41568 
IF MEMORYCPRTLOC].,MAYBEWORKEDON THEN 
BEGIN MEMORYFPRTLOC],MAYBEWORKEDON@FALSE?& 
SIZE*MEMORYPPRTILOCI],£6%1032% 
¥156% 


NOW WE WELL ATTEMPT TO GET SPACE FOR THIS McP PROC, 
TF WE FAIL WE WiLL WAIT FOR A SECOND AND THEN TRY 
AGATN, THIS ENSURES THAT IF WE GET DS@ED WHILE ¥156= 
SLEEPING WAITING FOR MEMORY WE WILL NOT LEAVE THE 


TOGGLE LOCKED Up FOR THIS PROCEDURE, £156" 
2156" 
IF (LOC SSGETSPACE¢(SIZE»4+SYLLABLE))#0 THEN & NO MEM 


BEGIN *156° 
MEMORYCPRTLOC].MAYBEWORKEDON ta TRUES & UNLOCK J 
SYLLABLE .(4681)] %# TRUES &% DONT PRINT NO MEM 
SLEEPCCCLOCKIJsNOT CLOCK)S % WAIT FOR ONE SECOND, 
GO TO TRYAGAIN3 2156 

END3 £156 


NOTCAUXMEM) 
DISKREAD*CLOC+1)&SIZEL81383101801472134226] a4 
&CCSIZF +29) DIV 3090273428613 
STREAMCL1=L0C+1 »NteMCPRTLOC),£18815]+MCPBASE »Dte0)} 
REGIN SIeLOc Ns piels pSe8 DEC ENDIS 


SYLLABLE *WAITTIOCHISKREAD®0018)3% 
NOTCAUXMEM) 
MEMORYE LOC J+MEMORY[LOC QOL 2tA7E1 JROLI42I6)3¢% 
MEMORY LOC+1 J] +PRILOC&SIZEL1823321515% 
MEPRTLOC] t= MEPRTLOC] & TRUE CMAYBEWORKEDON) £8156= 
&CLOC 429633233815); 
NOT MONITOR 
FENN ELSES 


BEGIN SLEEPCEOMEPRTLOCI],0&TRUE [MAYBEWORKEDONI)3% 
IF CMEMORYEPRTLOC] INX O)SCMYSELF INX 0) THENS 
GO TO MAKEPRESENTS® 


%156° 


END 3% 


NOTCNEWLOGGING) 
POLISHCO*R OF eOeXcHeFCXeSTS) 4% 
GO TO POLISHCMEMORYCPRTLOCJ)3% 


GO TO STARTS % PLACE DrFSC.1tN PRT FOR MCP TO AUXMEM TRANSFER 


00030000 
00030099 
00031000 
00032000 
00033000 


00034000 
00035000 
00035500 
00035510 
00035520 
00035530 
00035540 
00036000 
00037000 
00038000 
00039000 
00039005 
00039010 
00039045 
00039090 
00039095 
00039030 
00039035 
00039040 
00039045 
00039050 
00039055 
00039060 
00039065 


00039099 
00040000 
00041000 
00042000 
00043000 


00044000 
00044099 
00045000 
00046000 
00047000 
00048000 
00048099 
00049000 


00050000 
00051000 
00052000 
00053000 


00053099 
00054000 
00055000 
00055100 


HOMAANANNANA AOA VAAAHINIAIMN AO 4H awt+-4 G 


a i 


AAAs D HH BH Heo 


i i 


0000!0 
0000!0 
0000:0 
0003t2 
000482 
00033000 
000513 
000613 
000833 
000982 
0009%2 
0009%2 
000932 
000932 
001120 
0014%1 
001641 
001631 
0016%1 
001631 
0046314 
001631 
0016314 
0016%4 
0018%2 
001930 
0021183 
002312 
00251 
002533 
00039040 
002533 
0025133 
002713 
003170 
003412 
00043000 
003582 
003731 
003731 
004182 
004440 
004630 
OO4B1t1 
OO48t1 
90037000 
0048%1 
005433 
005432 
005530 
90050000 
005540 
005530 
005730 
005801 


y 


PRT(217) = START 


END ESPBITs% 


00056000 T 0058!3 
00026000 
SIZE= 0059 WORDS 


PRT¢14) 
PRT(15) 
PRT(16) 
PRTC17) 


LABEL FrNnyrT3 
REAL RESULTi=12 »,RESULT2=13 ,RESULT3&14 ,RESULT4=15 3% 


RrSULTt 
Re SULT? 
Re SULT3 
Re SuULT4 


ERABEBELKALAALHAARLAEATARAAAAALALELELALELELTAVALELLRISFUTALAIALALLAXVLXY 
BROS OR IOI IO IG ICI IGOR IOI III IGIOIOR SOR NOK SORE HOR Enon Oy 


u* 4“y 
¥* M}ScFLLANEOUS FrErFLO DEF TNETIONS “% 
%* *% 


BRI OI IOI IOI IORI IG ROR OO IOI IO IIGIUIOIO IG IOI II IOIGR GK gi i Hg ao 
EEXLERAXAAAAALA AE ALSSAALAAL ALL VELA RSELLL FALL KSAALELALELAG LLL ALLEL 


%167* 

FIELD %167= 
FF = 18945 % %167% 

oCF = 33°45 3% %167= 
CTF = FF % £167= 
»CTC = CF % $167= 
»MSFE = 16301 % %167« 

; %167° 

% ¥167= 
% FIFLOS OF AIT ENTRY %167 
% 167 
FIELD ¥167= 
FILEBIT = 01:01 &% £167 
»OWNAIT = 07101 ¢% %167= 
sDIMPNSYONS = 03205 & ¥167= 

» BLKCNTR = 08:10 % %167= 
»MOM = $8245 &% 2167" 

; Z167° 

% 4167> 
% FIFLDS OF MATA DESCRIPTOR Z167= 
% Z167= 
FIELD ¥167% 

% FLAGBITF = 00200 %167* 
% DATABITF = 01801 ALWAYS OFF FOR A DATA DESCRIPTOR %167° 
PBIT = 02901 ON 1F DESCRIPTOR POINTS TO AREA OF CORE %1678 
»SIZF = 08140 SIZF OF ARRAY ROW ITF ARRAY DESC, ¥167= 

O FOR INDEXED DATA DESC, OR NAME DESC, %167= 

% eMOMADNRESSF = 18315 ADDRESS OF MOTHER DESCRIPTOR, ¥167* 
z TF PByT 1S ON THEN THIS FIELD CONTAINS AN&167= 


» ADDRESSF = 332415 
ACTUAL CORE ADDRESS, IF THE PBIT {S OFF THEN 
TF THE VALUE OF THIS FIELD 1S GREATER THAN 
OR EQUAL TO 512 THEN THE FIELD CONTAINS A&167= 
DALOC ADORESS WHICH CAN BE USED To LOCATE THE 
DATA IN THE OVERLAY DISK AREA ASSIGNED To THE 
THE PROGRAM. IF THE VALUE OF THE FIELD IS LESS 
THAN 512 THEN THIS FIELD CONTAINS A CODE &¢67= 


INDICATING THE STATUS OF THE AREA, 2167" 
0 NEVER ACCESSED OVERLAY AREA, %167= 
NEVER ACCESSED SAVE AREA, %167 


1 

2 NEVER ACCESSED OVERLAY AREA WHICH 
WHICH 1S ASSIGNED TO AUXMEM, 

5 INDICATES OVERLAY IS CURRENTLY IN 
PROCESS FOR THIS AREA %167= 

6 INDICATES OLAY HAD TRRECOVERABLE 


Fe BR BR Be VE BE DR aL DR FL BE dE BE PA PR DE BR BE XQ BL Be OL 


00057100 
00058000 


00060000 
00040010 
00060020 
00060030 
00060040 
00060050 
00060060 
00060070 
00060080 
00060090 
00060100 
00060110 
00060120 
00060430 
00060999 
00061000 
00061010 
00061020 
00061030 
00061040 
00061045 
00061050 
00061060 
00061070 
00061999 
00062000 
00062010 
00062020 
00062030 
00062040 
00062050 
00062060 
00062070 
00062080 
00062090 
00062100 
00062410 
00062120 
00062130 
00062140 
00062150 
00062160 
00062170 
00062180 
00062190 
00062200 
00062210 
00062220 
00062230 
00062240 
00062250 


++ 


MAIARAAIANMQANANMAANANDAAAANAXQMMANANAOA AA BDAINAIMAIANARINMANABDAAINAANDTCAANDIAANA OD 


0000:0 
000030 


000010 
000080 
000010 
000080 
000030 
000080 
000040 
0000!0 
000010 
000010 
000010 
000010 
000010 
000010 
000010 
000030 
000080 
000010 
000010 
000030 
0000!0 
0000180 
000030 
000010 
000010 
000010 
000010 
0000t0 
000030 
0000:0 
000010 
0000:0 
000010 
000010 
000010 
000010 
000010 
000030 
000010 
000030 
000010 
000010 
0000:0 
0000:0 
000010 
000010 
000030 
000030 
000010 
000030 
0000:0 


PRT(220) = AVAIL 


PRT¢221) = TAR 


PRT(222) = TOGLE 


% ERROR WHEN OVERLAYING THIS AREA, 
% THE NEXT ACCESS TO THE AREA WILL 

% CAUSE THE PROGRAM TO BE TERMY= 
% NATED, %167@ 
; %167= 
z T1167" 
% MISCELLANEOUS DEFINES 2167= 
% ¥167= 
DEFINE %167= 
CURRLKCNTR «= 16 # x 1679 
eATTNDX = 6 #4 %167" 
»P TF = 48%48:15 # ¢ %167= 
»FTC = 33978915 # ¢ €167= 
DELTA = 11 # ¢ £167" 
» TSX 2 22 # x ¥167" 
»SFINTX = 27 # g Y167* 
sINTRPTX = 28 # x Z167% 
; R167" 


’ 
INTEGER AVAILS? 


COMMENT AVAIL CONTAINS THE ADDRESS OF THE STOPPERS 
FOR AVATLABLE STORAGE LINKS [TS VALUE [5S% 
THE HIGHEST AVAILABLE ADDRESS#13% 
DEFINE MSTART = MrOJ,fCF)#3 
COMMENT MSTART CONTAINS THE ADDRESS OF THE 
FIRST AREA OF STORAGE AFTER END OFZ 
ESP PROGRAMS 
DEFINE MENND = MrO),(FFJ#3 
COMMENT THIS POINTS TO LAST STORAGE LINK IN 
MEMORY3¢ 
ARRAY TaRf*]+ ®BCONTAINS TOGLE BITS SET BY FACH JOB 


DEFINE LOCKTOGCLOCKTOG1)= BEGIN TOGLEtcTOGLE AND NOT LOCKTOG13 
TARFPUMIXyS=TARCPYMIX] OR LOCKTOG1S ENDSES 

DEFINE UNLOCKTOGCUNLOCKTOGs )= BEGIN TOGLES#TOGLE OR UNLOCKTOGL3 
TAREPYMIX)S=eTARECP{MIX] AND NOT UNLOCKTO0G43 END#3 

REAL TOGLE3 


DEFINE HP2TOG = TOGLE.C47!1}#, HP2MASK = eit 
»STATUSBIT = TOGLE,£46%1)#s STATUSMASK = e2# 
» SHFETFREE = TOGLE,€4581]#, SHEE TMASK 5 48 
»STACKUSE = TOGLE.C44t17#. STACKMASK = @10# 
»STOREDY = TOGLE.£43%11#, STOREMASK = @204# 
PUSERDISKREADY= TOGLE.£42%114» USERDISKMASK= @40# 
eHOLDFREF = TOGLE,£C41!1)#, HOLOMASK = @100# 
sNSECONDREANDY ©& TOGLE,£4041)#, NSECONDMASK = @200# 
»ABORTABLE = TOGLE,£39413#, ABORTMASK ws 40084 


»RUMPTUTYME = TOGLE,£38%17]#, BUMPTUMASK 7010008 
*KEYBOARDREADY = TOGLE,£37811#» KEYBOARDMASK 6®2000# 


»NOBACKTALK TOGLE, C3621 ]#, NOBACKTALKMASKm@40008 
»QTRDOY = TOGLE.635%1)#» QTRDYMASK =@1 00008 
»INTFREE = TOGLE.£C34%13#> FREEMASK s@20000#8 


»SPOFONULLOG = TOGLE,(33%1]4 
eREMOTELOGFREE = TOGLE,C3281]#. REMOTELOGMASK # @100000% 
sEGGSELECTSTOPPEN = TOGkbe,(3421]# 

»STARTOG = TOGLE,C30%1j)# 

eNINETEENNOTREADINGe TOGLE.C29214]#s NINFTFENMASK&@1 0000008 


00062260 
00062270 
00062280 
00062290 
00062999 
00067000 
00067010 
00067020 
00067030 
90067040 
00067050 
00067060 
00067070 
00067080 
00067090 
00067100 
00067110 
00067999 
00069000 


00070000 
00071000 
00072000 
00073000 
00074000 
00075000 
00076000 
00077000 
00078000 
00079000 
00079400 


00079200 
00079300 
00079400 
00079500 
00080000 


00080100 
00080200 
00080300 
00080400 
00080500 
00080600 
00080700 
00080800 
00080900 
00080950 
00081000 


(00081100 


00081200 
00081300 
00081400 
00081500 
00081600 
00081610 
00081620 


AA HHA AHA HSH HODOMVYVNAAAAAMA DAD BAA AO Oo 


44444 


AAA BDH ANA AHA HH 


000010 
000010 
000030 
0000t0 
000010 
0000380 
000010 
0000:0 
000030 
000030 
000010 
000010 
000010 
000010 
000080 
000010 
0000!0 
000080 
0000:0 


000010 
0000:0 
0000#0 
000080 
000030 
000010 
000080 
000030 
000010 
0000!0 
0000:0 


0000:0 
000030 
000010 
000030 
000010 


0000180 
000010 
000080 
000030 
000010 
000010 
000010 
000040 
000010 
000030 
000040 
000010 
000030 
000010 
000030 
000080 
000030 
000010 
000030 


»SMWSTOPPENDSTOGLE,[C28211%, SMWSTOPPEDMASK=@ 20000004 
eNCWAITINGSTOGLE.C278118 
eNCOPTSTOPPEN=ETOGLE 6268178 
» TNQUPTSTOPPEN=TOGLE,(25!4)# 
oMCPFREFSTOGLE -([24'1)#+ MCPMASK=@40000000# 
% USED TO PROTECT DISK SEGMENT ZERO 
eSCRATCHOIRECTORYREADY = TOGLE.C23t1)&e 
SCRATCHDIRECTORYMASK = @100000000# 
% USFD TO PROTECT THE SCRATCHDIRECTORY 
sFINDENGADDRESSSTOGLE,(C2291]# 
% SET TRUE WHENEVER THE SNDEPENDENT RUNNING ROUTINE 
% "FINDFREEADDRESS"” 3S STARTED SO THAT ONLY ONE COPY 
® Witt BE RUN AT ONE TIME. 
eCOFREESTOGLE.C21 41) 4sCDMASKs@4000000008 
& SET TRUE WHEN CONTROL DECK QUEUE IS FREE 
»NOMFMBTOGLE,£1586)# SGFTISPACES HANGING 
sBREAKTOGSTOGLE.L1431]# ZRREAKOUT T0G 
»BREAKMASKs@14 000000000008 
»SEPTICTANKING = TOGLE.C1i381)# 
sOTRECTORYTOG = TOGLE,ri2atile# 
eOTRECTORYMASK = ®4000000000008 
»NOMEMTOG = TOGLE,C11#1)# & ON TF NOMEM SINCE LAST NSFCOND 
»MEMNO = (933)# %’ 9!2 = COUNTER FOR NSECOND 


3 
STREAM PROCEDURE MOVECNI "WORDS FROM*"C(HERE)*TO"C( THERE 3% 
PRT(223) = MOVE 
VALUE N,HEREs THERES 
COMMENT WILL MOVE 0 TO 4095 WORDS33 
RBFGIN LOCAL NDIV64;% 


00081630 
00081640 
00081650 
00081660 
00081670 
00081675 
00081680 
00081690 
00081695 
00081700 
00081705 
00081706 
00081707 
00081710 
00081711 
00081950 
00081960 
00081970 
00081972 
00081974 
00081976 
00081980 
00081982 
00081999 
00082000 


000863000 
00084000 
00085000 


START OF SAVE SEGMENTS BASE 


S1T+LOC NS DreLOc NDIV64$ SreS1+63 DIeDI+73 DSet CHR3 
ST+HERES NleTHERESS 
NDIV54(D0Se32 WOSS DS¢32 WOS)3 DSeN WOS3S% 

END MOVES 


00086000 
00087000 
00088000 
00089000 


000010 
000020 
000010 
000030 
0000:0 
000010 
000010 
000030 
000030 
000010 
000030 
000010 
0000:0 
000010 
000030 
0000130 
000030 
000080 
0000:0 
000030 
00001t0 
0000340 
000030 
000030 
0000:0 


AAA HHH HHH HA a 


0000480 
000010 
0000:0 

ADDRESS # 00059 
T 000030 
T 000181 
T 0004133 
T 000382 

00085000 

SIZEm 0004 WORDS 


a4 


PROCEDURE STOPM(B)$ VALUE B% BOOLEAN B$ FORWARDS 


00089400 


START OF REL SEGMENTS DISK 


PRT( 224) = STOPM 


LABEL nIFFCOMs 
SAVE PROCFDURE FORGETSPACE(LOC)3% 


00089200 
00090000 


START OF SAVE SEGMENTS BASE 


PRT¢(295) = FORGETSPACE 


VALUE LoCs% 
REAL LOC#% 
FORWARD 32 
ARRAY BED(*]} Bo 4MIXMAX+4 


PRT(226) = RED 


PRTC167) 


PRTCi71) 
PRYC172) 


PRT(227) 


PRTC227 4 


PRT(230) 


COMMENT ENTRIES IN THE BED HAVE TWO WORDS,S 
THE FIRST WORD HAS THE FOLLOWING FORMAT#2 
O= 2 = 5% 
3° 7 = MIXINDEXS 
8-17 = OF 
186-32 = F REGISTER SETTINGS 
33°47 = ADDRESS oF WORD To BE TESTED,% 
THE SECOND WORD 1S A MASK IF BIT O IS OFF,% 
THE SeonD WORD IS AN ACCIDENTAL ENTRY DESCRIPTOR IF RIT O 
1S ON3 
COMMFNT PIMIX»POMIX NOW DECLARED AT 000217003 
COMMENT PIMIX IS THE MTX INDEX FOR THE JOB BEING CURRENTLY® 
PROCESSED, P1iMyX = 0 MFANS NO JOB 15S CURRENTLY BeryNGs 
PROCFSSFD. P2MrX IS THE MIX INDEX FOR THE JOB BEINGS 
CURRENTLY PROCESSED ON PROCESSOR 2. IF PROCESSOR 18 ;DLE 
THEN POMIX = 0. TF THERE IS NO PROCESSOR 2 THEN poMIXs43 
REAL DATEs@1673 
NATE 
COMMENT DATE CONTAINS TODAYS DATE3&% 
REAL XCLOCK=61713 


XcLOcK 
Real. REaANY=@172; 
RFANY 
COMMENT READY CONTAINS THE CONTENTS OF THE READY REGISTER ONY 
THE LAST READS% 
COMMENT STATUSBIT IS FALSE IF THE STATUS ROUTINE IS RUNNING AND 
TRUE gTHERWISE, THIS PREVENTS TWO COPIES oF STATUS From? 
RUNNING TOGETHERSS% 
ARRAY PRTCuee] 3% 
PRT 
COMMENT PRTC 1**] CONTAINS a DATA DESCRIPTOR WITH PROPER SIZE¥ 
FIELD POINTING aT PRT FOR JOB WITH MIX INDEX & Isg 
ARRAY PRTROWEPRTLa]3 B® MYIXMAX41% 
PRTROW 
COMMENT PRTROW IS DOPE VECTORS FOR PRT#2 
ARRAY JARE*¥p*#)3% 
JAR 
% JAR HOLNS INFO OF JOBS IN PROCESS CSEE DEFINES AT 20544000) 
DEFINE 


LIBMATNCODE=}#, LDCNTRLCODF23#s PRNPBICODEs5#, 
SYSJOBFS(683} 4%, SSYSJOBF=(5!3)#3 
% SFF 20556700 RE SYSJOBF ¢SYSTEM JOB FIELD) 
% SEF 20515000 RE SSYSJOBF CSHEET SYSTEM JOB FIELD) 
§ SET OMIT = NOTCWORKSET) 
ARRAY STQUFL#]$ % QUEUE FOR “STOPPED” JOBS» 16 LONG 


00091000 
00092000 
00093000 
00094000 


00095000 
00096000 
00097000 
00098000 
00099000 
001400000 
00101000 
00102000 
00103000 
00104000 
00105000 
00106000 
00107000 
00108000 
00109000 
00410000 
00111000 


00112000 
00114000 


00121000 


00122000 
00123000 
00125000 
001276000 
00127000 
00128000 


00129000 
00130000 
00131000 


00132000 
00133000 


00134000 
00134010 
00134020 
00434030 
00134040 
00134050 
00134100 
00134110 


T 000010 
ADDRESS 8 


T 000030 
T 000030 
ADDRESS « 


000030 
000030 
000030 
000010 


Se 


000030 
000010 
000080 
000010 
000080 
000070 
0000%0 
000010 
000030 
000010 
000030 
0000:0 
000030 
000030 
00000 
000010 
000030 


AA HAAR HHH se 


0000!0 
000070 


rE) 


000030 


000030 
000030 
000030 
0000:0 
0000:0 
0000:0 


i ee 


0000:0 
0000:0 
0000:0 


a4 


000030 
000030 


+44 


000030 
000030 
0000:0 
000010 
0000!0 
000010 
000080 
0000!0 


AHH AHS 


00002 


00063 


PRY(231) 


PRT¢2932) 


PRT(233) 
PRT(234)5 


PRT(235) 
PRT(236) 


PRT(237) 
PRT(237) 
PRT(2a0) 


PRT¢230) 


STQUF 
NERY 


Ne sTQUEMAX = 15843 


ARRAY OL AYTIMEr*]3 &® USED FOR STORAGE OF OLAY OVERHEAD TIME 


OLAYTIME 
PROC 


WORKSET 
ARRA 
WKSETDATA 


EDURE WORKSET¢N)? VALUE N3 


Y WKSETDATALC=I)}3 


REAL N33 FORWARD3 


% ARRAY USED FOR STORAGE OF WORKSET INFORMATION 
WKSETDATACO)#* 
% TrMe AT WHICH WORKSET ROUTINE HAS STARTED 


% TO RUN 


WKSETHNATACII,CA7&1I#, 
% TOGGLE TO INDICATE THAT WORKSET 1S RUNNING 
WKSETOATAL11,(4601)#> 
% TOGGLE TO PREVENT SELECTRUN FROM PLACING 
% ADDITIONAL JOBS IN THE MIX 
WKSETDATATI Ie CASty I] Be 

% TOGGLE USED To "MonITOR™ WORKSETDATA 
WKSETNATAL2)] #» 
%MaX, FRACTION OF PROCESS TIME TO COMPUTE 
% MaXtMUM ALLOWABLE OLAY TIME 
WKSETNATAL 3] #e 

% FRACTION USED TO COMPARE JOB STATISTICS 

% CALLOWABLE VARTANCE TO COMPUTE MAX,VALUFS) 
WKSETDATAL GJ #e 
% INSTRUCTIONS FOR COMPARING JOB STATYSTICS 
% FRACTION oF ToTAL SYSTEM CoRE WHICH MUST 
% BE KEPT AVAILABLE 
WKSETDATALS I] #2 

® CYCLE TIME C64THS OF A SECOND) FOR WHICH 
® THE WORKSET ROUTINE IS RUN, QUEUED aT 


% "TIMER" 


IN THE OUTER BLOCK 


WKSFTNATALG)&» 
® BIT INDEX CTWOCMIX)) FOR JOBS WHICH HAVE 
% BEEN “ST@EN”" BY THE WORKSET ROUTINE 

WKSETNATAL7I,CCEI]#. 


% INDEX TO FYRST ENTRY 


WKSETDATA7IVCFF IB» 
% INDEX To NEXT AVAILABLE SLOT IN "“STQUE™ 
WKSETDATALSI]## 


% TIME OF LAST "BoJ" OR "EQU™ EVENT 


o#: &® SIZE OF THE WKSETDATA ARRAY 


INTSIZF 3% 


00134115 
00134120 


00434125 
K 


3412 
START OF REL SEGMENT?) DIS 


IN THE “STQUE*" 


RE*ENTRANT INTRINSICS ON USER DISK 


ARRAY INTABLELe.*)} 9 INTABLEROWSINTABLEL eI] 3% 


DEFINE WKSETCLOCK - 
WKSETRUNNING = = 
WKSFTNOSELECT = 
WKSETMONITOR 2 
WKSETMAXOLAY = 
WKSFTOLFRANCF = 
WKSETINSTRUCT = 
WKSETCYCLETIME & 
WKSETSTOPJORS = 
STrrRst & 
STNEXT = 
WKSETSWITCHTIMES 
WKSETDATASIZE = 

$ POP OMIT & WORKSET 
ARRAY INTRNSCCwI]3 REAL 
INTRNSC 
INTSIZE 
INTABLE 
TINTABLEROW 


S$ SET OMIT = NOTCAUXMEM) 


ARR 
SHEET 


AY SHEFT(*]5 


ARRAY JARROWSJAR( 4) 3 


JARROW 


x 
% 


DEFINE TARCNT£TABCNT1] = JARROWCTARCNTII,CFFIES 


5% 


MY XMAX+12% 


00134130 


00134140 
00134150 
00134160 
00134170 
00134180 
00134190 
00134200 
00434940 
00134220 
00134230 
00134240 
00134250 
00134260 
00134270 
00434280 
00434290 
00434300 
004343140 
00434370 
00134330 
00134340 
00134350 
00134360 
00134370 
00134380 
00134390 
00134400 
00134410 
00434490 
00434430 
00134440 
00434450 
00134460 
00434470 
00134480 
00134490 
00135000 


90135100 


00335199 
00436000 
00138000 


00138100 


T 
T 


T 


000030 
000030 


0000!0 


ADDRESS # 


+ 


A AHHH HHH HHH HAA A HAH HAHA A 


000030 


0000:0 
000020 
000010 
000010 
000080 
000030 
000030 
000010 
000030 
000010 
000030 
0000:0 
0000:0 
000030 
000010 
0000:0 
000030 
000030 
000080 
000030 
000010 
000010 
000080 
000030 
000030 
000080 
000030 
000010 
000010 
000010 
000010 
000080 
0000180 
000030 
0000340 
000010 
000010 


000030 


000030 
0000!0 
000010 


0000:0 


00002 


PRT¢ 241) 


PRT(242) 


PRY(243) 


PRTC244) 
PRT¢ 245) 


PRT(246) 


PRT(247) 
PRT(250) 


PRT¢251) 


PRTC252) 
PRT(253) 


COMMENT TaRCNT IS THe NUMBFR OF PROCESSES WHICH HAVE CHECKED 
JARROW AND ARE CURRENTLY ACCESSING MIX TABLES, [T ASSURES 
THAT THE TABLES DONT VANISH BENEATH THOSE PROCESSESS 

COMMENT ENTRIES In THE SLATE HAVE TWO WORDS, EACH ENTRY 
DESCRIBES AN INDEPENDENT ROUTINE WHICH NEEDS TO BE STARTED 
RUNNINGe NOTHING TO Do STARTS THESE ROUTINES.»3% 
THE FIRST WORD OF AN ENTRY IS A PARAMETER TO THE ROUTINEs 
THE SECOND WORD OF AN ENTRY IS THE PRT ADDRESS OF THES 
ROUTINE o& 
NsLate AND LsSLATE ARE POINTERS TO THE SLATE oS 
NsLate POINTS at LAST ENTRY WHICH WAS STARTED. 
LSLATF POINTS AT LAST ENTRY PLACED IN THE SLATE? 

REAL JOBNUMS 


JOBNUM 
COMMENT JOBNUM POINTS AT LAST ENTRY IN BEDI 
COMMENT STACKUSE 1S TRUE IF THE INDEPEDENT STACK IS NOT IN USE» 
OTHERWISE FALSE;% 
RoorEAN NOPROCESSTOG?% 
NOPROCESSTOG 


COMMENT NOPROCESSTQG IS TRUE IF NORMAL STATE PROCESSING [S82 
ALLOWEN» OTHERWISE IT IS FALSEe IT IS USED BY OVERLAY AND 
OTHERS TO PREVENT CONFUSION32 
: REAL SOFTI3; % NUMBFR OF JORS IN MIX HAVING SOFTWARE INTERRUPTS nECLARED 
SOFTI 
REAL WITCHINGHOURsWORDOFEASES 
WITCHINGHOUR 
WORDOFEASE 
COMMENT THESE USED To BE CONSTANTS IN THE OUTER BLOCK QUT WERE 
MOVED HERE So EVERYONE COULD USE THEM, THEY CONTAINS 
WETCHINGHOUR 5184000 
WORDOFEASE 0952525252525 2525 
$ 


DEFINE NOX=3#3 % NUMBER OF ENTRIES PER JOB IN NFO ARRAY 


ARRAY NFO] 3 BMIXMAXxNDX 
NFO 
el NFO CONTAINS THE FOLLOWING FOR FACH ACTIVE MIX INDEX3. 
NFOCCMIX™1 )xNDX J = FILE PARAMETER BLOCK DATA DESCRIPTOR 
: NFOCCMIX#4 )XNDX#1) = SEGMENT DICTIONARY NAME DESCRIPTOR 
x NeOCcMyX=4)*NDOX4+2),0CF}] = LOCATION OF BOTTOM OF STACK cB#wWwoRD) 
% NF OL OCMIX*7IXNDX4+27, CFF] = FSTIMATED CORE REQUIREMENTS 
x NFOCOMIX@4)xNDX42),01217] = CLOCK TIME AT BOY 
ARRAY ;1STACK(¥*]}3 ’ 128% 
1STACK 
ARRAY PROCTIMEL*]3 % MIEIXMAX413 
PROCTIME 
COMMFNT PROCTIMECI) CONTAINS PROCESSOR TIME FOR JOB WITH? 
MIX INDEX = [3% 
ARRAY 1OTYMEL #13 2 MrXMaxe1® 
TOTIME 
COMMENT TOTIMELI) CONTAINS [=O TIME FOR JOB WITH MIX INDEX xf 
$ SET omMtT = NOTCNEWLOGGING) 
DEFINE FULOHOLNERSDIRECTORYTOP=54>5 
FUTAPERS 98%, 
DISKAVATLTABLEMAX=130#3 
INTEGER NEUPS ARRAY EUVIOLT*¥]3 ARRAY PEUIOLe) 3 
NEUP 
FUTO 


00138110 
00138120 
00438130 
00140000 
00141000 
00142000 
00143000 
00144000 
00145000 
00146000 
00147000 
00148000 
00149000 


00450000 
00152000 
00153000 
00154000 


00155000 
00156000 
00157000 
00157100 


00157500 


00157600 
00157700 
00157800 
00157900 
00158000 
00158100 
00158200 


00158300 
00158400 
00458500 
00158600 
00458700 
00158800 
00459000 


00161000 


00162000 
00163000 
00164000 


00165000 
00165009 
00165800 
00165810 
00165820 
00166000 


ee 


4a AAs Ha 


oe ee ee en i i a i ee ee | 


AAA 


000080 
0000!0 
000030 
000080 
0000!0 
000010 
000080 
000030 
000030 
0000t0 
0000!0 
0000:0 
000030 


000020 
000030 
000010 
0000:0 


0000:0 
0000:0 
0000:0 
000030 


0000:0 


000030 
000010 
000010 
000030 
000010 
000030 
000030 


000030 
0000:0 
0000:0 
000030 
0000180 
000030 
000030 


000020 


000030 
0000:0 
000010 


000010 
000030 
0000:0 
000030 
000030 
000010 


PRTY(254) 


PRT(255) 


PRT¢256) 


PRT( 257) 


PRTC260) 
PRTC261) 


Pruyo 
£$ SFT OMr1T = NOTCSHARFDISK ) 
$ SFT OMtT = SHAREMISK 
ARRAY AVTABLEr*) 3 
AVTAB,,E 
$ POP OMIT 
COMMENT NEUpP.CCF I CONTAINS THE NUMBER OF EUS ON DKAe 
NEUP,NFUF CONTAINS THE TOTAL NUMBER OF EUS ON THE SYSTEM, 
FUTO AND PEUIO CONTAIN THE I#Q TIME USED BY A GIVEN FU. 
THIS INFORMATION IS USED BY GETUSERDISK IN AN ATTEMPT TO 
MINIMIZE EU CONFLICT; 
DEF ING MIXF = (32:5 )#3% 
ARRAY cHANIOL*)3 


CHANIO 

ARRAY CHANNEL SE «13 S 5% 
CHANNEL 

COMMENT CHANNELEC I] CONTAINS LOGICAL UNIT OF LAST DESCRIPTORS 
SENT OUT ON CHANNEL I3% 

ARRAY FINALQUE(C*)3 S$ 39% 
FINALQUE 

ARRAY LOCATOQUFL*1]3 % 322% 
LOCATQUE 


COMMENT LOQUFeFINALQUE» ANN LOCATQUE TOGETHER WITH UNIT FORMS 
THE reO QUEUF, AN I™O REQUEST FOR LOGICAL UNIT U REQUIRES 
THREE WORDS OF SPACE 1N THE {tO QUEUE, TF THE REQUESTS 
OCCUPTES POSITION S_ IN THE JO QUEVEs THEN [0QUErS} )% 

Te) DESCRIPTOR FOR THIS REQUEST» FINALES) = I*0 DESCRIPTOR 
SKELETON 10 BE USED AT 1*0 COMPLETE TIME TO REBUILD? 

T= DESCRIPTOR» LOCATQUELS] = LOCATION OF I*0 DESCRIPTORS 
AT TIME OF REQUEST» LOCATQUELS] CONTAINS SOME ADDITIONAL 
INFORMATION, IN PARTICULARS 


N= 2 ® 5% 

37 7 = MIX INDEX OF REQUESTERS 
8 = 1/0 1S READ LOCK WHICH HAD ERROR CSHAREDISK), 
9 = OLAY 1/0 CIOFINISH PLACES RESULT ON FRROR), 
10 = NO MeM MESSAGE, 
11 = ERROR RECOVERY IN PROCESS ON THIS [#0 

12°17 = LOGICAL UNTT NUMBERS 

18-32 = JNDEX OF NEXT REQUEST TO RE DONE ON THyS UNIT 


OR @77777 IF NO NEXT REQUESTS 
33047 = ORIGINAL LOCATION OF I#0 DESCRIPTOR,& 
UNITfU1 CONTAINS INFORMATION ABOUT LOGICAL UNIT U,& 
1°» 4 = TYPE OF 3/0 DEVICES 
9°12 = ERROR FIELD OF LAST 1/0 DONE ON THIS UNITS 
13 = UNIT NOT READY BITS 
14 = ERROR BIT CON IF FRRORDS 
15 = WAIT BIT CON IF UNIT IS WAITING FOR A CHANNEL 
16°17 = PROCESS RITS CUSUALLY BOTH ON TF UNYT 1S {NX 
PROCESS OR BOTH OFF, WITH PRINTERS THe 
Teo FINISH SETS OFF 16 AND THE PRINTERS 
FINISH SETS OFF 47)% 
18-32 = INDEX OF FIRST Teg REQUEST FOR WHICH SERVICE 
IS NOT COMPLETES 
33°47 = INDEX OF LAST UNSERVICED I"9 REQUEST, 
THE SPACES NOT USED IN THE I1"0 QUEUE ARE LINKED TOGETHER? 
THROUGH 10QUE. THE FIRST AVAILABLE IS IN IOQUEAVAILS 
REalL TOQUESLOTS* 10QUEaVaAIL: 


00166002 
00466005 
00466006 


00166007 
00166010 
00166025 
00166030 
00166040 
00166050 
00168000 
00169000 


00170000 


00171000 
00172000 
00173000 


00174000 


00175000 
00176000 
00177000 
00178000 
00179000 
00180000 
00181000 
00182000 
00183000 
00184000 
00165000 
00185100 
00185500 
00186000 
00186100 
00487000 
001488000 
00189000 
00490000 
00491000 
00192000 
00193000 
00194000 
00195000 
00196000 
00197000 
00198000 
00199000 
00200000 
00201000 
00202000 
00203000 
00204000 
00205000 
00205500 


in Bees Non tee Bee ee ee 


_~ 


4 a4 


AM HAHAH HHH HH A Ht A es 


000030 
000010 
000030 


0000:0 
000030 
000030 
000030 
000030 
000010 
000070 
000010 


0000!0 


000010 
000030 
000030 


000010 


000030 
000030 
000010 
0000180 
000080 
000030 
000030 
000010 
0000!0 
000030 
000010 
000030 
0000:0 
000010 
000010 
0000:0 
0000:0 
000030 
000040 
000030 
000010 
006010 
000030 
000010 
000030 
000040 
000030 
000030 
0000!0 
000010 
000010 
000010 
000010 
0000:0 
0000!0 


PRT(262) 
PRT(263) 


PRT¢264) 


PRT(265) 


PRT (266) 


PRT(267) 


PRT(270)9 
PRTC271) 


PRT(?72) 
PRT(273) 
PRTC274) 
PRTC275) 
PRT(276) 


PRTC277) 


PRTC300) 
PRTC301) 


PRT(302) 
PRT(303) 
PRT(304) 


PRT(305) 


1rOQUFSLOTS 
rOQUFAVATL 

ARRAY 1OQUFL*]3 
TOQUE 

DEFINE RETURNTOSPACECRETURNIOSPACE1) =» 

BEGIN 1QOQUESLOTSt=IQQUESLOTS+443 
TOQUETRETURNIOSPACEL J4210QUEAVAILS 
IOQUEAVAIL!ISRETURNJOSPACE(3 

END#S 

ARRAY UNITC#]3 


UNIT 
COMMENT UNIT NOW FILLED IN INITIALIZES 
ARRAY TINUL*]3 
TYNU 
COMMENT TINU NOW FILLED tN INITIALIZES 
ARRAY WAYTQUEL#*]3 B 8% 
WAITQUE 
REA!, NEXTWAITsFIRSTWAIT3% 
NEXTWAIT 
FIRSTWAIT 
COMMENT WAITQUE IS A QUEUE OF UNITS FOR WHICH THERE ARF 
REQUFSTS BUT NO CHANNEL 1S AVAILABLE, NEXTWAIT ANDS 
FIRSTWAIT ARE POINTERS aT THE WAITQUE, NEXTWAIT 7S THEE 
NEXT AVAILABLE SLOT IN WAITQUE AND FIRSTWAIT POINTS ATS 
NEXT UNTT TO BE USED WHEN A CHANNEL 7[S AVATLABLE3¢ 
ARRAY | ABFLLTABLEC #7? % 3oR 
ABEL TABLE 
ARRAY mULTITABLEC#]3 Z 30% 
MULTITABLE | 
ARRAY RPDCTABLE( 4]; % 30% 
RDCTABLE : 
ARRAY PRNTARLE[ «133% 
PRNTARLE 
ARRAY REPLYS ¥I13% 
RePLy 


COMMENT LABFLTABLE, MULTITABLFs» AND ROCTABLF CONTAIN LABEL INFORMATIONS 


BY |.OGICAL UNIT NUMBER AS FOLLOWS! 
LABELTABLELI] CONTAINS THE FILE ID FoR LOGICAL UNIT [42% 
MUL, TITABLEC I 1 CONTAINS THE CORRESPONDING MULTI@FILE 102% 


RDOCTABLELTI} CONTAINS THE CORRESPONDING REEL NUMBER CIN £14210))> 


CREATION DATE CIN (24917}3)5 AND CYCLE CIN (411739338 
$ SET OMIT = NOTCSHAREDI SK) 
REAL OPTIONS® 
OPTION 
REAL ILL INQCTS 


REAL PINGO} 
PINGO 

REAL RFANQ»RRNCOUNTS DEFINE PUT=SFT#3 
REANQ 
RRNCOUNT 

$ SET OMIT = NOTCDATACOM ) 

ARRAY TRANSACTIONS); % 32% 
TRANSACTION 

DEFINE ETRLNG = 5#3 % LENGTH OF ENTRY IN FILE BLOCKS 

SAVE Real PROCEDURE TWOCN)$ VALUE N3 INTEGER N3 


00206000 


00206500 
00207000 
09207500 
00208000 
00208500 
09209000 


00210000 
00241700 


00241600 
00978000 


00279000 


00280000 
00281000 
00282000 
00283000 
00284000 
00985000 


00286000 
00287000 
00288000 
00289000 
00290000 
00291000 


00292000 


00293000 
00294000 
00295000 
00295999 
00297000 


00299000 


00301000 
00301100 
00301200 
00304000 


00305000 
00306000 


44 + aaa 4 


4-4 


a4 


4 ana aH HH 


SE 


000080 


000010 
000030 
000010 
000030 
000030 
000070 


000010 
0000:0 


000010 
000080 


000030 


000010 
000030 
000030 
000030 
000030 
000010 


000030 
000030 
000010 
0000180 
000030 
000030 
000010 
000030 
000030 
000010 
000030 
000010 


000080 


000010 
0000180 
000030 
0000:0 


000010 
0000:0 


@ « 
@ START OF SAVE SEGMENT! BASE ADDRESS © 00063 q 
PRT¢306) © TWO 

| BEGIN REAL Ts443 00307000 T 0000:0 
4] STACK¢(F4i1) = T q 

STREAMCNSENT @G7=NeTte[T])3 00308000 T 000030 

BEGIN SKIP N DBs DSt=SETS ENDS 00308500 T 000211 
4] 00308500 a 

END TWORS 00309000 T 000384 

00307000 

@ SIZF® 0004 WORDS a 
Y @ 
@ | 
@ a 
@ go 
& @ 
@ ] 
@ & 
@ @ 
@ & 
rd]  ] 
@ & 
@ @ 
& @ 
@ @ 
e@ @ 
@ @ 
@ r 


PRT(307) 


PRTC 340) 


PRTC3119 


PRT(312) 
PRTC312) 


PRT¢343) 


PRT¢C314) 


PRT¢345) 


PRT(316) 


PRTC317)5 


PRT¥¢320) 


PRTC321) 


PRT(322) 


PRT¢393) 


REAL SYLLABLE?% 
SYLLABLE 
$ SET OMIT = NOTCSHAREDISK) 
$ SET OMIT = SHAREDISK 
DEFINE SYSNOEO#, SySMAx=l#3 
& POP oMy1 
COMMENT ANALYSIS PLACES THF SYLLABLE THAT CAUSED THE INTERRUPT 
IN SYLLABLE, TuyrS 1S USED BY PRESENCE BrT» FLAG BYT, AND 
VARIQUS ERRORS3% 
PROCEDURE FORGETUSFRDISKCAsLISVALUE AsLFREAL Aol SFORWARDS& 
START OF REL 
FORGETUSERDISK 
REAL PROCFDURE PETUSERDISK(NeTISVALUE NeTSREAL NeTSFORWARD 3 
START OF REL 
PETUSERNISK 
$ SET OMIT = NOT DEBUGGING 
$ SET OMIT = NOT NERBUGGING 
ARRAY nALOCE *¥e%e]» NALOCROWSNALOCE*)]3 
NALOC 
nALOcCROW 
£ SFT OMyT = NOTCRREAKOUT) 
REAL OLAYMASK33 FOR LOCKING OUT GETMORFOLAYNOYSK BY MIX INDEX 
OLAYMASK 
PROCEDURE USFRDISKSPECIALCASE(Q,ReUs,J)IVALUE Q,JFREAL QeRey3 
START OF REL 
USERDISKSPECTALCASE 
ARRAY UCL#*J)% FORWARD 3} 
DEFINE RASF=30268#,% 
CHUNKS] ZE=50083% 
REAL LeFTOFF3 COMMENT POINTER TO CYCLE FOR OLAY3% 
LEFTOFF 
SAVE PROCEDURE DISKRTNCSEGNO, SIZE)3 
START oF SAVE 
NISKRTN 
VALUE SEGNoe SIZE; 
INTEGER SEGNOe SIZE} 
FORWARD} 
PROCEDURE FORGETESPDISKCSEG)S VALUE SEGSREAL SEGSFORWARDS 
START OF. REL 
FORGETFSPNISK 
SAVE INTFGFR PROCENURE DISKSPACECNWORDS*PIMI Xo AUX)3% 
START OF SAVE 
ntSKSPACE 
VALUE NWORDS»PyMIX,AUX3 
INTEGER NWORDS,»PIMIXFREAL AUX3 
FoRWARDS& 
PROCEDURE STATUS:% 
START OF REL 
STATUS 
FORWARD?4 
PROCEDURE INTERRUPTCTYPE)3VALUE TYPE3REAL TYPE; FORWARDS 
START OF REL 
INTERRUPT 
Real. PROCFAURE FINNOUTPUTCMID SF ID» TYPE »FORMSs REELS COATES CYCLE sKIND 93% 
START OF REL 
FINDOUTPUT 
VALUE MIDoFID+ TYPEs FORMS» REEL» CDATE*®CYCLE®KINDSS 


00310000 


00310099 
00310199 
00310200 
00310201 
00311000 
00312000 
00313000 
00316000 
SEGMENTS DISK 


00316100. 


SEGMENTS DISK 


00316999 
00330999 
00333000 


00333099 
00336000 


00336100 
SEGMENTS DISK 


00336110 
00338000 
00339000 
00341000 


00363000 
SEGMENT? BASE 


00363100 
00363200 
00363300 
00364000 
SEGMENT) DISK 


00365000 
SEGMENTS BASE 


00366000 
00367000 
00368000 
00369000 
SEGMENTS OISK 


00370000 
00370500 
SEGMENT: DISK 


00371000 
SEGMENTS DISK 


00372000 


T 000030 
T 000030 
T 000080 
T 000010 
T 000080 
T 000030 
T 0000;0 
T 000010 
T 000010 
ADDRESS = 
tT 000010 
ADDRESS 
T 000010 
T 000010 
T 000030 
T 000030 
T 0000!0 
T 0000:0 
ADDRESS = 
T 000030 
T 000080 
T 000010 
YT 000010 
T 000080 
ADDRESS = 
T 0000:0 
T 000030 
YT 0000:%0 
T 000010 
ADDRESS #® 
T 0000;0 
ADORESS & 
T 000010 
T 000080 
T 000030 
T 000010 
ADDRESS ® 
YT 000010 
T 0000:0 
ADDRESS a 
T 0000:0 
ADDRESS = 
T 000030 


00002 


00002 


00002 


00067 


00002 


00067 


00002 


00002 


00002 


PRT( 324) 


PRT¢325) 


PRT(326) 


PRT(327) 


n 


REAL MIDeFID* TYPE »FORMS*REELSCDATE CYCLE sKINDS FORWARD3S 00373000 T o00010 
REA! PROCFNURE FINDINPUTCMID®F ID» REEL *COATE sCYCLE »COBOL SUL OF »MODE DFNDS 00374000 T 0000:0 
START OF REL SEGMENT; DISK ADDRESS ® 00002 
FINDINPUT 
VALUF MIDs FID@REEL*CDATE* CYCLE sCOROLoULS OF pMODE oFNSY 00375000 T 0000:0 
REAL MIN*FID*REELSCDOATE® CYCLE» COBOL>UL*OF »MODE*FNS FORWARD} 00376000 T 0000180 
PROCENURF STARTIMINGCFNSU)$ VALUE FNeUs REAL FNoUS FORWARDS 00377000 rt 0000:0 


START OF REL SEGMENTS DISK ADDRESS #® 00002 
STARTIMYNG 
PROCEDURE FILEOPENCX»A)# VALUE XeAS INTEGER X,AS FORWARDS 00379000 T 0000:0 
START OF REL SEGMENTS DISK ADDRESS # 00002 


FILEOPEN 
SAVE PROCEDURE SAVEOPENCA)3 VALUE as REAL AS 00379100 T 0000:0 
START OF SAVE SEGMENT) BASE ADDRESS = 00067 
SAVEOPEN 
RFGIN FILEOPENC2eA) ENDS 00379200 T 00000 
00379200 


SIZE# 0002 WORDS 


PRT(330) 


PRT(331) 


PRT(332) 


PRT(333) 


PRT(334) 


PRT(335) 


PROCENURF MIXPRINTCQ)3 VALUE Q* REAL 93 FORWARDS 
START OF REL 
MIXPRINT 
% TYPES <JOR SPFCIFIFRS> FOR FACH ACTIVE MIX INDEX 
PROCEDURF JORMFSSCMIXeQeArRoCeoDSVALUE MIXsQeAsReCeD3 
START OF REL 
JOBMESS 
REAL, MrXeQ@pAeB,CoDs FORWARD? 
PROCEDURE SETNOTYNUSE(U,RWL DS VALUE UsRWLS REAL UsRWLS FORWARDS 
START OF REL 
SETNOTINUSE 
DEFINE STOPTIMINGSSTARTIMING#S 
PROCENURF FILLUBUFFERSCCURRENT»FINAL»COBOLeNRD3 
START OF REL 
FILLBUFFERS 
VALUE CURRFENToFINAL»*COBOLeNR$ REAL CURRENT®FINAL*®COBOLNR? 
FORWARD: 
NEFINE aGeTRUFFFRS#P I LLRUFFERSE#3 
PROCEDURE RFALFILFCLOSECA)S yALUE A REAL AS FORWARD} 
START OF REL 
REALFILECLOSE 
SAVE PROCEDURE FILECLOSECA)3 VALUE A? REAL A3 
STaRT oF SAVE 
FILECLOSE 
REGIN REALFILECLOSECA) END; 


00379400 
SEGMENTS DISK 


00379500 
00379600 
SEGMENTS DISK 


00379700 
00380000 
SEGMENTS DISK 


00382000 
00385000 
SEGMENTS DISK 


00385500 
00386000 
00387000 
00389000 
SEGMENTS DISK 


00389100 
SEGMENTS BASE 


00389200 


T 000030 

ADDRESS #® 00002 

T 000030 

T 000080 

ADDRESS = 00002 

T 000030 

T 000010 

ADDRESS ® 00002 

T 0000:0 

T 000010 

ADDRESS ® 90002 

T 000030 

T 000030 

T 000030 

T 000070 

ADDRESS = 00002 

T 000030 

ADDRESS ® 00069 

T 000030 
90389200 


SIZE® 0001 WORDS 


PRT(336) 


PRT(337) 


PRT(¢ 340) 


PRTC341) 


PRTC342)5 
PRTC343) 


PRTC177) 
PRT(344) 
PRT(345) 
PRT(346) 


"i 


REAL PROCFENURE DISKANDRESSCMINSFIDeFPR3PAsHs 1033 Z ¢SHM) 00390000 
START OF REL SEGMENTS DISK 
NISKADDRESS 
VALUE MIDsFINeFPR3eArHs, 108 % ¢SHM) 00390100 
REA|, MIDsFID>FPB3eAs103 ARRAY HE*]3 % ¢SHM) 00390200 
FORWARND?% 00391000 
PROCEDURE RLASTOCU)S VALUE US REAL Us FORWARDS & 00392000 
START OF REL SEGMENT) DISK 
RLASTQ 
REAL PROCEDURE FILFEFHEADERCMID,F IO sNROWS» SIZE oBLENPRLEN,S)3% 00393000 
START OF REL SEGMENTS DSK 
FILEHEADER 
VALUE MID»F yDeNROWSe SIZE sBLENeRLEND S3% 00394000 
REA\, MIN,FYD3% 00395000 
INTEGER NROWS*SIZE+BLENeRLENSS3 FORWARDS 00396000 
PROCEDURF PURGEITCU)? VALUE Us INTEGER US FORWARDSS 00397000 
START OF REL SEGMENT3 OISK 
PURGEIT 
REAL ESpPTAB*ESPCOUNTS 00399000 
FSPTAR 
FSPCOUNT 
REAL DIRNDSK=@1773 00400500 
NIRNSK 
REAL ESPDISKBOTTOM$ % LOWEST ADDRESS OF ESPDISK 00401000 
FSPHTSKBOTTOM 
REAL ESPDISKTOPS % HIGHEST ADDRESS oF ESPDISK 00401100 
ESPOTSKTOP 
REAL MmESSAGEHOLDER?&% 00402000 
MESSAGEHOLDER 
DEFINE USEDRA wm OPTION, £4784] 86% 00403000 
USEDRB = OPTION» (4631) #0% 00404000 
ROUMESS ZOPTION.C45t1l]ae% 00405000 
FOUMESS =OPTION, (4421) #5% 00406000 
OPNMESS SOPTION,£4381140% 00407000 
TFERMGO sOPTTON, (4224) #o¥ 00408000 
GIVEDATE = OPTION, C4181] 89% 00409000 
GIVETLME = OPTION, £4084 Rok 00410000 
SAMEBREAKTAPESOPTION.£F3981)#» &% NOT CURRENTLY USED, 3/73 00411000 
AUTOPRINTSOPTION,[ 3821) 8» 00442000 
CLEARWRS=OPTION, (3721445 00413000 
NOTIFYOP®OPTION, £3631] #53 00414000 
DISCONDC = OPTION, C3631] 4» 00414100 
COPNMESS#OPTION, £35321 )#03 00415000 
CLOSEMESS#=OPTION. £34814] 40% 00416000 
FRRORMSG=OPTION, [3321] #>» 00416050 
RETMSG2OPTION.C32s1) #4, 00416100 
LIBMSG=OPTION, C3181) 4, 00416200 
SCHEDMSG#OPTION,(£30!81)#>» 00416300 
SECMSGtOPTION. C2931] #, 00416400 
NSKTOGSOPTION.(C28:11]#, 00416500 
RELTOG=OPTION,[27:i4]%, 00446520 
PRDRELZOPTIONe (C2681) #5 00416580 
CHECKLINK * OPTION, [25314] #e 00416560 
DISKMSGSOPTIONe C2421] #6 00446570 
LIBERR =COPTION,£2281] OR (CSPOUTUNIT,(CFJ#0))#» & FROM SP0%589" 00416890 
USEPRDZOPTION,Co1:11#,% BOS 00416600 
SVPBT sOPTION,(20211#,2% 00416610 


T 000 


08 
ANDRESS 


“ao 


000070 


T 
T 
T 000030 
; 
ADDRESS & 


T 0000:0 
ADDRESS # 
T 0000:0 
T 000030 
T 000010 
T 000010 
ADDRESS & 


T 000030 


T 0000:0 
T 000010 


T 0000:0 


“« 


0000:0 


000030 
000030 
000030 
000010 
0000:0 
000030 
000010 
000070 
000030 
000010 
000010 
000039 
000030 
000010 
0000:0 
0000:0 
000010 
000010 
000010 
000070 
000020 
0000:0 
000010 
000080 
0000:0 
000030 
000010 
000030 


A HOR HA HHHH HA AHHH A HHA HA tH 


00002 


00002 


00002 


00002 


So] 
& RSTOGEOPTION. 1981] bs 00416620 T 000010 
AUTOUNLDSOPT1ON. (488414, 00436630 T 0000:0 
AUTORN = OPTION, (17%4)#, 7902= 00416710 P 0000:0 
@ CODEQLAY=OPTION, C1644 00416730 T 0000:0 
CORESTTOPTIONsLdStil#e 00416740 T 0000:0 
DATAOLAYSOPTION, CL4%t)ee 00416750 YT 0000:0 
e HALTSET#OPTIONsC13¢1]#¢ 00416781 T 0000:0 
STOPTEST® OPTION {S!#1]#> 00416760 T 0000:0 
PUNCHLCKSOPTION, L731] 4% 00416770 T 0000:0 
® CHONLYSOPTION, COtLI]#>» 00416780 T 000010 
PKTONLYZOPTION,cSs1d#, 00416790 T 0000:0 
SEPARATESOPTION, Catt les 00416800 T 000010 
e MON3TOSSOPTION,[2!1]#> 00416990 T 0000:0 
AUTOMESS = OPTION, C131 ]#> 00416992 T 000010 
AUTODS = OPTION,Citil#e % ACTS FOR OPERATOR £7479 00416995 C 000010 
rd] KXXXXXe OPTION, COLO] HSE 00417000 T 000030 
DEFINE ROJBIT = 45718t42t6)#» 00417010 T 000030 
FOJRIT = 4471824286] #5 00417020 T 000030 
& OPNRIT = 43(18:4216)8» 00417030 T 000030 
rOPNRIT? 3571834236) #. 00417040 fT 0000:0 
cLOSrRITe34c182:42t6)#, 00417050 f 000030 
& FRRRBIT = 33(18242%6)#, 00417052 T 0000:0 
LYBBTT = 34718t4286)#, 00417060 T 0000:0 
SCHFDBYT=30¢4824rt6yes 00417070 T 0000:0 
@ SECBIT = 297¢48342'6y#> 00447075 T 0000:0 
RPSBIT = 197188406) #> 00417080 T 0000:0 
NEVERBITS6261ARt42t6l#e 00417090 T 0000:0 
@ ALWAYSBIT=63(01884236)#3 00417100 T 0000!0 
REAL USFRDISKBOTTOMS 00418000 T 0000:0 
PRT(347) = USERDISKBOTTOM 
 ) % DISK ADDRESS OF USER DISK AVAILABLE TABLE 00418010 T 000010 
REAL DIRECTORYTOPS 00418050 T 0000:0 
PRT(350) = nt RECTORYTOP 
@ % nrSk ANDRESS OF DIRECTORYTOP SEGMENT@=*STORED IN ME1) 00418060 Tt 0000:0 
ZBY MCP LOADER AND STORED IN MCP PRICDIRECTORYTOP) 00418070 T 0000:0 
REAL DISKROTTOMS 004148100 T 000010 
@ PRT(351) = NISKBOTTOM 
% DySk ADDRESS oF ToP oF BYPASS DIRECTORY, USED IN SCRAMBLE, 00418200 T 0000:0 
$ SET aMIT = NoOTCSHAREDISK) 00418799 T 000030 
®@ $ SET OMIT = SHAREDISK 00418849 T 0000:0 
REAL HOLDER» NEXTSLOTsBYPASS3 00418850 T 000030 
PRTC352) = HOLDER 
@ PRTC353) = NEXTSLOT 
PRT(354) = BYPASS 
$ SET OMIT = NOT STATISTICS OR OMIT 00418859 T 0000:0 
@ DEFINE HWOLNMAX ©& 3083 % MAXIMUM NUMBER OF ENTRIFS IN HOLDLIST 00418900 T 0000:0 
COMMENT THF HOLDLIST CONTAINS A ONE WORD ENTRY FOR EACH PROCESS 004186910 T 0000:0 
THAT 15 WAITING TO USE a FILE THAT 1S ALREADY IN USE, 00418915 T 0000:0 
r) HOLDLISTCIJe€FFJsTHE CoRE ADDRESS OF THE WoRD THAT THE 00418920 T 000010 
WAITING PROCESS IS SLEEPING ONe 00418925 T 0000:0 
HOLODLISTCIJ+fCFJaTHE DISK ADDRESS OF THE FILE HEADER 00418930 T 0000:0 
e THAT IS BEING WAITED FOR. 00418935 T 0000:0 
HOLDLISTCIJ+C10%a—I=MIX INDEX OF THE PROCESS THAT MaDE THE 00418937 T 0000:0 
ENTRY, CTSSMCP ONLY) 00418938 T 0000:0 
® HOLDLISTELJ+£2823® THE SYSTEM NUMBER C(SYSNO) OF THE SYSTEM 00418940 T 000030 
THAT MADF THE ENTRY CSHARFDISK ONLY), 00418945 7 000010 
° HOLOLTST£EIJ¢£111]7 1S SFT BY A SYSTEM TO NOTIFY ANOTHER 00418950 T 000010 
@ 


SYSTEM TO AWAKEN THE PROCESS THAT MADE THE ENTRY, 

THE NSECOND ROUTINE EXAMINES THE HOLDLIST IN 

ORDER TO CHECK FOR THIS CONDITION CSHAREDISK ONLY), 
DIRECTORYSEARCHs NSECOND»® AND CLEANOUT ARE THE PROCEDURES 


THAT MANIPULATE THE HOLOLIST» 


THF WORDS ASSOCYATED WITH DIRECTORY HANDLING ARE? 
HOLDER. CCF) = DISK ADDRESS OF HWOLOLIST, 
of{FF] = NUMBER OF ENTRIES IN HOLOLIST, 
NEXTS OT = DISK ADORESS OF FIRST HEADER IN QUEUE OF 
EMPTY SPOTS IN DIRECTORY (NEXTSLOT QUEUE), 
BYPASS,(CF] * LOWEST ADDRESS OF THE BYPASS DIRECTORY, 
oC[FF) * HIGHEST ADDRESS OF THE MAIN DIRECTORY, 
ON SHAREDISK» HOLDER» NEXTSLOT AND BYPASS ARE KEPT IN THe FIRST 
THREE WORDS OF THE DISK SEGMENT LOCATED AT DIRECTORYTOP42,. A 
REAM LOCK MUST BE DONF BEFORE ACCESSING THE HOLOLIST OR NEXTSLOT 
QUFUF OR EXPANDING EITHER THE MAIN OR BYPASS OTRECTORIES, 
END COMMENT; 
INTEGER RESTARTINGS BPASSLEVEL CONTROL CRS) 
PRTC355) = RESTARTING 
$ SET oMIT = NOTCBREAKOUT) 
DEFINE SCRAMBLECSCRAMBLE1 »SCRAMBLE2 )=( 82x 
CC SCRAMBLE 1e068181+SCRAMBLE1eL94824]) MOD MODULUSxMODULUS#+ 
CSCRAMBLE2.(6:18)+SCRANBLE2.[.243:24]) MOD MODULUS) + 
nISKROTTOM)#> 
MODULUSS134#%2 NITRMOD=169#3 
COMMENT 
THE RFELATrONSHTP BETWEEN MODULUS AND DYRMOD 1S! 
N+RMOD %= MODULUS x MODULUS» WHERE MODULUS 7S A LOW 
OOO PRIME. CTHE RECOMMENDED VALUE oF mODULUS 18S 13), 
FOR SYSTEMS WITH ONLY & MEMORY MODS» MODULUS MUST BE 
SET TO A SMALLER VALUE SO THAT DIRECTORYBUILDER WILL 
NOT GET A NO@MEM* MAKING IT IMPOSSIBLE TO HALT/LOAD, 
IT IS SUGGESTED THAT MODULUS BE SET To 11* DIRMOD TO 121 
FOR A SYSTEM WITH 4 MODSe IT MAY BE NECESSARY TO SET IT 
SMALLER» DEPENDING UPON DISK CONFIGURATIONS 
ARRAY FSE*e")]3 ARRAY FSROWeFSC¥I3 
PRT(356) 2 FS 
PRT( 356) = FSROW 
ARRAY USERDISKI*)3 
PRT(357) = USERDISK 
& SET OMIT & NOT DEBUGGING £763" 
£2 SET oMrIT = SHAREDISK 
DEFINE LOCKDIRFECTORY = 
BEGIN TF NOT DIRECTORYTOG THEN SLEEPCCTOGLE J »DIRECTORYMASK)3 
LOCKTOGCDIRECTORYMASK)$ 
FND#, 
UNLOCKDIRECTORY = 
BEGIN 
UNLOCKTOGCDIRECTORYMASK)3 
END#) 
$ POP oMIT 
BooLEAN OKSEGZFROWRITES Z204« 
PRT(360) ® nKSEGZEROWRITE 
$ SET gMTT = NoT SHAREDISK 
REAL LOGFREEs1LOMASK»SAVEWORDS 
PRTC3615) = LOGFREE 
PRTC362) = TOMASK 


00418955 
00438960 
00418965 
00418970 
00418975 
00418980 
00418965 
00418990 
00418995 
00419000 
00419005 
00419010 
00419015 
00419020 
004149025 
00419030 
00419035 
00419040 
00419100 


004191404 
00419110 
00419120 
00419130 
00419140 
00419150 
004149210 
004492290 
00419230 
00419240 
00419250 
00419260 
00419270 
00419280 
00419290 
00419300 
00419400 


00419900 


00419999 
00421099 
00421100 
00421200 
00421300 
00421400 
00421500 
00421600 
00421700 
00421800 
00491801 
00422100 


00422490 
00425000 


AD HHH AHN 


Se ee ee 2 


=" 


AA OAH RAHI 


000010 
000010 
000030 
000010 
000030 
000010 
0000:0 
0000:0 
0000:0 
000010 
000070 
0000:0 
0000:0 
000010 
000080 
000010 
000010 
000030 
000010 


000010 
000010 
000010 
0000:0 
000030 
0000180 
000010 
0000:0 
0000:0 
0000:0 
000010 
000010 
000030 
0000:0 
000020 
000030 
000010 


000030 


000030 
000070 
0000:0 
000030 
000010 
000010 
000030 
000010 
000010 
000030 
000030 
000030 


0000!0 
000010 


PR¥(€363) 
PRT(364) 


PRT(365) 


PRT( 366) 


PRT(367) 


PR1(367) 


PRTC370) 


PRT(371) 


PRT(¢372) 


PRTC373) 


SAVEWORD 
s REAL CORE} ZUSED FOR SELECTION PURPOSES 00426000 
ec ORE 
COMMENT 00426100 
COPF,.[4!14] = MULTIPROCESSING FACTOR ¢x100) 00426200 
cORE.£18815]) = SUM OF CORE ESTIMATES FOR ALL JOBS 00426300 
NOW ACTIVE IN THE MIX CDIV 64) 00426400 
cORF.£33:15) = AMOUNT OF CORE MEMORY INITIALLY AVAILABLE FOR 00426500 
PROCESSING NORMAL STATE JOBS (DIV 64)3 00426600 
PROCEDURE SFLECTRUNCF)$ VALUP FS REAL FS FORWARDS 00426700 
START OF REL SEGMENT? OYSK 
SELECTRUN 
DEFINE SELECTION = FNDEPENNDENTRUNNERCPC,SELFCTRUN) 9 00160)83 00426800 
PROCENURE CONTROLCARDCA)SVALUF ASREAL AS’ FORWARDS 00427000 
START OF REL SEGMENTS DISK 
CONTROLCARD 
REAL, PROCEDURE DIRECTORYSEARCHC ARO CISVALUE Ar Be Cad 00428000 
START OF T 
SiaEenawernced TA OF REL SEGMENTS OISK 
REAL ApBeC3 FORWARD3S 00429000 
DEFINE HE ADFRUNLOCK#HU#? 00430000 
HUCHU1*®HU2*HU3)= 00430100 
PCMKS*HU3*HULPHU2s Sen IT RECTORYSEARC#DEL) #3 00430200 
REAL DIRECTORYSFARCANIRECTORYSEARCHS 00430225 
NIRECTORYSFARC 
BTHFANFRUNLOCK cAN BE USFD TO WRITF IN THE DIRECTORY A CHANGED 00430250 
¥% wWEADER, TURN OFF THE {tNTFRLOCK BIT AND DO THE FORGETSPACE 00430275 
2% oT MAY BE CALLED ONLY AFTER A DIRECTORYSEARCH(A,Bs4) 00430300 
ZZ THE PARAMETERS PASSED MUST BE CA,bsDS)3 00430400 
%% WHERE A®B ARE THE SAME AS PASSED To THE DIRECToRYSEARCH 00430500 
he AND DS IS THE RESULT OF THAT DIRECTORYSEARCH 00430600 
REAL OLOIOLETIMES 00430900 
OLDIDLE TIME 
PROCEDURE ARTNCA+N)? VALUE AeNs ARRAY ALw)s INTEGER N3 FORWARDS% 00431000 
START OF REL SEGMENT; DISK 
ARTN 
SAVE PROCFNURF DISKTOCL>C.Sen)3 VALUE CsoSe0s REAL LS INTEGER C,SeDd% 00432000 
START OF SAVE SEGMENTS BASE 
ntSkio 
FORWARDS &% 00433000 
ARRAY MESSAGETABLEL #13 00435000 
MESSAGETABLE 
DEFINE MESSAGETABLESIZE 3 543 % NUMBER OF MESSAGETABLE ENTRIES 00436000 
DEFINE 00437000 
OPTIONSZ = CMESSAGETABLECOIJe[B82101) 4» 00438000 
TFERMSGSZ = CMESSAGETABLF(1)].C8:10))#s 00439000 
KeYMSGSZ = (MESSAGETABLEL2).CA:10))#e 00440000 
CeTaARLSZ = CMFSSAGETABLF(3),CAI10] #5 00441000 
£ SFT OMTT = PackrTs 00449999 
$ SET OMtT = NOTCPACKFTS) 00451499 
DEFINE 00451500 
SPOUTCSPOUT1 )aSPOUTER( SPOUT1» Oo1) eo 00451600 
SPOUTHT (SPOUT T1eSPOUT]T2=SPOUTER(SPOUTIT1>0+.SPOUTIT2)#3 00451700 
PROCEDURE SPOUTER( MESSAGE sUNITNOsTYPEDS 00451800 


START OF REL SEGMENTS DISK 


PRTIC374) = SPOUTER 


VALUF MESSAGE UNI TNO*TYPES 


00451900 


T 000030 


T 0000:0 
T 0000:0 
T 000030 
tT 000010 
T 0000380 
rT 000010 
T 000010 
ADDRESS = 


T 000030 
T 000030 
ADDRESS « 


T 000010 
ADDRESS 8 


000010 
0000180 
000010 
0000:0 
0000!0 


a 


000010 
000080 
0000:0 
0000!°0 
0000:0 
000080 
000010 


. 


T 000010 
ADDRESS * 


T 0000150 
ADDRESS « 


0000:0 
000030 


a4 


0000:0 
000010 
0000:0 
0000:0 
0000:0 
0000180 
0000:0 
0000:0 
0000:0 
0000:0 
000010 
0000:0 
ADDRESS «& 


T 0000:0 


AAA nt 4 


00002 


00002 


00002 


00002 


00070 


00002 


PRTC375) 


PRT( 376) 


PRIC377) 


PRT¢400) 


PRTC401) 


PRTC402) 


PRY(C403)y 


PRT¢404) 


PRT¢405) 


PRT C406) 


PRYC407) 


PRT¢4a40) 


PRTC411) 


PRTC412y 


REaL MESSAGE oOUNTTNO*TYPES 
FORWARD! 
NEF TNE 
FY, EMESSsFuSé, 
FMSCFEMSt eo FMSOeFMS3eFMSGeFMSSeFMS6eFMS7 De 
FI) EMESSAGE CF MS1 sFMS2,FMS3eFMSQ eFMSS oF MS6 oF MS7 04 BS 
PROCEDURE FILEMESSAGE CL Kemer pReDeCo TYPE D3 
START OF REL 
FILEMESSAGE 
VALUE TeKeMeFoRe De CoTYPEs 
REAL IeKeMeFaReNaCe TYPE; 
FORWARDS 
$ POP oMTT 
PROCEDURF LRMESSCENsSNeTloetT2ereUNITNOsX)3 
START OF REL 
LBMESS 
VALUE FNoSNoltsI2eEeUNITNO,X3 
REAL FNeSNole ol 2eEo UNI TNO,XS 
FORWARDS 
PROCEDURE TERMINATECMIX)3 VALUE MIX) REAL MIX? FORWARDS 
START OF REL 
TERMINATE 
SAVE PROCEDURE TERMINALMESSAGECN)S VALUE N} REAL N3 FORWARDS 
START OF SAVE 
TERMINALMESSAGE 
BOOLEAN PROCEDURE SYSTEMFILECA»BISVALUE AygBs REAL AeoBS FORWARD} 
START OF REL 
SYSTEMFILE 
PROCEDURE ENTERSYSFILECN)$ VALUE N3 REAL NS FORWARD? 
START OF REL 
FNTERSYSFILE 
PROCEDURE COMS; FORWARD; 4% 
START OF REL 


r0M5 
$ SFT OMIT = NOTCSTATISTICS) 
PROCEDURE ASR3 FORWARD3:% 
START OF REL 
ASR 
PROCENURE COM113 FORWARDS 
START OF REL 
COM14. 
PROCEDURE Comi33 FORWARD: 2% 
START OF REL 
cOMi3 


PROCEDURE COMMUNICATEOS FORWARDS 
START OF REL 
rOMMYNIcATFO 
PROCEDURF COMMUNTCATE1S FORWARD? 
START OF REL 
COMMUNICATE) 
PROCEDURE _IBRARYZERQS FORWARD} 
START OF REL 
LIBRARYZERO 
PROCEDURE LIRRARYCOPYS FORWARD? 
START OF REL 
LIBRARYCOPY 
PROCFDURFE FORMTIMECWeT)3 VALUF WeTS REAL WeT} FORWARD? 21548 


00452000 
00452100 
00452200 
00452300 
00452400 
~00452500 
00452600 
SEGMENT) DISK 


00452700 
00452800 
00452900 
00452901 
00454000 


SEGMENTS DISK 


00454400 
00454200 
00454300 
00463100 
SEGMENT DISK 


00463200 
SEGMENTS BASE 


00463300 
SEGMENTS DISK 


00464000 
SEGMENT; DISK 


00469000 
SEGMENT; DISK 


00469099 
00474000 
SEGMENTS DISK 


00475000 
SEGMENTS DISK 


00477000 
SEGMENT; DISK 


00478000 
SEGMENT: DISK 


00478500 
SEGMENT? DISK 


00479500 
SEGMENTS DISK 


00480000 
SEGMENTS DISK 


00480010 


T 000010 
rT 0000:0 
T 0000:0 
T 0000:0 
T 9000:0 
T 0000:0 
T 0000:0 
ADDRESS & 
T 0000:0 
T 0000180 
T 000010 
T 0000130 
yr 0000:0 
ADDRESS # 
T 0000130 
T 000010 
T 000010 
YT 000010 
ADDRESS #® 
T 0000:0 
ADDRESS @ 
T 000030 
ADDRESS # 
T 90000 
ADDRESS # 
T 0000:0 
ADDRESS ® 
T 0000:0 
T 0000:0 
ADDRESS ® 
T 000030 
ADDRESS « 
T 900010 
ADDRESS * 
T 000030 
ADDRESS #8 
T 000030 
ADDRESS s 
T 0000:0 
ADDRESS ® 
T 9000!0 
ADDRESS # 
C 0000:0 


00002 


00002 


00002 


00070 


00002 


00002 


00002 


00002 


00002 


00002 


00002 


00002 


00002 


00002 


PRT(413) 


PRT¢444) 


PRT(415) 


PRT(416) 


PRT¢447) 


PRTC490) 


PRT(421) 


FORMT {Me 


DUMPCORE 
$ POP oMIT 
PROCEDURE Comt9: 


COMI9 


c0M23 


tNTRENS CTABLFRUILDER 


START OF REL 
$ SET OM1T = NOTCHUMP OR nEBUGGING) 
PROCENURF HUMPCORE?¢R)s VALUE Be REAL BF FORWARD: 
START OF REL 
FORWARDS & 
START OF REL 
PROCEDURE COM233 FORWARD:3 
START OF REL 
PROCENURF ItNTRINSICTABLFERUTLDFREFH)$ 
START OF REL 
VALUF FHS REAL FHS FORWARD? 
PROCEDURE MESSAGETARLE BUILDER: FORWARDS 
START OF REL 


MESSAGETABLERUILDER 
8 SET OMIT = AUXMEM 
DEFINE INVLDAUXIO w= 1184» 
LOOVFLOW mn 1383 
§ SFT oMIT = NOT CAUXMEM AN SHAREDISK) 
ARRAY PUNTERE #)}3 
PUNTER 
NEFINE PUNTSIZF = 11 
$ SET OMIT = NOT SHAREDISK 


+? 2 INVLO AUXMEM 70 


$ SET oMIT = NOT AUTODUMP 


¢ 19 #® DUMP CARD 


$ POP OMIT OMIT OMT 
#3 
& SET OMIT = NOT auTONUMP 
$ SET OMTY = NOT (CSHAREDISK Fy AUXMEM) OR OMIT 
DEFINE nUMPCRD w 138, 
DUMPADR = 26#3 


$ POP oM{T 
$ SET oMIT = (CSHAREDISK OR NOT AUXMEM) OR OMIT 
$ SET omMtT = NOT SHAREDISK OR AUXMEM OR OMIT 
COMMENT THIS IS THE CODE ON THE DUMP CARD CALL. NUMBERS ARE OCTAL,)3 
$202 20s270*NOP>NOP TELLS ANALYZER ALL I/0 RES ARE OK 
1913 STDeS>*BFW BRANCH TO 23 
22% INIT *eO*LFU TIMER = LOOP UNTIL INTERRUPTED 
£238 10¢L00221+6S5TN SAVE M[£8). RESTORED BY 2ND CARD 
t24t 25e110»2sLAU START 1/0 THEN WAIT AT TYMER 
25% 0140000007700035 1/0 peESc FOR 77 SEG WRITF FROM 35 
$262 0140000047400157 1/0 peESc FOR 74 SEG READ OF CODE 
$278 OPDC 14,D1A 26¢10sBFW 140 1 = Pick UP RES DFSees 
130% OPDC 15eDIA 2626,BFW 1/0 2 = DIAL TO ERR FIELD, 
$31? OPDC 16eDIA 2609,8FW 1/0 3 * BRANCH INTO I/0 4 
£327! OPNDC 17sDIA 268 1/0 4 
DESC 24eCBD 7 BRANCH TO 24 FOR RETRY IF ERRORS 
£339 DESC 37eBFW GO To 37 1ST TIMEs SEE 43] For 2ND 
343 INT *o*LFu DATACOM * LOOP UNTIL INTERRUPTED 
$353 0000000000000501 DISK ADDRESS FOR WRITE 
£36: INTeOsbLeu FREEADORESS ™ LOOP ON INTERRUPT 


SEGMENTs DISK 


00480099 
00480100 


SEGMENTS DISK 


00480101 
00483000 


SEGMENTS DISK 


00487000 


SEGMENTS O1SK 


00489000 


SEGMENTS ntsk 


00490000 
00491000 


SEGMENTS DISK 


00642000 
00642100 
00642200 
00642300 
00643000 


00643100 
00643200 
00643320 
00643400 
00643500 
00643600 
00643700 
00644000 
00644100 
00644200 
00644300 
00644350 
00644400 
00644750 
00645000 
00645010 
00645020 
00645030 
00645040 
00645050 
00645060 
00645070 
00645080 
00645090 
00645300 
00645110 
00645120 
00645130 
00645140 
00645150 
00645160 


ADDRESS # 


T 0000:0 
T 0000:0 
ADDRESS « 


T 0000:0 
T 000070 
ADDRESS # 


T 0000:0 
ADDRESS ® 


y 0000:0 
ADDRESS # 


T 0000:0 
T 90000:0 
ADDRESS « 


0000:0 
0000:0 
0000!0 
0000:0 
0000:0 


aAdaA+s 


0000:0 
0000:0 
0000:0 
000050 
000030 
0000!0 
0000!0 
0000:0 
0000:0 
0000:0 
0000!0 
000030 
0000:0 
0000°0 
0000:0 
0000:0 
000010 
0000:0 
000030 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
000010 
0000:0 
0000:0 


A HHHH RB HH AHHH RHA HHH tt 


00002 


00002 


00002 


00002 


00002 


00002 


2372 2005157, S5Nny2 240 


7403 STD2OPDC 26095-STD 
tad! DESC 240537¢STD»sNOP 
1428 16eLBU 

$ POP aMIT 

SAVE PROCEDURE RESULT3 


PRT(422) = RESULT 

BEGIN 
GO TO PCT18));3 
ENN3 


STORE pySK apR FOR READ, SET 240 00645170 
TO OPERAND FOR DESC AT 44 00645180 
PUT 1/0 DESC INTO 25 — 00645190 
SET 37 FOR BRANCH TO 240 FROM 33 00645200 
BRANCH TO 24 To START THE READ} 00645210 
00645900 

00646000 

START OF SAVE SEGMENT; BASE 

00647000 

’ TIMER IS A LOOP ON INTERRUPTS 00648000 
00649000 


T 
T 
T 
T 
T 
T 
T 
A 


T 
T 
T 


0000:0 
0000:0 
0000720 
0000:0 
0000:0 
0000:0 
0000:0 
DDRESS fe 


0000:0 
0000:0 
0000:2 


00070 


00647000 
StZE= 0001 WORDS 


PRT(423) = PUNT 
STACK(F#3) = T 


STACK¢Fai) = TMB 
PRT¢492) » RSLT 


SAVE PROCENURE PUNTCT)$ VALUF 73 REAL I3 


BFGIN REAL T3"33 


HB? 


$ SET aMIT = 


$ POP oMIT 


ENDS 


REAL TMR, RSLT*SRESULTS 


T:sIF [20 THEN T ELSE PUNTER INX I3 
STREAMCQISPCO*RDF): Ip 

At218* DrsttePUNTER INX O38 
BEGIN DS:= 16 LIT**SYSTEM HANGs FR} 

Sla#L0Oc Qs S[2#S14+3;3 

5(NS:*3 RESETS 


3(IF SB THEN DSt®SET ELSE DSS#RESETS SKIP 


NnSs=2 Lit"s "3 Stews 

O3CIF Sc#%e" THEN DS#®CHR)$ NStaLiTte"3 
NLPRAs HStaB LET29290gI7 3 
S}tweA? NSi244 WDOS3 


DL &sAs3 Orta +83 & JOBUSY= 


DSie4 LyT*Oo2cns z O»sRTN 
% IOCOMPLETE=*LOD ReRTN 
DSt=32 LITO +A+s2COUFASE 2COV Att 2COF FASE DCMS 


OL snl4o83 
ENDS 


PCHP2)3 

TMBt eT R60L 384286); 

PCCTMBI.119)3 

NO tr CTMRPaPcMKS,RSLT)) = O THEN £ 10 BUSY 
BEGIN PcMKS,RSLT»DEL)3 GO HA END 


UnTI1, TMB.0336)23603 

IF TMBeCCFI<]{ THEN Go To HB3 

IF TmMBeltFI#9 THEN Go To HA} 

NoT saUTODUMP 

IF NOT HALTSET aNn PUNTERCDUMPADR]#@501 THEN 

BEGIN 
STREAMC St =CPUNTEREDUMPCROIJ J» N:2@20)3 
REGIN Srs2S3 pSte19 WOS: ENN? 


GO TO PcOsSTSoOeSTFo (ME O201})3 
END! 


DO UNTIL FALSES 


% INTsINIs4,BBw 


00650000 


START OF SAVE SEGMENTS BASE 


00650250 
00650500 


00650750 
00651000 
00651800 
00652000 
00652400 
00652600 
00652800 
00653000 
00653200 
00653400 
00653600 
00653800 
00654000 
00654200 
00654400 
00654600 
00654600 


00655000 
00655200 
00655400 
00655600 
00655800 


00686000 
00656200 
00656400 
00656500 
00656600 
00656800 
00657000 
00657200 


00657400 
00657600 


00657700 
00657800 
00662000 


T 


0000:0 


ADORESS # 00071 


by 


NAA AHHAAH AWA HHH HH 


AAA HS 


4 


0000:0 
0000:0 


0000:0 
0000:0 
0003°3 
0005:4 
OO07t! 
000912 
001030 
001082 
001233 
0013%2 
001531 
001683 
004754 
001733 
00182 
001833 
002330 
00652400 
002331 
0023t2 
002531 
002533 
0027t1 
00655800 
0029!0 
00303 
0032:2 
003411 
OO34t1 
003612 
003730 
0038681 
00657200 
0039%0 
0041482 
00656800 
004482 
0041%2 
0042%1 
00650250 


S1ZeE2 0043 WORDS 


$ sey OMyr = DATACOM 00689990 T 000030 
RESET SEPTICTANK 00690000 T 0000:0 
£ POP omrT 00699990 T 0000:0 
$ SET amyT = NOT DATACOM 00499999 T 000030 
$ SET amMIT = NOTCDFX) 00999999 T 000030 
SAVE PROCEDURE STARTIOCU)3 VALUE Us REAL US FORWARD? 01165000 T 000080. 
START OF SAVE SEGMENTS BASE ADDRESS ® 00114 


PRT(424) & STARTIO 
SAVE PROCEDURE COMPLEXSNOOZECPRI®CONDE)$ VALUE PRIS REAL PRI*CODES 01240000 T 0000:0 
START OF SAVE SEGMENT! BASE ADDRESS ® 00114 
PRTC425) = COMPLEXSNOOZ¢ 
BEGIN SNOOZE CPRIetePCeCODFeL0D)33 ENDS 01240100 fT 0000380 
01240100 
S1Ze= 00902 WORDS 


DEFINE COMPLEXSLEEPCCOMPLEXSLFEEP1) *COMPLEXSNOOZE(PRYOR[PIMIX I» 
COMPLEXSLEEPIL)#3 


PROCEDURF USASITAPECAREA® TYPE sFROMsURNIRD) 


PRT(426) = USASITAPF 
. BEG! 

STACKe Fel) =z PTN 

STACK¢(F42) = Y 


STACK¢F 43) = ULAB 


VALUE AREA»FROM+U,DIRE 


N Real PTNeY3 


ARRAY ULABC¥y3 


ZRHR 


01240200 
01240300 
01250100 


START OF REL SEGMENT: DISK 


REAL AREAs TYPE sFROMeUSNIRS 


LABFL. EXT TsERROR® VOLs BAD WAITS TIP®SETIPS 

SUBROUTINE LABELSPACES 

BEGIN ULAR2=€MCSPACE(14)1721008%83881013 
MOVECLOsULAB.CCFIT1»eULABeCCFI)3 

END LABELSPACE? 


SUBROUTINE VOLIFT 


Lbs 


BEGIN STREAMCAREA,ULAB)3 
BEGIN DSt28 LIT # LABEL 
SteSl+qas31F SCs*® * THEN DSe7L1T"0" ELSE DSe7CHR3 


END}: 


D1+DO1+373 
SI:AREA3 


END VOLIFILLSs 


SUBROUTINE HDRICHK$ 
RFGIN STREAMCY:202ARFAs,X!=20)3 
BFGIN DIt=LOC X38 ONS#a4 LIT “HORI 


END? 


Yr=P; 
FND HNRICHK; 


SUBROUTINE wHORIFI 


STPSAREAS DItSLOc X3 


MID 
SI:=Sl+53 


DS:=5 CHR3 


IF 4 SCa0C THEN TALLYt=13 


Yr=TALLY3 


lobes 


RFGIN STREAMCAREA,ULAB)3 


BEGIN 


FND}: 


END HORQFYLL 


SUBROUTINE HARDFI 


STIBAREAS 


SyptszSy443 


DIssDI+17% DSt27 CHRS &FID 
Sls#Si+473 OSts3 CHR) ZREEL 


Sta2Sr+143 OS:25 CHR; 


Sl:3S1"8; 
Sl:2®S +73 
OlsFDl+ls 


N$:*®5 CHR} 
DS:=7 CHR3 


3 


LL 


AC*DATE 


DS:*2 CHRS SCYCLE 


DS#35 CHR3 


S1t4S1+23 


BP"DATE 


BBLOCK COUNT 
ZRECORD COUNT 


REGIN PTN:sPRNTABLECU] ,€30:318)3 
STREAMCPTN®AREA®ULAB)S 


BEGIN SIs*loc PIN: 


D1:2014+53; 


"S Dl teDI +43 STteAREA 


BPHYSICAL TAPE NOs 


01250200 
01250300 


01250400 


01250500 
01250600 
01250700 
01250800 
01250900 


01251000 
01251100 
01251200 
01251300 
01251310 
01251400 
01251500 


01251600 


01251700 
01251800 
01251900 
01252000 
01252100 
01252200 
01252300 


01252350 
01252400 


01252500 
01252600 
01252700 
012752800 
01252900 
01253000 
01253100 
01253200 
01253300 
01253400 
01253500 
01253600 


01253700 


01253800 
01253900 
01254000 
01254100 


T 
T 
mf 


0000:0 
000030 
000080 


ADDRESS ® 00002 


T 
T 


Se ee ee ee ee | 


4-4 


~4 


+44 


a 


000010 
000010 


000030 


0000!0 
00000 
000110 
000433 
000831 
04250700 
000632 
000910 
0010114 
001210 
0014%2 
001433 
0015382 
01251200 
001583 
01251100 
0016180 
001620 
001712 
001832 
0019380 
001933 
002030 
01251900 
002031 
0020133 
01251800 
0021140 
002110 
0022814 
0022933 
002341 
002333 
002431 
002413 
002531 
002513 
002630 
002641 
01252700 
002682 
01252600 
002633 
002710 
002882 
003010 


0$:75 ORC? DISsULABs BPHYSICAL TAPE NO, 
n$:36 LIT * Lapel "3 
ENDS} 


ULARLLJ:sMULTITABLECUI3 
FND HARDFILL3 


LABFLSPACEs 
IF FROM=1 THEN 
REGIN VOLIFILLS 
PCWATTIOC9140000005»@3775U) eNEL)D3 
PCWAITIOCAREA INX ®1205400000002@3772U) e DEL} 
HORICHK3 
IF Y THEN HHRIFILL ELSE GO TO FRROR; 
PeWatTs0€@340000005-@55eU snFLys 
PCWALT1I0C69340000005.@55eU)sDFL)3 
GO TO wall3 
FNS 


JF FROM =2 THEN 
REGIN IF TYPES1. THEN 
BEGIN VOLYFILLS 
VOL PCWAITIOQCAREA INX @1205400000002803772U),DEL93 
HDR1ICHK3 
IF Y THEN HORIFILL ELSE GO TO ERROR; 
PCWAST10(@340000005280377,U) » DELI 
40 TO WAITS 
ENDS 


IF TYPES2 THEN 
REGIN HDRIFILLS 
HARDFILL3 
GO TO EXITS 
ENDS 


ENDS 


If fFROMz3 OR FROM#4 THEN 
RFGIN TF TYPEesl THEN 
BEGIN VOLIFIJLLS 
gO TO VOLs 
FNS 


Ip TYPEs2 OR TYPEe4 THEN 
BEGIN HORIF ILLS 

HARDF ILLS 

60 TO FXITS 
ENDS 


If TvyPr#3 OR Typee5 THEN 
RFGIN IF DIR=s0 THEN 
BEGIN PcWA1Ts0¢8340000005,@377,U)sDFL)3 
Pe WA1T;008340000005,0377 6) DELS 
PcWATTTOCAREA INX @120540000000+@3772U)sDEL)3 
END ELSE 


PeWwATTLOCAREA INX ©120740000000s@377»U)sDEL)S 


01254200 
01254300 
01254600 


01254650 
01254700 


01254800 
01254900 
01255000 
01255100 
01255200 
01255300 
01255400 
01255450 
01255500 
01255600 
01255700 


01255800 
01255900 
01256000 
01256100 
01256200 
01256300 
01256400 
01256500 
01256600 


01256700 
01256600 
01256900 
01257000 
01257100 


01257200 


01257300 
01257400 
01257500 
01257600 
01257700 


01257800 
01257900 
01258000 
01258400 
01258200 


01258300 
01258400 
01258500 
012958600 
01258700 
01258800 


01258900 


44 a-4- 


AAA HHH Ht 


ee ee eee | 


Se ee ee ee) 


ee ee | 


0030%2 
003130 
0032:1 
91254100 
003232 
0034810 
01253900 
0034114 
003730 
003733 
003980 
0040%2 
0042t2 
004430 
004610 
004782 
004910 
005310 
01255000 
005310 
0053%3 
005510 
0057380 
005910 
006010 
006210 
006312 
006610 
01256000 
006610 
006633 
006840 
006910 
006982 
04256800 
0069382 
01255900 
006932 
007131 
007212 
007430 
0074%2 
04257500 
OOT4t2 
OO76EI 
007830 
007930 
0079%2 
01257900 
0079%2 
00818 
006212 
008432 
00861t0 
0088:0 
01258500 
0088!0 


ENNIS 


WATT! 
TIP: 


FRROR? 


FTIP? 


EXIT: 


BAD? 
END USASITAPES 


HDRICHK3 
IF Y THEN HORIFILL ELSE GO TO ERROR} 
HARDFILUS 
GO TO WaTTs 
ENDS 


If TyPes6 THEN 
BEGIN HNRIFILLE 
HARDFILLS 
STREAMCULAB)} 
BEGIN DIS$sULABS DItzeD1+393 
DStaq LIT 7183 
ENDS 


GO TO FXIT3 
ENDS 


PTNtsO3 
IFCCTWOCU) AND PCRRR)) #0) THEN 
GO TO FXIT ELSE SLEEPCECLOCK}, NOT CLOCK)3 
PIN&SsPTNw#1? 
IF CPTN>120) THEN GO TO EXIT ELSE GO TO TIP? 
PCWATTINC@4200000000+@3770U) DEL) 
STREAMCT2aTINUCUIJ/ULAB)3 
BEGIN Stt#LOc Ts S[t=ST+53 
DStsL1T "#3 HSt=e3 CHR 
OS#=22 LIT " INVALID USASTe RW/Le"; 
ENDS 


SPOUTCULABeICFI)$ LABFLTABLECU) 8203143 
TYPE«O3 PTNeO3 

IF CCTWOCU) ANN PCRRR)) #0) THEN 

GO TO BAD ELSE SLFEPCLCLOCK)+ NOT CLOCK)$3 
PTNePTNad3 

IFCPTN>120) THEN GO TO BAD ELSE GO TO ETYP3 
MOVECIO,ULABLICFI,AREA,ICFI)3 
FORGFTISPACECULAB.(CF1)3 


ZRHR 


01259000 
01259100 
01259200 
01259300 
01259400 


01259500 
01259600 
01259700 
01259800 
01259900 
01260000 
01260100 


01260200 
01260300 


01260400 


01260425 
01760450 
01260455 
01260460 
01260465 
01260500 
01260600 
01260700 
01260800 
01260900 
01261000 


01261100 
01261150 
01261160 
01261170 
01261180 
01261200 
01261300 
01261400 
01261450 
01261500 


009380 
009430 
009610 
009730 
009910 
01258400 
009980 
009983 
010140 
010230 
010380 
010342 
010480 
91259900 
010431 
010433 
01259600 
010483 
01257400 
010433 
0105t2 
O107%1 
010982 
011083 
011282 
011440 
011582 
011640 
011683 
011983 
01260700 
012010 
012391 
012510 
0126183 
012910 
013081 
013240 
013483 
013601 
013691 
01250300 
S1ZEs 0138 WORDS 


a ee ee a ee 


—q 


HAHAHA AHS 


SAVE PROCEDURE SNOOZE CNEWPRI + ADDRESS # MASK )3 


02000000 


START OF SAVE SEGMENTS BASE 


VALUE NEWPRY» ADDRESS» MASK3 
REAL NEWPRYS 
NAME ADDRESS} 
ARRAY MASK[*]}) 
BEGIN 
REAL TRYHERESNT13 
PRTC160) = TRYHERE 
$ SET OMIT = NOTCNEWLOGGING) 
LABEL BEDENTERS 
TF CJORBNUMS=JOBNUM+2) GEQ JOBNUMAX THEN PUNT(9)3 
PRYOREPIMIX],CFFJ« NEWPRI© NEWPRI443 
FOR TRYHERE*JOBNUM STFP #2 UNTIL 2 DO 
REGIN 
TF PRYORE CRENDDCTRYHERE IJ+BEDE TRYHERE"2)),(3:5]).0FF] 
*< NFWPRY THEN GO TO BEDENTER;3 
REDCTRYHERE +1) « BEDCTRYHERE "113 
END? 


REDENTER: 
REDCTRYHFREJ « PCADDRESS & PIMIXCE32438%SJ, RDF DS 
REDCTRYHFRE+1] «+ MASK? 
STOPLOGCPIMIX»1)3 
GO TO NOTHINGTONO; 
PRT(427) = NOTHINGTONO 
FNM SLEEP? 


02001000 
02002000 
02002500 
02003000 
02004000 
02004500 


02004599 
02004900 
02005000 
02006000 
02007100 
02007200 
02007300 
02007400 
02007500 
02007600 


02008000 
02008100 
02008200 
02008300 
02008400 


02009000 


T 


000080 


ADDRESS # 00116 


~atat 


HAHAHA AHH 


T 


000030 
000030 
000010 
0000#0 
00000 
000080 


0000!0 
000010 
000030 
000330 
000610 
000730 
000730 
0009t2 
OO11ts 
0013t3 
02007200 
0016%0 
001610 
001833 
002033 
002381 


002333 
02004000 


S1Zea 0024 WORDS 


SAVE PROCEDURE INDEPENDENTRUNNERCROUTINE ePARAMETERsSSZ)3 


PRT(430) = INDEPFNNENTRUNNER 

VALUE ROUTINE »PARAMETER®SS73 

ARRAY PARAMETER[*)3 

RFAL ROUTINEsSSZ3 

BFGIN LSLATE&= LSLATF42 AND SLATENDS2 

TF NSLATESLSLATE THEN PUNT(7)3 
SLATFrLSLATE] « PARAMETERS 
SLATE LSLATE+1 J s#ROUTINE&SSZr°cCTFY3 

END? 


START OF SAVE SEGME 


02012000 
NT$ BASE 


02013000 
02014000 
02015000 
02016000 
02017000 
02018000 
02019000 
02020000 


T 000030 
ADDRESS © 00140 


000030 
000030 
000010 
0000:0 
0002!4 
000434 
000533 
0008:0 
02016000 
S{ZEa 0009 WORDS 


AAAs Ht 


PRT¢431) 


PRT(432) 


PRT¢433) 


PRT¢101) 
PRT¢(102) 


PRT( 434) 


PRT¢(435) 


REAL KEYBOARDCOUNTERS 
KEYBOARNCOUNTER 
REAL PROCEDURE KEYINCB)3 


KEYIN 


$ SET OMIT 


WHYSLEEP 


LABEL PIPROCESS»PoPROCESS32% 
REAL ONEQOHONE = @401,0NEOWHTWO = 840238 


ONE OHONE 
ONEOHTWO 


SAVE PROCEDURE RUNCMI 


RUN 


$ POP OMIT 


EXTERNAL 


VALUE Bs BOOLEAN B3 


NOTCDCSPO AND DATACOM ) 
BOOLEAw PROCENURE WHYSLEEPCMASK)3 VALUE MASK$ REAL MASKS FORWARDS 
START OF REL SEGMENT? DISK 


X)# VALUE MIX$ REAL MIX3% 


BEGIN PiM]TX # MIX3&% 
$ SET OMIT = NEWLOGGING 
STARTLOGCMIX)3 


STACKUSE ¢« TRUE3% 
GO TO EXTERNAL? 


02020500 
02021000 


START OF REL SEGMENTS DYSK 


02021099 
02022000 


02023000 
02024000 


02025000 


START OF SAVE SEGMENT? BASE 


02026000 
02026999 
02027000 
02027001 
02028000 
02029000 


02030000 


T 000030 
T 0000380 
ADDRESS = 00007 
T 000030 
T 0000:0 
ADDRESS s# 00007 
T 000030 
T 0000!0 
T 000030 
ADDRESS = 00149 
rT 000010 
T Q000023 
T 0000133 
T 000331 
T 000331 
T 000510 
T 000532 
02026000 
S1ZeEe 0096 WORDS 


REAL NUMESS3% 
PRTC436) = NUMFSS 
SAVF PROCFNUR 


PRT¢437) = SAVEMIX 


F SAVEMEXCMIX)3 


VALUE MIX 


REAL MIX32 


BEGIN TNDFPENDENTRUNNERC PC, RUN) oMIX00)3 


& SET omtT = 


$ POP oMIT 
END33 


NEWLOGGING 
STOPLOGCMIX»0)3 


02031000 


02032000 
START OF SAVE SEGMENT! BASE 


02033000 
02033999 
02034000 
02034001 
02035000 


T 000010 

T 000010 

ADDRESS = 00155 

T 000010 

T 000384 

T 000481 

T 000333 

T 000313 
92033000 


SIZE® 0004 WORDS 


SAVE PROCEDURE HALI#% 02036000 T 0000:0 
START OF SAVE SEGMENT! BASE ADDRESS » 00159 
PRT¢4a0) = WALT 


REGIN NOPROCESST0G « NOPROCESST0G413% 02037000 T 0000:0 
IF PaMIX > O THEN 02038000 T 0001481 
BEGIN PCHP2)3% 02039000 T 000230 
$ SFT OMyT = NOTCNEWLOGGING) 02039099 T 000213 
SNOOZrC=101,1)3 02040000 fT 000233 
IF P2MIxX > 0 THEN 02041000 YT 0004114 
BEGIN SAVEMIX(P2MyX)3% 02042000 T 0005:0 
PaM[XeO3 TOGLE*TOGLE AND NOT HP2MASK3 02043000 T 0006%4 
END#& 02044000 T 0008%2 
92042000 
ENDS 02045000 T 000832 
02039000 
EnDs& 02046000 T 00086%2 
02037000 


SIZE® 0009 WORDS 


SAVE PROCFNURE KILLCA)# VALUF AB 


PRTC441) = WILL 
REGIN P(64eSTS)33 
FORGETSPACECA)3% 
GO TO NOTHINGTODO3% 
ENN 3% 


ARRAY Ar*¥ 33% 047000 


02 
START oF SAVE SEGMENT BASE 


02048000 
02049000 
02050000 
02051000 


T 000030 

ADDRESS # 00168 

T 000030 

T 000033 

T 000133 

T 000231 
02048000 


SIZE® 0003 WORDS 


PRT( 442) = 


PRT(443) =z 


PRTC4a4) = 


PRT(445) = 


STACK(F 41) 
STACKCF +2) 
STack¢Fs3) 
STACK (F 44) 
STACK¢(F 45) 
STACK ¢F +6) 
STACK¢(F +7) 


STACK¢F +5) 


REAL PBCOUNT3 
PRCOUNT 
BOOLEAN PROCEDURE OLAYCLOC)3 VALUE LOCS REAL LOC# FORWARDS 


02052200 
02052500 


START OF REL SEGMENT3 DISK 


OLAY 
PROCEDURE SEEKNAMCA,RoCoDeFoN,XLST)$ VALUE AsBS 


02052700 


START OF REL SEGMENTS DISK 


SEEKNAM ; 
REA; AsBsCoDeEons ARRAY X) STL¥]$ FORWARDS 
PROCEDURE UNHOOQUECMIX)33 


02052800 
02053000 


START OF REL SEGMENT: DISK 


UNHOOQUE 
VALUE MIX 33 
INTEGER MIX3% 
REGINZ 
REAL UsSeSNoToX#TePROCESS% 
= U 
= § 
a SN 
= T 
= X 
= | 
aw PROCE 
NAME OLDQex3 
= OLDQ 


LABEL DOLP»DELINKIT? 
FOR UeO STEP 1 UNTIL 31 DO 


BEGINS 
IFCS*#UNITCU)CFFI)#@77777 THEN 
REGINE 
WHILE ¢CSNeLOCATQUE(SIJ.L FFI) #E77777 poe 
REGIN IF CTeNFLAGCLOCATQUELSNI)), £345) 2% 
MIX THENS 
IF LOCATQUELSN}ef1121] THEN SeSN ELSE 
BEGING 
LOCATQUELCSJ*LOCATQUELSIQTCFTFI3% 
RETURNIOSPACECSN)3 
END ELSE 
S#SN3B 
FNns 
END 
END} 
$ SET OMIT = NOT FX} 
NOLP: FOR ved STEP 1 UNTIL 31 DO% 
REGINZ 
TF (SeCTeUNTTIUID, CFF I)#O77777 THEN 
BEGIN 
rF LOCATQUE(S) ,¢385]aMIX THENZ 
REGING 


IF ¢XeT,£9385))20 OR X216 THEN 
GO DELINKITS 
IF Xs4 THEN 


02054000 
02055000 
02056000 
02057000 


02057500 


02058000 
02059000 
02060000 
02061000 
02062000 
02063000 
02064000 
02065000 
02065100 
02066000 
02067000 
02068000 


02070000 


02071000 
02072000 


02072100 
02072200 


02072490 
02075000 
02076000 
02077000 
02078000 
02079000 
02080000 
02081000 
02082000 
02087000 


T 000030 


T 0000:0 
ADNRESS # 


T 0000:0 
ADDRESS »w 


T 0000!0 
T 000010 
ADDRESS # 


000070 
0000%0 
0000!0 
000030 


a 


0000:0 


=— 


0000:0 
0000:0 
0003:0 
0003:0 
0005:0 
0005!2 
0008:0 
000933 
OO1071 
0013:0 
0015:0 
001710 


AAA DAA AAAS 


00007 


00007 


00007 


02068000 


T 002011 


02066000 


T OO2O08) 
T O021:2 


02064000 


T 002132 


02062000 


~4 


002210 


92060000 


002431 
002431 
002530 
002530 
002733 
002834 
002923 
003084 
0033:0 
003383 


| 


BEGINS 
IF LoCATOUECS] CFF J2@77777 THENS 
BEGINS 
LeFIRSTWAITS2 
WHILE WAITQUELIJ#U3 
DO J + [+1 AND 313% 
WAITQUEL I] «3 
WAI TQUELCNEXTWAITe¢NEXTWATTS 
+31 AND 31332 
UN} TCU}+T8@77777513228290173 
END ELSE 


DELINKITS UNITCU]$2T&LOCATQUEISICFTFY3 
$ SFT oMIT = NOT NFX 
RETURNTOSPACEC(S)3 
END ELSE 
PROCE*((U#23 AND U#24) OR X33) 
AND X#25 OR PROCES 
FNNS 
ENDS 
_ END 3% 
IF PROCE THEN 
REGIN® 
SLEEPCC CLOCK] »NOT CLOCK)? PROCE*+03 GO To DOLPS 
END?% 


FND UNHOOQUE3% 


02088000 
02089000 
02090000 
02091000 
02092000 
02093000 
02094000 
02095000 
02096000 
02097000 
02097200 


AAA HAA AH AHS 


02097400 T 


02097590 
02100000 


02100400 
02101000 
02101100 
02102000 
02103000 
02104000 
02105000 
02106000 
02107000 
02108000 


02109000 


4 + U4 


003412 
003570 
0036:2 
003710 
003733 
0036:1 
004310 
0043%2 
004332 
004610 
004834 
02090000 
004831 
005210 
005240 
02100000 
005531 
02088000 
0055!1 
005880 
006032 
02080000 
006082 
02078000 
006082 
02076000 
006233 
006330 
0063%2 
0066%2 
02106000 
0066%2 
02056000 


SI1ZE= 0067 WORDS 


PRTC 446) = 
PRTC447) = 


PRTC450) = 


PRT¢451) = 
PRT¢45?) «= 


PRT¢453) = 


PRTC454) = 


PRT¢455) = 
PRT(456) c= 
PRT(457) = 


PRTC460) = 
PRTC461) = 


PRTC462) # 


STACKEF 40) 
STACK¢F #2) 


STACKeF at) 


DEFINE PSFe3!4#, 
TERNSETCTFRMSFETI)SCPRTROWITERMSETII, COS Llaidés 


NOTFRMSFTCNOTFERMSET1 = CPRTROWCNOTERMSETII,£(621] NEO 1)#> 
TERMGOTNGCTERMGOINGL =CPRTROWSTERMGOINGI I], (PSF 1&3) #» 
BREAKSETCRREAKSET1)=¢CPRTROW: BREAKSET1),CPSF3=4)#, 
STOPSET¢STOPSET, Dee PRTIROW(STOPSETI I, (PSF ]22)#3 

REA}, PRACENURE GETESPDISKS FORWARD? 


GETESpNISK 
PROCEDURE CHANGEMCPC(KTR)$ VALUE KTR$ REAL KTRI FORWARDS 


CHANGEMCP 


¥139= 


02110050 
02110100 
02110200 
02110250 
02110260 
02110300 
02111000 


START OF REL SEGMENTS DISK 


START 


PROCEDURE CHANGEINTRINSICFILECKTRI# VALUE KTR$ REAL KTRI FORWARDS 


CHANGFINTRINSICEILE 
£ SFT OMIT = NOTCDEBUGGING) 
REAL PROCEDURE ANALYSIS3 FORWARD 


ANAL YS]S 
PROCFOURE SHORTCOMMUNICATES FORWARD$ 


SHORTCOMMUNICATE 
PROCEDURE CONTINUITYBITS FORWARD? 


CONTINU] TYBIT 
REAL CCTBLWORDS 
ccTBLWORD 
DEFINE cCCOUNT = CCTRLWORD IFFFI4F, 
CCTRLADNR = CCTBLWORD. CF #3 
REAL READFRA,READERBS 
READERA 
READERB 
$ SET omMIT = NOTCPACKETS) 
ARRAY PSEUDO[*]3 2PSFUDOMAX4 
PSEUDO 
ARRAY PSFUDOMYXeC#)], NYLONZIPPER(*#]3 BMIXMAX 
PSEUDOMIX 
NYLONZIPPER 
DEFINE PACKETPAGELCPACKETPAGE11=PSEUNOCPACKETPAGE1),( 22126] #3 
NEF INE PACKETRECCPACKETREC! J=PSFUDOFPACKETREC1).(C1883143 
DEFINE PACKETPBOIPACKETPBD yj) 2£PSEUDOrPACKETPBD13.( 82310383 
DEFINE PACKETACTCPACKETACT, J=PSFUDOrPACKETACT1},(2¢6]#3 
DEFINE pACKETERREPACKETERR1 J)=PpSEUDOLPACKETERR1’ Joliti #3 
DEFINE. pPAGESIZEs30083 % SAME AS PBDROWSZ AT 08699100 


START 


START 


START 


START 


DEFINE PAGFFULL@C(PAGESIZE DIV 3)x5*40#3 % ALLOW FOR 8 INFO RECORDS 


$ POP OMIT 
PROCEDURE MESSAGEWRITERs% 


MESSAGEWRITER 
RFGIN REAL RCWst0, MSCWR™23 
a Rew 
z MSCW 
, REAL Tx413% 
eT 
LABEL L3% 
P(0)}3 
$ SFT omMtT = NOTCDCSPO AND DATACOM ) 


OF 


OF 


OF 


OF 


OF 


REL 


REL 


REL 


REL 


REL 


2732" 


02111100 
SEGMENTS DISK 


02111200 
SEGMENTS DISK 


02111299 
02111400 
SEGMENTS DISK 


02111500 
SEGMENTS DISK 


02111600 
SEGMENT3 DISK 


02112000 


02112100 
02412200 
02112500 


02113079 
02113080 


02113085 


02113086 
02113087 
02113088 
02413089 
02113090 
02113091 
02113092 
02113099 
02114000 


START OF REL SEGMENTS OISK 


02115000 


02116000 


02117000 
02118000 
02119009 


T 000010 
T 000030 
T 0000:0 
T 000030 
ec 0000290 
T 0000:0 
T 0000t0 
ADDRESS # 
T 0000:0 
ADDRESS #® 
T 0000:0 
ADDRESS * 
T 0000:0 
T 000030 
ADDRESS = 
T 000030 
ADDRESS « 
T 000030 
ADDRESS « 
T 0000:0 
T 000030 
T 000030 
T 000010 
T 0000:0 
T 000030 
T 000030 
T 000030 
T 000030 
T 000010 
T 000030 
T 000010 
P 000010 
T 000070 
T 0000:0 
T 0000:0 
ADDRESS # 
YT 0000:0 
T 000030 
T 0000:0 
T 000080 
T 0000!) 


00010 


00010 


00010 


00010 


00010 


00010 


00010 


£ SET oMIT = NCSPO 
3 


L 
£ POP OMIT 


PCWATTIOCMESSAGFHOLDER INX 190225))3 
PCDEL) 4% 
NUMESS « NUMESS#13% 
T ¢ MrMESSAGEHOLOFRI .718815]3 
FORGETSPACFCMESSAGEHOLDER NX 1)3 
IF T # 0 THENZ 
BEGIN MESSAGFHOLDER, £33315] « Ts% 
GO TO L% 
ENDS% 


MESSAGEHOLDER « O3% 
KILLCCMSCWI)$ 
FNDS% 


02119019 
02119020 
02119021 
02120000 
02121000 
02122000 
02123000 
02424500 
02425000 
02126000 
02427000 
02128000 


02129000 
02130000 
02131000 


0000314 
000031 
000081 
0000%1 
000230 
000214 
0003!2 
000532 
000633 
O007t2 
000984 
0009%3 
02126000 
000923 
00102 
OOLLtd 
02115000 
SIZEF= 0012 WORDS 


st as st st Ht 


a4-4 


NOTCNOCSPO AND DaTACOM ) 02131005 


S$ SET OMIT = T 000030 
$ SFT OMIT = PackeTsS 02131999 T 0000:0 
& SFT OMIT = NOTCPACKETS) 02132299 T 000010 
PROCFOURE SPOUTFRCOMESSAGE sUNITNOsTYPE)? 02132300 T 0000:0 
START OF REL SEGMFNTS DISK ADDRESS & 00011 
VALUF MESSAGE, UNTTNOsTYPFS 02432400 7, 000030 © 
REAL MESSAGEsUNITNOe TYPES 021432500 T 000010 
$ POP omyT 02432501 T 000030 
BEGIN REAL MKSCWEMESSAGE@13 02133000 T 000030 
STACK¢ Fed) = MKSCW 
INTEGER MIX$ 02133010 T 0000380 
STACKCF41) = MIX 
$ SET aMIT = NOTCDATACOM AND DCSPO ) 02133011 T 000080 
& SET OMIT = CDATACOM AND DCSPQ) 49508 02133122 c 000010 
INTEGER LEFT? %950= 02133123 C 0000:0 
STACK¢F42) = LFT 
$ POP OMIT %950= 02133124 c 000030 
$ SET OMIT = NOTCPACKETS) 02133129 T 000030 
DEFINE PACKETFREESPSEUDOCUNITNOI, (2121) #, 02133130 T 000030 
PACKETMASKm@40000000043 02133140 T 000010 
. REAL PSD»PSWsYs7eBB3 02133150 T 000030 
STACK¢F43) = PSD 
STACK¢F44) = PSW 
STACK(F45) = Y 
STACK(F 46) = 7 
STACKCF47) = BR 
INTEGER NT1eR-S,T3 ARRAY BUFEH]$ 02133200 T 000030 
STACK¢ F410) = NTY 
STACK¢Fseil) = R 
STACK¢F412) = S 
STACK ¢F413) = 
STACK¢F4i14) = BUF 


$ SFT omIT = NOTCDATACOM AND DCSPO) OR OMIT %203 02133279 
Rt=UNTTNO,CCFY$ UNITNOS& #03 02133300 

IF RaQ THEN IF PAMIX#0 THEN Rt=PSEUDOMIXFPIMIX]3 02133350 

IF R>31 AND R<64 THEN UNI TNO%&RS 02133380 

$ POP OMIT 02133381 
$ SET OMIT = NOTCHATACOM AND DCSPO) 02133499 
MESSAGE © PC, MESSAGE sLOD) o£33815]°13% 02134000 

MIX » M(MESSAGE“11,[926]3 02134005 

$ SET OMIT = NOTCHATACOM AND DeSPO ) 02134008 
$ SET OMIT = NOTCPACKETS) 02134889 
IF TYPE THEN 02134890 

POP oMIT 02434894 
SFT OMIT = NOTCNATACOM AND DCSPO ) 02134899 
REGIN 02134906 

IF MESSAGEHOLDER = 0 THEN 02135000 

BEGIN MFSSAGFHOLNER * MESSAGE?S 02136000 
INDEPENDENTRUNNER (PC MESSAGEWRITER) »0,64)3 02437000 
02138000 


000030 
000080 
000510 
000832 
001142 
0011%2 
001122 
0013%2 
001610 
001630 
001680 
001684 
004631 
OO16S4 
001633 
0017182 
00483 
002010 
02136000 
002020 
0023314 
002533 
002730 
02434906 
002720 


on 
a a a at OF 


ENDS 


FLSE MEMESSAGEHOLDER, £6 18815)3.018%15] « MESSAGES 02139000 
Mr MESSAGE )©ORMIX(£424335]3 02440000 
MESSAGEHOLDER. £48215] « MESSAGES 02141000 
ENDS 02141020 


444-4 


MEMESSAGE"1].(936] « OF8% 02142000 


— 
— 
@®eeoeeeeeeeeeeeeeeeeeee®@ 


MUMESSAGE“1),CAREATYPFF] %& SPOUTMSGAREAV3 %167= 02142100 C 003031 
IF PeMKSCW,(33845}sDUP) = 0 THEN? 02143000 T 003332 
BEGIN 3 02143050 T 003510 
STREAM(N©OtXeMESSAGE41 3 02144500 T 003512 
BEGIN St © X38 02145000 T 003731 
Li: IF SC # “et THEN 02146000 T 0037!2 
REGIN 1F SC= * * THEN 02447000 T 0038!0 
BB: BEGIN Sye Syl) 02148000 T 003832 
IF SC=e” " THEN GO RB? 021449000 T 003813 
IF SC = ALPHA THEN 02150000 T 0039:2 
BEGIN Sf « S1=43% 02151000 T 004010 
DS «+ CHRSY 02152000 T 0040181 
END ELSE GO TO L3% 02454000 T 004012 
: 02151000 
END3S& 02155000 T 0041:0 
02148000 
IF SC = @44 THENS 02156000 T 004130 
BEGIN 0S ©¢ CHR3% 02157000 T 004132 
Qs IF SC = @44 THENE 02158000 T 004133 
BEGIN SI «© St443% 02159000 T 004234 
GO TO Q3% 02161000 T 004282 
END3% 02162000 T 004233 
02159000 
GO TO L3s 02163000 T 004233 
ENDS 02164000 T 004330 
02157000 
DS * CHR3% 02165000 T 004330 
GO TO L3% 02167000 T 004331 
FNnE3 02168000 T 004332 
02147000 
DS « CHRIS 02169000 YT 0043%2 
Ne Di 02171000 T 004333 
ENDS 02172000 T 004430 
02145000 
NTL@PZNTLE CONTI, LC 33815] *CMESSAGE4+1))x54NT1,£30831]) x63 02173000 T 004431 
END ELSE NT1 « P x 63 02173050 T 004910 
02143050 
$ SFT OMIT NOTCPACKETS) 02173069 T 005082 
IF UNI TNO#9 THEN JTF PACKETPAGELCUNITNO@32)>1 THEN 02173075 Tt 0050:2 
BEGIN UNJTNOSeUNITNO*323 02173080 T 005333 
IF NOT PACKETFREE THEN SLEEPCEPSEUDOCUNITNOJ JsPACKETMASK)3 02173085 T 0055t2 
IF CPSDt=PACKETPAGELUNITNOJ)>4 THEN 02173087 Y 005813 
BEGIN % JUST TO Be SURE 021473088 T 006130 
PACKETFREES aFALSE3 02173090 T 0061:2 
t=I1F CPSWt=PACKFETRECLUNITNOJ) THEN 60 FLSE 303 02173095 T 0064:0 
St=c(cyts tr NT1>725 THEN 120 ELSE NT1 DIV 6)4+7) Div 83 02173100 T 006712 
RUF tsCMCTs=SPACEC74S)1I&Z16836310)3 02173110 T OO072%1 
MCBUF@2).C9t61%203 02173120 T 007710 
STREAMCNE Se AAtaMESSAGE+1*BUF3=BUF INX 2)}3 02173150 T 008032 
BEGIN SItsAA$ DS!taN WoS ENDS 02173160 T 008310 
02173160 
NISKWAITC™TeZePSO+PSW DIV 2)3 02173210 T 008430 
Rts¢PSwWx18) MON 303 02173220 T 006632 
IF (BBteBUF(R417],(CF) GE® PAGEFULL THEN 02173230 T O068ty 
BEGIN STREAMCBUFs=(BUFERI])3 02173240 T 009281 
BEGIN DS#=az2LtT" m3 02173245 T 009313 
DSt*=o8LIT"ALL FURTHER MESSAGES LOST 3 02473250 T 009532 


£ POP oMrT 


$ SET omIT = 
$ SET oMrT = 


2COTtSp1+48)3 OSte6LyT"s x5908%3 
ENDS 


PACKEFTPAGEFUNITNO)t=13 % TO MARK OVERFLOW 
END 


FLSE BFGIN Pc ®1540005000100000R(RB+1)£CTCI)3 & PBNSTOPPFR 


IF PSW=0 THEN 

BFGIN P(BUFL29]+XCH)3 
PccBUFL29)}2STD)3 
DY SKWAT TCT, 302PSD0+5)3 
PecBUF P29) )»STO)3 

END ELSE 


P¢CBUFCR°11],STD)3 
BUF ER+171%=@1540000104000000RBBICTCI& 


(S#24(MCRUF INX 21,0485] #">")) 7883884073 


FORMTIMECELFET J »XCLOCKePCRTRIDS %154= 
STREAMCN3=S*1 CL yeSxBbmy,AArm@BUF INX 7+BB t® LFT2%154" 
BUF S=(BUFLRII)3 £1548 


BEGIN DS t= 7 LIT *™ "3 St t# LOC BB3 DS t= 8 CHR} 


DS t= 9 LIT * "3 St t= AAS %154= 


IF Sc#">" THEN DS%e28 CHR ELSE 
BFGIN Oit=pl=8s B8CIF SC#">" THEN DStsCHR ELSE 
BEGIN DI tanl+13 SyrsSr+eis ENDS 


FND3 N(pSta8 CHRIS NI texDy"cChs AAtEDT 


STt=zAAs SyswSyrmis 
TF SC#H%e" THEN BEGIN DT teDreis OSteLIT" "3 ENDS 


CLEDSi LIT "os 
ENDS ENDS 


DISKWAITCT#ZePSD+PSW NIV 293 

TF PACKETPAGECUNITNOJ>1 THEN 

TF PSW20 THEN 

BEGIN PACKETPAGFELUNI TNO] 2=PS0+33 
PACKETRECFUNITNOJ 2243 

END ELSE 


PACKETRECCUN;T TNOJt=PSw-373 
PACKETFREE $eTRUF3 
FORGFTSPACEC( RUF DS 

FND$ % JUST TO BE SURE 


ENND3 


1F NOT TYPE THEN BEGIN FORGETSPACECMESSAGE+1)! PexiT)3 
ENDS 


TOTIMELPIMIX] «© *PCDUPIENTI3% 
NOTCOCSPO AND DATACOM ) 

DCSPO 

TF CNUMESSe NUMFSS41)>0 THEN 


02173255 
02173260 


02173265 
02173270 


02173275 
02173280 
02173282 
02173284 
02173286 
02173288 
02173290 


02173292 
02173294 
02173296 
02173297 
02173300 
02173301 
02173305 
02173306 
02173310 
02173315 
02173320 


02173325 


02173330 
02173335 


02173340 
02173345 


02173350 
02173360 
02173362 
02173364 
02173366 
02173368 


02173370 
02173375 
02173380 
02173383 


02173385 


02173389 
02173390 


02473391 
02174000 
02174005 
02475002 
02175003 


—~ 


434 4 AH HO VIO VO VHA HAH 4S 


4+ 


a ae ee 


a 


O099t4 
0103380 
02173245 
010131 
010333 
02173240 
040383 
010731 
0108:0 
010984 
041080 
011123 
0112%2 
02173262 
011232 
011531 
011730 
012230 
0123382 
012730 
012783 
0129%2 
013131 
013231 
0133383 
02173320 
013432 
02173315 
013631 
013623 
02173335 
013830 
013931 
02173305 
02173275 
0139%2 
014153 
014381 
0144:2 
014820 
015082 
02173364 
0145082 
015530 
015782 
015832 
02173088 
015682 
02173080 
0158%2 
01610 
02173389 
016140 
016480 
016310 
016380 
016320 


$ POP oMy|T 
BEGIN 

BOSFT OMIT = NOTCHATACOM AND DCSPO ) 
SLEEP CENUMFSS]9*0)3% 
FNDS 


FND3S 


02175004 
02175010 
02175020 
02176000 
02176100 


02177000 


0164t3 
016433 
016511 
016581 
016730 
02175010 
016710 
02133000 
S1ZE= 0368 WORDS 


4 w?aAs4tHA 


PROCENURE ENDOFNECKCRe TUSTAISVALUE Re TUSTAS REAL Re TUSTAS PORWASOS 


PRT¢463) & FNDOFNFCK 
PROCFDURF PBYOCA»sB)3 VALUE AS RFAL Ao Bs FORWARDS 


START OF REL SEGMFNT$ DISK 


PRT¢464) = PBIO 
REAL TERMINALCLOCKS 
PRTC465) = TERMINALCLOCK 
PROCEDURE TERMINATECMIX)3 VALUE MJX3 REAL MIX3% 


START OF REL SEGMENTS DISK 


RBFGIN IF MIX LE@ O THEN BYBYC™MCP NS@EDeM, 1093 


TF JARROWeEMIX) NEO O THEN 
BEGIN 
1F NOTERMSETCMYX) THEN 
REGIN 
TERMENALCLOCKISCLOCKFPCRTR)} 
PRTROWEMIXJ.CFFI2SMIX,C(FF)3 
PRTROW(MIX] «(PSFJ]8#13 
END? 


FNDS 


END? 


OF REL SEGME 


02177100 T 0000380 
NT} DISK ADDRESS = 00017 

02178500 T 0000:0 
ADDRESS = 00017 

02179000 T 000030 

02180000 T 000030 
ADDRESS = 00017 

02181000 T 000010 
92181000 
02161000 

02182000 T 000632 

02183000 T O007%2 

02184000 T 000830 

02185000 T 0009190 

02185900 T 001030 

02186000 T OO11%1 

02186050 T 003333 

02186100 T 001641 
02185000 

02186300 T 001681 
02183000 

02187000 T 004684 
02161000 


SIZE# 0017 WORDS 


PRT(466) = 


PRT¢(467) «= 
PRT(467) ¢« 


PRTC470) = 


STACK¢Fe1) 
STACK¢CF 42) 
STACK(F 43) 
STACK ¢F44) 


STACK ¢(F 45) 
STACK(F +6) 


STACKCF+7) 
STACK(F 410) 


STACK(Fei1) 
STACK (F412) 
STACK (F413) 
STACKCF 414) 


STACK ¢F 43) 


REAL PROCFOURE PLACEFINDERCS» Ap Lys 
PLACEFINOFR 


VALUE Se a3 
RFAL So As L3 
FORWARDS 
ARRAY CrNROWF*],CINTABLFECTOROWS ¥o%y3 
CIDROW 
CIDTABLE 


PROCEDURE TERMINALMESSAGACN)3 VALUE N3 REAL NB 


TERMINALMESSAGA 
BEGIN LABEL FOUNDsD0yTPOWT.TOITS 
REAL A»sT#S#ANR3E 


= A 
= T 
= § 
z ADR 
NAME BS% 
= B 
ARRAY FIBCL¥*)3 
= FIB 
REAL BLEN»NBUF $ 
= BLEN 
= NBUF 
REAL MIXERe TOPTOsLUNeL3& 
= MIXER 
2 TOPIO 
= LUN 
= L 
INTEGER 1253 LAREL O73% 
= | 


LABFL STT3% 
SUBROUTINE SLAPITOFF3% 
IF LUN GE@ 32 THEN 
$ SET OMIT = PACKETS 
FLSE 
REGIN SLEFPCCTOGLE J »STATUSMASK)3 


Reapy « NOT ¢y « TWOCLUN)) AND READY3% 
RRRMFCH « NOT | AND RRRMECH OR 1 AND SAVEWORD?Y 


LABELTABLECLUN] «+ @11432% 


MULTTTABLELLUN) « RDCTABLE(CLUN] « 03% 


END? 


LABEL LB» LBIss 
$ SET OMIT = NOTCNEWLOGGING) 


02187100 


START OF REL SEGMFNT? DISK 


02187200 
02187300 
02187400 
02187500 


02188000 


START OF REL SEGMENTS DISK 


NOMEM#SNOMEM@TAR[PIMIX],£2091]% ZIF THIS JOB HAD A NOMEM 


TARCPIMIX1,.02084)3 203 
UNLOCKTOGCTAREP4UMIX])3 


REPLYCPiM[X]«032% 


PRTROWLPIMIX)CPSFIJ8e35 &¥ IN PROCESS OF DSING 


PRYOR(PIM]XJe™13 


A « 1F N < O THEN ABS(N) ELSE SPACEC10932% 

JF Ne32 THEN JAREPIMIXe6) 001811413 & MEM PAR 
Boe PRTICPIMIXs413% 

TF PCMEL©PRTGPIMIXs8),CCFI]+TOP »XCH»DEL) THEN 


BCONDITION = CLEAR IT 


49490 


4TR 


02189000 
02190000 


02191000 
02191500 
02191600 


02192000 


02193000 


02194000 
02195000 
02195100 
02195199 
02195300 
02196000 
02197000 
02198000 
02199000 
02200000 
02201000 


02202000 
02202049 
02202100 
02202200 
02202500 


02203000 
02205000 
02205100 
02206000 
02206100 
02207000 
02208000 


T 000030 

ADDRESS = 00018 

T 000030 

T 000020 

T 000030 

T 000030 

T 000010 

ADDRESS = 00018 

T 000010 

T 0000:0 

T ,000030 

T 000080 

T 0600030 

T 000020 

T 000030 

YT 000080 

T 000010 

T 0001:0 

T 000133 

T 000133 

T oood2r! 

T 000431 

T 000683 

T 000984 

T 0010%2 

T 004283 
02196000 

T 0013320 

T 0013180 

T 001310 

T 0013982 

T 0022340 
02202500 

T 002630 

T 002731 

T 002933 

T OO3L81 

¢ 003533 

T 004010 

T 004112 


SeanRedO ELS 


%TR 


E 
NO BEGIN IF PCMFLI,TOPsXcHsOsINX+,ANRe#) THENS OVERLATO RCWTR 


BEGIN IF NOT MECL),£33814) THENSNOT TYPE 13 INT 
BEGIN S*ADR$ %SEGNO IN RCW 
T*©O3ADReMC MEL), MOM].(CCFJ3 % AND THE MSCW 
END FLSE Se13 


FND ELSE % ITS PRESENT! WEVE GOT TO WORK 


BEGIN TeO3 
WHILE CStemCT].£CF]) LSS ADR po 
If S>T THEN T#®S ELSE PUNT(3)3 
Se1F MET], CAREATYPEFJSCODEARFAV THEN 
MCT4#1].(CF] ELSE O38 
TeT+23 END 


XTR 


2TR 
XTR 
%167% 


£167 
¥TR 


IF PRTCPIM?EX,8],¢CF14L OR MEL@1),MSFFSSTACK 1S MARKED 
THEN DO LeMELJ,MOM UNTIL NOT MELJ.MSFFSSGET LAST MSCW 


LeMCLJ,MOMSSPOINT L TO NEXT ROWeJUST IN CASE, 
END UNTIL CIF S#0 THEN IF SeC("1) THEN O ELSE 


(BrO)<S OR NOT BES].,PBIT) 


ZTR 


ELSE CPCMCT"2)-03212]s0UP)4@700 AND PCXCH)#4@1500))3 


FOUNNDS ADR « ANR=T3% 


TISPLACEFINDERCS»ADReS)3 
Ir N GTR O THEN 

BEGIN 

Boe rMPSPACECTERMSGS2)1 13 


DrSKWAITC*CB INX Oe TERMSGSZ»MESSAGETABLE(11],£22226])8 


END FLSE N#=03 


STREAMCZIENZ OXI RT e Tie be USEC UARCPIMIX2 0) )» 
PIMIX®INDXePRICPYM]XeB) INX NOT 2 JINX Ov» 


DSZEeIF PCMEPCDUP)41]» TOP) THEN P ELSE P,[8340)» 


TOGe*(NE7)» Qe [BINJ]» AD3 

BEGIN Cy « Cy+#Z3 Go TO Liss 
DSteLyT "es Sy saQs 

L: SyesSpo43 
IF SC = "8" THEN STteS]41 ELSE 
BEGIN As=eDI3 DYs%sLOc Ts 
NSseOCTs DItzAa3 

END3 


OSseT CHR; 
IF TOGGLE THEN GO TO L}3 
DS « LIT * 3} GO TO Loss 
IF SC # "oe THENS 
BEGIN SI © SIT413 A © SI3B 
GO TO Li3g 
FNO3S 


DO] « AdgZ 
Leis 


St «© JB ST + SI#13 NS + 7 CHR DS « LIT "73% 


St ¢ S14i3 pS «© 7 CHRS DS « LIT “a"3% 
S1*LOC PIMIX$ DS*#2pECs AeDI} 


02209000 
02210000 
02711000 
02211010 
02212000 
02212100 


02213000 


02214000 
02215000 
02215500 
02216000 
02216010 
02216100 


02216200 
02216300 
02216400 
02216500 


02216510 
02216600 
02217000 
02217100 
02217200 
02217300 
02218000 
02219000 
02220000 


02221000 
02222000 
02222200 
02223000 
02224000 
02225000 
02226000 
02227000 
02226000 
02229000 
02230000 


02231000 
02232000 
02234000 
02235000 
02236000 
02237000 
02238000 
02239000 


02240000 
02241000 
02242000 
02243000 
02244000 


4 Aaa osa4s|t 


Ho4a4+4 AOVAAG 


AHHH HHH 


AHAnM HH AHH HAH 


004510 
004633 
004933 
0052:0 
005341 
005734 
02211010 
005833 
02211000 
005833 
006030 
0063730 
006683 
006813 
007212 
02214000 
007313 
0076:2 
008223 
0084!3 
02210000 
008Bt1 
008931 
009533 
009710 
0098:3 
009932 
010020 
010382 
010730 
02247300 
010834 
011093 
011301 
011642 
011832 
011931 
012010 
0120814 
O12i%i 
012433 
012231 
02228000 
012231 | 
012233 
012381 
012410 
012481 
0124183 
012504 
012582 
02237000 
012532 
012533 
012533 
012730 
012830 


STT? 


23 OS*FILL; DIAS 
DSis20 CHRs AtEDT3 


—d we § 


NSei2 LIT "EFF INX 1S ""3 ENDS 


AeNTs SreINDXs DyeLOC O3 DS#B DFC 
SteLOC O3 7CIF SC>*0" THEN JUMP OUTS 


TALLY*TALLY415 SreSyt41)3 
T*TALLYS DS#8 CHRE OleDyeT3 
TCOSeL IT " ")8 DyeDy=T3 AeDId3 


TOGCST*¢LOC NSZEF Di*LOC Qs DS#4 DECS 
NI*A’ DS*> LIT " GEQ "S$ STeLOc as 
TALLY*#0% 3¢C1F SC>"O" THEN JUMP OUT? 


TALLY*TALLY4+12 Sp*Sy41)3 
TeTALLY3 OS¢4 CHRS DreDI=Ts 
TONSeLyYT “* “)3 O1reNDr7T3 AeDI)3 
DOr « At DS « LIT "omy 
ENOSS 


43 N#0 THEN FORGETSPACECB)3 
«A3 
STREAMCBeS#AeA+SPACE(17))38 


OGCDIeAs NSe2 LIT “es "3 AeDTS STeYINDX3 
SKrP Spi IF SB THEN BEGIN DI©INDX$3 
SKIP OBS ODS*RESET3 DIeAs TOG*TALLY3 


RFGIN 17¢€0S¢8 LrTv#"™)3 STeBED TOA DI eDI4+830Se2 LIT" "3 
17¢C8CIF SC#%e" THEN DSeCHR ELSE JUMP OUT 2 To L143) 3 


Lit DS#2 LyrTe w3¢ 
FNDS% 


SPOUTCS)3 
TF NOT TFERMGO THEN BEGIN HALT3S 
COMPLEXSLEFP¢ *100=NUMESS 93% 


ACCIDENTAL FNTRY AT NUMFSS 


DO UNTIL KFYTNCO)@43 
NOPROCESSTOG + NOPROCESSTUG"13 END3% 


JARCPIMIXe1] e@JARCPIMIX01I3% 
UNHOOQUECPIMYX)3% 
MIXEFRe @3004PIMyXK3% 
IF Ne35 THEN . ® ES*eD 
IF JARCPIMIXe9),SYSJORBF = PRNPBTCODE THEN 
IF CL&sPRTEPYMIxXe2@25)) #¢ O THEN 
RFGIN 
IF CLUNeL,0£41'572<16 THEN SLAPITOFF3 
LUN©*L,C46:21+193 % LPAs LPB» OR CPA 
SLAPITOFF$ 
ENDS’ % PRNPBT/DISK ESFDt TO CLEAR UNITS, 


TeMSTARTS& 
WHILE CLT CCF I2#0 DOR 
IF CT*MELIJ).C38127=MIXER AND T>0% 
THE NZ 


BEGiN LUN © CTOPTIO © NFLAG(CM(L4+2))),01286]3 
1F LUN 232 THEN 


BEGIN 
FILECLOSECTOPIO INX 023 
GO TO STT; 


%675¢ 
%675= 
%675= 
%675= 


02244500 
02245000 
02251010 
02251020 
02251030 
022951040 


02251050 
02251060 
02251070 
02251080 
02251090 
02251100 
02251110 
02251120 
02251130 
02251140 
02251150 
02252000 
02253000 


02253050 
02254000 
02255000 
02255100 
02255200 
02255500 
02256000 


02256500 
02257000 
02258000 


02258100 
02258200 


02259000 
02260000 
02261000 
02261050 
02261100 
02261200 
02261250 
02261300 
02261350 
02261400 
02261750 


02262000 
02263000 
02264000 
02265000 
02266000 
02266100 
02266200 
02266300 
02266400 


AA AA AAA BH HAH HH Ht HHS 


AW WO Hts st st 


An AA ot 


012813 
0129%2 
0130%1 
013230 
013330 
013430 
02251020 
01:35:83 
013633 
013831 
013931 
014081 
0142%2 
014333 
OL4531 
014633 
044782 
014832 
015033 
015182 
02224000 
0151:3 
015333 
0154:2 
015732 
016022 
016331 
016333 
02255100 
0464:0 
016531 
016731 


017330 
017433 
02257000 
017680 
017813 
0179%2 
018013 
018112 
018430 
018632 
0487:0 
019080 
0491433 
0193320 
02261250 
019330 
019431 
0196%2 
0199%2 
020030 
020333 
0204%t2 
020570 
020634 


ENDS 


TE UNTTCLUNT,£1385] = @20 
THEN REGIN® 

Q7:% 
SLAPITOFF3 
UNTTOCLUN),£1385):36203% MARK IT NOT READY ANYWAYS 
FORGETSPACF(CL INX 2938 
GO TO STT3% 
END ELSE 


REGIN T « O3 
FIR « MCETOPIO INX NOT 2]3 
ADR « NRUF © FIBf33],.6129I7%3 
IF PCMETOPIOJ.C3#5)*nUP)#22 OR PCXCH)#26 THEN 
REGIN FOR S$ «© 1 STEP 1 UNTIL ADR DO 
TOIT# IF NOT MCTOPIO JINX S).£1981] THEN 
DOIT: IF LUNS18 THEN 
BEGIN MCTOPIO INX §$),(2081] «+ O38 
MEMETOPTO JNX S$} TNX 17] * MCTOP1O YNX S$] 
& FIBCS) CFTCI]3 
FIB(S] «© PCDUPsLODsOeteChXo4)3 
IF NOT PRTROWEPIMIX).C78141] THEN 
IF FIBCI4),CCFISFIBC14)],0CFF) THEN 
BFGIN PBIOCTOPIO INX SeFIBL14))3 
SLEEPCEMETOPTO INX SJ], 10MASK)3 
END ELSE 


BFGIN STREAMC(C*#MCTOPIO INX Se 
Z+FIBC14),CFFI)3 
BEGIN St « C3 DS + 18 wWOSs ENDS 


FIBC14],CFF] * PCDUP), (CFF I9183 
END} 


END ELSE 


BEGIN YF WAITSOCMETOPYO JINX S$3s@3575LUN), £4521) 
THEN GO OWT3 
FIBC6) «+ *PCDUP)+413 
END: 


IF ADR<O THEN 
BEGIN IF ADR THEN FIBE17] * BLENS GO OWTS 
END} 


S + O03 
IF FIRC17) < (BLEN©FIBC18),03815)) THEN 
BEGIN «¢F NOT FIBE13) THEN 
FIBC17) » *PCDUP)*CFIBI5].€(4682)23)3 
METOPIOJ © FLAGCFIBL161)3 
STREAMCNGFIBL17]eDeMCTOPIOJ.(CFI)3 
BEGIN NCOS « 8 LIT " 93 ENDS 


ADR « 13 GO DOITS 
END ELSE ADR + “23 


02266500 


02267000 
02268000 
02269000 
02270000 
02270500 
02271000 
02272000 
02273000 


02274000 
02275000 
02275100 
02275150 
02275200 
02275250 
02275300 
02275350 
02275400 
02275450 
02275500 
02275550 
02275600 
02275650 
02275700 
02275750 


02275800 
02275850 
02275900 


02275950 
02276000 


02276050 


02276100 
02276150 
02276200 
02976250 


02276260 
02276270 
02276280 


02276290 
02276300 
02276350 
02276360 
02276370 
02276400 
02276450 


02276500 
02276550 


+ 


AHA HAAR AHH AAA AHH 


a4 


SS 


44 


020633 
02266200 
020633 
0208:0 
020833 
020833 
0210t0 
O21232 
021383 
02241 
02268000 
021414 
0215:2 
021713 
022011 
022332 
022510 
022731 
022832 
023211 
023530 
0237:2 
024030 
024131 
024430 
024633 
0249340 
02275650 
O249%1 
025132 
025233 
02275900 
025331 
0256:2 
02275800 
02562 
02275350 
02562 
025932 
026083 
0262:3 
02276100 
026510 
0265323 
026833 
02276270 
02683 
026932 
027183 
027340 
0276:!3 
0278:3 
028454 
02276450 
0283%2 
028510 
02276350 


GO TOT: 
FNO FLSF 


OWT: FOR NT? © O STEP 4 UNTIL NBUF DO 


$ SET 
$ SET 


$ POP 


METOPIO INX NI4] «© *PCDUP) OR JOMASKI% 


1F LUNS22 AND LUN220 OR CLUNS18 AND & U.P OR CP BKeUp 


COT eee erro See OR PCXCH)510)) 
HEN 
REGIN IF LUN € 18 THEN & UNIT IS BACKUP 
BEGIN Se173% 
STREAM(C As DeL44)3 
BEGIN ST*As pS¢17 WDS ENDS 


NTG*MECTOPTO y;NX NOT 2] TNX O8% 
NT{eMENT4444)3% 
NTOeNT1 CFF IS NTteNTI,¢CrI3% 


IF MCTOPIO}.,¢3%5]3522 THEN % NOT CP BK=UP 


IF NTIZNT2<79 THEN 
BEGIN NT{eMCNT44+5], CFF 13% 
MONT445).0F RF JeNTie+13% 


MENT2+17]* @1540004002000000 &NTIICTCI3% 


MENT44+14).CFFJ¢NT2™7163% 
END ELSES 


IF MONT24+35),(2786)20 THEN MENT2435],[2881Je13 


7) « =1; 


BEGIN TeCA INX @540000000000000)817(8! 36140)3 


IF SEPARATE THEN TeT&CLUN#422)(3214731) 
ELSE TeT&CLUNF22)(288471133 
IF LUN#22 THEN 21F PUNCH FILE*® IGNORE 


FIBCI 
METOPIO) « FLAGCFIBL16)&002024781)8S03338810393 
LSE & 


%150« 
%150# 
2150 


IF WAITTIOC®40020000009@357sLUN),C45%21] THEN GO QZ3 


TeWAILTIOCTs@3575LUN) 3% 
IF T0451] THEN GO TO QZ73% 
ENN 


FN FLSES 


IF LUN=23 OR LUN&D4 THEN 
REGIN ADReL+a3% 
LRt TFCT*UNTTOELUNJ).013285)e25 THEN 
BEGIN ADR « 1OQUELS¢T,CFFII,£33915)33% 
STREAM CA*"END"SADR)3 BEGIN SI © ADR?S 
LaSt © St +13 IF Sc = * ™ THEN GO TO L3Z 
OM1T = PACKFTS 
OMTT = NOTCPACKETS) 
NrteLOc AsNitept+53 fF 3SceNc THEN TALLY##0 FLSE 
BEGIN DL+LOC AS DSe4 LyT "PACKS DreLoc As 
SyeSp=3s TF 48C2DC THEN TALLY*O ELSE 
TALLY#=4 END? Ate 


OMIT 
TALLY ENDS IF P THEN REGINS 


RETURNIOSPACECS)3 


02276600 
02276700 


02276750 
02277000 
02278000 
02278100 
02278500 
02279000 
02280000 
02281000 
02282000 


02283000 
02284000 
02285000 
02285100 
02266000 
02287000 
02287100 
02287110 
02287120 
02287130 


02287140 
02287200 
02287210 
02287230 


02287240 
02287245 
02287250 
02287254 
02287255 
02287260 
02287270 
02287280 


02290000 


02991000 
02292000 
02293000 
02294000 
02295000 
02296000 
02296999 
02297009 
02297010 
022997100 
02297200 
02297300 


02297301 
02298000 


02300000 


a4 


AA HAHAH MHA HH 


Aaa 


AHA HAVO D 


~ 


mt st HH 


028632 
028730 
02275200 
0287:0 
028930 
029410 
0296:2 
029933 
0300t1 
03042 
030233 
030431 
02282000 
030510 
030733 
030933 
O0312%1 
O314%4 
031680 
031930 
032231 
032433 
032830 
02287000 
03280 
033621 
033733 
034113 
02280000 
0341%3 
0344t2 
034633 
0352t1 
0353170 
035610 
035733 
035911 
02287240 
035934 
02279000 
0359%4 
0362!3 
036432 
036632 
0369:2 
0371:0 
0372:0 
037210 
037210 
0373%2 
037483 
037630 
02297100 
037631 
0376:1 
02295000 
O37781 


PRTC471) = MIFFCOM 


END; 


FNDS 


FND32 


UNTTLLUN] ©@7777777777% 
FND 


FLSE BEGIN METOPIOJeM(rTOPIOJOR@ 20040000003 T+03% 
MEME TOPIOJIJ+"END. "R@1401343:533 ENDS 


END3 


IF T#Q THENX 
BEGIN’ 
LBISTewWAITIOC@40000000+ADRs O367eLUNIIZ 
IF T,€45t1] THEN GO TO Q73% 
Ir 1.04281) THEN GO TO LB FLSF8 
GO TO LBIS% 
FND FNn3% 


1F T=0 THEN 
IF F1B£5),64221) 
THEN FORGETSPACE(L INX 2) 
ELSE FILFCLOSECTOPIO INX 0)3 
60 TO STT 


FORGETSPACECA)3% 

TeMSTARTIMIXFRe@4O04PIMIX3S 

WHILE CLeT,CCFI])#0 DO% 
IFCTeMELI),C392278MIXER AND T>0 THENS 


IF MEMCL+4),0CFI45),04121] THEN FILECLOSECL47)3 


TeMSTARTIMIXER+@6004PUMIX32% 
WHILECLeT, CCFII40 DOF 
IFCT#M{CLI),£C3212]2MIXER AND T>O THENS 
JF MCL+7),¢4121) THEN FILECLOSECM(L41] INX 3)3% 
FOR LUN « O STEP 4 UNTIL 31 DO 
IF ROCTABLELLUN),(6:6) = PIMIX THENZ 
SLAPITOFFS% 
PRTIEPIM{XsO]ssTteNnFOLCPiM[X=1)XNDX#2]INX 23 
METISS"rLAGCO SMe Teli tse LaGgCOacPRT)(6833:9))3 
Pc¢,comM5)3 GO TO DIFFCOM: 


02301000 
02302000 


02303000 
02304000 


02305000 


02306000 
02307000 
02308000 
02309000 
02310000 
02311000 
02312000 


02313000 
02313500 
02313600 
02314000 
02315000 
02316000 


02317000 
02316000 
02319000 
02320000 
02321000 
02322000 
02323000 
02324000 
02325000 
02326000 
02327000 
02328000 
02328100 
02328200 
02329000 


02330000 


ee 


AA ARH HAHAH 


T 


02300000 
0380%2 
036131 
02298000 
038133 
0386:2 
02303000 
039413 
02294000 
039133 
039232 
039330 
039521 
039633 
039732 
0398:2 
02307000 
02292000 
03982 
039984 
040030 
0402:0 
O407t1 
040733 
02274000 
02266000 
040831 
040920 
041132 
0413183 
O41731 
042333 
042681 
04282 
043230 
043830 
043930 
O440!2 
O44aqr] 
0448:3 
045432 


045511 
02189000 


S1ZF# 0456 WORDS 


SAVE PROCFDURE TERMINALMESSAGECND 3 


AFGIN NT4 « NB 


ENN: 


PcOsSTF)3 
TERMTINALMESSAGACNT1)3 


VALUE N3 REAL N3 


02330100 
START OF SAVE SEGMENT? BASE 
02330200 
02330300 
02330400 
02330500 


T 000030 

ADDRESS #® 00171 

T 000030 

T 000033 

T 000132 

T 000231 
02330200 


SIZE= 0003 WORDS 


! 


$ SET OMIT = NOTCNDFBUGGING OR CHECKLINK) 
ARRAY UNITCODEC™*I3 
PRTC472) = UNITCODE 


INTEGER PSFUNOCOPY)% USED BY STARTADECK TO EXERCISE SOME CONTROL £5418 


PRTC473) = PSEUNOCOPY 
% OVER THE NO. OF "COPIES" OF CONTROLCARD 
% SERVICING PSEUDO@READERS, 
BOOLEAN PROCEDURE RF ADEMFROMDISKCH,IB)3 


PRTC474) = REAMEMFROMDI SK 
VALUE H»eIBs ARRAY HE*¥),1BE*]3 FORWARD? 
$ SET OMIT = NOTCPACKETS) 
PROCEDURE PRAINOCUNIT»BUMP,ERROR)? 


PRT¢475) = NRAINO 

VALUE UNTT»sBUMP,SERROR$ REAL UNITS BOOLEAN BUMPsERRORS 

BFGIN REAL T3 
STACK¢F 41) = T 

LABFL NEXTS$ 
UN] T*UNT T=323 
IF BUMP THEN 
PACKETACTCUNIT]® @PACKETACTrUN] TIJ]#13 
TF ERROR THEN PACKETFRREUNITI]S=TRUE3S 
IF PACKETACTIUNITJ=O THEN 
TF LABELTABLECUNI T432)20 THEN 
IF CIDTABLEFUNIT»31<CIDTABLECUNITs7) THEN 
REGIN 
LABELTABLECUNIT4+32)«—@443 
TeSPACE(13)4+2% MET94),.79%6j603 
MET INX 10]*+UNITCODECUNIT49)3 

NEXT DO UNTIL READEMFROMDISK(CIDROWCUNIT)» 

CMcT}3&10(88368403)3 
IF PACKETFRRCUNIT) THEN BEGINS 
STREAMCES"END™S Qe @lgoneT)3 
BFGIN S1eLOC Qs SyeSy+75 IF SC#DC THEN DieDrai3 
QeDT? SpoQi 

L3 IF SCe” * THEN BEGIN SIe«SI41% GO TO L ENDS 


DreLOC EF DleDY4+5s IF 3 SC#DC THEN TALLYe13 
EeTALLY? ENDS 


1F P THEN GO TO NEXT ENDS 


INDEPENDENTRUNNERCPC CONTROLCARD) s TRCUNIT4+329(224216] 
SFRROR(1%#131),192)3 

PSEUDOCOPYePSFUDO COPY 443% 

FND ELSE 


ENDOFDECKCUNT Ts CUNIT432)8ERRORCLI1t1993 
FND DRAINO3 


*541¢ 
%541- 


02330599 
02347100 


02347110 
02347120 


02347130 
02347150 


START OF REL SEGMFNTS DISK 


02347160 
02347199 
02347200 


START OF REL SEGMENT? DISK 


Z541° 


02347210 
02347220 


02347222 
02347230 
02347240 
02347250 
02347260 
02347280 
02347290 
02347300 
02347310 
02347315 
02347320 
02347325 
02347330 
02347335 
02347340 
02347350 
02347360 
02347370 
02347380 


02347390 
02347400 


02347410 


02347430 
02347435 
02347437 
02347440 


02347450 
02347460 


T 
T 
T 
A 


“4-4 


aA A tt st tt A wt 


AOA 


0000:0 
00000 


000010 
0000180 


0000:0 
0000:0 


DORESS ® 00034 


000030 
000030 
0000:0 


DORESS = 00034 


000010 
000080 


000080 
000010 
000112 
000133 
000610 
0009584 
001083 
001283 
0015%2 
001630 
0018:0 
002410 
002683 
002782 
003080 
003482 
003310 
003444 
003433 
02347380 
003533 
003780 
92347360 
003782 
02347340 
003831 
003933 
004210 
004331 
02347310 
004381 
00a7%2 
02347220 


S1ZeE# 0048 WORDS 


IT 
FOURE UNITINCTINUs WHAT) $s VALUE WHATS REAL WHATS 


PRT(476) = JINITIN 

ARRAY TINU4]3 

BEGIN REAL HOLM INTEGER 73% 
STACK(F 42) 
STACK ¢F 43) 


HOLD 
! 


“oa 


STREAMCASOSWHAT I3 
BFGIN SY « WHAT#S 
Lt IF Sc = * " THEN 
BEGIN SI « Sy + 13 GO TO LS ENDS¢ 


Dy « LOC A# OF « ni + 53 DS «¢ 3 CHR3E 
FND STREAM; 


HOLD «© POLTSH#% 
$ SET OMTT = NOTCSHAREDI SK) 
$ SET OMTT = SHARFDISK 
FOR [¢0 STFP 1 UNTIL 64 DO 
$ POP oMrT 
TF TINUCT],£30818}sHOLN.£30218) THEN 
RFGIN 
HOLDeT3 
T¢70$3 
ENDS 


UNITINeTF 1<70 THEN 69 FLSF HOLDS 
END UNYTINS 


02347461 
02348000 
START OF REL SEGMENT 3 nySK 


02348500 
02349000 


02350000 
02351000 
02352000 
02353000 


02353500 
02354000 


02355000 
02355999 
02356499 
02356500 
92356501 
02357000 
02357500 
02357600 
02357700 
02357800 


02358000 
02359000 


T 
1 


000010 
000010 


ADDRESS = 00036 


T 
T 


aaa 


A HAHAHA HAAS 4G 


41-4 


000030 
000010 


0000:0 
0002:0 
000211 
000243 
02353000 
000311 
000480 
02351000 
000431 
000433 
0004:3 
000433 
000610 
000610 
000810 
000832 
0009314 
001030 
02357500 
001231 
0015180 
02349000 


S1ZE= 0016 WORDS 


PROCENURF 


PRTC477) = NLETIME 


STACK(Fe!) = C 
STACK¢(Fs42) = N 


STACK¢F43) = T 


INLETIME 3% 


BFGIN REAL CoN5& 


ENDS& 


INTEGER THB 


HALTS% 
C + ¢¢PO2MIX20)44)K(CLOCK+PCRTR) 3% 
FOR T « 1 STFP 4 UNTIL MIXMAX DO% 
IF JARCT»*) #¢ O THENS 
BEGIN N « Noise 
C + *JARE T+ 3) "PROCTIMELTJ+C3 
END3% 


IF N # 0 THEN 
T ¢ CC@OLDIDLETIME)/NSZ 
OLDIDLETIME « C38 
FOR N « 1 STEP 4 UNTIL MIXMAX DOK 
IF JAREN»*] #¢ 0 THENS 
JARENS7) © ePCDUP)4T3% 
NOPROCFSSTOG « NOPROCESSTOG913% 


02360000 


START OF REL SEGMENTS DISK 


02361000 


02362000 


02363000 
02364000 
02365000 
02366000 
02367000 
02368000 
02369000 


02370000 
02371000 
02372000 
02373000 
02374000 
02375000 
02376000 
02377000 


T 000030 
ADDRESS = 00037 


T 0000:0 


0000:0 


~- 


0000:0 
000184 
000480 
000520 
000610 
000713 
001033 
02367000 
0041340 
001383 
001630 
001633 
0018:0 
001930 
OO2a3t 
002582 
02361000 
S!ZE= 0026 WORDS 


AHA AA aA 


AAA Ht 


PRT¢500) = 


PRT(501) = 


STACK ¢F 42) 
STACK ¢F 43) 
STACK (F 44) 


STACK(F 41) 


DEFINE FNTFRUSERF TLE CENTERUSERE ILE1,ENTERUSERE [LE2sENTFRUSERFILF3)& 02378000 
PcEUF CFNTERUSERF [LE 1eENTERUSFRE ILE oe ENTERUSERF ILE 3) eDELJ #3 02378500 
REAL PROCEDURE FUFCA»BeL)s VALUE AsRels REAL As Be L$ FORWARDS 02379000 
i START OF REL SEGMENTS DISK 
F 
INTEGER PROCENURE CALCULATEPURGE CPURGE) 32 02380000 
START OF REL SEGMENTS DISK 
CALCULATEPURGE 
VALUE PURGES REAL PURGE? 02381000 
RFGIN REAL YoDs3% 02382000 
= Y 
= D 
REAL J 02383000 
=s J 
REAL Cs41338% 02384000 
= C 
= STREAMCASC(C DATE] ,BReLY1)3% 02385000 
REGIN SteAs ST#Sr+3% DS « 2 OCT DS « 3 OCT ENDER 02386000 
J «© (D © € Y4#3) OV 4x14614+0Y43) MOD 4 x 365 +D+PURGE=% 02387000 
1) DIV 34643% 02388000 
Ip ¢Y © (D *© D MOn 1461) OLIV 365) = 4 THENS 02389000 
BEGIN Y « 33 D « 365 END ELSE D « D MOD 36533% 02390000 
CALCULATEPURGE © (4xU4Y"3)%10004M413% 02391000 
STREAMCCeICJ)3 REGIN Slec# 0S «© B DEC ENDS 02392000 
FND3% 02393000 


T 000030 

T 0000:0 

T 000030 

ADDRESS # 00038 

T 0000:0 

ADDRESS = 00038 

T 000030 

T 0000:0 

T 000030 

T 000080 

T 0001190 

T 000230 
02386000 

T 000331 

T 000830 

T 001010 

T 001283 
02390000 

T 001831 

T 002230 
02392000 

T 0023!2 
02382000 


S{ZEs 0024 WORDS 


PRT(502) = 


PRT(503) = 


PRT(504) = 


STACK ¢F 41) 
STACK ¢F 42) 
STACK¢F 43) 
STACK (CF 44) 
STACK(F45) 
STACK¢F 46) 
STACK(F +7) 


STACKCF 410) 
STACK¢(Fei1) 
STACK (F412) 


STACK (F413) 
STACK¢F 414) 


PROCEDURE CHANGEDATFCRUFF)S VALUE BUFFS REAL BUFFS FORWARD? 02393100 
START OF REL SEGMENTS DISK 
CHANGFDATE 
DEFINE MIONIGHT = BFGIN XCLOCKESXCLOCK*WI TCHINGHOURS 02393200 
DATE t=CALCULATEPURGE (193 02393225 
CHANGEDATECSPACE(10))3 02393250 
END#3 02393300 
REAL PROCEDURE TAPELABEL(CMpF eReCeP)3 VALUE MoF pRoCpP3 ZA] 02393400 
START OF REL SEGMENTS DISK 
TAPELABEL 
REA), MeFoReCeoP$ FORWARDS BAY 02393500 
$ SET oMIT = NOT ¢DUMP OR DEBUGGING OR BREAKOUT) 02393790 
REAL MFEMASK3 02393800 
MEMASK 
$ POP oMIT 02393810 
$ SET OMIT = NOT DERUGGING %763° 02393999 
$ SET OMTT = NOT (DEBUGGING OR DUMP) 47630 02434051 
PROCFNURE NUMPCORE( BUFF)? BAY 02434100 
START OF REL SEGMENTS DYSK 
VALUE BUFFS REAL RUFF BAT 02434110 
: REGIN REAL BpSoNoTMeTAsUsD3 BAY 02434120 
t--3 
= 3 
a N 
zs ™M 
= TA 
z U 
a ff 
INTEGER 13 REAL MASK»PARITY? 02434125 
= | 
zs MASK 
= PARITY 
ARRAY TPr#e]3 ARRAY Thr*]3 BAY 02434130 
= TP 
= TL 
LABEL X»eL4isERR3 02434135 
SUBROUTINE CHECK3 02434162 
BEGIN 02434164 
IF PCXCH)=@20 THEN 02434166 
REGIN 02434168 
STREAM(BeBUFFeRUFF ,£15215]"1)3 02434170 
DSe32LIT*@=HPMT ABORTEDs TRY ANOTHER TAPEre™3 02434172 
PC WAIT 10¢94740000020,8377,U),DEL)3 & SPACEBACK 02434174 
PARtTYel3 02434176 
GO ERRS 02434478 
ENDS 02434180 
ENDS 024341482 
FOR UeO STFP 4 UNTIL 15 DO 02434185 
IF CMULTITABLELU] EQV "MEMORY ")=NOT O THEN 02434190 
IF CLABELTABLECUJ.C5#25] 2"1 HUMP") THEN GO Lis 02434195 
FOR U*O STeEP 1 UNTIL 15 pO JF LABELTABLELUJ«0 ZAY 02434200 
AND PRNTABLFELU].C1!1] THEN GO TO Lis ZAI 02434210 
BUFF S=BUFF,Ci58153e13 ZAI 02634215 
STREAMCBUFF)3 ZA] 02434290 
OSte17LyT"#NO MEMDUMP TAPEe*3 AY 02434230 


T 000030 
ADDRESS « 


T 000010 
T 000030 
T 000030 
T 000030 
T 000010 
ADDRESS # 


000030 
000030 
000030 


a4 


000070 
000080 
000010 
000010 
DORESS »# 
000010 
000010 


4aAoaPrPo3a08 uw 


T 000010 


T 000030 


000010 
000030 
000180 
0004130 
000133 
000281 
000412 
000980 
004042 
001184 
00130 


4A AAA MH as 


001310 


00039 


00039 


00039 


02434168 


02434164 


0013%1 
0018t0 
0019183 
0024%2 
002633 
.0033%4 
003510 
003513 


ee | 


Lat 


40 To X3 

MULTITABLEFUJSS"MEMORY "3 

LABELTABLETU),(£1329)% 301024644447; 

STREAM(CAt=™"O01"*Bts(LABELTABLE(UIJI)3 

BEGIN Sy] ts LOC as ST t= Sy + 53 
DIt=nl4+53 HSisz3apds 

END3 


RRRMECH t= TwOCU) OR RRRMECH3 
Be CSPACE( 20) 820788388 407857 218458373 


STREAMCLTT*BUFF,£633815)<100,BUFFeBUFF,(33%15).B)3 


BEGIN , 
OStsSLIT” "3 SrteQs DSte19WwOS3 
Ol « B3 


LTTCSy « LOC BUFFS DS « 2 DECS JUMP OUT 4 TO 


Sl] ¢ BUFF} 


20¢8C1F SC#e" THEN DS*eCHR ELSE JUMP OUT 2 


TO L))$3 us 
ENDS 


LARBELTABLECUT, C185] #5@203 


TLIZ=EMETAPFLABELC™MEMORY “,LABELTABLECU],[6t42], 


16110)3181068838810)85721 24513) 
STREAMCAe*PRNTABLELU],(£30818]»TL)? 
BEGIN Ste*LOC AS’ DI*#D14+533 DS*5 DEC END} 


BAT 
BAY 
AY 
BAT 
RAY 
FAT 
SAY 


BAT 
KAY 
BAT 
Ls 
ZAY 
FAY 
BAY 
KAY 
ZAY 


SAT 


TPSSCMC(TAtsTYPEDSPACE(513»MDUMPAREFAV)III8513(8236:10)8 


Sr21245%3)3% 
TM$=08@473709337311]3 
MASK#@40 @ @20(CTFI]: 
$2303 
HALT$ SLEEPCCTOGLE]»STOREMASK)3 
LOCKTOGCSTOREMASK)3 


WHILE (S8#M(SJ2.633815] NEQ@ O DO 
IF MESJ,C1817)2@1000 THEN 
NtsOLAYCS.033815))3 
UNLOCKTOGCSTOREMASK) 5 


PCWAITIOCTL»#MASK,UDeDELDS 
PCWAITIOCEC TM] »MASKs Ue DEL)? 
{=O} 
NO BEGIN 
N3eS.¢3383);3 
IFCMEMASK AND TWOCN))NFQ O THEN StseS 
ELSE MOVE C51 2sS»sTA+¢1)3 
TPcO) ts S3 
PCWAITIOCTP»MASK#U))3 CHECK 
IF S LSS 0 THEN S tm 3584 = S3 
END UNTyL (83254512), 7618315]3 


PCWAITIOCRaMASKsU))3 CHECKS 
LABELTARLE(U).£1:5) «0013 
RUFF S*BUFF CAISt15I13 
STREAMCUeTINUCUJ] > LeLABELTABLECU]>BUFF)3 
BEGIN 

Sr+zLOC Us ST 82 St + 53 


K167« 


ZAI 


ZAt 


BAT 
At 
ZA} 


BA} 
ZAT 


RAT 
ZAI 


ZAI 
TAT 
ZAY 
BAT 
BAY 


02434240 
02434250 
02434260 
02434270 
02434280 
02434290 
02434300 


02434310 
02434320 
02434330 
02434380 
02434350 
02434360 
02434365 
02434367 


- 02434370 


02434380 
02434390 


02434400 
02434410 
02434420 
024344204 
02434426 


02434430 
02434435 
024634440 
02434445 
02434470 
02434480 
02434490 


02434500 
02434510 
02434520 
02434530 


02434532 
02434534 
02434540 
02434550 
02434560 
02434570 
02434580 
02434590 
02434600 
02434610 
02434620 


02434630 
02434690 
02434695 
02434700 
02434710 
02434720 


AAH HH HHH HAS 


AAA AHH HO OD 


in ee 


ee 


0038:2 
003930 
0040!{4 
004233 
004430 
004432 
004510 
02834280 
0045314 
004730 
0051424 
005430 
005410 
0055%3 
0056:!0 
0057133 
0058:0 
006030 
006033 
02434340 
006140 
006332 
006533 
006933 
0071:3 
02434426 
007213 
0075723 
0078140 
0079183 
008140 
008113 
0083:3 
02434490 
008711 
009014 
009231 
009710 
02434530 
010032 
010231 
0103383 
010412 
0104:2 
010513 
010810 
011182 
011283 
011530 
0117132 
02434550 
012030 
012230 
012422 
0126131 
012810 
012830 


ERR: 


x3 


NOStetLIT” "3 pSteZcHRs 
ST+LOC L3 SyeST+#is DSe 1 LIT * "3 DSe? CHRE 
DOSss7Lit" DP@*EDe"™; 

END} 


PCWATTIOCL TM] »MASKoU) sDEL)3 
PCWAITIOCTL»®MASK,U) DEL) 
IF PARITY THEN SETNOTINUSECUS1) ELSF 
BEGIN 
PCWAITIOCLTMJ] »MASKeU) eNEL)3 
PCWALTI0C@4740000020203775U) sDEL)S 
ENDS 


FORGETSPACFCTP)3 
FORGETSPACFCTL)3 
FORGETSPACFEC(R)3 
NOPROCESSTOGeNOPROCESST0G"43 
SPOUTCBUFF 93 


END OUMPCORES 


ZAI 
SAI 
BAY 
XAY 


02434730 
02434735 
02434740 
02434750 


02434760 
02434770 
02434780 
02434790 
02434600 
02434810 
02434820 


02434830 
02434840 
02434850 
02434860 
02434870 
02434880 


012832 
0129381 
0130182 
013183 
02434710 
013210 
0133%2 
013581 
013730 
0143930 
044012 
014210 
024634790 
044230 
0143130 
0144180 
014433 
0146720 
O14731 
02434120 
StZe=s 0149 wORDS 


Aan HHS 


4-4 to 


$ POP oMrT 

$ SFT OMIT = NOTCDERBUGGING) 

$ SET OMIT = NOTCNATACOM AND OCSPO ) 
PROCEDURE NAME INCAS KTRI3& 


PRT(505) = NAMEID 
REAL AsKTRSE 
BEGINS & 


STREAMCAefATEKTRIS2 
RFGIN DI « A& DS « B LIT "0 "3X 
Nr « ore7s Sy «© KTREE 
L8 IF Sc =" * THENS 
BEGIN Sy « Sy+i3 GO TO L END33 


IF Sc = """ THEN? 
BEGIN Sy « Sy+1is 
7CIF SC = "se" THEN JUMP OUT TO EXITS 


DS ¢ CHR3s% 
tf SC = "" THEN JUMP OUT TO LQ? )3¢ 
1,58 IF SC # """ THEN TF SC # LEFTARROW THEN 


BEGIN ST = SI] + 13 GO TO LS$ END3 


IF SC = LEFTARROW THEN GO TO EXIT3 
LO? S] « Sl4+13% 
GO TO EXIT 
END3% 


IF Sc = ALPHA THEN? 
BEGIN 7(DS ©« CHR3S 
IF SC = ALPWA THEN GO TO LA3&% 
JUMP OUT TO EXIT32 
LAt 3% 
Le! TF SC = ALPHA THEN 2% 
BEGIN SrteSy4+13 GO TO LES ENDS & 


GO TO FXIT3Z 
FNDSS 


If Sc = "e" THENS 
BEGIN DS « CHRS ST © Sy"13 GO TO EXIT ENDS 


IF Sc = "=" THENS 
BEGIN NSed LITtees SteS141? GO TO EXIT END? 


DS ¢« CHR3E 
EXITIA © STZ 
FNDS% 


KTR « PCXCHI3% 


%152° 
%152= 


£1S2=— 


02434890 T 0000:0 
02434999 T 0000:0 
02522099 T 000030 
02603000 T 0000:0 


START OF REL SEGMENTS DISK ADDRESS ® 90044 


02604000 T 0000:0 
02605000 T 0000:0 
02606000 T 0000:0 
02607000 T 000433 
02608000 T 0002:3 
02609000 T 0003!4 
02610000 T 0003!3 
02610000 
02611000 T O00414 
026432000 T 0004:3 
02613000 T 0005:0 
02614000 T 0006314 
02615000 T 0006:2 
02615100 C 000733 
02615200 C 0008:3 
02615200 
02615300 Cc 0009%4 
02616000 T 0010:0 
02617000 T 001031 
02618000 T 0010:2 
02642000 
02619000 T 001082 
02620000 TF 00114:0 
026271000 T 001411¢t2 
02622000 T OO1L12%1 
02623000 T 001233 
02623500 T 0013:0 
02623501 T 0013:2 
02623501 
02624000 T 001430 
02625000 T 0014%4 
02620000 
02626000 T 001411 
02627000 + 001433 
02627000 
02628000 T 0015:2 
02629000 T 001640 
02629000 
02630000 T 001710 
02631000 T O01791 
02632000 T OO017!2 
02607000 
02633000 T 001733 
02634000 T 0018:3 
02605000 


SIZE= 0019 WORDS 


STACK¢F42) = LBL 


REAL PROCFNURE TAPFLABELCMULF 1DeF 1LOsREELNOs CYCLE »PURGE 3% 


BEGIN 


END 3% 


VALUF MULFIDsFID»sREELNOSCYCLEs,PURGESS 
REAL MULFID»FID,REELNO»s CYCLE sPURGES& 
REAL LBL#% 


LBLtsTYPENSPACE¢1O»eLABELAREAV) 32% 


STREAMCE 


02635000 


START OF REL SEGMENTS DISK 


%167« 


DATE» MULFID»sFID,REELNOsCYCLE sPUSCALCULATEPURGE (PURGE ) 5% 
LBL) 3% 
BEGINS 
OSe8 LIT” LABEL "3g 
St*LOC MULFIDS% 


ENDS 


DSeWDS3¢ 
DSe+WDS33 


OSe«3 pEC#2 
SI « LOC DATE? SI «© Sy+33% 


DS « 5 CHR3Z 
SfeLOe CYCLES 


OS+ 2 Dec} 
S]Te*LOc PU? 


DS«5 CHR3 


TAPELABELeLBLS% 


SleS1+33% 


DSe1 LIT*ONSS 
5(pS¢8 LET"00000000")¢ 


02636000 
02637000 
02638000 


02639000 
02640000 
02641000 
02642000 
02643000 
02644000 
02645000 
02646000 
02647000 
02648000 
02649000 
02650000 
02651000 
02652000 
02653000 
02654000 
02655000 
02656000 


02657000 
02658000 


T 0000:0 
ADDRESS = 00045 
0000:0 
0000:0 
0000:0 


a4 


0000:0 
000233 
000330 
0005:0 
0005:2 
0005+2 
000613 
0007:0 
0007314 
000722 
000733 
000634 
0008:2 
000883 
0009:0 
000932 
00108! 
001210 
02643000 
0012t4 
0013:0 
02636000 
SI1ZE= 0014 WORDS 


AA AR HHH HAHAHAHA A 


a 


02659000 T 0000:0 


REAL PROCFNURE LABFLASCRATCHC(LBL)? VALUE LBLSREAL LBL 
START OF REL SEGMENTS DISK ADDRESS = 00046 


PRT(506) = LABELASCRATCY 


RBFGIN® 02660000 T 0000:0 
REAL LUN»e TMeREELO TS 02661000 T 000030 
STACK(Fa2) = LUN 
STACK(F4+3) = TM 
STACK¢F44) = REFL 
STACK(F45) = T 
LBL « P¢,LBL,LON),(CF} & 1078238810) & 02662000 T 0000:0 
CIF Pc, lbplb,L00).(721) THEN 1 ELSE 59(€2124533)3 02662050 T 000331 
STREAMCLeLBL43+Re(REFLID$ 02662100 Tt 000730 
REGIN SteL3 OS#3 OCT END; 02662200 T 0008:2 
02662200 
LUNeF YNNDOUTPUTCMELBL+41 J »MELBL42] °REEL 2 Or 0s200eTM)3 02663000 T O0009:1 
TF LUN20 THEN 02663100 T 001433 
BEGINS 02663200 T 001532 
STREAMCAePRNTABLECLUN] £30848 ]eTe LT ]»>LeLAL+6)3 02664000 T 0016:0 
BFGIN NI*DI453 SteLOC As DSeSHNECs St+S1"8! DleT3 02664100 T 001832 
DS*#BDECS NleDI"73 DS#6FILL3 ENDS 02665000 T 0019:3 
02664100 
ROCTABLELLUN] ,£896]}¢P4yMyX3 02665100 T 0020:3 
MPLBle1],cC1s5)}%203 %148= 02665110 ¢ 0023%1 
MULT FTABLECLUNJ «MP LBLaet 73 02665150 T 0026!2 
RRRMECHeTWOCLUN) OR RRRMECHS 02665200 T 0029:0 
POWATTIOCLBL,0s.,UN)sDFL)3 02666000 T 0030:3 
TMeORM PEM LEI7TIL1 3% 02667000 T 0032!1 
PCWAITIOCLTMI+0,LUN) »DEL)3& 02668000 T 0034:0 
$ SET oMIT PackEeTS 02668099 T 0035:2 
FILEMESSAGEC™ OUTWETINULCLUNJ [63302818] 5T» 02668500 Tt 0035:2 
MCLBL41)]+MLLBL42)-REFL 2» 0. 0e0PNMESS)3 02668600 Y 0037%2 
ENDS 02668800 T 0042'1 
02663200 
LARELASCRATCHeLUN 02669000 T O042t1 
END LABELASCRATCH3% 02670000 T 0042'}4 
02660000 


S1ZE= 0045 wORDS 


PRT(507) 


PRT¢540) 


PRTC511) 


PRT¢542) 


PRT(5¢3) 


PRT¢544) 


PRT¢515) 


PRT¢516) 


PRT(¢547) 


PROCEDURE NSFECONDSFORWARD? 
START OF REL 
NSECOND 
DFFINE CHFCKSTACKSPACE = JF PCPRTfCPIMIXs*] TNX 0)"P(0,RDS)<128 ¥WF 
THEN BEGIN P¢64,STS)3 G60 TO STACKOVERFLOWS END#3 KWF 
ARRAY USERCODEr #13 
USERCODE 
REAL, PRCCFDURE SECURIT TYCHECK (Mor pUey)$ 
START OF REL 
SECURIT TYCHECK 
VALUE MyFolls REAL Mo FoUsHs FORWARD 
PROCENURE MAKEPRESENT(C)3 VALUE C3 REAL C3 FORWARDS 
START OF REL 
MAKE PRESENT 
PROCEODURE SIGNOFFCVeFeW)FVALUF VeFeWS ARRAY VC*¥JsFC*ISREAL WESFORWARD? 
START OF REL 
SIGNOFF 
SAVE PROCEDURE TOREQUESTCF,1+L)3 VALUF Foelsl3 ARRAY FoLt*)2 REAL I3 
START OF SAVE 
TORE QUEST 
FORWARD; 
BOOLEAN PROCEDURE MIXING 1 eU,B)s REAL UeBS INTEGER 1% FORWARDS 
START OF REL 
MTXTN 
$ SET OMTT = NOTCBREAKOUT ANN AUXMEM) 
DEFINE CODEADDRESS(CODEADDRESS}1 ,CODFADDRESS?2)«& 
ACTUALOVERLAYADDRESS(1 »CODEADDRESS4 sCODEADDRESS2)#> 
DATADNRESS(CDATADDRESS1,DATADDRESS2)« 
ACTUALOVERLAYADCRESSCOsDATADDRESS  ,DATADDRESS2)#3 
SAVE INTEGER PROCEDURE ACTUALOVERLAYADDRESS( TYPE »MIXsLOC)3 
START OF SAVE 
ACTUALOVERLAYADDRESS 
VAj.UF TYPE sMIX»sLOCS INTEGER TYPE sMIXsLOC$ FORWARDS 
$ SFT OMIT = NOTCRREAKOUT) 
$ SET OMIT = NOTCDATACOM AND DCSPO ) 
SAVE PROCFDOURE INITIATEIOCLONESCeMysXpU)3% 
START OF SAVE 
tTNITTATF IO 
VALUE LODESCoMyIXet3% 
REAL MIXellis% 
REAL JODESC# 
BFGIN REAL Cw+1LABEL FXITS 


STACK¢F41) = C 


$ SET OMIT = NOTCSTATISTICS) 


IF CPCIODESC, (3185) 7204" 
$SET OMIT = DKBNODFX ¥204= 
»DUP)s @14 OR PCXCH %204= 
$ POP OMIT ¥204= 
>) = @6) AND %204e 
NOT [ODESC.f24!1) AND ¥204" 
CCCPCMEIODESC.LECFIJJ»DUP) FAV OJENOT 0) OR £204= 
CCPCXCH) EQV 32)eN0T 0)) AND Z204e 
NOT OKSEGZEROWRITF THEN K204= 
BYBY¢"SFGMENT ZERO OVERWRITE +, 23)3 Z2040 
P(TIO)3 


02692000 
SEGMENT? DISK 


02693000 
02694000 
02695000 


02696000 
SEGMENT’ DISK 


02696100 
02696200 
SEGMENTS DISK 


02696300 
SEGMENTS DOYSK 


02696500 
SEGMENTS BASE 


02696600 
02696700 
SEGMENTS DISK 


02697299 
02697740 
02697720 
02697730 
02697740 
02697750 
SEGMENT? BASE 


02697770 
02700000 
03500099 
04000000 
SEGMENTS BASE 


04001000 
04002000 
04003000 
04004000 


04004099 
04004410 
04004119 
04004420 
04004121 
04004130 
04004140 
04004150 
04004155 

04004460 
04004170 


04004200 


T 0000:0 
ADDRESS & 


T 0000:0 
T 0000:0 
T 000030 


T 000070 
ADDRESS »& 


T 000030 
T 000010 
ADDRESS s 


T 0000:0 
ADDRESS « 


T 000010 
ADDRESS = 


T 0000:0 
T 0000:0 
ADDRESS »# 


T 0000:0 
T 000030 
T 0000:0 
T 0000t0 
T 0000!0 
T 000030 
ADDRESS « 


0000:0 
0000!0 
000010 
0000:0 
DDRESS = 


0000:0 
0000:0 
000010 
000070 


000010 
000010 
000030 
000133 
0001383 
0002%2 
000333 
000633 
000833 


T 
T 
T 
T 
A 
T 
T 
T 
T 
T 000010 
¢ 
C 
C 
C 
¢ 
C 
C 
Cc 
Cc 
c¢ 0009%2 


00048 


00048 


00048 


00048 


00174 


00048 


00174 


00174 


04004170 
04004170 


T 001730 


CHANNELEPCDUP) J «U3 
Peri1ODESC) > {yO)3 
CHANTOLCJ]+CLOCK+PCRTR)3 
£ SET OMIT = NOTCSTATISTICS AND AUXMEM) 

IF U < 16 THEN 

BEGIN 

IF TODESC,£22%11 THEN 

BEGIN TRANSACTION(CU) ¢ ITF 1ODESC,(18%1) THEN 0% 
ELSE TRANSACTION(CUI@43¢% 
GO TO EXIT#s% 


END3 
& SET OMIT = NOTCSTATISTICS) 
FND 
ELSE 
TF CU OR 1)219 THEN 
RBFGIN 
ULOrcleCLOCK+sP¢RTR)3 
$ SET OMIT = NOTCSTATISTICS) 


ENDS 


$ RESET OMIT 
TRANSACTION(U] t= PenuPsLOn)4)13 
EXITSEND32 


04005000 
04006000 
04007000 
04007099 
04008000 
04008100 
04009000 
04010000 
04011000 
04012000 
04013000 


04013009 
04013100 


04013200 
040143300 
04014000 
04014002 
04074009 
04014100 


04014105 


04014500 


04015000 


ot tt 


a 


ae ee ee ee 


T 
T 
T 


001734 
001812 
001910 
002013 
002013 
0021:2 
002210 
0022!3 
0025114 
0027'4 
0027:3 
04040000 
0027:3 
0027:3 
04008100 
0027:3 
002733 
0029:2 
003010 
003133 
003133 
04044000 
0031:3 
0031:3 
0033:3 
04004000 


S1ZeE= 0034 WORDS 


SAVE PROCEDURE QUFUFUP(U)D$ VALUE U 3 REAL U3?% 


PRT¢520) = QUEUFUP 


BEGIN yF Us30 THEN 


END$3 


WATTQUECFIRSTWAIT2e( FI RSTWAIT#31) AND 314)%=U ELSE 


BEGIN 


END&2 


WAITQUECNEXTWATT] ©¢ UsY 
NEXTWAIT «© NEXTWATT4$41 AND 342% 


04016000 T 000030 
START OF SAVE SEGMENTS BASE ADDRESS = 00208 
04016100 T 000010 
04016200 T 000033 
04047000 T 000410 
04018000 T 000533 
04019000 T 0007t2 
04047000 
04019100 T o007%2 
04046100 


S1ZEs 0008 WORDS 


PRT(160) 
PRT(161) 
PRT(162) 


= T 
&® R 
= § 


£ SET OMIT 


NOTCDFX) 


SAVE PROCFOURE STARTIOCUI$ VALUE Us REAL U3Z 


BEGIN RFAL TSNT1,ReNT2, SeNT33% 


£ SET omyT 


£ SFT oMtT 


NOTCDFX) 
IF ¢T « UNIT(CU]),¢1325) = 0 THEN 
IF ¢€S «© 7,£18815]) < @1777 THEN 
NOTCDFX) 

REGIN IF PeTsO) # O THENS 


BEGIN JNITIATETOCIOQUELSI],LOCATQUErS),£325] 


oUd3E 
P¢3)38 
FNDS 


ELSE BEGIN QUEUEUP(U)3% 


P¢A)3% 
FND3% 


PCTRPCXCHICI5S245¢3) -(UNI TCU] oe) 3% 


£ SET OMIT = NFX 


$ POP OMIT 
$ SET OMIT 
ENDSS 


END#% 


NOTCHFX) 


04019499 
04020000 


START OF SAVE SEGMENTS BASE 


04021000 


04021099 
04022000 
04023000 
04023099 
04024000 
04025000 
04026000 
04027000 
04028000 


04029000 
04030000 
04031000 


04037000 
04032999 
04033000 


04033001 
04033049 
04034000 


T 
T 


000030 
000010 


ADDRESS = 00216 


T 


AAH Aaa aA 


4~o4-4 


4-4-4 


T 
T 
T 


000030 


0000:0 
0000%0 
0002:0 
000434 
000431 
000532 
000730 
000831 
0008t2 
04025000 
000832 
000933 
001030 
04029000 
0010:0 
001210 
001230 
04024000 
001210 
001230 
001280 
04021000 


SIZE# 0013 WORDS 


SAVE PROCFNOURE PRINTERFINISHCUDS VALUE Us REAL U3% 04035000 T 000010 
START OF SAVE SEGMENTS BASE ADDRESS # 00729 
PRT¢521) = PRINTERE YN Sy 

BEGIN 04036000 T 000010 

$ SET OMIT = NOTCNEWLOGGING) 04036099 + 000030 

1F NOT UNTTECU. £1631) THEN UNE TEU),£1784) «+ O3 04036200 T 000030 

START SO(U)SS 04037000 T 000434 

GO To EXTERNAL3% 04038000 T 0005t0 

FNDS% 04039000 T 000532 


04036000 
S1ZeE= 0006 WORDS 


PRT(160) 
PRT(161) 
PRT(162) 


STACK CF 41) 


un 


SAVE PROCFDUR 


VALUE 
ARRAY 
REAL, 

BEGIN 


$ SFT OMIT = 


SET omyT 
OMY T 
SET OMIT 
SFT oMyT 


PAH & 
wm 
m 
“4 


w" 
my 
o 
vu 


OMyT 


$ SET OMIT = 


$ SFT OMIT = 


$ POP OMIT 


ENNs% 


F LORFQUESTCFEINALSIODESCeLOCATIONI3S 


04040000 


START OF SAVE SEGMENTS BASE 


FINALS TONESCs+LOCATIONSS 
FINAL» LOCATIONS #I3% 

TODESCSS 

REAL U=NT1>T=ENT2,SENT3eRee yds 


NOTCDFX) 
IF 10QUESLOTS Lra@ 
CUtstTF LOCATION, £994) OR PIMIXs0 THEN O ELSE 7) THEN 
SLFFPCCIOQUESLOTS],@77euU)3 
TOQUEAVATIL « JOQUECStm[OQUEAVAIL] 
NOTCSTATISTycS) 
NOTCDFX) 
NOTCDKBNODFX AND NOT pFX) 
NFx 
TF CT « UNIT£U « LOCATION.£12%6))),£1325) = 0 THEN 


RFGIN IF PeT10) # O THEN 
BEGIN INITIATEIOCTONESCoPIMIX,U)3S& 
P(3)3% 
END ELSF BEGIN QUEUEFUP(CU3SS 


PC4)5% 
END#% 


To « TEPCXCHILI5F 4583 RSL 18833815198 
END ELSES 


IF 1,618!6) = @77 THEN 
T,018:15] « S ELSES 
LOCATQUECPCT,C33815] eDUP)JeLOCATQUEFRI az 
SE18°33215)3% 
NOTCDFX) 
TOQUFSLOTSi = ;OQUESLOTS"13 
ROCATOUELS: * LOCATION&PIMIX£ 324325] OR @77777000003% 
F 
UNITCU] «© T&Sr33233215)3% 


IOQUEES] © IONDESC3% 
FINALQUE(LS) « FYNAL32% 


04041000 
04042000 
04043000 
04044000 


04044099 
04045000 
04045100 
04045200 
04046000 
04047009 
04047099 
04048701 
04048799 
04048800 
04048801 
04049000 
04050000 
04051000 
04052000 


04053000 
04054000 


04055000 
04056000 


04057000 
04058000 
04059000 
04060000 
04060099 
04060500 
04061000 
04061999 
04062000 
04062001 
04063000 
04064000 
04065000 


T 


000080 


ADDRESS # 00235 


T 


44-4 


ANANTH HHH AHA Hot HA 


a4 44 


AM AMA HAHAH dS 


000010 
000020 
000010 
000030 


000020 
000030 
000031 
0004%2 
0007%0 
0008!:2 
000832 
0008!2 
000832 
000832 
0011:3 
001133 
001330 
001433 
0035:0 
04050000 
001631 
0016382 
04052000 
0046t2 
0018183 
04049000 
0018:!3 
0020382 
002211 
0024!2 
0025%2 
002532 
002633 
002913 
002983 
0031!%2 
0031132 
0032183 
003431 
04044000 


SIZEs 0036 WORDS 


PRT(522) 


PRTC160) 
PRT(162) 
PRT(163) 
PRT(165) 


SAVE PROCFDURF FINISHOFFIOCU)S VALUE US REAL UF 


04067000 


START OF SAVE SEGMENTS BASE 


ze FINySHOFF IO 
BEGrN REAL T2NT1e FYNENT3, VENTGe [ODENTOS 
t 
FIN 
Vv 
1On 


H aniH 


LABEL ONsOFF 5C0,C1oC2,C3eC4eC5eCBoC73% 
SWITCH CSW © C0,C40C2,C3sC4sCSe Cho C73% 
IF FIN > O THENG 
IF FIN, £2591] THENS 
BEGIN T « FIN,[335}3% 
FIN © FIN&TODEC 383857806 258958175 % 
GO TO CSWET)3% 
END ELSE GO ON ELSE GO ON3S% 


cO! G0 TO CO3% 
cit FIN,f6810) «+ Vig 

GO TO C23% 
C3? FIN, £8810) « V3g 
cat FIN ¢« NOT V yNX 41 TNX FYNSE 

GO TO C53% 
C6i STREAMCA+O% Y0D)3% 

REGIN Dt « LOC AS’ SI © JODS ST © St#43 DS#4 OCT END 


Te P DIV 843% 
OFFS FIN,f8810) © T3¢ 
GO T0 C232 
C7! STREAMCACOf 10D) 3% 
BEGIN DY « LOC AZ SI * I10D3 DS « 4 OCT END3& 


T «¢ P DIV B-43% 
FIN ¢ (NOT T INX 4 INX FINI&T(B8I138240)8% 
GO To C53% 
ON? JF U ¢« 16 THENY 
IF 100402221) THEN 


C53 METOD INX 14] «© MpNOT V INX 10D INX 1) «& VB 
ELSES 

c2s: METOD INX NOT OJ « VER 

ENDS 


04068000 


04069000 
04070000 
04071000 
04072000 
04073000 
04074000 
04075000 
04076000 


04077000 
04078000 
04079000 
04080000 
04081000 
04062000 
04083000 
04084000 


04085000 
04086000 
04087000 
04088000 
04089000 


04090000 
04091000 
04092000 
04093000 
04094000 
04095000 
04096000 
04097000 
04098000 


T 000020 
ADDRESS # 00271 


T 000010 


000030 
000030 
000030 
000083 
000210 
000333 
000682 
001182 
04073000 
001182 
001210 
001313 
001481 
001610 
001880 
001832 
001933 
04084000 
002130 
0022t2 
002481 
002433 
002610 
04089000 
002730 
0028!2 
0031482 
003230 
003233 
003430 
003783 
003910 
004443 
04068000 
SIZEs 0042 WORDS 


AA ast 


Aaa ys 


AAA HHH HHS 


PROCEDURE PROGRAMRELEASEs% 


04099000 


START OF REL SEGMENTS DISK 


PRT¢(523) = PROGRAMRELFASFE 
RFGIN NAME T3 REAL FSXeJUNK$ 

STACK¢Fal) = T 
PRTC5) « FSX 

ARRAY Re=4[¥*]3% 
STACKeFe4) = R 

REAL [OD=NT13% 
PRT¢160) = 100 

ARRAY LOCNI¥*J;% 
STACK¢(F4+2) = LOCN 

REAL S3 
STACK¢Fs43) = S 

CHECKSTACKSPACE3% ZWE 
PRT¢(524) = STACKOVERFLOW 


LOCNeMrPSe(CTFCIODeNFLAGCM(PCTe(MCPRICPIMyXo9) J)» DUP»PRL)1)) 
of22%1] THEN 2 ELSE NOT 1) INX 1ON]3 
IF 100.(3%5)= 6 THEN 
REGINS STREAMCSS=MCPRTCPLIMIXsB))] INX PCDUPsOoXCHEDIA 10% 
DIB 30sTRB 2).1+@600005)3 
BEGIN St+S3 nSe2 CHR ENDS 


$ SET oMIT = NOTCSTATISTICS) 
IF JUNK,(636312]445 AND RFELTOG 
OR ME100).°3%6)] = O AND MEIOD) LSS CDIRDSK x DSKTOG) THEN 
IF cUSFRCOMEECPIMIX] EQy McP) # NOT O THEN & 
BEGIN TERMYNATECPiM]X)3 TERMINALMESSAGE (30) FEND3 


IFCFSEPIMIXeCFSXePCRCNOT 2 YNX LOCN)246C0C),613911) 
DIV 5),¢40t4}) 

AND TWOC10D,£2491I)&8FSX4324484)))#0 THEN 

BEGIN TrOJesTEOTR1C1 924721 738OT 262408793 
MEC*CCNOT 2) INX LOCN)) INX 5 J$s NABSC*P(HUP))3 
GO 10 RETURN} 

PRT¢595) = RETURN 
END3 


IF NOT 10D,02421) THEN MCS),C1181J] ¢13 
FND o1SK BUSINESS: 


IF ~0D,€3%517#30 THEN GO RETURNS % SPO %A46= 
IOREQUESTC(ReJOD,LOCN) 3% 
TrO0), C1981] « O3 
IF CNT1L#PC#CNOT 2 INX LOCN)9132C0C),£1089)"1)#0 THEN 
STREAMONT1eCeTLOJeT)3 
BEGIN St * T$ SI © S1+#8% DS © NT1 WHS3% 
St « LOC Ci} DS « WOS3% 
ENn3% 


A0 TO RETURNSS 
FND3% 


04100000 


04401000 
04102000 
04103000 
04103050 


04103100 


04104000 
041405000 
04105100 
04105200 
04105300 
04105400 


04105409 
04105500 
04105510 
04105550 
04105600 


04105650 
04405700 
04105750 
041058600 
04105850 
04105890 


04105900 


04105950 
04105990 


04105996 
04106000 
04107000 
04108000 
04109000 
04110000 
04111000 
04112000 


04113000 
04414000 


T 


0000:0 


ADDRESS # 00048 


T 


a 


a4 «+ 


AAA AH HAO 


0000:0 


000080 
000030 
000010 
000030 
0000:0 


04103100 
000510 
000822 
001333 
001580 
0018!2 
001983 

04405400 
002012 
0020%2 
002133 
0027383 
003083 

04105600 
003213 
003533 
0037%1 
0040:2 
004333 
004782 


0048:0 
04105800 
0046:0 
005231 
04105200 
005231 
0054%2 
005624 
005830 
0062:0 
006383 
006433 
0065%1 
04110000 
006532 
006680 
04100000 


SIZE= 0068 WORDS 


SAVE PROCEDURE NEW]03% 


PRT¢(526) = NFWIO 
RFGIN REAL S2NT3eUeNT4 3X 
PRT(162) = 5 
PRT(163) = tj 
3S © UNTTCUSWALTQUEEFIRSTWAITI1,£019215)3% 
INTTIATELOCLOOUFCSI*>LOCATQUEFSI, £385) -U)3% 
FYRSTWAIT * FIRSTWAIT+1 AND 313% 
UNITFUT, C1385) « 33% 
END3& 


START OF SAVE SEGMF 


04115000 
NT3 BASE 
04416000 


04117000 
04118000 
04119000 
04120000 
04121000 


T 


000010 


ADDRESS # 00313 


bf 


+4444 


000030 


000030 
000281 
0004:2 
000681 
000813 
04116000 


SI1ZE= 0009 WORDS 


PRTC14) = 
PRT¢(12) = 
PRT(13) = 
PRT(43) « 
PRT(56) = 
PRT(57) = 
PRT(63) # 
PRT(76) = 
PRTC77) = 


PRT(527) 


PRT¢530) = 


PRT(531) = 


PRT(532) = 


PRT(533) = 


PRT(534) = 


PRT¢535) = 


PRT(536) « 


STACK ¢F 414) 


FAL MNrFLTA = @113¢ 


MnHFLTA 

REAL MLOG = @12i7% 
MLOG 

REAL MROW = 01334 
MROW 

REAL LOGSI7E = O433% 
LOGSIZE 

REAL LOGHOLDER = @563% 
LOGHOLDER 

REAL NUMATNTMESS = @573z 
NUMAINTMESS 


REAL LOGENTRY s 0633% 
LOGENTRY 
Real NXn {SK = @763% 
NXD ISK 
ARRAY MAINTLOGARRAY = @77(4#)3% 
MAUNTLOGARRAY 
PROCEDURE NISKORAUXFRROR(R)$ VALUE R$ REAL R$ FORWARDS 
START OF 
NTSKORAUXERROR 
PROCEDURE ACTUALIOFRRCR)$ VaLUE R$} REAL R$} FORWARD? 
START OF 
ACTUALYOFRR 
PROCEDURE LINKUPCTYPE,KEY)3 VALUE TyPE.sKEY? REAL TYPEsKEYS FORWARD3¥ 
START OF 
L.INKUP 
PROCEDURE CHECK JOBORFILEMESS(MIXsFIBeUI3% 
START OF 
CHECK JOBORFI}.EMESS 
VALUE MIXeFIBeUS REAL MIXsFIBeUS FORWARDS 2 
PROCEDURE LOGOUTMAINT(B)$ VALUE BS REAL BS FORWARD? 
START OF 
LOGOUTMAINT 
PROCEDURE MAINTLOGGER(CB)$ VALUE B% REAL BS FORWARDS 
START OF 
MAINTLOGGER 
DEFINE 
LOGVERSIONs¢ % VERSION NUMBER ON NEXT CARD 
2 
& % CURRENT ENTRIES ON NEXT CARD 


21 
£3024236))#, 
TAPFBUFFERSIZE = 20073 
ARRAY MAINTRUFFERE ¥]3 
MAINTBUFFER 
SAVE PROCFOURE IOFINISHCR,C)3 


VALUE ReC3 REAL RoC3 


REL 


REL 


REL 


REL 


REL 


REL 


04121050 
04121100 
04421150 
04121170 
04121200 
04121250 
04121300 
04121350 
04421400 


O4121410 
SEGMENTS DISK 


04421425 
SEGMENTS DISK 


04171450 
SEGMENTS DISK 


04121509 
SEGMENT? DISK 


04121550 
04121600 
SEGMENT? DISK 


04121650 
SEGMENT) DISK 


04121700 
04121710 
04121720 
04421730 
04121740 
04121750 
04421850 
04121950 


04122000 


START OF SAVE SEGMENTS BASE 


rOFINTSH 
BEGIN BOOLEAN STOP3 
= STOP 
COMMENT 

WHEN E#05 STOP TAKES THE FOLLOWING VALUES! 
9) DISK ERROR COTHER THAN NOT READY ON A DFX SYSTEM), 
1 ANY ERROR OTHER THAN THOSE LISTED FOR Or 2 OR 3, 
2 LOCKED ADDRESS CSHARED]SK), 
3 ANY ERROR OCCURRING WHEN UNITCUI,£5258]#0 (A RETRY), 


041423000 


04123010 
04123020 
04123030 
04123040 
04123050 
04123060 


T 000030 
T 000030 
T 000010 
T 000080 
T 000080 
T 000030 
T 000010 
T 000010 
T 000010 
T 000010 
ADDRESS #® 
T 0000180 
ADDRESS #& 
T 000030 
ADDRESS = 
T 000030 
ADDRESS & 
T 00000 
T Qo00t0 
ADDRESS «= 
T 000010 
ADDRESS «# 
T 0000:0 
T 000020 
T 000030 
T 000030 
T 000030 
T 000050 
T 900010 
T 000030 
T 000030 
ADDRESS = 
T 000010 
T 000030 
T 000030 
T 000010 
T 000010 
T 000030 
T 000030 


00051 


00051 


00051 


00051 


00051 


00051 


00322 


STACK¢(F42) = TIM 


STACK(F 43) 


PRT¢160) 
PRT(161) 
PRT¢162) 
PRT(163) 
PRT(164) 
PRT¢166) 


PRT(164) 
PRT(165) 
PRT(162) 


nn un aia 


wou 


= YU 


WHEN £20» STOP TAKES THESE VALUES! 
"2 10 FOR WHICH COMPLETE SHOULD NOT BE SET CDATACOM OR 
DISK WRITE BEFORE READ WITH UNIT OR EU SWITCH), 
{ PRINTER 70° 
0 NORMAL JO, 
FNO COMMENT? 
REAL TIM=SSTOP4+1» UsTyM413 


LABEL TESTsNOWAITsPROC sNEWs,QUP e INCRS 
LABEL ERRORS sDISKERR»DS eX eSWoLPoDK DX eDX1+0CeOKoL 13 Zi1is 
RFAL TsNT{>SeNT2eSi12NnT3eVaNTGsESNTSsfaNT73% 


NAMF LOCNses REAL [ODENT6, FINGS13 


SWITCH TYPE t= OK, LP »0Ks0OK, DK s0K,0K 90K »0K, 0K a DC3 iii: 
$ SET oMIT = NOTCNFX) 
$ SET OMIT = NOTCNEWLOGGING) 
PCCHANTOCCJ)3 % INJTEALIZES TIM 
St=(T&=UN I TEPC CHANNEL(CC] eDUP)]2,£18%15)3 % INITIALIZES U 
$ SET oMIT = NOT SEPTICTANK 
% *¥1ii1i9° 
% CHECK FOR A PART]AL WORD BINARY READ WITH NO PARITY FRRORS, THIS 15S 
% TLLEGAL AND IS MARKED AS BEING A PARITY ERROR, Xiii- 
% %111* 
te U LEA $5 THEN & TaPe I/0 Z1iii- 


IF (R,£18212) AND @4462) = @0440 THEN & BIN READ©“NO PAR 111 
IF Rgri5t3] # €¢8"R.(2281]) AND 7) THEN & PART WD XFERR111° 
R.£2881) #3 MOn3y0S3 & MARK aS PARITY ERROR IF MOD II] I7 
ERRORS! 
1F CE «© R,¢2687))240V © T,£588] ) # 0 THEN 
REGIN IFCS1 + FYNALQUEES)) < 0 THENS 
IF CE * $1,(2598) AND £) = 0 THENS 
IF V = 0 THEN 
go TO SW3 
IF (CU AND @774) #¢ 16 THEN 
BEGIN 
RDCTABLELUJ1e(#P(DUPI>& COm190184682)8 RO38385)3 
IF Us30 THEN 


BEGIN 
TF CR, 2825) AND @®25) # 0 THEN 
BEGIN 
te ¢ NOT R,632%1) AND R,( 28817) THEN 
GO TO DC} 
GO TO X3 
END 


FLSE GO TO DC3 
FNpD ELSE GO TO X3 


041423070 
04423080 


041423090 
04123100 
04123110 
04123120 
04423500 


041424000 
04125000 
04426000 


04127000 


04128000 
04128010 
04128099 
04428799 
04128900 
04129000 
04129490 
04429520 
04129530 
04129540 
04129550 
04129560 
04329570 
04129580 
04429590 
04429900 
04430000 
04431000 


04432000. 


04433000 
04433500 
04434000 
04134050 
04134060 
04434300 
04138400 
04134500 
04434600 
04434700 
04434800 
04434900 
04134950 


04134955 
04134960 


44444444 


4 u- 


St Ot HO NINNNNTONNON OD AAA HD 


000080 
000030 


000030 
0000!0 
000080 
000010 
000010 


000010 
000030 
000010 


000010 


000010 
0000180 
000010 
000010 
0000:0 
0000:3 
000312 
0003%2 
000382 
000312 
000322 
000312 
000431 
0006:2 
000913 
001242 
0012!2 
001533 
001417%3 
002082 
002133 
0022414 
002332 
002430 
002683 
002883 
O029TY 
003430 
003132 
0033%2 
003431 
003630 
04134600 
003630 
003610 


@ 
04134400 e 
END} 04134990 T 003640 
04134050 
IF — = 0 THENS 04135000 T 003610 6 
BEGIN Z RECOVERED MASS STORAGE & 04137000 T 003633 
MAINTRUFFERENXDISK#=eNXnISK+4 AND 15) 04437100 T 003781 
ts "0 & UL284632) & LOCATQUE(SI(42315] & 04137110 T 0039!0 e 
CLOGENTRYSSLOGENTRY#+1)CCTF] & 04437120 T 004183 
RDCTABLELUI(C181132]3 04437130 T 004381 
IF FINALQUECS] GTR O THEN 04137140 T 00451 e 
BEGIN 04137150 T O0046!1 
MATNTRUFFERCNXDISKJ£=(ePCDUP)) & 04137160 T 004683 
CCMEMES1$@LOCATQUELS] [NX NOT 2] {NX 4) 04137170 T 004783 e 
0013819] DLV ETRLNGI41)£983919)3 04437180 TY 005082 
MES1),0781) ts 13 04437190 T 005434 
ENN? 04137200 T 005730 @ 
| 04137150 
P(MAINTBUFFERENXDISK+#2]2=10QUE(S1)3 04437202 T 005710 
$ SET OMTT = NOTCAUXMEM) 04137203 T 005910 e 
PCNFLAGCMEP]))3 04137212 T 0059t0 
PCP&VE1:4484) oCMAINTBUFFERENXDISK#1]I39STD)3 04137215 T 00600 
MAINTQUFFERINXDISK#3] 22MAINTBUFFERCUIS 04137220 T 006211 @ 
IF CLOGHOLDFR INX 0) = O THEN 04137230 T 006433 
BEGIN 04137240 T 006512 
LOGHOLDER, CCF J¢eCMAINTBUFFERENXDISKI]3 04137250 T 0066t0 @ 
TNDFPFNDENTRUNNER(PC,MAINTLOGGER) 200100)3 04137260 T 006712 
END ELSF MCLOGHOLDER.CFFI].(CFIt= 04137270 T 0068:3 
04137240 e 
CMAINTBUFFERENXDISK))3 04137275 y oO7082 
LOGHOLDER«eCFFIES(MAINTRUFFERCINXDISKI]]3 04137280 T OO072t1 
NUMAINTMESSt= NUMAINTMESS #13 04137290 T 007383  ] 
T,c588] « 0} 04142000 tT 007510 
GO TO Sws 04142500 T 007633 
END3% 04443000 T OO77t1 @ 
04137000 
IF V = 9 THENS 04144000 T OO7781 
$ SET OMIT = NOTCSHAREDISK) 04444099 T 007830 e 
BEGIN &% ORIGINAL ERROR ON MASS STORAGES 04145000 T 007610 
TINUCUD, £18812) © PCDUP) r1Ss12}e13% 04146000 T OO078t2 
MAINTBUFFERLUJSERRTWOCCILIBS4384)3 04146100 T 008230 @ 
ROCTABLELUJ#=C#P(DUP)I&(C@1)0124619)3 041446200 T 008433 
Vix1293 04447000 T 008733 
& SET OMIT = NOTCSHARENISK) 04147399 T 008832 @ 
ENnS 04148000 T 008812 
04445000 
FLSE BEGIN & RECURRENT ERROR ON MASS STORAGES 04149000 T 008832 e 
PCMAINTRUFFERCUJ$=PC(DUP»®LOD) OR 04450100 T 0089:0 
ReTWwOCC)[1614384))3 04150200 7 009010 
TF CV « Vel) > 137 THENS | 04151000 tT 0092t2 e 
BEGIN RtaPi 04151200 T 009431 
IF LOCATQUELS],£991}] THEN % OLAY I/0 04151220 T 009581 
MLLOCATQUEESI]J8=R OR TOMASK} 04451230 T 00964 @ 
$ SET OM]T = NOTCAUXMEM) 04451235 T 009930 
DISKFRR? 04151300 T 009910 
S SFT OMIT = NOTCDFX) 04151399 T 009980 
T, C5210) R03 04152400 T 009980 
GO TO DX3 04152600 T 010083 e 
Yd] 


FNns 


P(DEL); 
ENN3% 


UNITEU] © TaVI5840s8I13% 
DSty 

CHANNELEPCTIOD] « UZS% 

PCCIOQUEFSII],110)33 

GO TO EXTERNAL 3% 
Xs STOP © (V#0)x2413% 

Te(5213] + 3OxE+833% 

GO TO TEST; 

ENDS 


SWts GO TO TYPELT, (124) 13% 
LPs 
JF STOP t= CT t= 7R001681681)),01781)] THEN 
TEST: IF FIRSTWATT © NEXTWAIT THEN GO TO INCR ELSEY 
GO TO NEW ELSE GO TO NOWAJTS# 
DK: 
IF NOT ¢€1ts7OQUELS)),02431) THEN 
TF FINALQUFIS].[0243$1] THENS 
SET OMIT = DFX 
RBFGIN 
SFT oMrtT = NOT OkKBNODFX OR Om]IT 
SFT OMYT = NKRNODFX OR OMIT 
MPIOQUFES] Peper rp2ata7s1jJJs=ecPCDUP) INX PCOsLNGsXCH))3 


POP OMIT 
GO TO DS; 
ENN FLSE G0 TO OK FLSE GO TO OK3 
POP OMIT 
SFT OMIT = NOT nFX 
NC 3 
SET OMTT = NOTCHATACOM ) 


SFT OMIT & DFX 
DXt Oxie 
POP OMIT 
OK: JF FIRSTWAST = NEXTWAIT THEN 
NOWasTs IF ($4 t= LOCATQUECS),£18915]) LSS 61777 THEN 
: INITIATELOCTOQUELTSLJ»>LOCATQUELS1I,0385),-U)% 
ELSE 
PROc? T $e 78061621682) 
ELSE 
REGIN2 
NEWS NEWIOS2 
IF STOP THEN GO TO INCRI® 
QUP: IF LOCATQUF[S],CFF) GTR @1777 THEN GO TO PROCS 
QUEUFUP(U)D3% 
To © T84¢1328432513% 
END32 


INCRE 
IF CTIM*CLOCK+PCRTR)@TIM) LSS O THEN TIMe03 
1O0t=7OQUFES]3 


04152800 


04152900 
04153000 


04154000 
04155000 
04156000 
04157000 
04158000 
04159000 
04160000 
04161000 
04161500 


04162000 
04163000 
04164000 
04165000 
04466000 
04167900 
04168000 
04169000 
04169090 
04169100 
04169190 
04470750 
04470800 
04170900 
04171000 
04171200 


04171250 
04171350 
04174000 
04174999 
04176000 
04176899 
04176900 
04176901 
04177000 
04478000 


— 04180000 


04181000 
04482000 
04183000 
04187000 
04168000 
04189000 
04190000 
04491000 
04192000 
04193000 


04194000 
04194050 


04194100 


4+ 


AAHAHHH HAH THA HHH 


AAA HHH HHH HHS 


4-4 


010121 
04151200 
010181 
0101342 
04149000 
0101432 
010333 
010313 
0105:0 
010533 
040681 
010882 
O11i%i 
014183 
04131000 
011183 
0119180 
011980 
012433 
012330 
012480 
012420 
012533 
012721 
012734 
012733 
012733 
0127:3 
013282 
0132%2 
013390 
04169100 
013310 
013310 
013350 
043310 
0433%0 
013330 
0133:0 
013330 
0133:0 
013333 
013631 
013823 
013980 
014080 
014431 
014133 
014211 
0143514 
014531 
014630 
044733 
04187000 
014733 
014723 
015434 


TF CU OR 1 )219 THEN 
REGIN 
TF CJUNK&=M670D7,65%7))>9 THEN 
JUNKPGNEUP PCR I4CJUNK AND ©4793 
Ip JUNK<NEUP, CFE] THEN 
PEULOL JUNK) S=PC OUP SL ONIF+CLOCKS+PCRTRI*FUIOLCI3 
ENDS 


T+CSL*LOCATQUELS)),£3%5)3 & FIND MEX INDEX 
$ SET OMIT = NOTCNEWLOGGING) 
TOTIMELT J eC *PCDUP)I+TIMS 
TF PC.SieLON).£1081] THEN FORGETSPACEC10D)3 % NO MEM MESSAGE 
IF F#0 THEN 
TF STOP THEN 
P¢T) 
ELSE GO TO Li 
FLSE BEGIN 
RETURNIOSPACE(S)3 


Lis PCT&PC.SieLONICFTFI)3 
END? 


PcCCUNITCUJ]»STO)3 
FIN « FINALQUELS] AND NOT MEMORY3% 
te CU OR 4) NEQ 17 THEN 
IF 10D,€24%1} THEN 
BEGIN V « ABS¢€100,633215)"R,£33215))3% 
IF 10D.f8!10) < y THENZ 
IF 100.72321] THEN 
Vie 100,£881703338 
IF U < 16 THENS 
IF J0D.f2182) = 0 THENS 
BEGINS STREAMCASO%BeM(S1,(33315J]4+V"1]) 3% 
BEGIN SI « LOC B3% 
IF Sc = "ee" THEN TALLY « 13% 
A « TALLYIS 
END3% 


VY « “P4V3% 
ENDS % 


If U # 30 THEN & NOT OCA 
FINISHOFFIOCUD3% 
END33% 


IF £ # O THEN? 
$ SFT OMIT = NOTCSHAREDISK) 
REGIN IF STOP LFQ@ 1 THEN 

BEGIN 

INDEPENDENT RUNNER( 
PC,DISKORAUXERROR)+(CU AND @774) NEQ 16), 
RasS(3:43:5),240)}3 

LOCATQUELSI] ,Ciltijizt; 

ENN 


FLSE IF FIN < 0 THEN PCLOCATQUE[SJ] sReXCHet)3¥ 
FND® 


04194200 
04194300 
04494400 
04494500 
04194550 
04194600 
04194650 


04194700 
04194799 
04195000 
04195100 
04196200 
04196400 
04196600 
04196800 
04197000 
04199000 


04201000 
04202000 


04203000 
04205000 
04205012 
04206000 
04207000 
04208000 
04209000 
04210000 
04211000 
04212000 
04213000 
04214000 
04215000 
04216000 
042917000 


04218000 
04219000 


04219100 
042920000 
04221000 


04222000 
04222499 
04223000 
04223500 
04224000 
04224010 
04224100 
04224500 
04224750 


04225000 
04226000 


SL | 


ee i eee 


AHAHAAHH HS Ht RH WHA tS 


44 


015201 
015382 
015410 
0156:2 
015931 
016082 
0164%1 
04194300 
0164314 
016631 
016621 
0166214 
017082 
O17191 
017280 
014172%2 
0172383 
017384 
04199000 
017632 
017732 
04197000 
017732 
017881 
018030 
0161%1 
0182!2 
018532 
018633 
018880 
018933 
019082 
019284 
019631 
019632 
0197%1 
01972 
04214000 
019733 
019980 
04243000 
019930 
019983 
020330 
04207000 
020130 
020183 
020183 
020330 
0203!:2 
020333 
0205%2 
0207381 
020933 
04223500 
020933 
021233 


$ SFT OMIT & NOTCSHAREDISK) 
FLSF REGINE 
IF FIN < 0 THEN PCR OR IOMASKsLOCATQUELS] 5¢)% 
FLSE 
§ SET OMIT = NOT (pATACOM OR DFX OR DKBNODFX) 
BEGIN 
LOCN © CMCLOCATQUELSIII3% 
10M + 1006¢33815)3% 
WHILE LOCNfO),£33215] # 70D Hos 
LOCN « 4 INX LOCN3:% 
LOCNCO] * M OR FIN3% 
FND ENDES 


IF PIMIX = 0 THEN GO TO NOTHINGTODOS% 
TF f = PiM1X THEN GO TO RETURNSS 
GO TO INITIATES% 
PRTC537) © INITIATE 
END LOCOMPLETES% 


04226499 
04227000 
04228000 
04229000 
04229099 
04229200 
04230000 
04231000 
04232000 
04233000 
04234000 
04935000 


04236000 
04237000 
04238000 


04239000 


04223000 
021283 
021233 
021383 
021680 
021680 
021680 
021682 
021880 
021981 
022110 
022233 
022410 
04229200 
04227000 
T 022410 
T 022533 
T 022712 


a. 


T 022850 
04123000 
SIZE= 0229 WORDS 


STaACK(Fse2) = T 


SAVE REAL PROCEDURE WAITTIOCIODsMASK»U)32% 


04240000 


START OF SAVE SEGMENT3 BASE 


VALUE MASK »eUsTOD;% 
RFAL MASKsUr TO0D3% 
RFGIN® 

REAL T3 


NEFINE OCTADFS nSe3 ReSETS3CTF SR THEN DS¢SET ELSE 
DSe+RESETISKIP SR)#3 
10D « NFLAGCPC.1ODe LON IBTINUCU IP 3838573 
MASK «# NOT MASK3% 
JOREQUESTC(NABSCTODI&MASK( 2524028) >] 0D» 
L1OD]&UL {2849863 93% 
10D ¢« 10D&80(25195:8)&80019219%433% 
SLEEPCLIODI] >» ;OMASK)#% 
TF CCWAITIO*€7ON,£26°7)) AND MASK AND MASK,C£16415))#0 THEN 
BEGIN 
TeSPACEC1293 
STREAMCTOD+1OD. C2687) eMASKeCNOT MASK).£4127), 
ZecTINUCUJI],TeT)3 
BEGIN DS*20 LIT UNEXP JO FRROR ON "3S]eZ3 
ST+S1+53DS¢3 CHRIDSe+S LIT*SRESULTe"3 
SteLOc JOD#S1TeSI+63SKIP 3 SBS3ICOCTADF): 
DSe6 LIT*sMASK=”™ sSyeSr+6sSKIP 3 SB3 
3COCTADE)#FDS*#2 LIT", e%3 
ENDS 


IF PiMIX = 0 THEN BEGIN PCT)3 PUNTCO) ENDS 


IF NOTERMSFTCPIMtX) THEN 
BEGIN 
TERMINATECPYMIX81948833915])3 
IF JAREPIMIXe9).SYSJOBF THEN %SYSTEM JOR 
BEGIN 
SPOUTCT)}3 
BLASTQ(UDS 
ENn ELSE 


TERMINALMESSAGEC™T)3 
ENDS 


END} 


END? 


04241000 
04242000 
04243000 
04243100 


04243200 
04243300 
04244000 
04945000 
04246000 
04247000 
04248000 
04249000 
04250000 
04251000 
04251100 
04251200 
04251300 
04251400 
04251500 
04251600 
04251700 
04251800 
04251900 


04252000 


04252100 
04252200 
04252300 
04252500 
04252600 
04252700 
04252800 
04252900 


04253000 
04253100 


04253200 
04253300 


iT 


000010 


ADDRESS = 00551 
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AAA 
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T 


000080 
000030 
000030 
000030 


000040 
00000 
000080 
000330 
0004:0 
000640 
0007182 
001081 
001133 
001530 
001582 
001733 
001983 
002083 
0023183 
002532 
002930 
003082 
003383 
04251400 
003410 
04252000 
003681 
003733 
0038114 
003982 
004110 
004112 
004213 
004312 
04252600 
0043!2 
004550 
04252200 
004510 
04251000 
004510 
04243000 


S1ZF* 0046 WORDS 


PRT(540) = 


PRT(541) = 


STACK¢(F #2) 
STACK (Fel) 
STACK(F 42) 
STACK(F43) 
STACK ¢Fs4) 


STACK(F45) 
STACK EF 45) 


STACK(F 46) 
STacKeFe7) 


STACK(F 410) 
STACK¢ F410) 


STACK( F411) 
STACK (F412) 
STACK¢F 413) 
STACK¢F 414) 


STACK¢F 415) 
STACK¢ F415) 


STACK(F 416) 
STACK(F 416) 


STACK¢F 417) 
STACK(F417) 


STACK¢F 420) 
STACK( F420) 


STACK¢F 421) 
STACK (F422) 


REAL PROCENURE TAPFFARITYRETRYCReUSKEY) 3% 


TAPEPARYITYRETRY 
VALUF ReUreKFYS REAL ReUskEYS FORWARD33 
REAL PRocEnURE WRITEPARTTYREFLSWITCHCOIOD,RC)3 
{ 


WRITEPARITYREELSWITCH 
VALUE O10DsRC3 REAL OFOD>RCE FORWARD} 
PROCEDURE DISKORAUXERROR(R)$ VAIUF R} REAL R3 


BEGIN 
REAL MSCW = PO,» 
= MSCW 
U = +1> 
es U 
S = +2 
s § 
F = +3» 
2 E 
T = +4, 
= T 
MK = +5, CELL = MK, 
= MK 
= CELL 
10D = +65 
= 10D 
MIX = $75 
a MIX 
FIN =z +8, PARITY= FIN» 
= FIN 
z PARITY 
KEY4 = +9, 
= KEY 
KEY? = +10» 
= KEY2 
N1s¢ = +11. 
= Orse 
MASK = +125 
= MASK 
AREA = +13» Ui a AREA, 
= AREA 
= UY 
RSLT = +149 MSG = RSLT, 
= RSLT 
= MSG 
PRTMAX = 4152 Til = PRIMAX, 
= PRTMAX 
= TI! 
NISKCELL= +16» T2 = DISKCELL» 
= DISKCELL 
= T2 
TERMNATE = +17, 
= TERMNATE 
OLAYIO = +48» 
= OLAYIO 


DSKADRS = 4193 


START OF REL SEGME 


04254000 
NT$ DISK 


04255000 
04255100 


START OF REL SEGMENTS DISK 


04955200 
04256000 


START OF REL SEGMENTS DISK 


04256200 
04256400 
04256600 
04256800 
04257000 
04957200 
04257400 


04257600 


04257800 


04258000 


04958200 


04258400 
04258600 
04258800 
04259000 


04259200 


04259400 


04259600 


042598600 


04260000 
04260200 


04260400 


T 000010 
ADDRESS & 
T 0000380 
T 000030 
ADDRESS =z 
T 000010 
T 000010 
ADDRESS « 
T 000010 
T 000030 
T 000030 
T 0000:0 
T 000030 
T 0000180 
T 000030 
T 000030 
T 0000:0 
T 000080 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000;:0 
T 0000:0 
T 0000:0 
T 000030 
T 0000:0 
T 000030 
T 0000:0 
T 000030 
T 0000:0 


00051 


00051 


00051 


STACK(F 423) = DSKADRS 


NAME LOCN = +163 
STACK¢CF420) = LOCN 


LABEL NSTTe START» QUIT,» RETRY* KILLL» KILLER} 


$ SET OMyT = NOTCPACKETS) 
DEFINE UNTTNO = PSEUDOMyXCMIX)43 
$ POP oMrT 


$ SET OMIT = NOTCAUXMEM) 


SUBROUTINE DTSKMESSAGE3 
BFGIN 


STREAM(MSGe MKs ASSTINUCUTs MrXe BtazDSKANRSs 


StePOQUELSI] £2796), Re KEYItEKEY 1 tESPACEC19) 25 


BEGIN 

SrtexLOc MKS SytsSre73 DStecHR3 
SrtaSp453 OStz3CHRs OStsLiIT’ 3 
CyssCl+MSG3 


GO LO’ GO Li’ GO L2s GO L3% GO L4? GO L538 GO L63 


LO: NSts 9LITYNOT READY"; Go TO MX3 
Lie DSt= 4LTT*BUSY"™:3 Go TO MX3 
L2: OSt= BLIT*I/0 MEM 3 

L3: NSt= GLIT"PARITY"S GO TO MX}3 
L43; NSt=s=12LIT%1/0 INV ADDR" GO TO MX3 
LS: NSt= 3Lit teu %; GO TO LO3 


L6t NStSi3LIT"INV HISK ANDR"3GO TO MX3 
L7: DSttOLIT@WRITE LOCKS 
MX pSt= 6LIT,» MIX="3 DSte2DEc3 


MSGt=NT3 OT tsO1723 DSt=FILL$ DI t=MsG3 


NSseS5L1T*, DAs"s OHS ts8cuR3 
DSt=7LiT", SEGS="3 DSt=2DdEc3 
NSta4LyT", Res 


GO L73 


16(DS%=3RESFETF 3CTF SB THEN DS*t3SET ELSE NStsRESETS SKY{P SB))? 


Syt=Sre5;3 OSt=z5LitT™, Jos" 

TF SB THEN NSts2LyrT@aem3s SkIP SB} 
IF SB THEN DSte2lLyT"35"3 SKIP SB3 
{F SB THEN OS#%s2LyT"o0e%$3 SKIP SBS 
IF SB THEN DSt=2LyzT "yo 
NrisDper1s OStaL [Tos 

END STREAM STATEMENT? 


END SUBROUTINE DISKMESSAGES 


SUBROUTINE DETAITLRECORDENTRYS$ 

BEGIN | 

KEY2 te TYPEDSPACECOsMAINTRUFFARFAV) 3% 

MCKEY2) $= O & ROCTABLEUI(18#132)3 

IF MrX NFEQ O THEN 
BEGIN 
MrKEY2) te CH#PCDUP)) & MYxrp20:4385] & 
CrF FINALQUE’(S] LSS O THEN O FLSE 


Z167* 


CMEMPLOCATQUE(S}) [NX NOT 21 INX 4),£13%11) DIV ETRLNG) 419798398973 


ENDS 


04260600 
04260800 


04261000 
04261200 
04261299 
04261300 
04261301 
04261400 
04261600 
04271200 
04271400 
04271600 
04271800 
04272000 
04272200 
04272400 
04972600 
04272800 
04973000 
04273200 
04273400 
04273600 
04273800 
04274000 
04274200 
04974400 
04274600 
04274800 
04975000 
04275200 
04275400 
04275600 
04975800 
04276000 
04276200 
04276400 
04276600 
04276800 
04977000 
04277200 


04977400 


04977600 
04277800 
04278000 
04978200 
04978400 
04278600 
04278800 
04279000 
94279200 
04979400 
04279600 
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ee ee | 


0000#0 
000030 


0000:0 
0000:0 
000010 
000030 
0000!10 
0000:0 
000080 
000030 
0000:0 
000440 
000130 
000233 
000632 
0006:2 
000721 
0008%4 
000833 
001083 
001232 
0093%2 
001433 
001610 
001830 
001940 
002111 
0022:3 
002430 
002510 
0026h1 
002713 
002822 
003131 
0032!2 
003313 
0035:!0 
0036:1 
0037%1 
003810 
042972200 
003824 
04271600 
003832 
00382 
0039:0 
003910 
0041421 
0044:0 
004433 
0045414 
004782 
004983 
005412 
04278800 


MCKEY247] %= TRANSACTIONL(UY3 
IF NOT niSc THEN 
BFGIN 
STREAMCS?sI0nN, CFF J» DtSKEY2+2)3 


BFGIN 
Syt=LOc Si DSts8DEC3 


ENDS 
END 


ELSE MEKEY242] ts DSKADRS:; 

MCKEY243)] t= JOQUETS]$ 

MCKEy24+4) #2 R & ROCTABLECUI(C3#3:5)3 

MEKEY2+5) t= IF FINALQUELS] LSS 0 THEN O ELSE LOCATQUE[S] INX NOT 23 
END nETAILRECORDENTRYS 


SUBROUTINE FINISHDETAILS 


BEGIN 
TE MTX NEQ O THEN CHECK JOBORF TLEMESSCMIX»MEKEY24$51>U)3 


LyNKUPC4+DTSCAKEY2)3 
FND?3 


PCOs Oy Ov OF 0, Os Ov Os» Oo Oo Os Oe Ov Oo Oo Os O, Oy 0)3 


NISCreCUrsLOCATQUFLS?2R,63:53),01236)]),64625)3 
MIXteLOCATQUFIS),(3:25]3 
IF COLAYIO t= CCFINAL@UPLS) LSS 0) AND CLOCATQ@UELSJ,(92139)) THEN 
BrGtN 
STRFEAMCS#sO&FINALQUEPSIFCTCI8FINALQUEFSI£2128312)» Dt=(DSKADRS})3 
BEGIN 
SttexLOc S3 DS#=8NECs % DISK ADDRESS IN FINALQUE FOR OLAY 170 
EADS 


END ELSE DSKADRS t= MrTOQUECS))3 


MKtsteas MSGts(e{)} 
Rt=ReYOOUFLSI£3:3!5]3 & RESTORE HARDWARE UNIT TYPE 
19D s= yOQUFLS)$ 
IF Disc THEN 
BFGIN 
Tr Rif30%1) THEN & DrSK NoT READY 
BEGIN 


$ SET oMIT = NOTCDFX) 


UNITCUDSe¢ePCDUP))&8O7777765820828)3 
MSG8sO3 MK&="#"3 ¥ NOT READY 
DISKMESSAGE 

DF TATLRECORDENTRY} 

RFANY tm NOT TWOCU) AND READYS 
RRRMECH te NOT TWOCUS AND RRRMECHS 
UNTT(UIJ, £5210] b= 23 

GO TO KILLL! 

END? & IF NOT READY 


LOCATQUECSI,fFF}] t= NOT O$3 
IF Ric26!7] NE@ 1 AND NOT OLAYIO THEN & NOT BUSY OR SPECIAL 1/0 


042979800 
04280000 
04780200 
04780400 
04280600 
042780800 
04281000 


04281200 


042861400 
04281600 
04281800 
04282000 
04282200 


04282400 
04282600 


04282800 | 


04283000 
042832700 
04283400 


042863600 
04283800 
04284000 
04284200 
04284400 
04284600 
04284800 
04285000 
04285200 
04985400 
04285600 


04285800 
04286000 


04286200 
04286400 


04286600 


04286800 
04287000 
04987200 
04287400 
04295400 
04295600 
04295800 
04296000 
04296200 
04296400 
04296600 
042998800 
04299000 


04299200 
04299600 


a Aaa Ae 


aaa 


HH AND HHH HHH FAA AA AH AHA Ct HH 


a+ 


005533 
0058320 
0058!2 
005970 
006430 
0061130 
00612 
04980600 
0061:3 
04280200 
006133 
006414 
006682 
0069:3 
007530 
042786000 
007531 
007531 
0076:0 
007630 
007933 
0081424 
04282800 
008132 
0081422 
0086:3 
008633 
0090%4 
009433 
0094at2 
0095:0 
009830 
0098:0 
009832 
04285200 
0098:3 
04284800 
0140110 
010203 
04043 
040533 
010680 
010682 
07,0744 
010733 
0107!83 
0114034 
011143 
011380 
041480 
011610 
011810 
042082 
012210 
04287200 
012230 
01242! 


Be Gin 
PaRrTy t= C{OD.£24%1] AND CR.62687)216))3 B PARITY CONDITION 
IF FINALQUELS] GTR O THEN & ORJECT JOR ERROR 
REGIN 
1F PARTTY THEN GO TO START; &% RECOVERABLE ERROR 
nS1Tt TERMINATE CMIX&20C CTF} )3 
FND & OBJECT ERROR 


FL.SF 

BEGIN & MCP 1/0 

1F MIX NEQ O THEN 
BEGIN 
IF JARIMIX*+9J].SYSJOBF THEN % "SYSTEM" JOB 

IF PARITY THEN GO TO START3 

2 DONT DS LIBMAIN/DISK ON PARITY ERROR 
60 TO DS]T3 
END3 &% NON@=7E—RO MYX 


END$ & MCP 170 


ENDS % NOT BUSY OR SPFCIAL 170 


START: 


TRANSACTIONEU] t= TRANSACTION UJ@=13 
MASK t= 1F CEIN t= FINAL@UECS]) LSS O THEN FIN,(2528) FLSrF @3773 
IF CF *& R,(2588] AND MaSK) = O THEN & ERRORS ARE ACCETABLE 
BEGIN & FIX UP TOQUE 
QUT? 
IF MSG NE@ (=1) AND DISC THEN DISKMESSAGES 
DETAYLRECORDENTRYS 
$ SET oMIT = NOTCAUXMEM)3 
RETURNJOSPACE(S)# 


FINtsFyYNALQUELS] AND NOT MEMORY? 
IF CTLtsFiN) LSS O THEN & MCP I/0 
BEGIN 
TF NOT OLAYTO THEN & I70 FINISH PLACES RESULT DESC. FOR OLAY 
MCLOCATQUE(SJJssR&8E62524028381000383%5) OR LOMASKS 
END % :F MCP 1/0 


ELSE 
BEGIN 
IF € NEQ O THEN & ERRORS 
BEGIN 
PC,Ti»PRLD3 
Tt te T18E(25340:8)3 
END 


FLSE P¢,T1is{OR)3 

LOCN t= (MCLOCATQUELS]])]3 

100 *= 10p0,€33315)3 

WHILE LOCNECO].2£33:15)] Ne@ 10D DO LOCN 38 4 JNX LOCN3 
LOCNEO) t= PC,T1»L0p): 

ENN: 


04299800 
04300000 
04300200 
04300400 
04300500 
04300600 
04301000 


04301200 
04301400 
04301600 
04302000 
04302200 
04302600 
04302800 
04303000 
04303200 


04303400 
04303600 


04303800 
04304000 
04304200 
04304400 
04304600 
04304800 
04305000 
04305200 
04305400 
04305600 
04305800 
04309200 


04309400 
04309600 
04309800 
04310000 
04310200 
04310400 
04310600 


04310800 
04311000 
04311200 
04311400 
04311600 
04311800 
04312000 


04312200 
04312400 
04312600 
04312800 
04313000 
04313200 


NAA HATA HA Hs 


“J 


= 


AHN AHHH 


AHHH FAH tS 


oe ee ee ee ee 


012631 
012633 
0129%2 
013032 
013110 
013230 
013331 
04300400 
0133%1 
01433!1 
0133133 
013432 
013530 
0136:2 
0138:0 
013880 
01382 
04302000 
0138%2 
04301400 
01382 
94299800 
0138%2 
01438:2 
013832 
0138%2 
014012 
0144!2 
014633 
O14791 
O1a7ti 
0450180 
0151:0 
015470 
04309200 
015471 
015431 
015630 
015711 
015733 
015834 
016330 
04330000 
0163:0 
046330 
0163:%2 
016431 
0164393 
016512 
016721 
04311400 
016711 
016831 
016983 
017130 
0174!2 
0175:2 


RETRY: 


IF 


GO TO KYLLL3 
FND3 


F THEN % RUSY 
BEGIN 
MSGt=13 % BUSY 


$ SET OMIT = NOTCAUXMEM) 


NISKMESSAGE3 
DETAILRECORDENTRYS 


$ SET OMIT = NOTCAUXMEM) 


IF 


TISSCIF DISC THEN 1O0QUE(S)861394335) FLSE ILOQUELS]); 
RETURNIOSPACE(S)$ 


PIMIXte|eMIX3 
1F NOT OLAYIO THEN & RETRIFS ARE OK 
IORFOQUFSTCFINALQUFIS]» The 

CIF DISC THEN LOCATQUECS 1&8@22(1284236) ELSE 
LOCATQUESI])93 

PiMTX!#s03 

GO TO KILLER; 

END’ % IF BUSY 


F.C46%1) THEN % 1/0 MEMORY PARITY 
RFGIN 

MSQix?3 

p%$=@15373 

GO TO QUIT3 

FN 


Fef4181) THEN %® INVALID ADDRESS 
RFEGIN 

MSGis4$3 

F3=@15373 

a0 TO QUIT3 

FND? 


$ SET OMIT = NOTCSHAREDISK) 


$ SET 
& POP 
$ SET 
$ SFT 


$ POP 


IF 


NOT £44331] THEN & NOT PARITY*CHECK NISK ADDRESS 
RFGIN 
STREAM(DAteEMASK#=EDSKADRS & EUSBMASK, (686), Aled, 
FUASe@CMULTITABLEC16+42*xMASK (58131) 932 

BEGIN 

S1tsLOc DA3 

IF SC 6TR "1" THEN GO TO BADS 

IF SC LSS "0" THEN GO TO BADS 


OM1T = SHARFOISK 


7¢ 


oMrT 
OMIT = NOTCSHAREDISK) 


1F SC LSS "0" THEN JUMP OUT TO BAD? SrteSyo43 
IF SC GTR "9" THEN JUMP OUT TO BAD) 


OMIT = SHAREDISK 


SyiseSpes3 


OMTT 


04313600 
04313800 


043144000 
04314200 
04314400 
04314600 
04314790 
04314820 
04315000 
043151490 
04315400 
04315600 


04315800 
04316000 
04316400 
04316600 
04316800 
04317000 
04317200 
04317400 
04317600 


04317800 
04318000 
04318200 
04318400 
04318600 
04318800 


04319000 
04319200 
04319400 
04319600 
04319800 
04320000 


043720200 
04325400 
04325600 
04325800 
04326000 
04326200 
04326400 
04326600 
04326800 
04327000 
04327200 
04327400 
04327600 
04328900 
04328400 
043298600 
04328800 
04329000 


a4 


AAA A aH AA 4H 


Se ee ee | 


AAA HH 


AHAAaA- 


AAAs HAs Ht tt 


-- 04311000 
017522 


017630 
04305000 
017630 
017631 
0176383 
017782 
01772 
0177182 
017910 
0180:0 
0180;0 
018333 
04315600 
0187:0 
048710 
0187:3 
016854 
018933 
0192:2 
019331 
0194:0 
0194:2 
043144200 
019432 
019594 
019533 
019632 
O197S4 
019743 
04318000 
0197323 
019832 
019960 
019933 
0200382 
020110 
04319200 
020150 
020130 
020210 
0202:2 
020433 
020730 
0207380 
0207814 
020810 
020853 
020843 
020930 
020930 
020930 
021084 
021112 
O211%2 
021133 


$ SET OMIT = NOTCSHAREDISK) 


Dre2#lOc DAS DS3se2 OCT} 

S]TteFuUAs Sri=Sr4143 SKIP FU SB3 

D1reebOc A’ DItsDi473 SKrP 2 DBB 

TF SB THEN SKIP DB} 

SrisLOc NAS SysteS7463 

IF SC NEQ® "OO" THEN GO TO BADs SyiwSyoy3 

4cIF SB THEN DStsSET ELSE DSteRESETS SKIP SB)3 
StteLOc AS’ STteSy473 IF SC GTR "4" THEN GO BAD3 
TF SC LSS "0" THEN GO BAD3 

SrisEUAS SysaSy4+Fus SKIP SBS SKIP A SB3 

IF SB THEN GO TO OK3 

TALLY tm13 

DAte TALLY 

FNDS 


TF CMASKteP) OR E—.£4721) THEN % BAD ADDRESS OR EU NOT READY 
BEGIN 
MSGte54MASK$ & SeeU NOT READYs 62]NVALID DISK ADDRESS 
IF NOT MASK THEN MKis"#eH3 
IF ¢MIX NEQ 0) OR OLAYTO THEN 
BEGIN 
£i=@1537; GO To QUIT; 
END$ 


DISKMESSAGE3 
NETAILRECORDENTRY3S 

GO TO KILLER? &@ LeT IT HANG 
ENN 


FLSE 
BEGIN & MUST BE F,C44%1}+ MEM,PAR, 
MSG3%23 F%2@15373 Go TO QUITS 
FND} 


FNDS % IF NOT PARITY 


rOQUELSJ.624!21) THEN 3 DISK PARITY ON READ 
BEGIN 

MSGts33 % PARITY 

FIrse@203 

GO TO QUIT3 

ENDS 


MSGis7$ % WRITE LOCK 
£:5@15373 

GO TO QUIT; 

FNDS % IF NISK 


$ SET OMIT = NOTCAUXMEM) 


KILLLS 


LOCATQHECS],.£11:112=03 
KILLERS 

IF KeY¥4 NEO O THEN SPOUTERCKEYL »UNTTNOs 35) 3 

IF KpY2? NFQ O THEN FINISHDFTAIL3 

IF TeRMNATE THEN TERMINATE CMIX&20CCTF IDS 


04329200 
04329800 
04330000 
04330200 
04330400 
04330600 
04330800 
04331000 
04331200 
04331400 
04331600 
04331800 
04332000 
04332200 
04332400 


04332600 
04332800 
04333000 
04333200 
04333400 
04333600 
04333800 
04334000 


04334200 
04334400 
04334600 
04334800 


04335000 
04335200 
04335400 
04335600 


04335800 


04336000 
04336200 
04336400 
04336600 
04336800 
04337000 


04337200 
04337400 
04337600 
04337800 


04338000 
04338200 
04351600 
04351600 
04352000 
04352200 
04352400 
04352600 


AH AAS A ee 


i ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


Asst tw 


021133 
021173 
021251 
021341 
021410 
021483 
O215%1 
021633 
021831 
0219%2 
022031 


- 022133 


022252 
022283 
022310 
04326200 
022341 
022413 
022531 
022632 
022831 
022982 
0230:0 
023131 
04333600 
0231%1 
023230 
023330 
023312 
04332600 
023382 
0233%2 
0234:0 
023680 
04335200 
023610 
04325600 
023610 
0237130 
023782 
023831 
023910 
023982 
04336200 
023912 
024031 
024130 
024112 
04286800 
O241%2 
0241%2 
024182 
024182 
024410 
024430 
024623 
024930 


04256400 


SI1ZEs 0252 WORDS 


! 
NN) PROCEDURF NDYSKORAUXFRROR} 


KILL ¢IMSCWI)3 
FND 


PROCENURF ACTUALTOERROCR)3 VALUF RS REAL R3$ 


REGIN 
REAL. MSCWI = "2, 
STACK(Fe2) = MSCW 
; FE = +15 
STACK¢(F41) =< E 
T m= bee 
STACK¢F42) = T 
S = +3» 
STACK¢Fe3) = § 
F = +45 
STACKCFe4) = F 
U = 45% 
STACK¢(F45) = U 
Ti = +65 
STACK¢F46) = Tl 
Te? = +7, 
STACK(F47) = T2 
T3 = +8, 
STACK¢F410) = 13 
KEY = +9 
STACK(F seit) = KEY 
FIN = NT35 
PRT(162) = FIN 
ron zs NT6, 
PRT(165) = 10D 
MASK = 410, 
STACK(F412) = MASK 
nrs¢ = +i, 
STaCKe F413) = DISC 
TYPE az +125 
STACK¢F414) = TYPE 
MIX = +133 
STACK¢Fs15) = MIX 
NAME LOCN = 733 


STACK(F 410) 


LOCN 
$ SET OM1T = NOTCPACKETS) 
DEFINE UNTTNO = PSEUNOMYXCMIX143 
$ POP OMYT 


LABEL Lie L2»5 N17s N19» D22» START» NOTREADYMESS» 
FOF» REALFOFs TAPERETRY» StXe SEVENe FIXe 
REWINDINGs, NOCODEs CLEARe® KILLL» KILLER? 


LABE|, REANER, PRINTER» TAPFs DRUMs DISKe 
PAPERPUNCHs PAPERs DATACOM; 


SWITCH W t= READER» PRINTER,TAPE »DRUMeDI SK» SPOePUNCH,NOCONE » 


PAPFRPUNCH»sPAPFR,DATACOMS 


SUBROUTINE MAKEMFSS# 
BEGIN 


STREAMCSitsF f43%5] 0 S2ter,C3IBFS]» AbeTYNUCU]>s 


MXeoMIX»s KEY@KEY*#SPACE(10))3 
BFGIN 
SriszsLOc As Sy82S7453 


04353200 


START OF REL SEGMENTS DISK 


04353400 
04353600 


04353800 
04354000 
04354200 
04354400 
04354600 
04354800 
04355000 
04355200 
04355400 
04355600 
04355800 
04356000 
04356200 
04356400 
04356500 


04356600 
04356800 


04356899 
04356900 
04356904 
04357000 
04357200 
04357400 
04357600 
04357800 
04358000 
04358200 
04358400 
04358600 
04358800 
04359000 
04359200 
04359400 
04359600 
04359800 
04360000 


T 000030 
ADDRESS #® 
T 0000:0 
T 000030 
T 000030 
T 0000:0 
T 000010 
T 000030 
T 000010 
T 000030 
T 000030 
T 000030 
T 000030 
T 0000:0 
T 000030 
T 0000:0 
TT 0000:0 
T 0000180 
T 000030 
T 000030 
T 000030 
T 000030 
T 000010 
T 000030 
T 000030 
T 000080 
T 00000 
T 000010 
T 0000:0 
T 000030 
T 0000:0 
T 000010 
T 000010 
T 000080 
T 0000:0 
T 000,10 
T 000110 
T 000384 
T 000630 
T 000630 


00060 


Lit 
Lat 
L3% 
L4s 
L53 
6% 
LL S$ 
MXX 8 
PS8 


NR8 
LLOs 
18 
LL23 
CHKS 
MyXITs 


OStsLITtar ys 
crt=ct4+S13 
GO Lit GO L23 GO L3% GO L43 GO L53 
NSt219 LIT"BLANK TAPF ON WRITES 

oSt= 4 LIT ™RUSY"S 


NSt= 8 LIT*1/0 MEM "3 


OS%=3 CHR3 


GO TO LL 


DSt= 6 LITMPARITY"s 
DSte212 LIT™r/0 INV ADDR"™3 


NSt= 9 LIT"1/0 ERRORS 


DSt=LIT* 3 


DNS$:=10 LITPWRITE LOCKS 


GO TO PS3 


GO TO MIXyT3 
Nps=DyeS$ PSseLITraets Hptenie+g3 
CYt=C1482; 


HNSic 
NSis 


NSisz 


GO TO LLO; 
NSt= 9 LITPNOT READY" 
S LIT*PRINT"3 
4 LIT*READ"3 
NSt= 5S LIT*PUNCH™S 
5 LIT*CHECK"S 
DSt= 6 LIT, 


Nrt=Ole3s OSt=eF TLL 


FND3 


END CF MAKEMESSS 


SUBROUTINE NF TATLRECORDENTRYS 


REGIN 


GO L63 GO LL? 


GO TO 
GO TO 


MXX 3 
MXX3 


MXX3 
MXX 3 
MXX3 
MXX} 


G9 TO LLIs GO TO LL23 


GO TO MIXIT3 


GO TO 
GO TO 


KEY 8= TYPENSPACE CABSCT2) »eMAINTBUFFAREAV) 32 
t= C(ABS(T2) DIY 5 4) & ROCTABLELUI(18841:2)3 


MCKEY) 


1F MrX NEO O THEN 


RFGIN 
MrKEY] « ¢(#PCDUP)) & MIX[20243%5) & 
CIF FINALQUErFS] LSS 0 THEN O ELSE 

CMEMPLOCATQUELS) INX NOT 2) JINX 4),(013311) DIV ETRLNG) 419791393913 
CHECK JOBORFILEMESSC(MIX>» 


CrF FINALQUErS1T LSS 0 THEN O ELSE LOCATQUELS} INX NOT 2), 


U)3 


ENDS 


MIKE Y41] 


MEKEY4+3] 
MCKEY 44) 


IF TyYPes? THEN 
BFGIN 
MrKEY4+5] t= 
MrKEY+6] t= 
MrKEY4+7) te 
MrKeye8] te 
MrKEeYy39)] $= 
END) 


IF T2 


t= TRANSACTION(U)$ 
MECKFy4+2)} t= TF TYPee2 THEN RnOCTABLECU) & Ur3t43t5) ELSE O03 
t= fOQuUE(S)]3 
te R & ROCTABLESU}( 3231533 


MULTITABLELUI3 
LABELTABLELUI3 


PRNTABLELUI3 


03 


163 


GTR O THEN LINKUPCTYPE41,KEY)3 
END nETAILRECORDENTRY3 


CHK 3 
CHKS 


MrXe"3 nSts2 NECs DSi aL IT ots 


¥167« 


04360200 
04360400 
04360600 
04360800 
04361000 
04361200 
04361400 
04361600 
04361800 
04362000 
04362200 
04362400 
04362600 
04362800 
04363000 
04363200 
04363400 
04363600 
04363800 
04364000 
04364200 
04364400 


04364600 


043648600 
04365000 
04365200 
04365400 
04365600 
04365800 
04366000 
04366200 
04366400 
04366600 
04366800 
04367000 
04367200 
04367400 


04367600 
04367800 
04368000 
04368200 
04368400 
04368600 
04368800 
04369000 
04369200 
04369400 
04369600 
04369800 


04370000 
04370200 


04370400 


st st tt st st Ht Ht 


eee ee ee eee 


Ast AAA Ht 


«+ 


000612 
000713 
0008:2 
001082 
001332 
001482 
0015383 
0017390 
001910 
002033 
002212 
0022%3 
002320 
002410 
0025141 
002730 
O02@dt1 
002914 
0030%4 
003174 
003310 
0033'2 
04359800 
003333 
04359200 
0034:0 
003470 
003410 
003430 
0036!2 
004032 
OOaLit 
004133 
004410 
004634 
005140 
005233 
0056%14 
005633 
04366000 
005633 
005930 
006433 
006632 
006933 
007032 
007110 
007311 
00752 
007783 
007913 
0081483 
04368600 
008143 
008432 
04365200 
0086433 


% THIS CONF WAS PLACED HERE FROM OUTER BLOCK TO AVOID CAUSING 
IF R=O % OVERFLOW OF FNTERRUPT STACK 
THEN BEGIN STREAMCBEsTizSPAce¢410))3 
DSteA2LIT@#DATACOM/TNQUIRY INTERRUPT IGNORED BY MCPe"s 
SPOUTC(T)3 ; 
GO KILLERS 
FNDS 
$ POP oMyT 
USsLOCATQUETSt#=sR,(385]).6129%6)3 
MIXe#_LOCATQUECS),£335)3 
RteReTOQUELS3I£324325)33 % RESTORE UNIT DESIGNATE 
START? 
THsUNTT(U1800138132273 
TRANSACTIONCU) te TRANSACTION(CUIJ #13 
TYPE t= T,f134)3 
MASKes{F (T2%sFINALQUECS)) LSS O THEN T2,02538) ELSE @3773 
IF Crs=T,€5%8) AND MASK) = O THEN ® ACCEPTBLE 
BFGIN 
Fr=i3 % RETAIN ERROR FIeLp 
GO TO FIX3 
FND} 
IF € THEN % BUSY 
BrGIN 
T3te1 & CUS30IC433473193 % BUSY/INCOMPLETE MASK 
If U LSS 16 AND TRANSACTIONLU] LE@ O THEN 
BEGIN 
PcO)$ % DONT SPOUT MFSSAGF 
GO TO REWINDING? 
ENDS 
tp U NE@ 25 THEN & NOT SPO 
BEGIN 
Ftsi? 2% BUSY 
MAKEMESS3 
SPOUTERCKEY» UNI TNOs35)3 
END3 
MaAKEMLOGCIF TYPE=2 THEN 10 ELSE 5)38 
Lit DO BEGIN 


DEFINE MAKEMLOG(MAKEMLOG1) = 
RFGIN 
TOS=MAKEMLOGIS DETAILRECORDENTRYS 
ENDS! 


P(O» O OF Op Or, On Ov Ov Ov Oo Oo Ov 073 


SET OMIT = DATACOM 


SLEEPCECLOCK]»NOT CLOCK)3 
UNITCUJS=c¥P (DUP) APET,XCH)ICTCI]3) 
STARTIOCU)3 
SLEEPCFUNTT£LU]]2&100000000000); 
TRANSACTYONFU) t# TRANSACTYONCU) #43 
END UNTIL CUNTT£CU),€C598) AND T3) «& O3 


04370600 
04370800 
04371000 
04371200 
04371400 
04371600 
04371800 
04371900 
04371910 
04371920 
04371930 
04371940 
04371950 
04371955 
04371960 


04371970 
04372000 
04372050 
04372100 
04372200 
04372400 
04372600 
04372800 
04373000 
04373200 
04373400 
04373600 
04373800 
04374000 


04374200 
04374400 
04374600 
04374800 
04375000 
04375200 
04375400 
04375600 


04375800 
04376000 
04376200 
04376400 
04376600 
04376800 


04377000 


04377200 
04377400 
04377600 
04377800 
04378000 
04378200 
04378400 


st a st st Ht 


AHA HHH AH HHS 


ttm we 


er 


008433 
008413 
0084%3 
008433 
008483 
008483 
0088t4 
008631 
008881 
00863 4 
008833 
009231 
0098180 
009914 
009913 
04371930 
0099143 
009933 
010204 
040333 
010583 
040583 
010783 
040983 
011490 
011580 
O11781 
041783 
011842 
011980 
04373400 
011910 
011994 
011983 
012210 
0124380 
012482 
012433 
012584 
04375000 
0412594 
012680 
0126%2 
012794 
042830 
0129!2 
04376000 
0129%2 
04377000 
013380 
013330 
0143493 
013730 
043783 
043982 
014112 
04377200 


1F 


TRANSACTIONCU 
tr CUNTTCUJer 
GO TO STARTS 
ENDS 


] ts C 
518] AND MAS 


€°r4581] THEN 

BFGIN 

IF F.043!1) THEN 
REGIN 


+13 
THEN GO TO CLEARS 


% NOT REANY 


tF TYPE=O THEN GO TO READERS &% READ CHECK 
IF TYPes1 THEN GO TO PRINTER & PRINT CHECK 
IF TYPE#26 THEN GO TO PUNCH3 % PUNCH CHECK 


END? 


IF U NEQ@ 25 THEN & NOT SPO, 
RBFGIN 


NOTREANYMESS? 


FIa96% ¥ NOT READY 
MAKEMLOGCYF TYPE®? THEN 10 ELSE 5)3 


MAKE MESS3$ 
Pei)’ & SPOUT MESSAGE 


REWINDING? 


NTRDY! 


RFADY t& NOT TWOCU) AND READY 
RRRMECHESNOT TWOCU) AND RRRMFCHI 
tr P THEN SPOUTERCKFYsUNITNO,35)3 
FND3 


UNITFUI, £5910) t= 23 


RRRMECH « NOT TWOCU) AND RRRMECHS % LET STATUS FIND IT 


Di73 
IF 


L2: 


IF 


Nn22s 


GO 


pigs 


GO TO KILLL3 
ENDS 


F.(4621) THEN 

RFEGIN 

Fre23 © 1/0 MEM PARITY 

MAKEMESS; 

SPOUTERCKEYsUNTTNO235)3 

MaKEMLOGCIF TYPEe2 THEN 10 ELSE 5)3 


Pe@1537)3 & ACCEPT EOF /FOT/EOP 
GO TO SIX3 
END? 


F241:1] AND TYPE NEQ 2 THEN 

BEGIN & £4189) FOR TAPE = BACKWORD DRIVE 
Fr=4$ &% 1/0 YNVALTD ANDRESS 

GO TO L2} 

ENDS 


To WrTlYPEy3 


£ t= 10233 Go TO D173 


Kij5e 


% 1/0 MEMORY PARITY 


% 170 INVALID ADDRESS 


04378600 
04378800 


04379000 
04379200 


04379400 
04379600 
04379800 
04380000 
04380200 
04380400 
04380600 
04380600 
04381000 


04381200 
04381400 
04381600 
04381800 
04382000 


04382200 
04382400 
04382600 
04382800 
04383000 
04383200 
04383400 
04383600 


04363800 
04383900 
04385400 
04385600 


04365800 
04386000 
04386200 
04386400 
04386600 
04386800 
04387000 


04387200 
04387400 
04387600 


043878600 
04386000 
04388200 
04388400 
04388600 


04386600 
04389000 
04389200 
04389400 


Ett a a 


44s HAHA HOM NAH HS 


AaAwaaaws 


4a 


044410 
014610 
0148182 
015030 
04374400 
045030 
0150180 
015033 
015191 
015230 
015232 
015343 
0155#0 
0156414 
04380200 
015684 
015780 © 
0157382 
0157382 
015641 
04382000 
016280 
016300 
016391 
0163191. 
016541 
016541 
0167314 
01469%4 
04381400 
0169%4 
0171383 
0173383 
0174914 
04379800 
O17404 
017411 
017530 
0175t2 
0176914 
0477340 
01782 
04387000 
018230 
0182t4 
018233 
04386200 
0162%3 
018482 


- 018510 


018523 
01486! 
04388000 
016634 
018631 
019233 
049233 


SPO: 
IF €3143%1) THEN GO TO L13 % ERROR BUTTON 
GO To pi93 


PRINTER: 
IF F,£42t1)] THEN % END OF PAGE 
BEGIN 
If (OQUELS).F2736)20 THEN GO FIX} % NOT SPACING 
COMMFNT IGNORE EOP IF NO SPACF OR SKIP} 
IF ROCTABLECU] OR MULTITABLELUJ]="FULLPGE” 


THEN IF TOQUELS), (2831) THEN 1OQUECSI.CFFJ+@40013 XoRLecH 11 
ELSE TOQUECSI,CFF]+@40012 & DBL SINGLE = SKIP To CH 10 


FLSE & SKIP TO CHAN 1 ON EOP IF NOT 66 LINES 


1OQUFES),£18815] $= @400043 & INHIBIT DATA XFER» SKIP TO CHANNEL 


GO TO CLEAR; 
END) 


rFo€lf43%1) THEN 
BEGIN 
F200} % PRINT CHECK 
MAKFMESS} 
SPOUTERCKEYsUNITNO®35)3 . 


IF £.£45:1) THEN GO TO NOTREANYMESS$S & PRINTER NOT READY 


MAKEMLOGCIF TYPE=2 THEN 10 ELSE 5)3 


PcO)3 ® CLEAR FRROR FIELD 
TrNUCUT,£6188921 t= Pepnup),c181812I)413 
GO TQ SyX3 

END3 


GO To 0193 & PARYTY 


READER? | 
IF £€,043%1] THEN % READ CHECK 
BEG {N 
TYNUTU),£18912) t= P(pUP) Ci6si2)et3 | 
F:e323 ® READ CHECK 
MaKEMLOG(5)3 


MaKEMESS) 
Pe19s ® SPOUT MESSAGE 
GO TO NTRDY3 


END! 
1F £.042%1] THEN & EOF CARD READFR*TREAT AS NOT READY 

BFGIN 

UNTTCUI,£5%8) t= 43 ¥ ERROR FIELD=NOT READY 

R'c25:8) t= 43 % RESLT,DFSC,*NOT READY 


TRANSACTION[U) t= TRANSACTION(CUJ 413 
GO TO START: 
ENDS 


COMMFNT MUST BE D019 = USUALLY INVALID CHARACTOR? 
STREAMCAt#0 ! BtxPOQUELS))3 

BEGIN 

Dr t= AS SY] &= BF DY se Dy +83 


04389600 
04389800 
04390000 
04390200 
04390400 
04390600 
04390600 
04391000 
04391200 
04391400 
04391550 
04391560 
04391570 
04391580 
04391600 
04391800 
04392000 


04392200 
04392400 
04392600 
04392800 
04393000 
04393200 
04393400 


04393600 
04393800 
04394000 
04394200 


04394400 
04394600 
04394800 
04395000 
04395200 
04395400 
04395600 
04395800 


04396000 
04396200 
04396400 
04396600 


04396800 
04397000 
04397200 
04397400 
04397600 
04397800 
04398000 


04398200 


04398400 
04398600 


04398800 


AHAN OO OA HAHA 4 4H 


ASA OHHH OH oa A Ct Ht 


444-4 


019430 
019410 
019430 
019532 
019610 
019630 
019610 
019683 
019731 
019981 
019984 
020082 
020431 
020984 
021010 
021440 
021630 
04391000 
021620 
021683 
021731 
021840 
021930 
022082 
022240 
04393400 
022610 
022611 
022913 
023014 
04392400 
0230%1 
023033 
023083 


023083 


0231%2 
0232t0 
0235:2 
023631 
04395800 
023830 
023930 
O239%4 
023933 
04395200 
023933 
024082 
0241140 
024312 
0245%4 
024711 
024783 
04397000 
024783 
024713 
0249%1 
0240984 


Ip SC = @44 THEN A te Dy3 
2c40cDytent+8s Syt# Syoy3 
Ip St = @44 THEN JUMP OUT 2 To L)3 
Dr te Dywh? Sy te Sypuqsy3 


Dr ts Af 
L& A t= OT 
END3 


—e 
iptees | 


Ty NEQ 4 THEN 
BrGIN ; 
STREAMCASSTINUCUI] >TI,KEYtekKE Yt 2SPACE(10))3 

RFGIN 

NS te LIT "#hs Sy sz LOC As SI tz S7453 

NS t= 3 CHR? 

pS t= 16 LIT * INV CHR IN COL "3 

NS ts 2 DFC? OS ta LIT Nets 

ENDS 


% NOT IN COLUMN 4 


Peis & SPOUT MESSAGE 
GO TO NTRNDYS3 
ENDS 


EF t= @403 
F t= ©31000013 
GO TO LEAVE? 


PUNCH? — 
IF €,£43%1] THEN 
BrGIh 
Frs64s % PUNCH CHECK 
MAKEMESS; 
SPOUTERCKEYeUNTTNO*35)3 


% NEW PUNCH NOES NOT GO NOT*RFADY ON PUNCH CHECK 
If €,045%1]7 THEN GO TO NOTREANYMESS3 &% NOT READY 


MaKFMLOGCO5)3 


TINUCU] CIBt1AaI8ePCpuP) ,£18919)613 
Fe=03 % 7ERO FRROR FIELD 

GO TO CLEARS 

FNDS 


GO TO 198 & PARYTY 


PAPERPUNCH? 
IF R,€27%1) THEN & FOR 
BEGIN 
P¢@&0);3 
GO TO SIX}3 
ENNS 


GO To 019% % PARITY 


PAPER? | 
IF R,f27:2) NEQ O THEN GO TO EOFS & BOT/FOT 
IF F,£44:1) THEN & PARITY 
"BEGIN 


(T1 %= P) = 0 THEN GO TO 019% Z NOT INVALID CHARACTER 


04399000 
04399200 
04399400 
04399600 
04399800 
04400000 
04400200 


04400400 
04400600 
04400800 
04401000 
04401200 
04401400 
04401600 
04401800 
04402000 
04402200 


04402400 
04402600 
04402800 


04403000 
04403200 
04403400 
04403600 
04403800 
04404000 
04404200 
04404400 
04404600 
04404800 
04405000 
04405200 
04405400 


04405600 
04405800 
04406000 
04406200 


04406400 
04406600 
04406800 
04407000 
04407200 
04407400 
04407600 
04407800 


04408000 
04408200 
04406400 
04408600 
04408800 
04409000 


AAA AAHS 


+4 att se 


a4 


AHA AHA WHA 


i 


ttt ot 


025030 
025013 
0251433 
025384 
025410 
02541 
025482 
04396600 
025433 
025631 
025710 
025782 
026130 
026130 
026280 
0262h1 
026432 
026581 
04401200 
0265t2 
026583 
026641 
04400800 
026634 
026720. 
026783 
027020 
0270:0 
027080 
027083 
027131 
027220 
027320 
0274382 
027482 
027610 
04405400 
027830 
028112 
026234 
028233 
04404200 
028213 
028331 
0286331 
028331 
028430 
02864:%2 
026413 
0285314 
04407200 
0286531 
0285t3 
0285383 
02653 
028732 
028831 


Pc@20)3 
GO TO SIX3 
ENDS 


GO To NOCODE: 


NATACOM? 

TFCT33 89 2F(4324384))5024 THEN GO TO Li3 
NOCODES 

F t= 53; ® 1/0 ERROR 

GO To L?3 


DRUMt % MRUM NOW HANDLED IN DtSKORAUXERROR 
NISK! *¥ DISK NOW HANDLED IN DtSKORAUXERROR 
nO UNTYL. FALSE? 


TAPE 3 
TRANSACTIONCU) t= TRANSACTyVON(UI413 
TF £,£4489] THEN 
If R,f 281) THEN % MOD Itl DESCRIPTOR 
REGIN % COULD BE MEM,PAR,»e BLANK TAPEsROTsF0T 
IF Ref11%#4] THEN GO TO D193 &X MEMORY PARITY 
OPTION:SOPTION OR M3 & MEANS MOD310SI#TRUE 
IF Ref£24t4) THEN & READING 
BEGIN 
TF ReC13!4] THEN R,Ce7sy)se1s & BOTs SET EOF 
TF R,C1481) THEN & FOT 
TF CE AND @3675)20 THEN & PARITY 
1F R,f27:4)s0 THEN & NOT F0F 
GO TO FIXS % FINISH 1/0 
FN 


ELSE 

BEGIN &% WRITING 

IF Ref€ietil] THEN & BLANK TAPE ON WRITE 
REGYN 
Fi2z93 % BLANK TAPE ON WRITE 
MAKeMESS; 
SPOUTERCKEY,UNTTNO*35)3 
MAKFMLOG(10)3 


P(16)3 
GO TO SIX 
ENDS 


IF RoC14t1) THEN Ref27ty)iet ELSE GO FIX$ &% EOT+SET FOF BIT 
END3 


FND ® MOD IIT DESCRIPTOR 


ELSF GO TO D193 % PARITY 
IF R’(2481) THEN 
BEGIN 


Tr E.C41817 THEN GO TO p22 % INVALID ADDRESS 
Ie R.C2781)] THEN & EOT 
FOF IF MASK,£4211) THEN & FOF OK 
BEGIN 


04409200 
04409400 
04409600 


04409800 
04410000 
04410200 
04410400 
04410600 
04410800 
04411000 
04411200 
04411400 
04411600 
04411800 
04412000 
04412200 
04412400 
04412600 
04412800 
04413000 
04413200 
04413400 
04413600 
04413800 
04414000 
04414200 
04414400 
04444600 
04414800 
04415000 


04415200 
04415400 
04415600 
04415800 
04416000 
04416200 
04416400 
04416600 


04416800 
044417000 
04417200 


04417400 
04417600 


04417800 


04418000 
04418200 
04418400 
04418600 
04448800 
04419000 
04419200 


4-444 


Att Hott Ht a Ht 


AAA HS 


+44 


Aaa aa 


0268883 
028910 
028982 
04409000 
028982 
0290t0 
029010 
029010 
029283 
029283 
029382 
0294380 
029410 
029430 
029410 
029413 
029483 
029483 
029633 
029782 
029813 
029981 
030083 
030230 
030213 
030331 
030684 
0307380 
030833 
031082 
031130 
04443800 
031140 
031110 
031142 
031241 
031233 
031382 
031530 
031682 
04416600 
031810 
031811 
031613 
04415800 
031833 
032113 
04415400 
032113 
04443000 
032133 
032113 
032202 
032330 
032432 
032531 
032632 


REALEOF’s 


TAPERETRY 
Mak 


IF 
LOC 
Uel 
P¢eT 
G0 
END 


IF ELL 
IF 


FLS 
1F ett 
P¢(@40) 

SIX% 
T t= 
F t= 
FIX! 
E te 
FIN os 
10D 1s 
SEVEN? 
RETURN 


T.CFe) 
IF Fs 
IF 
S'tspqN 
IF Fal 
LEAVES 
10n a8 
FIN 4s 
IF On 
BFG 
NT4 
FN 
END 


IF ¢ T 


FisieCryr R.C2481) THEN @31 ELSE O)CCTFI} 
T,£€528}] te @403 

GO TO FYX3 

FND 


FLSE 
BEGIN & FOF NOT ACCEPTABLE 
P(@40)3 
G0 TO S]X3 
FND$ 


$ 
FMLOGC*TAPEBUFFERSIZF)3 


CTIZTAPFPARITYRETRYCReOUSKEY))—1588)232 AND 


ATQUEES).£63:5] NEQ O THEN GO TO REALFOF? 
OQUELT,£FFIJ.C3%4)3 

.£5'8))3 

TO SIX3 

Hy 

4131) THEN % WRITE RING 

F.04391] THEN 2 PARITY »WRITE RING 
RFGIN 

Fim63 & WRITE LOCK 

49 TO L2s 

FND 


fF GO TO 022: % INVALID ADDRESS 
4331) THEN GO TO TAPERETRY$ & PARI TY»WRITE RING ONLY 
} 


TEPCXCHIP 524088); 
13 


T P5tBIxer3 
$3 
1OQUECSI3 


TOSPACECS)3 


taSisLOCATQUFLISI]. Frey) 
#3100001. THEN 

S NFQ ®77777 THEN GO TO SEVENS 
} 

SE THEN 


JOQUECSI3 

FINALQUEFS1 AND NOT MeMORy} 

.f2484) THEN 

IN 

ts MCTOD INX C JF 100,(02211] THEN 1 ELSE NOT 0293 
ISHOFFTOCUDS 

' 


1:™ FIN) LSS O THEN 


04419400 
04419600 
04419800 
04490000 


04420200 
04420400 
04420600 
04420800 
04421000 


04421200 
04421400 


04421600 
04421800 
04421900 
04422000 
04422200 
04422400 


04422600 
04422800 
04423000 
04423200 
04493400 
04423600 


044293800 
04424000 
04424200 
04424400 
04424600 
04424800 
04425000 
04425200 
04425400 
04425600 
04425800 
04426000 


04426200 
04426600 
04496800 
04427000 
04497200 
04427400 
04427600 
04427800 
04428000 
04428200 
04428400 
04428600 
04428800 
04429000 


04429200 


Asst HS 


44 


ee ee 


St i tt 


at st oe 


032710 
033031 
033230 
033282 
04419200 
0332!2 
033212 
033330 
033331 
033313 
04420400 
0333:3 
033333 
04421400 
033610 
0338:3 
0341114 
034334 
034410 
034412 
04448400 
034482 
0345114 
034612 
034730 
034713 
034831 
04493000 
034884 
034811 
034913 
035010 
035030 
035183 
0352%2 
035282 
035494 
035530 
035610 
035630 
04426000 
0359%1 
035931 
036133 
036282 
036434 
036510 
036581 
036533 
036683 
036882 
036934 
036933 
0374%0 
037483 
04428400 
037433 


PCRRECA58402B IR TONL32325) OR TOMASKeLOCATQUE(S]e©) 
ELSE 
BFGIN 
Ip — NFQ@ O THEN 
RFEGIN 
Pe,TirePRLI3 
T1 ts T1&F 258403 8)3 
FND 


ELSE PC.TLi» TOR) 

LOCN t= (MEFLOCATQUELSII73 

10M t#® [09,6332151]3 

WHILE LOCNEO),£ 33815} NrQ [0p DO LOCN tx 14 INX LOCN?3 
LOCNLO] ts Pe,T1sLOp)3 

END? 


UNTTrpU) te T3 
CLEAR? | 
UNITPUT t= CePCOUP) IRF C5820843)3 
STARTIOCU)3 
KILL: 
LOCATQUFES] .Cii12212203 
KILLER? 
KILLCEMSCWI))3 
END3 


04429400 
04429600 
04429800 
04430000 
04430200 
04430400 
04430600 
04430800 


04431000 
04431200 
04431400 
04431600 
04431800 
04432000 


04432200 
04432400 
04432600 
04432800 
04433000 
04433200 
04433400 
04433600 
04433800 


0376380 
038080 
038030 
0383:0 
0383383 
0386414 
03865;0 
038633 
04430200 
038633 
038733 
038934 
039032 
039430 
039580 
04429800 
039530 
039621 
0396314 
039813 
0399:2 
039932 
040230 
0402:0 
0402:3 
04353400 
SITZE= 0403 WORDS 


AHA A Se 4H tS 


See | 


STACK¢F 42) 
STACK ¢F& 43) 
STACK ¢F44) 
STACK ¢Fe2) 


STACK ¢(F 45) 
STACK(F 46) 
STACK ¢F47) 
STACK (F410) 
STACK¢F 411) 
STACK¢(F412) 
STACK (F413) 
STACK¢F 414) 
STACK¢F415) 


STACK(F 416) 
STACK (F417) 


STACK¢F 410) 


STACK ¢F 420) 
STACK¢F 421) 
STACK ¢Fe22) 
STACK (F423) 


STACK ¢F 424) 
STACK (F425) 
STACK(F +26) 


STACK¢F 427) 
STACK ¢F 430) 
STACK(F 431) 


STACK (F432) 
STACKeF 433) 
STACK ¢F 434) 
STACK ¢F 435) 


STACK (F436) 
STACK¢F 437) 
STACK¢F 440) 


“Renn 


aaauer,. a 


VALUF 
REAL R 


ReUsKEY32 
eUeKEY 3% 


BEGIN REAL TieT2>T33 


RESULT 

10D 

O10D 
SPACEMASK 
SPACEI0D 
M 


ERASE JOD 
REAL, 

Z 

Y 

MYX 

BS1Ze 


SIZE 
T4 
LIMIT 


PTR 
BUFFER 
BUFFERSIZF 


PATTERN 
PATTERN 
PATTERN? 
PATTERNWORD 


TESTING 
SPACING 
FLAGGER 


REAL RESULT>10D+0100,S5PACEMASK sSPACE OD eMsNoWeMODESS 


REAL JeKs¢ 


TRYCReUSKEY) 3% 


INTEGER 1 113% 


REAL ERASFIOD=SPACEMASK3% 


ZeVYoMIXeBSIZE3 


LABEL XI1OsGIVEUP3 


LABEL RPoLXxs 


REAL S{ZEsTAelLIMITs 


REAL PTR»sBUFFER*BUFFERSIZEs% 


PATTERN»PATTERNY sPATTERN2»PATTERNWORDS% DON"T CHANGE ORDER 


BOOLEAN TESTING* SPACING» FLAGGERS 


$ SET OMYT = NOTCPACKETS) 
DEFINE UNITNO = PSEUDOMIXEMIX]#3 


$ POP OM 


BEGIN 


tT 


LABEL XXITeEXIT#ENDIT®XEXIT3 
SUBROUTINE RECORDRETRY3% 


x 


IF PTR@KEY = TAPEBUFFERSIZE*1 THENS 


BEG 


INS 


04544999 
04548000 


START OF REL SEGMENTS DISK 


04549000 
04550000 
04551000 


04552000 


04553000 


04554000 
04554100 


04554200 
04554300 
04554500 


04554600 


04554700 


04554800 


04554899 
04554900 
04554901 
04555000 
04555050 
04555100 
04555150 
04555200 


T 000030 
T 000030 
ADDRESS # 
T 000080 
T 000030 
T 0000:0 
T 000030 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 000010 
T 000030 
T 0000:0 
T 000030 
T 0000:0 
T 000010 
T 0000:0 
T 000030 
T 000030 
T 0000130 
T 000130 
T 000340 
T 000233 


00074 


Ta t= TYPEDSPACECTAPEBUFFERSIZE *MAINTBUFFAREAV) 32 Z167= 
MOVECLOOKEY,T4) 3% 
MEMORY KEYs8182 TAPEBUFFERS] ZF 103% 
MEMORYEKEY4973= 102933% 
LINKUPC3eKEY) 3% 
Kryt= Tas PTRis KEyY493% 
ENDS? 


MeMORYCPTRtePTReijtz [Ons2 
MEMORY(PTR&ePTReijJiz RESULT & RDCTABLECUILI9S12213% 
FND RECORDRETRY3&% 


SUBROUTINE DOTONOWs3 
BEGIN FOR Yel STFP 1 UNTIL 18 DO 
RBFGIN TF R.C2431] THEN 
REGIN 8 WAIT 1415 SEC BETWEEN READ RETRIES 
WHILE T4>CLOCK+P¢RTR) DO SLEEP C1 e1)3 
T4eCLOCK4PeRTRI 443 
FND3 


TF IQOQUESLOTSs0 THEN SLEEPCLCIOQUFSLOTS],63)3 

LOQUESLOTS2=;OQUESLOTS=43 

TOQUEAVAILM=1OQUETTI te OQUEAVAIL]3 

TOQUECTIJ«© 1OD3¢% 

LOCATQUELTIJ¢LOCATQUErFT2 *CT3¢UNIT(U)) CIStiSII&CRESULTIZ 
C338338157RT2C18s:3321593% 

UNTTFUT © T38T1p 1823321518645 83581 313% 

STARTIOCU)3% 

FINALQUELT1] «© NABSCIOD)& O (25240188) OR IOMASK3S 

RESULT « 033% 

SLFEPCTUNITCUJ),@100000000000)3¢ 

IF RESULT,£3081)] THEN & NOT Reapy 


BFGIN 
MODF t= (#1693 
GO TO EXIT 
ENDS 
IF ReSULT,C29213 AND RESULT,(©2!1) THEN 
BEGIN 
IF ReSuut.¢1231) THEN % BLANK TAPE 
IF 10D,f2481] THEN % READ 


TRANSACTION(U)*+TRANSACTIONCUJ*1&1006112281) ELSE 
BEGINS % WRITE 
STREAMCAeTINU(U] + TeT2¢SPACE(3))3 
BEGIN Sy+LOc A’ SleS1453 DS«3 CHR 
DSe21 LIT" BLANK TAPE ON WRITEo™3 
END; 


SPOUTFEFR(T2sUNTTNOs35)3 
GO TO XXITS 
END} 


IF RESULT.61t%1) THEN % MEM PARITY 
BEGIN: 
STREAMCASTINUC UJ eTeT2eSPACE(3))3 
BEGIN SyeLOc As SteS1453 DS#3 CHR} 
NSe13 LIT" [70 MEM PARe*s 


04555250 
04555300 
04555350 
04555400 
04555450 
04555500 
04555550 


04555600 


04555650 
04555700 


04556000 
04556100 
04557000 
04557100 
04557200 
04557300 
04557400 


04558000 
04558500 
04559000 
04560000 
04561000 
04562000 
04563000 
04564000 
04565000 
04566000 
04567000 
04567010 
04567020 
04567030 
04567040 
04567050 


04567100 
04567150 
04567200 
04567250 
04567300 
04567310 
04567320 
04567400 
04567500 
04567550 


04567600 
04567700 
04567750 


04567770 
04567780 
04567790 
04567800 
04567810 


4HA ANH aA 


AHA aAH a4 


AAH HM HHH HA 


HAA Aaa 


a--4 


a 


000331 
0005:2 
0007:0 
00092 
00117%2 
001212 
001432 
04555200 
0014:2 
001710 
002033 
04555100 
0021380 
0021:0 
0022:0 
002233 
0023314 
002730 
002833 
04557100 
00283 
003182 
003233 
0034%1 
0035!2 
003833 
004080 
004283 
00433!2 
004632 
004734 
004910 
004933 
005084 
005131 
005330 
04567020 
0053320 
005433 
005581 
0056:0 
005731 
O0S9tt 
00614%1 
006432 
0065%4 
0068t1 
04567400 
006832 
007030 
007012 
04567310 
007012 
OO7TUN 
007133 
007530 
007533 


ENN? 


SPOUTFROT2sUNTTNOs 35) 3 
XX1T! MODE t= 163 
IF TESTING THEN GO x1yO3 
RECORDRETRYS 
GO TO FXxrT3 
END: 


IF RESULT,£1322]#0 THEN Yo483 
FND FLSE GO TO xI03 


ENDS 


RESULT, C2781) «13 MODE e323 
X10% ITF NOT SPACING THEN RECORDRETRYS 
ENn poOTroNnOws?% 


SUBROUTINE SPACERACKS 
BEGIN 
IF TRANSACTION(CUJ#1 THEN 
BEGIN 
10D %$m@4 20000000080 10D 3838573 
DOTONOW? 
TesTwocu)s 
T2tecLOCK+PCRTR) 46003 
COMPLEYSLEEPCCPCRRR) AND 1240 OR T2<CLOCK4ePCRTR))}3 
ACCINENTAL FNTRY AT RTR 
IF CPCRRR) AND 7)s0 THEN 
REGIN MODEteo163 
GO TO EXjT3 
ENDS , 


02258000 
% TIME OUT => NOT READY 


END ELSE 


BEGIN 
Me=W} 
LONseSPACEIOD3 
JtrO$3 
SPACTING#= TRUE? 
NO BEGIN 
DOTONOWs 
TRANSACTYFONGUJPecePCDUP) 413 
JiaJdet3 
END UNTIL CCMSsRESULT, CCF I"SPACEIOD.FCFJ+M) LSS 0 


OR RESULT,£27%1}]) AND ¥Y GTR 33 
IF NOT TESTING THEN SPACING?© FALSE 
TRANSACTION(UI 8maC#P (DUP) 923 
1LONtHSPACELODRUP 221472193 
DOTONOW3 
If NzO THEN BSI7ESSRESULT.CCFI*LO0.CCE] FLSE 
IF BSIZE#RESULTI ECF I*1OD,ECF] THEN 
BEGIN 
STREAMCAtSTINU(U}+ D8 mTotaSPACE(10))3 
BEGIN SIts_Oc AsS¥eeS1 45308823 CHR 
DS:=13 LIT" ERASE ERROR]™}3 


04567820 


04567830 
04567840 
04567845 
04567850 
04567855 
04567860 


04567870 
04567900 


04568000 


04568100 
04568200 
04568250 


04568300 
04568310 
04568320 
04568330 
04568340 
04568350 
04568360 
04568364 
04568366 


04568370 
04568372 
04568374 
04568376 


04568380 


04568390 
04568400 
04568410 
04568420 
04568495 
04568430 
04568440 
04568450 


— 04568460 


04568470 


04568480 
04568485 
04568490 
04568500 
04568510 
04568520 
04568530 
04568540 
045686550 
04568560 
04568570 


ee 


+A HAAN HANH 


in i ee 


ttt at ot 


007733 
04567800 
007830 
0079!2 
008034 
Q008111 
008230 
0082%2 
04567780 
008232 
008530 
04567150 
008530 
04557000 
008784 
0089:3 
0092380 
04556100 
00924 
009310 
009340 
0094180 
0094i2 
OO96T4 
009730 
009834 
0100180 


0140733 
010980 
011082 
011210 
04568372 
011280 
04568330 
011220 
0112%2 
011334 
0114170 
014483 
041582 
011582 
0114730 
0419180 
012081 
04568430 
012330 
012630 
012713 
0429183 
0131:%2 
0143310 
013682 
013984 
013983 
01443140 
044343 


ENDS 


SPOUTER(T2sUNTTNOs 35)3 
FLAGGER ¢« 43 
GO GIVEUP3 

ENDS 


END} 
ENDs; ® OF SPACERACK 


TINUCU].018812) + PCDUP),f18212]413% 
MYX «© LOCATQUECUNITOUJ,CFFI),03:5)3 
FLAGGER « FINALQUECUNITCUJ,CFF]) «< 0% & NOT OBJECT J0B 
O1O0n « NFLAGCIOQUECUNITCUJ.£18245)) 932% 
PTR:= KEY+93 
IF Ref248t] THENS 
BEGIN COMMENT READ RETRY3S 
SPACEMASK « 0100,.62112)*@1411 EQV NOT 0012332 
SPACETON « 070081788 36:10)21(72384731)3% 
FOR M « 41 STEP 1 UNTIL 3 pos 
REGIN SPACEIOD «+ SPACFIOD&SPACEMASK( 2124612)33% 
FOR N «© 1 STEP 1 UNTIL 5 DOK 
BEGIN 10D « SPACE10OD32% 
1F N#1 OR M#4 THEN DOLONOW ELSE 
IF NOTCR, £2981 J AND R,l2t1] AND Ryl128#2)) 
THEN DOIONOWS 
IF RESULT,C28t41) THENS 
BEGIN MODE « 03% 
10p + O70D3% 
ENDS 


FLSE BEGIN MODE « 88% 
10D + OFODRSPACEMASKE2184392717% 
END 32% 


nO;TONOW3% 
1F NOY RESULT,£28t1) THEN GO TO EXITS 
1F MOD310S THEN IF O100,£23!1] THEN 
BEGIN Z*10D*O010D0&SPACEMASK[ 2134032] 
RCOTOD,C3381534+COTON,f8:10)91) 
8070N01222849)9¢633833915)3 
DOTONOWS MODE +03 
IF RESULT.C28t1) THEN 
BEGIN 10p#01003 DOTONOWS 
IF NOT RESULT,(2821) THEN 
GO TO EXIT} - 
1LOpeZeSPACEMASKE21146129)3 
DOTONOWS MODE +83 
IF RESULT,£2881] THEN 
BEGIN I10D+O0T0D&SPACEMASK 
121343382]3 
RP} DOTONOWS 
IF RESULT,£2891) THEN 
GO TO UX! 
GO TO FxXIT3 
END3 


04568580 


04568590 
04568595 
04568600 
04568610 


04568620 
04568630 


04569000 
04569100 
04569200 
04570000 
04570100 
04571000 
04572000 
04573000 
04574000 
04575000 
04576000 
04577000 
04578000 
04579000 
04579100 
04579200 
04580000 
04581000 
04582000 
04583000 


04584000 
04585000 
04586000 


04587000 
04588000 
04588010 
04588020 
04588030 
04588040 
04588050 
04588060 
04588070 
045880860 
04588090 
04586100 
04586110 
04588120 
04588130 
04588140 
04588150 
04588160 
04868170 
04588180 
04588190 


Se Moe oe ee Be ee ee ee ee ee ee ee ee 


445-4 + 


4 <4 


AAA AHHH HHH 


014513 
04568560 
014630 
014712 
014834 
014833 
04568540 
014883 
04568390 
014833 
04568310 
014910 
016082 
016283 
016580 
016710 
016811 
016930 
016982 
017230 
017433 
017630 
017733 
017980 
017913 
018380 
018501 
018880 
018833 
019030 
019083 
04581000 
019083 
0192380 
019313 
04584000 
019313 
0195140 
019601 
019881 
019984 
020483 
020482 
020613 
020712 
021080 
021110 
O21nt! 
021330 
021483 
021582 
021611 
021743 
021930 
021933 
022012 
022110 


LX! FN? 
END3% 


FNDS 


Z*ABSC100.6338I5I)"RESULT.£33215))3 

IF 1OD,£2182]=£0 THEN 
ZeZ~C(RESULT,£1513]20)3 

IF 100,£6:10)<Z THEN 

BEGIN 10p*O070D% MODE*«+03 GO To RP END} 


IF 10D,£2281] THEN 
STREAM(ZeYeZ DIV 64 
SeRESULT.C33915]4+15 
SKeCRESULT.£1583]41).64583]> 
GMeCIF 100,f21%1] THEN 0 
ELSF "e"), 
D+0100.033815])3 
REGIN SleS3 Sy#SJ]4+Sk3 
Y¥€16¢DS«#32 CHR))3 
Z(DS¢8 CHRI}3 
SKCDSeLIT "O")3 
DI+DI"SKs3 ST*LOC GM3 
Sl«S[473 DSeCHR3 
END ELSE 


STREAMC(Z»YeZ DIV 64> 
S¢RESULT, C33215 3715 
SK*CRESULT,£15231]+7),74583)> 
FLecIF 100,£21!1] THEN O 
ELSE @14)» 
FKeCB"RESULT,£1593)),7458315 
DeO10N,(33%15))3 
BEGIN SIleS3 SIe#S14SK3 DIleD]+473 
YC16C32CDSeCHRS SI+S]93 
DIeDl"2)))3 
ZCB8CDS*CHRE SIeSI"23 D1*D1=2))3 
Sl+LOC FLY SleSl473 
FKCDOS*CHRS STeSI"i3 Dlepl=2)3 
ENDS 


10D«®14000000S5S20100f22822!1) 
80100£31385)]3 
NOTONOWS GO TO EXITs 


N « ITF TRANSACTIONCU] «< 15 THENS 
TRANSACTIONCU) FLSE 153% 
10D + SPACFIOD&SPACEMASK( 21424012133 


SPACING:= TRUES 


FOR W © 1 STeFP 1 UNTIL N 00% 
BEGIN DOLTONOWS2 
TF RESULT, £2731] THEN NoO3% 


END; 


10D © SPACEIOD&SPACEMASK( 21237823 3% 
FOR N «© 3 STEP 1 UNTIL W DO DOTONOWSS 


04588200 


04588210 
04588220 
04588230 
04588240 
04588250 


04588260 
04588270 
04588280 
04588290 
04588300 
04588310 
04588320 
04588330 
04588340 
04588350 
04588360 
04588370 
04588380 
04588390 


04588400 
04588410 
04588420 
04588430 
04588440 
04588450 
04588460 
04588470 
04588480 
04588490 
04588500 
04586510 
04588520 
04588530 


04588540 
04588550 
04588560 
04588570 


04589000 


04590000 
04591000 
04592000 
04592100 
04593000 
04594000 
04595000 
04596000 


04597000 
04598000 


4 


Se 


AAMAS HHH 


4H AAA HAHAH 


An AHH 


04588130 
022180 
04588070 
022180 
022382 
022413 
022712 
022813 
04588250 
0231441 
023240 
023383 
023540 
023633 
023782 
023910 
024030 
024013 
O2s2tt 
O23t1 
024482 
024594 
024533 
04588330 
024610 
024783 
024910 
025083 
025142 
025310 
025433 
025543 
025613 
025811 
025941 
026191 
026183 
02631 
04588470 
026312 
026440 
026611 
0269130 
04588020 
026910 
04578000 
o27141 
o272t1 
027412 
027611 
0277380 
027810 
027910 
026110 
04594000 
02838 
028510 


JOD «+ OFOD3% 


MODE * 03% 
SPACINGS® FALSE3 
DO;TONOW;% 
IF NOT RESULT,C2881) THEN GO TO EXIT3% 
FNDS% 
MODE © 163% 
FN ELSE BEGIN COMMENT WRITE RETRY3% 
LIM]T « @75000; 
ERASETOD « CSPACEIOD «+ O10n8008838:101876 22845: 3)8LT2I% 


GIVEUP?: 


W R333 
WHILE TRUE 
REGIN 


ENDIZ 


(33833895) )RO@112(18241275)3% 
15)"010n,033:151423% 
00 


SPACEBACK3 
IF MIX#0 THEN IF TERMSETOCMIX) THEN GO XEXIT? 
IF (CN#N+W4+128) GTR LIMIT THEN GO GIVEUP3 
TOD + ERASFIOD&NE 943989)3% 
SPACING:=® TRUESS 
FOR J «© 0 STEP 542 UNTIL N DOR 
BEGIN TRANSACTIONEU) « TRANSACTIONCUI@13% 
nO;ONOwss% 
19D * FRASETODRIC 83 47:51I35% 
IF RESULT.¢27!81] THEN 
BFGIN 
JF NOT R.C2781) THEN LIMITe#JU4+3000) 
R,¢27sijei3 
END3 


ENNDiS 


SPACING:=© FALSE?% 

1Opt= 100 eg NECTCI3% 

RECORDRETRYS& 

1ON «+ OF OD33 

NOLTONOW3% 

IF RESULT.C27!1)] THEN Ref27t1) «+ 13% 

IF NOT RESULT.£28%11] THEN 

BFGIN 
SIZE*RESULT.CCFI"OLOD, CCF I} 
SPACERACKS 
LOp+SPACEIOpaOl22%a721);3 
NOTONOWS 


IF NOTCRESULT,£2881] OR (010D,(2181) AND 
? 


$ 
CRESULT » £CFI*SPACEIOD.LCFI#SIZE2)) THEN 


BEGIN 

MONE*ORR( 422273133 
GO TO FXIT3 

ENN} 


END? 


04599000 
04600000 
04600100 
04601000 
04602000 
04603000 


04604000 
04605000 


04605500 
04606000 
04607000 
04608000 
04609000 
04610000 
04611000 
04626000 
04627000 
04628000 
04628100 
04629000 
04630000 
04631000 
04632000 
04633000 
04633100 
04633200 
04633300 
04633400 


04634000 


04634100 
04634200 
04634300 
04635000 
04636000 
04637000 
04638000 
04638100 
04638200 
04638300 
04638650 
04638700 
04638800 
04638900 
04639000 
04639100 
04639200 
04640000 


04641000 
04642000 
04642900 


AAAs 


44 


AA MH HN HHH tt CR HH AHA A oy se 


—_ 


028981 
029030 
029033 
029182 
029330 
029411 
04576000 
029612 
029731 
04572000 
029733 
029882 
030310 
030331 
030610 
030683 
030613 
0308:0 
O31141 
0314140 
0315193 


031682 


031910 
032110 
032210 
0323383 
032482 
032530 
032733 
032912 
04633100 
032932 
04630000 
0331383 
0332:2 
033333 
0335:0 
0335:3 
033710 
034010 
034130 
034182 
0343%3 
034530 
034633 
0348:0 
0349%2 
0352%2 
035310 
035433 
035730 
04639000 
035730 
04638100 
035730 
04610000 
0357%2 


STREAMCASTINUCUJ]® TeT2eSPace(6))}3 
REGIN ST © LOC at SI « SI+¥53 NS © 3 CHRSS 
nS « 11 LIT " WR PARITYe"3% 
ENN3% 


TF MIX#0 THEN IF CNOT O0100),f2151] THEN & ALPHA TAPE 
BEGIN STREAM(T¢O& SeQlODel(cCF]s+ QMe@14)3 
REGIN SY « S; Dr « LOC QM? DI © HIeT73 


ST3 1F SCo"%e" THEN GO F3 
IF Sc®O0c THEN GO L}3 
DI e¢ DI 
.69 ST 
3 TALLY*ls TeTALLY? 
F3 ENDS 
IF P THEN 


BEGIN STREAM(T2)3 
BFGIN DI * Oy +133 
OS + 29LIT", TRIED TO WRITE INVALID CHRe®3 
END? 


FLAGGER « 43 
ENDS END$3 


SPOUTERCTAsUNT TNO, 35)3 

TF MIX#0 AND NOT FLAGGFR THEN 

BFGIN 
TAPEPARITYRETRY ©¢ Y © WRITEPARITYREELSWITCHCOTOD+0)3 
MODE « Y,[588]3 
R,f27%1] «+ 03 


GO ENDITS 
FND3 
XEXITs 
MODF « 163% 
ENn3% 


FXIT® TAPEPARITYRETRY8= UNe TCU] & MODF(5340:8)3 
FNnorTé 
Me MORYEKEY48) %$= PTRekEyeg9} 
MEMORYCKEY+9)$sABS(MODE)3 
MEMORYCKEY) te PCDUP,LOn) & CCPTR®KEY) prV 5)9£393393973 
IF (MODE#16) OR (R,£2424]) THEN LINKUPC3,KEY) ELSE 
BEGIN 
BUFFERt= O10D INX O3 
BUFFERSIZEt= Of00,.68210)3 
IF NOT OFOD,f21t1) THEN & ALPHA WRITE * CHECK Q=MARKS 


BEGIN 
STREAMCT 3203 
TEMP$s05 SVSyts0r 
BUFFSTARTISBUFFERs 
BUPFENDSSBUFFER+BUFFERSIZE 23 
BEGIN 


S}teBUFFENDS Dyts_O0c TEMPS DSte« CHR} 
DItaBUFFENDS DSteLIT*-"3 OL tedleqs OSteRESET! KQ=MARK 
S]?@eBUrFSTART3 


04644000 
04645000 
04646000 
04647000 


04647050 
04647100 
04647150 
04647200 
04647250 
04647300 
04647350 
04647400 
04647450 


04647500 
04647550 
04647600 
04647650 
04647700 


04647750 
04647800 


04648000 
04648050 
04648100 
04648150 
04648200 
04648250 
04648300 
04648350 


04648400 
04649000 
04650000 


04651000 
04651010 
04651050 
04651100 
04651200 
04651300 
04651400 
04651500 
04651600 
04651700 
04651800 
04651900 
04652000 
04652100 
04652200 
04652300 
04652400 
04652500 
04652600 


Se ioe Nee ee ee ee 


Se 


+4 


4~AasastA 


Son ie Moe Nn Mie Ne Bee Mee ee ie ne ee oo ae 


035732 
036033 
036132 
036331 
04645000 
036382 
036583 
036831 
036910 
036933 
037082 
037083 
037120 
037182 
04647150 
037133 
037153 
037310 
O373%4 
O377E4 
04647600 
037712 
O37bS4 
04647550 
04647100 
O37834 
037933 
036121 
0384:3 
038333 
038510 
038613 
038734 
04648100 
038734 
038784 
038810 
04605000 
038830 
039010 
039029 
039310 
O395%1 
039930 
Oa02tt 
040233 
0404630 
040534 
040691 
040613 
040734 
040810 
040841 
040984 
040981 
044080 
041191 


IF SC > 9 THEN 
BEGIN 

L1% SytsSyr4+13 IF SC>9 THEN GO L113 
END3 


L2t Spe2zSr+it IF SC<9 THEN GO L223 
SVSytsSy3 
SpisLOc SVSys Syrt=2S74+53 
Dr%sLOc BUFFEND? nitsDI4+53 
IF 3 Sc#¥NC THEN TALLY!#=43 
DItsBUFFEND? Syte_LOc TEMPS DSt= CHRS 
Tt=eTALLY} 

FND? 


1?2POL ISH} 
MEMORYC KE Y4+2]t= PcDUP,LOD) & IC184784)3 
END3 


TF STOPTEST OR FLAGGER THEN LINKUPC3eKEY) ELSE 
BrGIN 


MEMORYEKEY] t= NABSCP¢DUPsLOD))3 
LINKUP(C3eKFY)3 
TESTING? SPACING!s= TRUEZ N3e0$3 
RUFFERSIZEt= BUFFERSI7E@13 
O10Dt= 010m & 1(1884236)]3 
PTRt= KEY4B}3 
STREAMCMOD2TOSS=SNOTCMON310S8S+62)» DteLPATTERNI)3 
BFGIN 
NStel3 LAT*OL24Byxee( GS"; 
MON2TOSCDI #201763 DSteLi Ths Dp tedy4+5)3 
DSt= LIT; HSte Ly Tres 
OSte3 LITMISC%3 
ENN: 


SLEFPCEMEMORYEKFY]]201000000000000000)3 
MEMORYEPTRI]&= 03 MOVECI9OLSPTRePTRe] )3 
FOR K$=0 STEP 1 UNTIL 145 DO 
BEGIN 

STREAMCAS=C[PATTERN], 


KtskKeCK®i5), Msadeax(K<1d), Nt=le(K>13) >» 
SIZEDIVO4s=BUFFERSIZE,C3616}5 BUFFERSIZEs 


BUFFER)$ 
REGIN 
STSsAs SEtsST 4K; 
MCOSt2N CHR$ S1t=eST°N)3 
ST?t=BUFFERS 


SIZEDIV64(DSt#®32 WOSS DSt=32 WOS)3 DS*sBUFFERSIZE WS) 


DIISAS OLMApl +243 DSteWHSs 
cNDS 


TODt= OFOHt= O10M & CCKK<7) OR CK>13))F2194797 ]3 


nOTONOWws 
MEMORYGEPTRI$= RESULT xk ROCTABLE(UIC192132)3 
SPACEBACK3 


STREAMCSTZEDIV6O4tRBUFFERSIZE.( 3686) ,BUFFERSIZE® 


BUFFER) 3 
REGIN 


04652700 
04652800 
04652900 
04653000 


04653100 
04653200 
04653300 
04653400 
04653500 
04653600 
04653700 
04653600 


04653900 
04654000 
04654100 


04654200 
04654300 
04654400 
04654500 
04654600 
04654700 
04654800 
04654900 
04655000 
04655100 
04655200 
04655300 
04655400 
04655500 
04655600 


04655700 
04655800 
04655900 
04656000 
04656100 
04656200 
04656300 
04656400 
04656500 
04656600 
04656700 
04656800 
04656900 
04657000 
04657100 


04657200 
04657300 
04657400 
04657500 
04657600 
04657700 
04657800 


et ts 


—aa-+ 


AHHH Ht 


ee ee ee ee ee ee ee 


Se ee ee ee ee 


041142 
041280 
0412480 
041310 
04652800 
0414330 
0414130 
041484 
041483 
041511 
041640 
0431683 
041710 
04652300 
041791 
041723 
042140 
04651800 
042130 
042313 
0424314 
042681 
042734 
042984 
043032 
043234 
0433%2 
043533 
043583 
043783 
043982 
0aadse 
O4ayst 
04655100 
04461%2 
044382 
044730 
0449%0 
044910 
044912 
045343 
045433 
045594 
0455114 
045610 
0457%3 
065810 
045983 
046082 
04656500 
046013 
046412 
046630 
046883 
047030 
Oa7141 
047133 


TADPOLF: 


FROG: 


OS%$s8 LIT" "3 STt=sBUFFER} 
SIZEDIVO4(NSt=32 WOS DSt232 WOS)$ DSIZBUFFERSIZE WOS3 


PND 


rODt= OFOD & 1£24:4784)3 
NOTONOWS 

MEMORY(PTR41)#2 RESULT & RDOCTABLErUIr19t4!273 
STREAMCAtELPATTERN] INX 3,5 


BEGINS 


CHRERKR3 20, WRDERR&20,» WROCNT320, 

LOOP%=O» FORSEVENSs1e LEAPFROGtH=0, 

WOSLEFT#@eysscUrmte (SIZERMABSCBUFFER@(RESULT INX 0))) 
LEQ BUFFERSIZE THEN SIZF ELSE BUFFERSIZE+1) MOD 63» 

VisIlF J<64 THEN J ELSE 63> 

NiwIF J<64 THEN 1 ELSE J DIV 63% 

RECYCLE*= IF J<64 THEN O ELSE IF 120 THEN O ELSE 1, 

TrMPiz0» SVDyt=0> 

BITLOCN2=PTR43, WROLOCNE mPTR4S, 

BUFFER)3 


LEARFROG?= CIs TALLYy!#=03 % USED ONLY FOR LEAPFROG RETURN 
NCVCSTteAs IF & Sc#DC THEN 


BEGIN 


STHSWROERR? SptsSt+83 WRDERRI S13 


FORSEVEN(SVNT8=DIs DrteBITLOCN? LOOPCHT $=D14+2)3 


SPteLOC WRDOCNTS SyisS] +63 NSte2 CHR} 
DIt=sWROLOCN3 LOOP(D] 3201 48)3 

Stt=eSvNrs SytsSym8s OSte= woss 
TALLYt=LOOP3 TALLY#=eTALLY4+13 LOOPtsTALLy? 
SftieLOC LOOPS Sy teSr473 

IF Sca"7* THEN 

BEGIN TALLY!:203 FORSEVENts TALLY ENDS 


D1isSVDY)3 

SI%sA3 Dypt=pl-83 TALLYt=03 

BCIF SC#DC THEN TALLY#2TALLY41)3 
TEMPSsTALLY3 

STtsCHRERRS TEMPCSItsS148)3 CHRERRIZST3 


ENS 


STtaWRNOCNTS SyteS14+83 WROCNT#sS73 
123 
RFCYCLECTALLY# «13 NizTALLY3 


TALLYtSWDSLEFTS ViaTALLY3 
TALLY#$=03 RECYCLE ta TALLYS 
JUMP OUT TO TADPOLF)3 


GO TO FROG3 

CIT %slLeaPFROG:; 

DItsBITLOCN’ Drtent=53 

SpteLOc CHRERR$ SytsS14+52 OSte3 CHRI 
Stt2LO0c WRDERR3 SytaS7t4+6s OSt=2 CHR} 


END} 


1F MEMORY(PTR).C27%4)] THEN SPACEBACKS 
PTR&2PTRe1 23 


END3 


MEMORYCKEY Js PCDUP,LOD) & Of131%32) & 396398391913 


04657900 
04658000 


04658100 


04658200 
04658300 
04658400 
04658500 
04658600 
04658700 
04656800 
04658900 
04659000 
04659100 
04659200 
04659300 
04659400 
04659500 
04659600 
04659700 
04659800 
04459900 
04660000 
04660100 
04660200 
04660300 
04660400 
04660500 
04660600 
04660700 
04660800 


04660900 
04661000 
04661100 
04661200 
04661300 
04661400 


04661500 
04661600 
04661700 
04661800 
04661900 
04662000 
04662100 
04662200 
04662300 
04662400 
04662500 
04662600 


04662700 
04662800 
04662900 


04663000 
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047143 
047331 
0475380 
04657800 
O475ty 
047730 
047830 
048431 
048231 
048310 
048313 
048510 
048933 
0492:0 
049423 
049980 
0499392 
0501410 
0501412 
050112 
050210 
050333 
050333 
050432 
050632 
050734 
050882 
050934 
054032 
051110 
0511%2 
04660800 
051210 
0512%2 
051301 
051452 
054413 
051641 
04659900 
0516314 
051710 
0514732 
0518%2 
051932 
0520:0 
052083 
052130 
052131 
052133 
0522%2 
052331 
04659600 
05232 
052710 
O526%4 
64656000 
0530%2 


MEMORYIKEY4+21%8= PCOUP,LOD) & OPTION 21281]3 
LINKUPC20eKEY)3 
ENDSEND$3 / 


END TAPFPARITYRETRY3 2% 


04663100 T 053431 
04663200 T 053782 
04663300 T 053832 
04654300 
04651400 
04666000 T 0538%2 
04551000 
STZFa 0539 WORDS 


STACK ¢(Fe2) 
STACK(F 43) 


STACK (CF 44) 
STACK ¢F 45) 
STACK(F 46) 
STACK ¢Fs7) 
STACK¢ F410) 


STACK¢(Fei1) 
STACK ¢F 412) 
STACK(F 413) 
STACK¢(F 414) 
STACK ¢F 415) 
STACK¢F 416) 


STACK¢Fei7) 
STACK¢ F420) 
STACK ¢F 421) 
STACK ¢F 422) 
STACK (F423) 


STACK (CF 424) 
STACK¢F 425) 
STACK (F426) 
STACKCF +27) 


uw n ww 


nH nS 


REAL PROCFOURE WRITEPARITYREFLSWITCHCOTODRC)3 


04667000 


START OF REL SEGMENTS DISK 


VALUF O1ON,RC# REAL O7OD>Re3 


THe PURPOSE OF THIS ROUTINE IS TO ALLOW ORBVECT PROGRAMS 

TO CHANGE MAG TAPF UNITS WHEN ENCOUNTERING A WRITE PARITY 
ERROR, THIS ROUTINE IS CALLED FROM EITHER TAPEPARITYRETRY 
IN RESPONSE TO A FATAL WRITE PARITY ERROR OR FROM 
REFLCHANGER AFTER AN *RC# KEYBOARD REQUEST BY THE OPERATOR, 


BASTCALLYs THyS ROUTINE READS NTO CORE THe LAST TWO 
SUCESSFULLY WRITTEN BLOCKS ON THE TAPE» CLOSES THE FILE 
CMARKING THE TAPE AS AN END OF REEL)» OBTAINS ANOTHER 
TAPE UNIT» RE#WRITES THE TWO BLOCKS JN CORFE FOLLOWED 

BY THF BLOCK ITN WHICH THE PARITY ERROR OCURRED»s AND 
ALLOWS THE PROGRAM TO CONTINUE WRITING ON THE NEW TAPE, 


WHEN THIS ROUTINE TS CALLED DUE To AN OPERATOR "RC™ 
MESSAGE» THERE 1S NO FATAL PARITY ERROR AT THIS POINTs 
SO THE SAVING OF THE LAST TWO RECORDS 73S UNNECESSARY 
ANn ONLY THE CLOSING OF THE FILE AND OBTAINING OF A NEW 
UNtT ARF RFQUYRED, 


THE PARAMATERS ARE USEN AS FOLLOWS! 
0100 THE ORIGINAL 170 DESCRIPTOR ON WHICH 
A FATAL FRROR OCCURRED 


RC 1 JF CALLFN FROM REELCHANGFER,. O OTHERWISE 


WD ae dE DE 2G BR BA BE DR DR FA DA BR JE dR BA DR BA IQ FAQ dQ Ge ge 5A AE ve dC 


EGIN 
INTEGER FeLOGICLRCs 


I 
LOGICLRC 
REaAl BSIZE»FNUM»NUMBUFFS,NUMRECSS,REELS$ 
BSIZE 
FNUM 
NUMBUFFS 
NUMRECS 
REEL 
REAL SeYsUrOLNUs SAVEU,MIX3 


REAL TEMPeT1+T2sT35T43 


REAL 7OOs¢RFSULTsMODEsTOPy;OD»TMs,HOLOCT! 


TOPIOD 


04667050 
046671400 
04667150 
04667200 
04667250 
04667300 
04667350 
04667400 
04667450 
04667500 
04667550 
04667600 
04667650 
04667700 
04667750 
04667800 
04667850 
04667900 
04667950 
04668000 
04668050 
04668100 
04668150 
04668200 
04668250 
04668300 
04668350 
04668400 
04668450 


04668500 


04668550 


04668600 


04668650 


rT 000030 
ADDRESS ®& 
T 000030 
T 0000%0 
T 000080 
T 000050 
T 000030 
T 0000180 
T 000030 
T 000010 
T 0000:0 
T 000080 
T 000030 
T 000010 
T 000010 
T 000010 
T 0000:0 
T 00000 
T 000010 
T 000030 
yr 000030 
T 000030 
T 00000 
T 000030 
T 0000:0 
T 000010 
T 000010 
T 0000180 
T 000030 
T 0000180 
T 000080 


T 000030 


T 000030 


T 000030 


T 000030 


00092 


STACK(F 430) 
STACK(F 431) 


STACK¢ F432) 
STACK ¢F 433) 
STACK (F434) 
STACK¢ F435) 


STACK(F 436) 


STACK¢F 437) 
STACK¢(F 440) 
STACK ¢F 441) 
STACK ¢F 442) 


Noun On 


ce i | 


FIRSTRECIO 
SECRECTO VARTABLF LENGTH RLOCK 1/0 DESCRIPTORS 


T™ 
HOLDCT 
RFAL FIRSTRECeSFCRECoFIRSTRECTOsSECRECIOS 
FYIRSTREC 
SECREC 
FIRSTRFCTO 
SECRECIO 
BOOLFAN TOGGLES? 
TOGGLES 
ARRAY FIR *]sFPBL*]+LABELAL*¥] > TANKE*J3 
FIB 
FPB 
LABELA 
TANK 
% 
% THF LOCAL VARIABLES ARE USFD AS FOLLOWS: 
% INTEGERS . 
z ] TEMPORARY 
+4 LOGICLRe CONTAINS THE LOGICAL RECORD COUNT 
% REALS 
% BSIZE BLOCK SIZE OF FILE 
x FNUM FILE NUMBER WITHIN FPR 
% NUMBUFFS TOTAL NUMBER OF BUFFERS DECLARED FOR FILE 
4 NUMRECS RECORDS PER RLOCK (BSIZF OV RECORD SIZE) 
% REEL CONTAINS THE CURRENT REEL NUMBER +] 
% 5 INDEX INTO TOQUE OF UNSUCCESSFUL 1/0 
% Y TEMPORARY 
z U LOGICAL UNIT NUMBER OF TAPE UNIT BEING WRITTEN 
% OLDU HARDWARE UNIT NUMBER OF TAPE UNIT 
% SAVE LOGICAL UN:T OF ORIGINAL TAPE UNIT WyTH FRROR 
' os MIX INDEX OF JOB FOR WHICH RECOVERY IS ATTEMPTED 
E 
% T1eTAeT3eT4 TEMPORAY 
% Ton HOLDS THE 1/70 DESCRIPTOR FOR FACH 1t/70 ATTEMPTED 
% RESULT RECEIVES THE LAST 170 RESULT DESCRIPTOR 
% MODE USED TO INDICATE A SUCCESSFUL RECOVERY ATTEMPT 
¥ TOPIOD LOCATION OF TOP 1/0 DESCRIPTOR IN TANK 
% T™ TEMPORARY» USED FOR WRITING TAPE MARK 
z HOLDCT CONTAINS THE NUMBER OF FILLED BUFFERS 
% FIRSTREC 
% SECREC ADDRESSES oF AREAS TO HOLD LAST TWO BLOCKS 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 


LABEL, LieRETRY»PROBeKAPUT SRE SETUNT TSsARNSERROROUTeXIOSEXITS 


DEFINE ALFA = TOGGLES,(14794)4#> 
DSEN = TOGGLES, (646!4)#, 
LABELED = TOGGLES: (45!1)}#, 
NORMALPROCESS & TOGGLES, C44t11#, 
PBT = TOGGLES, £4331 783 


BOOLEAN 
TOGGLES USED TO HOLD VARTOUS BOOLEANS (SEE DEFINES) 
ARRAYS 
Fre FIB ARRAY» USED FOR CLOSFING THE FILE 
FPR FPB ARRAY» USED FOR OPENING NEW FILE 
LARELA ARRAY DESCRIPTOR FOR INWCORE LABEL RECORD 
TANK TANK ARRAY, CONTAINING 1/0 DESCRIPTORS 


04668700 


04668750 


04668800 


04668850 
04668900 
04668950 
04669000 
04669050 
04669100 
04669150 
04669200 
04669250 
04669275 
04669300 
04669350 
04669400 
04669450 
04669500 
04669550 
04669600 
04669650 
04669700 
04669750 
04669800 
04669850 
04669900 
04669950 
04670000 
04670050 
04670100 
04670150 
04670200 
04670250 
04670300 
04670350 
04670400 
04670430 
04670500 
04670550 
04670600 
04670650 
04670700 
04670750 
04670800 
04670850 
04670900 


AA HHH HANH A a HHA tH AH A HA to ot 


000030 


000030 


0000:0 


000030 
000030 
000010 
000010 
000080 
000080 
0000180 
0000:0 
000030 
000010 
000010 
000080 
000030 
000030 
0000140 
0000:0 
000030 
000030 
000010 
0000:0 
000010 
0000:0 
000080 
000080 
000030 
000080 
000030 
0000t0 
000080 
0000:0 
000030 
0000:0 
000010 
000010 
000010 
000020 
000030 
0000#0 
0000!0 
000010 
000010 
0000!0 
0000:0 


$ SFT OMT = NOTCPACKE 
NITNO = PS 


DEFINE U 
$ POP oMyT 


TS) 
FUDOMIXEMIX143 


SUBROUTINE DOTONOWS 


BEGIN 


¥ DOTONOW 1S COPYED FROM TAPEPARITYRETRY 
FOR Y « 4 STEP 1 UNTIL 18 DO 
BEGIN IF 10D.£24811 THEN 


FNDS 


BEGIN & WATT 17415 SECOND BETWEEN READ RETRIES 
WHILE T4 > CLOCK+PCRTR) NO SLEEPC1.1)3 
TH © CLOCK4#PCRTR)+43 

ENDS 


TF TOQUESLOTS=0 THEN SLEEPCL J OQUESLOTS],63)3 
TOQUFSLOTS « 10QUESLOTS#13 
TOQUEAVATL «© [OQUECT1I+s;OQUEAVAILI} 
TOQUECT1) © J[O0p3 
IF ¢T2eC(T3I*UNITCUI) of FF JI=@77777 THEN T3,CCFIeT13 
LOCATQUELTL} « CRESULT) & MIX[(3t4315) & 
UEL12%49361 & ToaccTFy3s 
UNITCU) «© T3 & TUCCTE) & 040065235213)3 
STARTIOCU); 
FINALQUECT1) «© NaBSC10N) & 062534088] OR JOMASK3 
RESULT « 03 
SLEFPCCUNITCUIT)2@100000000000)3 
IF RESULT.C30!21)] THEN GO ERROROUTS & NOT READY 
IF RESULT.£29%4] AND RESULT,(22:1] THEN 
BEGIN 
IF RESULT. £1241) THEN % BLANK TAPE 
TF 100,£24t9) THEN % READ 
TRANSACTIONCU] ¢ C*¥PCDUP))=C1 & 10N01822813) FLSE 
REGIN % WRITE 
STREAMCA*TINULU]», TeT2eSPACEC3))3 
BEGIN SI*LOC AS SfeS74+53 DS#3 CHR 
DS*21 LIT" BLANK TAPE ON WRYy Trees 
ENDS 


SPOUTER(CT2,UNTTNO,35)3 
GO ERROROUT! 
FND3 


IF RESULT.£C11%1) THEN & MEM PARITY 
BEGIN 
STREAMCASTINU[UJ}» TeT2*SPACE(3))3 
BEGIN SI*LOC A% SteS7453 DS#3 CHR} 
NSe13 LrT" 1/0 MEM PaARe"; 
ENn3 


SPOUTER(CT2,UN[TNO,35)3 
GO ERROROUT3 


END3 

IF RESULT.£13%27#0 THEN Y « 183 
END ELSE 
GO x103 


04670950 
04671000 


04671050 
04671100 
04671150 
04671200 
04671250 
04671300 
04671350 
04671400 
04671450 
04671500 


04671550 
04671600 
04671650 
04671700 
04671750 
04671800 
04671850 
04671900 
04671950 
04672000 
04672050 
04672100 
04672150 
04672200 
04672250 
04672300 
04672350 
04672400 
04672450 
04672500 
04672550 
04672600 
04672650 


04672700 
04672750 
04672800 


046728650 
04672900 
04672950 
04673000 
04673050 
04673100 


04673150 
04673200 
04673250 


04673300 
04673350 


04673400 
04673450 


AH to tt 


AHR HAHAHAHA Ht HH 


AAW +A HHH 


3-4 


0000%0 
000030 


000030 
0000:0 
000430 
0001450 
0001430 
000210 
000213 
000334 
000730 
0008:3 
04671350 
000813 
001132 
001233 
001414 
0015%2 
002050 
0021'3 
002333 
002632 
002731 
0030314 
003140 
0032:3 
O034ty 
0036:0 
0036!2 
003734 
0038:2 
0042:t0 
004520 
004881 
004930 
005230 
04672550 
00S2+1 
0053!3 
0054%4 
04672450 
005411 
005510 
00552 
005833 
005932 
0061:2 
04673000 
006133 
0063%4 
0063:%3 
04672900 
006383 
006614 
04672250 
0066114 
006621 


XpO8 


RESULT,CA7#1) © {3 MONE «+ 323 
ENn nOTONOWws 


3 
Ue SAVEU « 070N,(3'4)73 
2 SAVE OFF ORIGINAL UNIT FOR DS*ING, 
OLMU « UNITELUJ3 
% SAVE OFF ORIGINAL UNIT TABLE ENTRY 
Myx « RDOCTABLFCUI,(816)3 
MOnE « 163 
% SFT MODE TO FLAG PARITY» MONr WILL Br SET TO ZERO IF CHANGE OK 
LARELA «© Mr(TOPLODePRNTABLFLU),£15%15}])"2) & @OSOOOLCTFY 
Fin « MrTOPyOne3)3 
PBT « FIBI41],(8taj)z73 
FNUM « FIRF4),613%1193 
BSyZF « IF PBT THEN 90 ELSE F1BL18].63215}33 
NUMRECS « |F PBT THEN 5 FLSE BSIZE DIV FIBE18},.033115}3 
REFL « FIBE137,f28310)413 
ALFA « CNOT FLBC13)).f249173 
LARELED « CNOT FIBC4)),029113 
NUMBUFFS « FIRC13).010:9]3 
TANK «¢ ECMETOPJONI) & NUMBUFFS(8!38910)3 
HALT! 
% STOP NORMAL STATE PROCFSSING, 
IF Rc THEN 
IF TANKSO],(€2421)] THEN 
BE RIN 
STREAMCT#T2«¢SPACE(5))3 
NS « 40 LIT*#RFEL SWITCH NOT POSSIBLE ON INPUT FrILEes 
SPOUTERCT2»UN[TNO#1)93 
GO EXITS 
ENn3 


STRFAMCASTINUCU]»s TeT2«SPaAce(5))3 
BEGIN 
pS + 84 LIT"#REEL SWITCH TO BE ATTEMPTED FROM “3 
ST *« LOC AS’ ST © S}1453 OS © 3 CHRS DS © LITMo™3 
ENn3 


SPOUTFRCT2sUNITNOo1 23 

1F PBT THEN 

BEGIN 
LABELA,C8310)] * 83 X¥ PRINTER LABELS ARE 15 WORDS 
LABELACL] « MULT;TABLE(CUI,(3#45]3 
LARELAL2)] « LABELTABLELUI,(3#45)3 

ENn3 


IF Re THEN GO Li? 

FIRSTREC © GETSPACECBSIZr4+420049443 

SECREC ¢ GETSPACECBSIZE+49001)443 

% GETSPACE ON TWO BUFFERS FOR RACKWARD READ, 

IF ALFA THEN 

BEGIN 
10D # ®340000000 & o100£3:395) & cT2IFCTC)3 
DOTONOWS DOTONOWS 
10D « O10D & 1£2484714] & FYRSTRECECTCI3 


04673500 
04673550 


04673600 
04673650 
04673700 
94673750 
04673800 
04673850 
04673900 
04673950 
04674000 
04674050 
04674100 
04674150 
04674200 
04674225 
04674250 
04674300 
04674350 
04674400 
04674450 
04674500 
04674550 
04674600 
04674650 
04674700 
04674750 
04674800 
04674850 
04674900 
04674950 


04675000 
04675050 
04675100 
04675150 
04675200 


04675250 
04675300 
04675350 
04675400 
04675450 
04675500 
04675550 


04675600 
04675650 
04675700 
04675750 
04675800 
04675850 
04675900 
04675950 
04676000 


AA FAA BHA AMARA HAT AA HA TA A tH tO 


AAHA AAA HAHAH 


att 


04671300 
0068132 
007430 

04671150 
OO7144 
OO71%14 
00682!1 
0082114 
008331 
008331 
008433 
00865!2 
0085%2 
008984 
009701 
009414 
009513 
00994 
0103114 
010584 
0108:0 
011033 
011251 
011482 
011510 
041520 
0115214 
011633 
OL1731 
012030 
012512 
0127130 
012930 

04674700 
012930 
013231 
0132°3% 
013633 
0138:0 

04675050 
013831 
013983 
014082 
014130 
014330 
0145:3 
0148:2 

04675350 
044832 
014912 
0152%1 
015510 
015510 
015533 
015674 
0458!2 
016110 


pOrONOws . 
1F RESULT, (2732140 THEN GO FRROROUTS 
10D « 10D & SECRECrCcTCI 
DOTONOWS 
IF RESULT,(27!323740 THEN GO ERROROUT? 
TON « ©340000000 & of0DL38395) & cT2zCCTC}S 
NOLTONOWS DOTONOWS 
GO L13 
ENN3 


1On « OFON & CSECREC+BSIZE"1ICcTc) & 572214533); 
pO;rONOW! 

% RUYLD BACKWARD NESCRIPTOR AND EXECUTE FYRST BACKWARD READ, 
IF RESULT,£27!22}40 THEN 60 FRROROUTS 

IF ¢TEMP « MEyOD NX 4))¢BSIZE THEN 

% VARTABLE LENGTH BLOCK, 

SECRFECTO « CCTOD INX 4) *TEMP) &@ TEMP(8:38810)3 
10M + 100 & CFIRSTREC+BStZF1) CTC) 

DOFONOW3 

% NEXT BACKWARD READ, 

IF RESULT.£27!21340 THEN GO ERROROUT; 

IF CTEMP «© MCTOD INX 4) )#BSI1ZE THEN 

¥ VARIABLE LENGTH BLOCK, 

FIRSTRECIO « ¢¢lOD INX 1)"TEMP) & TEMP? 62388410)3 


FOR 1 « O STEP 1 UNTIL NUMBUFFS#4 DO 
IF CNOT TANKEC1)),019%4) THEN HOLDCT « HOLOCT+13 
% SCAN FOR THE NUMBER OF FILLED BUFFERS, 
FIRF61 « FIBC6I*CCRCZ0)xX9) @HOLNCTS 
LOGICLRC « FIBE7) MOD NUMRECSS 
% NETERMINE THE NUMBER OF LOGICAL RECORDS WRITTEN, 
FIR(7] « FIBC6] x NUMRECS3 
% LOAD FIB WITH RECORN COUNT FOR TRAILER LABELe 
IF HOLDCT#=NUMBUFFS THEN 
BEGIN 
NOPROCESSTOG « NOPROCFSSTOG@13 
NORMALPROCESS «+ 43 
EN? 


% iF THERE ARF NO UNFILLED BUFFERS THEN ALLOW NORMAL STATE 

% PROCESSING TO CONTINUE, 

% FLAG THE RELEASE OF NORMAL STATE, 

THE CHANCE OF UNFILLED BUFFERS IS VERY REMOTE» BUT JUST IN CASE 
PaMTX « MIX} 

% |0AN P4M{X FOR CONSOLE MESSAGES, 

TEMP « U3 

% SAVE OFF CURRENT UNyT 1N CASE OS CALLED AT THIS POINT, 


ae 


RETRY3 


IF TERMSETCMIX) THEN 
BEGIN 

Ue (=1)3 

GO ERROROUT? 
ENNs 


TEMP « U3 

T™ « @ $737000000000000; 

% TAPF*MARK, 

10n « NFLAGCEITM1) & 0700¢3238573 


04676050 
04676100 
04676450 
04676200 
04676250 
04676300 
04676350 
04676400 
04676450 


04676500 
04676550 
04676600 
04676650 
04676700 
04676750 
04676800 
04676650 
04676900 
04676950 
04677000 
04677050 
04677100 
04677450 
04677200 
04677250 
04677300 
04677350 
04677400 
04677450 
04677500 
04677550 
04677600 
04677650 
04677700 
04677750 
046776800 
04677850 


04677900 
04677950 
04678000 
04678050 
04678400 
04678450 
04678200 
04678250 
04678300 
04678350 
04678400 
04678450 
04678500 
04678550 


04678600 
04678650 
04678700 
04678750 


AHA A AAAS 


AHHH AMHR HH AA HAHAHAHA AHH 


AM AHH HHRMA AHR ts 


016301 
0164:0 
046533 
0167:0 
0468:0 
016933 
017220 
017430 
01760 
04675850 
0176:0 
0179314 
018070 
018030 
0484:3 
0784%4 
048434 
0416732 
018933 
0191420 
019450 
0192:3 
0195814 
049584 
019832 
0198:2 
020213 
020611 
020634 
020933 
0211914 
O21L41 
021331 
0213%14 
0214:0 
02142 
021583 
0217:2 
04677700 
071722 
0217%2 
O2eLt7te2 
021782 
0217382 
O91aeys 
021834 
021910 
0249130 
0219130 
0220!2 
022110 
022280 
0222:2 
04678400 
022242 
02234 
022480 
022430 


OWT: 


OWTS 


pO;,ONOWs 
% wRITFE TAPE@MARK, 
Fiali3).¢28210) « REEL? 
IF LABELED THEN 
BEGIN 
STREAMC(BCeFIB(5)], ReeFIBI7]» BKUPePRT»s DeLABELA)S 
REGIN 
DI ¢ DI+393 HOS © LIT™1"S 
% ENN OF REEL FLAG, 
RBKUPCD] « Dy+123 JUMP OUT TO OwT)3 
S] « LOC BC} 0S « 5 MECS DS « 7 NEC3 
pS « LrTt1"s3 
% SPECTAL FLAG FOR SORT AND USE PROCEDURES 
ENDS 


TOD + NFLAG(LABELA) & 0100(632385)3 
1F NOT PBT THEN JTF ALFA THEN 
10D,021%1) « O8 
NOTONOWS 
% BUILD 1/0 DESCRIPTOR AND WRITE THE TRAILER LABEL. 
10D «© NFLAGCETMI]) & O7FOD532325)3 
NOYONOWS 
ENn3 


10n « 10D & 24271824216); 
% RUILD THE REWIND DESCRIPTOR, 
DO;,ONOWS 
STOPTIMINGCFNUM,1023)3 
FPR «+ PRITMIX,3)3 
LARELTABLECU] « @2143 % RW/L 
MULTITABLFLEUT « ROCTARLELU) * PRNTABLELU] «+ 03 
IF LABELED THEN 
BEGIN 
STREAMCReREELs BKUPePBT» DeLABELA)3 
REGIN 
St « LOC R3 OF «© 014243 DS « 3 HFC 
% LOAD REEL NUMBER INTO LABEL. 
OL + OL14e12? DOS ¢ LITNONS 
BKUPCD] « Dr+t123 JUMP OUT TO OWT)$ 
DS « 12 LIT#0O"; 
DS « LIT "0"; 
® CLEAN OUT OLp TRAILER LABEL INFO, 
FNS 


TF NOT PBT THEN TF ALFA THEN 
LARBELA,C7%!1] « 13 
U «+ LARELASCRATCHCLABELAD3 
¥ FIND TAPE FOR LABFLEN OUTPUT, 
1F Umc#1) THEN GO ERROROUT? 
% OPERATOR DS=ED, 

ENN FLSE 


BEGIN 
lt «© FINDOUTPUTCFPBLFNUM] sFPRCFNUM41 J oREEL 2 On Or 2n Op TM) 3 
* FIND UNLABELED OUTPUT TaPeE, 
YF Usc*1) THEN GO ERROROUT3 
T2 « 03 


04678800 
04678850 
04678900 
04678950 
04679000 
04679050 
04679100 
04679150 
04679200 
04679250 
04679300 
04679350 
04679400 
04679450 


04679500 
04679550 
04679600 
04679650 
04679700 
04679750 
04679800 
04679650 


04679900 
04679950 
04680000 
04680050 
04680100 
04680150 
04680200 
04680250 
04680300 
04680350 
04680400 
04680450 
04680500 
04680550 
04680600 
04680650 
04680700 
04680750 
04680800 


04680850 
04680900 
04680950 
04681000 
04661050 
04661100 
04681150 


04681200 
04681250 
04681300 
04681350 
04681400 


AHH AHHH HAHAH AHHH RHA HAAR HRA AR RA HHH 


oe 


A444 


0226:0 
022710 
0227:0 
0229i%2 
023031 
023033 
023332 
0233:2 
0234714 
023434 
0235:3 
0236:2 
023780 
023710 
04679100 
0237%1 
0239%2 
024113 
024410 
024510 
024530 
0247:0 
0248:0 
04679000 
024810 
0249:t3 
024933 
0251'0 
025230 
0253:%2 
025413 
025810 
025813 
025931 
026131 
0261314 
026210 
026210 
026213 
026421 
026610 
026612 
026652 
046804800 
026633 
0269%0 
027182 
027330 
027380 
0274:2 
027482 
04680300 
027412 
027630 
0280:0 
0280:0 
0281%2 


STREAMCPRNePRNTARLEPUI,£30218)» Del T2d)5 
RFGIN SI ¢ LOC PRN3 DS « 8 DEC} 

DI « DI*7% DS « 6 FILLS 
FND3 


$ SET OMTT = PACKETS 


FILEMESSAGEC™ OUT™ a TINUP UIC 6230818) >T2s 
FPBCFNUM],FPOrFNUM+1 ),REFL20,0s0PNMESS)3 
ENn? 


RDCTARLE(U}) + C#PC(DUP)) & MIX([884226]3 
PRNTABLELU) «© ¢c*PCDUP)) @& TOPTND¢15'33815)3 
FPROFNUM+3),(36%6] © Usl3 

%¥ LOAN LOGICAL UNIT NUMBFR +t NTO FPB, 
TEMP « 0190,(334]3 

% LUN OF OLD UNIT, 

S « UNITE TEMP), CFF VE 

Z SAVE OFF INDEX INTO sO0QUE 

UNTTF TEMP) © cePCDUP)) & 877777(14829849]3 
% cLEAR UNTT TABLE ON OLn UNTT, 

UNyTrUJ « OLDU? 

% LOAM NEW UNTT TABLE ENTRY, 

OroN # O70D & TINUCUIS 32325)3 

¥ LOAM 079M WITH NEW UNIT NUMBER, 

FOR 1 « O STEP 4 UNTIL NUMBUFFS=1 DO 

TF TANKS 1I,0°73917 THEN 

TANKE TI « ¢*PCDUP)) & O10073%3:5)3 

% OAD NEW UNTT DESIGNATE INTO 170 DESCRIPTOR TANK. 
TINUGU) «© C¥#PCDUP)) & TINUPTEMP)(24324:26)3 
TYNUCTEMP) «© cH#PCDUP)) & O724%4226)3 

IF RC THEN GO KAPUT3 


IF FIRSTRECTO#O THEN [ON © OFODRFIRSTRECIOCBISt10JRFIRSTRECIOLCTC] 


% TEST FOR BLOCK LESS THAN MAX LENGTH**VARIABLE LENGTH®@*", 
ELSE 10D «+ OFOD & FIRSTRECrCTCy; 

DO;ONOWS 

% wRiITe FIRST RECORD 

IF RESULT, 6283117 THEN &% CHECK FOR WRITE ERROR 

BEGIN 


FIBC13),7268810) « REELW13 
% DECREMENT REEL COUNT, 
STREAMCAeTINUC UJ» TeT2*SPACE(6))3 
BEGIN 
DS « 23 LIT"#REEL SWITCH FATLED ON *%3 
St « LOC As Sf ¢ S1453 DS « 3 CHR} 
DS «© 22 LIT,» ANOTHER REEL PLEASEe"3 
FND3 


SPOUTER¢CT2»>UNITTNOe1 93 
GO RETRY} 
ENN? 


IF SFCRECTO#0 THEN [0D © OF OD&SECRECTIOL Bs 821 0)8SECRECIO(CTC} 
Z cHECK FOR LeSS THAN MAX LENGTH BLOCKS#@VARIABLE LENGTH®= 


ELSE 100 « O10D & SECRECrCTC]3 
% STANDARD LENGTH 
DO;,ONOWS 


04681450 
04681500 


04681550 


04681600 


04681650 
04681800 
04681850 
04681900 


04681950 
04682000 
04682050 
04682100 
04682150 
04682200 
04682250 
04682300 
04682350 
04682400 
04682450 
04682500 
04682550 
04682600 
04682650 
04682700 
04682750 
04682800 
04682850 
04682900 
04682950 
04683000 
04683050 
04683100 
04683150 
04683200 
04683250 
04663300 
04683350 
04683400 
04683450 
04683500 
04683550 
046863600 
04683650 
04683700 
04683750 


04683800 
04683850 
04683900 


04683950 
04684000 
04684050 
04684100 
04684150 


aaa 


AHH AHHH HHH I tt AH aH A A ot ot 


4a4444 


028234 
0284:0 
0284:2 
0265:0 
04681500 
028531 
028531 
028701 
029012 
04681200 
029032 
029330 
029532 
029980 
029910 
030034 
030031 
030433 
030433 
0304%1 
0304%1 
030532 


030812 


030712 
0307%2 
031193 
0312%3 
0319:0 
031920 
0321%3 
0324%1 
0325?1 
0328:0 
0328:0 
0330:2 
0332:0 
033210 
033233 
033311 
0333'1 
03363} 
0336!1 
0339:%2 
0339!2 
034233 
0343%2 
034682 
04663550 
0346!3 
034811 
034833 
04683300 
034833 
0351%2 
035142 
035430 
035410 


% wRrte SECOND RECORD, 

IF RESULT,£ 28811 THEN GO PROBS 
10n « O7FON3 

Z ORIGINAL RAD tO ON NEW UNIT 
DO;ONON3 

TF RESULT,£628t11 THEN GO PROB} 


KAPUT3 


1F NOT DSFN THEN 
REGIN 
MODE « 0} 
STARTIMINGCFNUM® U3 
ENn?s 


% CHANGE OVER SUCCESSFUL, 

FIRT15).(2486) + US 

% NEW LUN JNTO FYB. 

OLnU « TYINULU],C335]3 

Z OLNU LOADED WITH NEW PHYSICAL UNIT NUMBER, 
IF NOT RC THEN 

BEGIN 


RESFTUNYTS! 


ARN? 


TOQUECS) «© ¢C*¥PCDUP)) & OLnUP3#4395)3 

FINALQUEFS] « (*PCDUP)) & OLNDUL3143:5)3 

LOCATQUErS] * C*P(DUP)) & Uli2t42:6)3 

% RESFT neESCRIPTORS IN 10QUE, 

1F CS «© LOCATQUErS)-£FFI)#@77777 THEN GO RESETUNITS! 
END} 


FIBF16] «© c¥#PCDUP)) & OLDUC3'43t5)]3 

FIRE 19] «+ C*PCNUP)) & OLNUL3!4at5i3 

® cHANGE UNTT FIELD OF DFSCRIPTORS IN FIB, 
FIR( 6} + CCRC#0)x2)+HOLDCT3 

% LOAD NEW BLOCK COUNT INTO Fie 


FIRI7) « (CCROEO)*X2) x NUMRECS)+HOLDCT x NUMRECS+LOGICLRCS 


Z 1.0OAD NEW RECORD COUNT 
TINUfUJ, £2486) « O38 
UNrTPFUT,£65%10) « 03 
% RESET ERROR FLAGS, 
IF NOT OSFD THEN 
BEGIN 
STREAMCASTINUL UJ], TeT2¢SPACEC4) 93 
BEGIN 
DS ¢ 26 LIT*#REEL SWITCH COMPLETED ON "3 
Sf ¢ LOC As SY © SI4#5% DS © 3 CHRS DS © LITHeMs 
FNN: 


SPOUTFRCT2-UNTTNO> 193 
ENns 


TOPIOD « TEMP « CIF RC THEN FIBL19) ELSE 0100).{CFI=23 
% MUST RESET LUN IN 170 RUFFER FOR PROGRAM RELEASE 
METEMP) « C#PCDUP)) & UlL12342386]3 
IF MCTEMP), CFR I=2#TOP;OD THEN 
BEGIN 

TEMP « MrTEMPI.CFFI923 

60 ARN} 
ENn3 


04684200 
04684250 
04684300 
04684350 
04684400 
04684450 
04684500 
04684550 
04684600 
04684650 
04684700 
04684750 


04684800 
04684850 
04684900 
04684950 
04685000 
04685050 
04685100 
04685150 
04685200 
04685250 
04685300 
04685350 
04685400 
04685450 


04685500 
04685550 
04685600 
04685650 
04685700 
04685750 
04685800 
04685850 
04685900 
04685950 
04686000 
04686050 
04686100 
04686150 
04686200 
04686250 
04686300 


04686350 
04686400 


04686450 
04686500 
04686550 
04686600 
04686650 
04686700 
04686750 
04686800 


ie i ee 


ee eee i ee ee 


Ae Aton aA GH HH 


ee | 


035530 
035530 
0356!2 
035731 
0357! 
035610 
0359t2 
035932 
03602 
0361:0 
036133 
0362:3 
04684600 
036233 
0362°3 
036514 
0365%4 
0366!3 
036633 
0367t1 
0367!3 
0367:3 
037081 
037233 
037541 
0375%1 
037733 
04685100 
037733 
0360!4 
0382!3 
038233 
038522 
038552 
038933 
0386933 
039231 
039433 
039413 
039533 
039631 
039912 
0399:2 
040330 
040431 
04686150 
040432 
040610 
04686050 
0406:0 
041030 
0410380 
041213 
041531 
041513 
0418s} 
042030 


GO EXITS 
FRROROUTS 

STREAM(T¢T2¢SPACE(3))3 

mS « 21 LITV"#HREEL SWITCH ABORTED«*3 
SPOUTFEROT2,UNTTNOs4)3 
IF U < O THEN ® JOB BEING DS*ED AT MT REQ 
BEGIN 

lo « TEMP} 

% SET U TO LAST UNIT. 

TF UFSAVEU THEN GO FXYTS 

NOSED « 13 

GO KAPUT}3 

¥ GO TO KAPUT TO CONTJNUE HOUSE@KEFEPING 
ENN3 


EXtT? 
PiMIx « O38 
le FYRSTREC#O THEN 
BEGIN 
FORGETSPACECFIRSTREC@2)3 
FORGFTSPACECSECRFC@2)3 
ENN? 


IF NOT NORMALPROCESS THEN NOPROCESSTOG «+ NOPROCESSTOG=43 


® WAS UNABLE TO FREE NORMAL PROCESS DUE TO UNFILLED BUFFERS, 


% THIS SITUATION MAY NEVER OCCUR» BUT JUST IN CASE 
WRITFPARJTYREELSWITCH « UNJTCU] & MODELS24038}3 
END WRITEPARITYREELSWITCHS 


04686850 
04686900 
04686950 
04687000 
04687050 
04687100 
04687150 
04687200 
04687250 
04687300 
04687350 
04687400 
04687450 
04687500 


04687550 
04687600 
04687650 
04687700 
04687750 
04687800 
04687850 


04687900 
04687950 
04688000 
04688050 
04688100 


04686650 
042010 
042082 
042012 
042333 
042730 
042882 
042981 
042933 
043082 
043012 
043133 
0433t2 
043410 
043410 
04687150 
043410 
043440 
043483 
043582 
043610 
043784 
043812 
04687700 
043832 
0444 tt 
04414 
O441tt 
044331 
04668400 
SIZE= 0444 wORDS 


AAA H AHH HH 


tt tt st 


7 @ 


STACK¢Fe2) «= 1 
STACK¢F43) 3 B 
STACK¢Fe4) = T 
STACK(F45) = W 
STACK¢Fs46) 3 E 
STACK¢Fs47) 2 J 


STACK¢F 410) = AA 


STACK(F4i11) = SS 


REAL PROCFDURE PLACEFINDERCS, As LY 


VALUF Sos A$ 
REAL Se Ae L? 


BEGIN tNTEGER 18 ARRAY Br*]3 


NULL? 


SANDA? 


FOUND! 


REAL Ts We Fe Jo AAS 


LABEL NULL» FOUND, EXIT3 
LABEL SANDA’ REAL SS3 


We ff 

Bo« (MET « SPACEC30)1183968838210)3 

§$$1283 

IF S20 THEN 

RFGIN STREAM(T)3 pS#s20 LIT " "3 GO EXITS END? 


DT SKWALTC#T» 30-JAREPYMyXs10))3 
TF CJARCPIMIXe10]20) OR CAA*BCOIJ, CFF I=0 THEN 
BEGIN STREAMCSt#SSp,A,KtaMCPRICPIMIX,h11,L1082)-T)3 
BEGIN DSe«5 LIT te S x3 
SJ*LOC $3 NSe4 DEC? 
NS+5 LIT ", A a 
DS«4 DEC3 
DStsLIT wees STteSyp+73 OStecHR3 
DIieTS Dlent+5s NSe3 FILL 
DieTS Nlent414s OS"3 FILL? 
FND STREAM3 


GO TO EXT 
END} 


DISKWAIT(=Te30eTeeJAREPIMIX®AA DIV JAREPIMIXs8]4+10)¢4 
AA MOD JARCPiM1Xs8)+S DIV 30)3 

IF (J*BCS MOD 303)<0 THEN G60 TO NULL? 

AA ¢ fT © JAREPIMIXeJd, COF] DIV JARCPIMIXs8)410 J+ 
J,CCF) MOD JARCPIMIX»8)3 

103 JeJ,CFFI? 

DO BEGIN Se(1+J),63681113 
IF W#CW3SS DIV 30) THEN DISKWAITC&Ts 302 AAW) 
IF CFE © BCS"Wx30),038:10])=#A THEN GO TO FOUND; 
IF E<A THEN JteS ELSE eS; 

END UNTIL Jmrats 


Sel} 
L « =BrS MOD 301],710:28]3 
IF L=0 THEN GO TO SANDA3 
STREAMCLeABS(L)»T)3 
RFGIN DSitsii LIT “sNFAR LINE 3 
SreLOc LE DSe#8 DFC 
NStalLrT " "S$ Hrseni"9s OSte7 FILLS 
FND STREAMS 


04700000 


START OF REL SEGMENT? DISK 


04701000 
04702000 
04703000 


04704000 


04705000 
04705500 


04706000 
04707000 
04707500 
04708000 
04709000 


04710000 
04711000 
04712000 
04743000 
04714000 
04715000 
04716000 
04716100 
04717000 
04718000 
04719000 


04720000 
04721000 


04722000 
04723000 
04725000 
04726000 
04727000 
04728000 
04729000 
04731000 
04732000 
04733000 
04734000 


04735000 
04736000 
04736500 
04737000 
04738000 
04739000 
04740000 
04741000 


T 


000030 


ADDRESS = 00107 


T 
T 
T 


a4 


A444 


AAHAHM HHH HH OY HHH HH 


ie ee 


000030 
000080 
000010 


000030 


000010 
0000:0 


000030 
0003314 
000712 
000831 
0009130 
04709000 
001333 
001680 
001933 
002333 
002433 
002531 
002611 
002682 
0027%2 
002831 
002980 
04713000 
002981 
002933 
04732000 
002983 
0033%2 
003750 
003932 
004283 
004610 
004830 
0049383 
005430 
0057%2 
006083 
04729000 
006282 
006331 
006533 
006710 
006831, 
007010 
007032 
007112 


EXIT: 


PLACEFINDFR « T3 


FND PLACEFINDERS 


04738000 
04742000 T 007133 
04743000 T 007282 
04703000 
S1ZE= 0073 WORDS 


$ SET OMIT = NOTCNATACOM ) 
PROCEDURE LOGOUTCA)3S VALUE As REAL As’ FORWARDS 


PRT¢542) = {,0GOUT 
PROCEDURF FORMTIMFCWseT)2 VALUE WeTs REAL W,Ti 


REGIN INTEGER Sobs 
STACK¢Fei1) = S 
STACK¢F42) = M 
Te(T+60) DIV 60; 
SeT MOD 60; 
TeT DIV 603 
MeT MOD 603 
TeT DIV 603 
STREAMCT»MsSpWerW))3 
BEGIN SfeLoc Ts DSe2 DEC3 
2(DSeLIT "83 ODSe2 DECI 
DIeWs DSe7 FILL 
END: 


FND3 


04999999 

%154« 05606900 
START OF REL SEGMENT’ DISK 
41540 05607000 
START OF REL SEGMENT? DSK 
2154-= 05608000 
¥154« 05609000 
¥154= 054610000 
£154 035611000 
K154= 05612000 
%154« 05613000 
21548 05614000 
%154@ 05615000 
%154= 05616000 
¥154= 05617000 
¥154= 05618000 
£154= 05619000 


T 000030 

c 9000080 

ADDRESS © 00110 

P 000010 

ADDRESS «© 00110 

Cc 000030 

c 000030 

c 000283 

C 000382 

¢C 000483 

C 000630 

¢ 000784 

c¢ 0008383 

C 000981 

C 001082 

c 001180 
05615000 

Cc OO1781 
05608000 


S'ZE= OO12 WORDS 


PRT(543) «& 


STACK ¢F 41) 
STACK ¢F 42) 
STACK ¢F 43) 
STACK EF +4) 
STACK(F 45) 
STACK ¢(F 46) 


PROCEDURE LOGSPACE(WeL)$ % THES MAY ZIP 


LOGSPACE 


057 
START OF REL SEGMENTS D 


VALUF Wels NAME WS INTEGER L3 & FIRST WORD,WORD COUNT 


COMMENT THrtS WILL CLOBRFR wORnS AROUND THOSE LOGGED 
BEGIN INTEGER BotodeKs Ns ARRAY AC*I3 LABEL OK3 DEFINE ZeLOGFREE#) 


H @ HAH 
rPZzKXAC~ Ow 


NeL DIV 53 %NO REMAINDER ALLOWED 
AterM(Bt=SPACE ¢30)1)&3078:38810)3 
IF Z>0 THEN SLEEPC(Z]»*0)3 Ze"Z}3 


$ SET OMIT = NOTCSHAREDISK) 


TF CT#APO))+64N2CJeAT1]) THEN BEGIN ]¢O08 Ke} END 


DISKWAIT(C "Be 305Z7)3 


FLSE €F yaN4+900 GEQ J THEN 


BEGYN INDEPENDENTRUNNER(P 6, LOGOUT 5 10128)3 
Ki22$ 
FND 


ELSE TF T<J DIV 2? AND J DIV 2el4N THEN Ke3 & HALF 
FLSE GO TO OK$ 


OK: 


STREAM(Ki=Ket, Stadt 2SPACr(3))3 
REGIN CI tsC1+K3 GO TO L223 GO TO Lt3 
oS?=14 LTV #idg HALF FULL"; GO TO L33 
Lit mst=19 LiIT* LOG FULL = AUTO LN"3 60 TO L33 
L2: nSt2i7 LIT"**LOG WRAP AROUND"3 
L3% pSt=lL1T%e3 
ENDS: 


SPOUTCW)E 

ATO VENGTS ALCSIeKS ALAlereres3 
WEL «43 % END OF LOG 
Jet? MOD 6)x53 SIZE OF NEIGHBORHOOD ¢NBD) 


WE NOW PUT THE 


$ SET OMIT = NOTCSHARENISK) 


TF ¢1er DIV 6)#0 THEN niSkKWalT( Re 30°Z)3 % DUMP 

TF J#0 THEN % GET NB&D 

BEGIN TF 1#0 THEN DISKWALTC Be 30074193 
MOVEC30"J»W TNX OsA NX J) 

END 


ELSp RtsW TNX O3 
DISKWATTCBe30e74+1)3 
IF e¢lad) GE® 30 THEN 
BEGIN K8eLecute30~J) +13 
peatel: 
no 


BEGIN DISKWATTOCW TNX Je TF K21020 THEN 1020 ELSE KoeZ2+J1)3 


1%314343 
END UNTIL cK8§skK710209 LEQ 03 


END} 


BWRAP AROUND 


FULL 


WORDS IN 1 


RecORp ZFRO 


00000 
1SK 


05701000 
05701010 
05702000 


05702500 
05703000 
05703500 
05703699 
05704000 
05705000 


05706000 
05706100 
05706200 
05706300 


05707000 
05708000 
05709000 
05710000 
05710500 
05711000 
05711500 
05712000 
05713000 


05714000 
05715000 
05715100 
05716000 
05716999 
05722000 
05723000 
05724000 
05725000 
05726000 


05727000 
05728000 
05728100 
05728120 
05726140 
05728160 
05728480 
05728200 
05728220 
05728240 


05728260 


T 


000010 


ADDRESS # 00111 


T 
T 
T 


AA H oH Ht CH OCA Hs 


SS ee 


~ 


000030 
000010 
000030 


0000:0 
000233 
0007:0 
001170 
001110 
OO12t2 
05705000 
001783 
002010 
002113 
002282 
05706100 
0022%2 
002740 
002712 
0031:0 
0032:0 
003421 
003731 
003933 
004034 
05710000 
004082 . 
004133 
004710 
004882 
005081 
005011 
0053%3 
0054132 
0058314 
006033 
05724000 
006132 
006331 
006510 
006631 
006912 
007083 
007033 
007540 
007631 
Q077t2 
05728180 
007933 


$ SET OMIT = NOTCSTATISTICS) 
FORGFETSPACECAD3 
$ SET oMyT = NOTCSHAREDISK ) 
Ziznze73 
FNM OF LOGSPACE3 


05728299 
05729000 
05729199 
05729300 
05730000 


05728120 
007983 
007933 
006013 
008033 
008113 

05702000 
SIZEs 0082 WORDS 


aa 


STACK(Fel) = K 
STACK(F42) = Z 
STACK(F43) = NS 
STACK(F44) = 
STACK(F 45) = R 
STACK(F46) = AVS 
STACK¢(Fsa7) = J 
PRT(165) = y 
STACKEF46) = L 
PRT(164) = Mt 
PRT(163) = MD 


STACK¢ F410) w» UT 


DEFINE 


$ SET 
REAL P 


N 3S 
GETU 
THE 
T>0 
T<0 
Ts0 
T.02 
T.£2 
N>0 
N<0 
N=0 
Nel2 
N02 

BE 

IN 


we ae FE BE OR FR BE De FR OA Be DR BO 


$ SET 
$ SET 


RE 


$ POP 
LA 
DEFINE 
IF 


MaXSrZ3(1220)#s TOMAXS17=4!3283208> 
SPEFD = €2383]4%, TOSPEEn= 23245338, 
FINP = (2431) #5 TOEUNP = 21847948» 
STARTWRD2( 26212) #+ TOSTARTWRD=26! 3681298. 
NUMENTS=C38t10)#, TONUMENT&38838210%, NUMENTM&1 02346 
DSTZFSC2120)#, TONS 7E29% 988208, 
DENN el 22226)#, TODEND22992E DKF, 
TOSIZE=82382408. NEUF SC(18:15]) #» 
FULOFFSET&4 #5 3 ONE WORD FOR EACH 170 CHANNEL, 
AVDTFFMINwa1i5S#, AVDIFFMAx#50#, & AVDIFFMAX GTR AVDIFFMIN GTR 14, 
AVTMAX=3900#, 2 MAX # WORDS ALLOWED FOR AVAILABLE TABLE ON DISK, 
% [S REFLECTED IN USERDISKBOTTOM & DISKAVAILTABLEMAX 
AVSMIN290 #» AVSMAX#300#5 %& MYN AND MAX # WORDS TO READ IN ® 4 TIM 
% AVSMAX GTR AVSMIN GTR 85, 
% BOTH MUST BE MULTIPLES OF 30, 
FrXARRAY CF IXARRAY1 oF TXARRAY 2eF I XARRAY 3) mF I XARRAY 1 ¢( MEF TXARRAY De 
SPACE CFIXARRAY3) 1] &F EXARRAY3CTOSIZEJ# 3 
OMIT = NOTCSHAREDISK ) 
ROCENURE PETUSERDISK¢(NeT)? 


VALUE NeoTS REAL NeoT 3 


05780000 
05780040 
05780020 
05780025 
05780030 
05780040 
05780100 
05780200 
05780300 
05780310 
05780400 
057860500 
05780505 
05780600 
05780605 
05780610 
05780700 
05780800 
05800000 
05839400 


START OF REL SEGMENTS DISK 


THE NUMBER OF SEGMENTS RFQUESTED*e® AND T IS THE EU# OR THE SPFEDF, 
SFROISK WILL RETURN =1s 0, OR THE ABSOLUTE DISK SEGMENT ADDRESS OF 
RESULTANT AREA. SEE 7.02441) FOR THE @1+ AND N,C€281] FOR THE O, 
=> T 1S A PREFERRED SPEED#! Tate2e3s4e.,.0 OR 31, 
z> =T JS A PREFERRED EUEt Temye"2e"3e"4e,,.9 OR 20, 
=> NONT CARE ABOUT SPEED OR EU#, USE EU WITH LEAST EU 1/0, 
ty]=7 => IF CANT GET PREFERRED SPEED# OR FU#, RETURN =4, 
$4120 =? 1F CANT GET PREFERRED SPEED# OR EU#, TREAT AS TwO (ABOVE) 
=> MAKE A SCRATCHDIRECTORY ENTRY, 
z> DONT MAKE A SCRATCHDIRECTORY ENTRY, 
=> IMMEDIATELY RETURN WITH A 0, 
$4720 => IF CANT FIND ANY USERDISKe AND Tel?81J]20» NO*@USER@DISK, 
$¢]54 => TF CANT FIND ANY USERDISKe AND T,.(231]=0» RETURN O, 

GIN 
TEGER Katt» %¥ K IS ALSO "GETUSERDISK"3 DONT USE K ABOVE LAREL OD, 


7ZoKei1. NSsZel, L2nSals 


OMTT = NOTCSHAREDISK ) 
OMIT = SHAREDISK 
Ral+1se AVSsR+i, JsAVS4#1, HeNT6, LeaVS 3 


AL MiaNT5, M2eNT4$ ARRAY UT#je10¥]3 DEFINE UsAVTABLE # 3 


OMT 
BEL AeBeCeDoF oF eGo 3 
GE TUSERDI SKePETUSERD I Sic 3 3 ee ee Oe ee OO NO ek 


N20 THEN GO W 3 


05839600 
05839700 
05839800 
05840000 
05840100 
05840200 
05840300 
05840400 
05840500 
05840600 
05840700 
05840800 
05840900 
05841200 
05841300 


05841350 


05841380 
05841610 
05841615 


05841620 


05841621 
05841650 
05841700 
05842100 


A AHA AHHH HHA a Ht gt A SH HS 


4-44 


4a4-4-7 


000030 
000010 
000030 
0000:0 
0000!0 
000030 
000010 
0000:0 
000010 
000030 
000010 
000080 
000080 
000070 
000030 
0000#0 
0000:0 
000030 
000010 
00000 
DDRESS =» 
000030 
000010 
000080 
000040 
000030 
000010 
000030 
000030 
000080 
000010 
000030 
000010 
0000'0 
000010 
000010 


0000:0 


000030 
000030 
0000:0 


0000:0 


000030 
000030 
000010 
0000!0 


00114 


PCT LF 2tL1sABSCN) 919020,0%0) 3 


£ SET OMIT = NOTCSHAREDISK ) 


Bt 


c?! 


$ 
§ 


$ 


SLEEPCFTOGLE J »USERDYISKMASK)$ LOCKTOGCUSERDISKMASK)3 


SET OM1T = NOTCSHAREDISK ) 
SET oMIT = SHARFDYESK 
My teMoteP(D) H 
POP omyT 
LiteNFUP,NEUF $3 
IF T LSS O THEN TF UCJtsIF »T GTR & THEN Loi ELSE =TJ.MAXSIZ GFQ@ NS 
THEN GO F ELSE IF Z THEN GO C 3 
IF UCYI].MAXSIZ2NS THEN 
BEGIN 
PcEFUTOF CNTY te yet eEUPOFFSETISPEULOLNTY]»,NT2eSNDeDUP) $ 
IF P LSS My THEN BEGIN MitaNT23 HteNT1 END 3 


1F P LSS mM? THEN FF UCS),SPEED®T THEN BEGIN M2t=NT23J8eNTY ENDS 
FND 3 . 


IF ¢Ytet+i1) LE L THEN GO B 
IF P(N) #M4 THEN 
BEGIN 
1F M2eM2t=2P(D) THEN TF Z AND T#O THEN 
REGIN GETUSERDISKe=13 GO G END 


FLSE JeH 3 
JtaJe-e13 GO F 3 
FAD 3 


IF 7 THEN GO C 3 

IF N.f2til THEN GO G 3 
SET OMIT = NOTCSHAREDISK ) 
SET oOMyT = SHAREDISK 

FIXARRAYCUT,Rs30)8 USERDISKSPECIALCASECTisieReUToNS)3 GO A 3 
POP oMyT 


DIss@O777777777777777 § 


$ SFT OMIT = NOTCSHAREDISK ) 
$ SET OMIT = SHARE DYSK 
Fi fF cAVStecCKtac(TtsUru) AND NUMENTM) 4+] %a(Zt2U(U],STARTWRD) MON 30) MOD 
30) NE@ 0 THEN AVSts30mAVS# AVS#SAVS4#K3 PEMD) 3 
FIXARRAYCUT»+ReAVS)3 DESKWAYTC@ReAVSeZeZ DIV 304USERDISKBOTTOM) 3 
MateP$ PcKet)s NI9ts03 NT38 ees eUL I), MAXSIZ 3 
$ POP omIT 
FS YF ¢NT¥eUTPCTI.OSIZE)>NT2 THEN IF NTL#K THEN NT2eNTQ ELSE KtwO 3 
IF nT{2NS THEN IF NTI<M2 THEN BEGIN M2eNT1$ Hel END 3 
IF PCDUP) GTR y%2I14+1 THEN GO F 3 
UT(CHI, DSIZEeNSeM2=NS 3 
IF MiteM2eNT3 THEN ULJ],MAXSIZ!te2IF NTO>NS THEN NT2 ELSE NS 32 
GETUSERDISKeUTCHI.DEND@M23 [SeP 3 
£ SET OMYT © NOTCSHAREDISK ) 
IF NeNS&O THEN BEGIN MOVECT@He CUTCHF1I),CUTI HII) 3UFUI ,NUMENTo Toy ENDS 
$ SET oMrT = NOTCSHAREDISK ) 
$ SET oMIT = SHAREDISK 


DISKWASTCReAVS,Z) 3 


05842200 
05842205 
05842300 


05842390 
05842405 
05842410 
058424141 
05842450 
O5842a75 
05842500 
05842700 
05842600 
05842900 
05842930 


058643000 
05843100 


05843200 
058643300 
05843400 
05643500 
05843600 


05843700 
05843800 
05843900 


05843950 
05844000 
05844050 
05844090 
05844140 
05844111 
05844200 
05844290 
05844915 
05844920 
05844925 
05844930 
05844935 
05844936 
05845000 
05845100 


05645200 
05845300 
05845400 
05845500 
05845590 
05845700 


05845790 
05846350 
05846360 


ee ne a 


4 


Ee 


AAA AHA ot Ot HHH 


4q4 4-4 


+44 


000,82 
000410 


000480 


05842300 
0009380 
000980 
00090 
0010384 
0010%1 
001182 
001784 
001933 
002033 
0021414 
002483 

05842930 
OOR7TSY 

05843000 
003493 

05842800 
0031383 
0034310 
003433 
003531 
003631 

05843600 
004031 
004192 
0043841 
05843400 
O0azts 
0044i1 
004583 
00453 
00453 
005233 
005233 
005430 
005430 
005410 
0056%3 
00632 
007083 
007433 
OO7T4:3 
008082 

05845100 
008482 
008633 


009084 


009682 
009930 
009980 
05845700 
010683 
010683 
010683 


$ POP OMIT 05846361 T 010810 

$ SFT OMTT = NOTC(SHAREDISK ) 05846370 T 04080 

$ SET OMIT = SHARFDYSK 05846385 T 010680 

FORCETSPACECR) 3 05846390 T 010810 

Gt UNLOCKTCRCUSERDISKMASK) 3 05846395 T 040633 
05846395 

$ POP QMyT 05846396 T 041211 

Wt FND OF GETUSERDISK 3 05846500 T 011284 
05841200 


SIZE= 0113 WORDS 


STACKeFa4i) 
STACK¢ Fel) 
STACK (Fa?) 


STACK¢(F 43) 
STACK EF 44) 
STACK¢(F 45) 
STACK(F 46) 
STACK¢EF 47) 
STACK¢(F410) = J 
STACK¢Fali) = R 
STACK(F 412) = § 


PRT¢166) 
PRT(165) 
PRT(164) 
PRT(163) 
PRT(162) 


PRT(5) = 


ude ww 


H 
K 
L 
6 


T 


PROCEDURE FORGFTUSFRDISKCAsN)3 VALUE AeNS REAL AoN $ 


05846600 


START OF REL SEGMENTS DISK 


% A 1S THE ARSOLUTE DISK SFGMFNT ADNRESS OF AN AREA N SEGMENTS LONG 
¥ WHICH 1S TO BE MADE AVAILABLE AGAYN, 
% N<O => MAKE A SCRATCHDIRECTORY DELETION, 
% N>0O => DONT MAKE A SCRATCHDERECTORY DELETION, 
% NeQ => IMMEDIATELY GO AWAY 3 
BEGIN 
£ SET OMIT = NOTCSHAREDISK ) 
$ SET oMrtT = SHARFODISK 
INTEGER AVSsFeAVS3 ARRAY UTC¥*¥]$ DEFINE UsAVTABLE #3 


AVS 

F 

UT 

£ POP aMIT 
REA, E3 INTEGER Bo CoDo le ge ReSeHENT7*KENT60 LENT Se GeNT4e TENT 32 Qe JUNK 

E 

B 

C 

D 

{ 


LARBFL VoWeXs Vo Ze AZ sBZsCZon7Z H 


SUBROUTINE SETSHIFT 3 
BFGIN 
StsPcxcH) 3 
$ SET OMIT = NOTCSHAREDISK ) 
$ SET OMtT = SHARENTSK 
UrJ),STARTWRD #21453 GtedeS 3 
£ POP omrT 
KieGeCwt 3 
END OF SETSHIFT 3 


IF N=0 OR (JteA DIV 1000000) GEQ NEUP,NEUF 
OR a LSS USERDISKBOTTOM+pISKAVAILTABLEMAX THEN GO 8Z 3 
SLFFPCFTOGLEJsUSERDISKMASK)3 LOCKTOGCUSERDISKMASK)3 


$ SET OMrT = NOTCSHAREDISK ) 
IF cD%sUlO}.MAXSI1Z) NEQ O AND N GTR O THEN ITF ¢TWOCJ) AND Dd NEQ O 
THEN BEGIN USERDISKSPECTALCASEC 3eNeUeA)$ TF NOT P THEN GO DZ END 3 


Jtayeq 3 
Vi DetpecFel( JJ) eSTARTWRD) MQD 30 3 
SET oMIT = NOTCSHAREDISK ) 
SET OMIT = SHAREDISK 
AVS1#30*(Sta¢Ctexf AND NUMENTM) 49) MOD 30+4S 3 
FIXARRAYCUTsRe AVS) DISKWATTC#Re AVSeBtal DIV JO+USERDISKBOTTOM) 3 
Kit2S} Lisf} Sts r4+c 3 
$ POP oMyT 


nem 


05846800 
05846900 
05847000 
05647100 
05847200 
05847400 
05847490 
05847590 
05847600 


05647601 
05847700 


05847800 


05847900 
05848000 
05848100 
05848190 
05846250 
058648255 
05848256 
05848300 
05848500 


05848900 
05849000 
05849300 


05849390 
05849420 
05849460 


05849480 
05849500 
05849590 
05850105 
05850110 
05850120 
05850430 
05850131 


T 000010 
ADDRESS = 00118 
000030 
000030 
0000:0 
000010 
000030 
000030 
0000:0 
000030 
000030 


ee 


0000:0 
000010 


44 


000010 


~4 


000010 
000110 
000110 
000133 
000443 
000;1%3 
000610 
000630 
0007383 
05848000 
000810 
0012%2 
001630 
05849300 
002410 
002130 
002513 
05849460 
0029%4 
003012 
00332 
00332 
0033%2 
003733 
004510 
0047383 


AAA Aa 


a4 


444 


ee | 


Wi 


xX 


GelTecnT2tecPCUrJ=1]»DUP) AND NUMENTM)4+PCXCHI,STARTWRO) 3 
SellpJ+1].STARTWRD*S3 HeKeKemls TF UTETeL),DENDZ2A THEN GO X 3 

IF UTCT+CH+L+1201V 2],DEND@A THEN ITF UTrHeT"1),0END2A THEN GO W ELSE 
ELSE IF UTLT+T+11].DENDeA THEN BEGIN LeT+13 GO W END 3 


IF ¢(LtsA+ABS(N)) GEQ HirePcUTLQte=T)»DUP) DEND@=PCXCH).DSIZE THEN GO Z3 
IF §#0 THEN 
BFGIN 
SET OMIT = NOTCSHAREDISK ) 
SET OMIT = SHAREDISK 
IF G20 OR D=0 THEN GO Y3 TF PCCG*1IDIV 2eDUP)>D THEN PC(DFLsD)3 
POP oOMY{T 
PCSSNISSETSHIFTIMOVECC,CUTrG@SIJ I] sCUT(GII)3 TeQeT+S3 
FNOD 3 


FOR HekK STEP 1 UNTIL T DO UTEH+1IJ¢UTLHI3 HeABSCN)$ GO AZ 3 
USERNTSKSPECIALCASE(C2eEoUTsJ) 3 


$ SET OMyT = NOTCSHAREDISK ) 


AZ: 


Ww om) 


nZs 


$ 
RZ! 


GO v 3 
TF PCUTEQe¢941)3,0UP),DEND@*PCXCH),DSIZESL THEN GO Z 3 
IF PCUTCNT{1 2 2Q"1),DEND,0UP) LSS & THEN PCDELeL) 3 
HeeeLtceP-c(TF A LSS H THEN A ELSE H) 3 
IF NT4 GTR T THEN MOVECK*NTy os CUTCOI J efUTCT41))) 3 
UTETIeL&HETODSIZE 12 Col QeTwQ41)4C 2 
IF¢SeS"Q)>Te IF AVDIFFMAX>Tec DIV 2 THEN AVOIFFMAX ELSE T THEN IF Jeq 
OR S#G>T+CIF AVDIFFMAX>TenTo OIV 2 THEN AVDIFFMAX ELSE T) THEN GO Y 
FLSE BFGIN 

JF CNT1L«Fe4"°K)=0 THEN GO Y3 

IF PCCS4+G) DIV 2eDUP) GTR nTt THEN PCDELeNTIDSSETSHIFTS 

FOR NTieK STEP “41 UNTIL G NO UTENTLI*UTENTI#S) 3 

END 3 


ULJST©CNTLOULCUIIRCETONUMENTIRCIF Ee CNTieNT1,MAXSIZ)<H THEN H ELSE 
NTLICTOMAXSIZ) 3 

SET OMIT = NOTCSHARENISK ) 

SET OMIT = SHAREDISK 

DISKWAITCReAVSsB) 3 

POP OMyT 

SET OMT = NOTCSHAREDISK ) 

SET OMIT = SHAREDISK 

FORGETSPACFCR) 3 

UNLOCK TOGCUSERDISKMASK)3 


POP OMIT 
FN) OF FORGFTUSERDISK 35 


05850200 
05850300 
05850400 
05850500 


05850600 
05850700 
05850800 
05850890 
05851215 
05851220 
05851221 
05851300 
058651400 


05851500 
05851600 
05851650 
05851675 
05851700 
05651800 
05851850 
05851900 
05852000 
05852100 
05852200 
05852300 
05852350 
05852400 
05852500 
05852600 


05852700 
05852800 
05852890 
05853420 
05853425 
05853426 
05853490 
05853593 
05853595 
05853600 


05853601 
05853700 


004733 
005210 
005833 
006541 
05850500 
007213 
007783 
007940 
007982 
007932 
007912 
0085130 
0085130 
009084 
05850800 
009084 
0096%3 
009832 
009882 
009930 
010381 
010730 
0110%2 
041493 
011983 
012583 
013491 
013210 
013483 
013930 
O144t} 
05852300 
014481 
015084 
015133 
015133 
015183 
015330 
015310 
015340 
015330 
015383 
05853600 
015791 
0157384 
05847400 
ST1ZE= 0158 WORDS 


a 


AA HHH AM HH HAH HHH HHH 


ta ts st st 


PROCEDURE NKBUSINESSC(BUFF)3 VALUE BUFFS REAL BUFFS 


PRT(544) = NKBUSINESS 
BEGIN 


STACK¢(F40) = RCW 
STACK¢F=2) = MSCW 
STACK¢F41) = MID 
STACK¢F42) = FID 
STACK¢F 43) = TMID 
STACK(F44) = TFID 
STACK¢F 45) 2 A 
STACK¢(F+6) = B 
STACK¢F47) aN 
STACKEF 410) = HD 


STACK(Feii) = RDT 
STACK(F412) = C 
STACK(F413) = D 
STACKEF S14) = | 
STACKEF 415) = J 
STACK¢F416) = R 
STACK¢F417) = S 


STACK¢F420) = LA 
PRT¢161) = SA 


PRT(166) 
PRT¢165) 
PRT(164) 
PRT(163) 
PRT(162) 
PRT(5) s 


H 
K 
lL, 
i 
T 


owns uv 4 


STACK¢(F 421) = £ 
STACK¢(F+6) = KTR 
STACK(F4i2) = TYPE 
STACKC(F413) = WORD 


STACKCF 415) 


HA 


STACK¢CF 416) = HEADER 


STACK¢F 421) HOR 


a 


REAI, RCWs40s 
MSCWae?s 
MIDSRCW4+1e 
FIDSMID+ls 
TMIDsSFID+t. 
TFIDSTMID41e 
AsTFIDe1s 
BeA+{? 

INTFGER N=Bot3 

ARRAY HDSN44(*I]3 

BOOLEAN RDTsHD413 


INTEGER CERDT+4 oDEC+loTaDet JRL +isRede1eSeRede 


LAtSe¢1,SAVENT2, 


HENT7eKENTO> LENT 5S eo GeNT4, TENT 39 Oz JUNKS 


REAL FebAels3 
REAI. KTR=B3 
REAL TYPESC} 
REAL WORDED; 
REAL HA=J3 
REAL HEADERSRS 


ARRAY HWORSEL*)3 


05950000 


START OF REL SEGMENTS DISK 


05950200 
05950400 


05950500 
05950600 
05950600 
05950900 
05950950 
05951000 
05951200 
05951400 
05951600 
05951700 
05951800 


05951900 


05952000 


05952200 
05952210 
05952220 
05952230 
05952240 
05952250 
05952260 


T 0000:0 
ADDRESS = 
T 000010 
T 000030 
T 000010 
T 0000380 
T 000030 
T 000010 
T 0000140 
T 0000380 
T 000030 
T 0000:0 
T 000080 
T 000030 
T 000010 
T 000030 
T 000010 
T 000010 
T 000030 
T 000030 
T 000030 
T 0000:0 
T 000030 
YT 000010 


00124 


STACK (F422) 
STACK¢(F +23) 
STACK ¢F 410) 
STACK¢F 424) 


STACK ¢F 425) 


ROOLRAN FILTOGRE+13 


FILTOG 


REAL SFGSSFILTOG413 


Seas 
£ SET oMtt 


ARRAY UTSHDI*]3 


UT 
AVS 


SHARE DISK 


INTEGER AVS=SEGS+13 


INTEGER SLFEPER@AVS+13 


SLEEPER 
$ POP omyT 


$ SET oMIT = NOTCSHAREDI SK) 


LABEL VeWoXeVeZeAZoBZoCZ>INUSEoFXITS 


DEFINE UstAVTABLE#S 


LABEL FILEIN es XDF ILE sCONFLICT»FOUND»MSGoFINISS 
£ SET oM?tTt = NOTCSHAREDISK) 
REAI, SUBROUTINE DECWORD; 


BEGIN 


STRFAMCT#OtWer WORD) 3 


REGIN 


SteWs Dilek 


END STREAM$ 


DECWORDeP3 
END DECWORD: 


SUBROUTINE SCAN3 


BEGIN 


OC Ts OS+8NFC! 


STREAMCKTReTYPFeOtTeOsWweLWORDI)3 


BFAIN 


LO: 


Lit 


rp! 


STeKTR3 


IF SCs" ™ THEN REGIN SleSI413 GO LOS END} 


IF Scan 
REGIN 


STeS7T+13 DSeLIT"0O"3 


THEN % STRING IDENTIFIER 


IF Scare THEN 


BEGIN 


SieSle13 


TF SCete" THEN DSeCHR ELSE DSeLIT" "3 


DSe6lL.1T" "3 


END ELSE 


BEGIN 


END} 


GO 71 
END3 


CHEF SC#""" THEN DS*CHR ELSE DS#LIT ")y 
IF SC#""" THEN BEGIN STe#SI+13 GO Lis END? 


StleSt413 


5 


IF SceALPHA THEN IF Sc LSS "0" THEN 


BEGIN 


nSeLrT*"0*;3 
7CIF SCmALPHA THEN DS*CHR ELSE DSeLIT” "93 
1F SC#ALPHA THEN BEGIN SfeSfy+t3 GO L23 END? 


% IDENTIFIER 


05952270 
05952300 
05952399 


05952400 


05952500 


05952501 
05952505 
05952600 
05952620 
05952690 
05952705 
05952710 
05952715 
05952720 
05952725 
05952730 


05952735 
05952740 


05952745 
05952750 
05952755 
05952760 
05952765 
05952770 


05952775 
05952780 
05952785 
05952790 
05952795 
05952800 
05952805 
05952810 
05952815 


05952820 
05952625 
05952830 


05952835 
05952840 


05952645 
05952850 


05952655 
05952860 
05952865 
05952870 
05952875 


| 44 


aA4Hoast Ht 


At AHA HH 


Se ee Nien ee ie ee | 


000030 
000030 


000030 
000030 


000030 


000020 
000030 
000010 
000010 
000010 
000030 
000110 
000430 
o00et! 
00021 
000310 
05952720 
000333 
000312 
05952710 
000333 
000410 
000430 
000533 
0005183 
000630 
05952770 
000730 
00071t2 
000732 
000834 
000833 
000823 
0009%0 
0010382 
0011482 
05952795 
0044:3 
0014143 
0013%3 
05952830 
0041413 
001510 
05952820 
004530 
001531 
05952760 
001531 
00169) 
0016!4 
001633 
001833 


Ti TALLY©13 
GO EXTS 
FND3 


IF SCSALPHA THEN TF Sc LEQ "9" THEN 
BEGIN % NUMBER 
SteSy+t3 TALLYet3 
7CTF SCeALPHA THEN TF SC LSS "0" THEN 
BEGIN TeTALLY? SreSt*T3 JUMP OUT TO 71D3 END 


ELSE IF SC LEQ *9" THEN 
BEGIN SteSy+qs TALLY*TALLY413 END)3 


Te TALLY! SreSretTs oSe«T OCTs 
TALLY#23 
60 FXTS 

END3 


IF Sc#"%e”" THEN TALLY¢3 FLSE TALLY+53 
NSe7 LETVO"S DSeCHR: 
EXT: TyPEeTALLY3 
KTReS{3 
FND STREAM$ 


PC.TYPE*STD»® KTReSTD)3 
END SCAN? 


SUBROUTINE MLOGIT3 
BEGIN 
S+TYPFNSPACE (C15 *»MAINTBUFFAREAV) 5% 
STREAMCRIEDATE sD*Se4l)3 
BEGIN 
Sy*#LOC DATES DSe8 OCT: DJ «Dy +83 
$1 +B} 


2c63¢)F Sc#%e" THEN DSe¢CHR ELSE JUMP OUT 2 TO LL))3 


LL3 NSeLIT%e™$ Dre Demy s Be DY} 
FND STREAMS 


LAe P TNX 03 
MrSJe CLA"S) DIV 53 
MeS+2]¢1F FILTOG THEN =N ELSE SEGS3 
LINKUP (18,893 
END MLOGITS 


SUBROUTINE ENTERFILES 
BEGIN 
FIXARRAYCHD® Be 30)3 
MOVE C30°HD@LeHD)3 
HN£01+@ 3600036000101; 
STREAMCDATE®XCLOCK»sHeHD INX 3) 
BFGIN 
ST*«LOC DATE? 0S+80CT3 
Nyenre203 St+Sr443 DSe4 CHR} 
NreOre73 SleHns SteSL4+52 OS#3CHR} 
DyeHs DSeA2LiT™+#%3 SpeSy"33 DSe3CHR 
FND STREAM} 


Z167@ 


05952880 
05952885 
05952690 


05952895 
05952900 
05952905 
05952910 
05952915 


05952920 
05952925 


05952930 
05952935 
05952940 
05952945 


05952950 
05952955 
05952960 
05952965 
05952970 


05952975 
05952980 


05952985 
05952990 
05952995 
05953000 
05953005 
05953040 
05953015 
05953020 
05953025 
05953030 


05953035 
05953040 
05953045 
05953080 
05953055 


05953060 
05953065 
05953070 
05953075 
05953080 
05953085 
05953090 
05953095 
05953100 
05953105 
05953110 
05953115 


SL 


+— 


Aaa a 


a+ 


AAHASs AHHH ON 


| 


05952875 
001983 
002010 
002081 

05952860 
002011 
002191 
0021!1 
002133 
002310 

05952915 
002444 
002580 

05952925 
002513 
002710 
002711 
O02a7I2 

05952900 
0027%2 
0028383 
003011 
0030%2 
003013 

05952760 
003140 
003230 

05952750 
0032!1 


003380 


0033150 
O035s1 
0037314 
0037731 
003810 
OO3834 
004340 
004280 
05953005 
004234 
OO43ty 
004583 
0049182 
005082 
05952990 
005033 
005420 
0051140 
0055%1 
005733 
0059180 
006410 
006430 
0061%2 
006211 
0063%1 
006412 


END E 


PC0,0e0+0+0,RUFFeDUP)$ BUFF eP,(15815I)913 PCOs0sB LSS 0)3 


HNT4) coer. iieg3 


% MAKE FILE NON@*MOVEABLE 


HNC7IJ*©CHDPBleNI"(CHD[ 9) 413 


HN£10 


JeA3 


ENTERUSERFILFECMIDe FIDe 66842) 0B71)3 
STREAMCMIDoFIDoNe TMIDOTFIDeFILTOGe 
ReSF FILTOG THEN 8 ELSE BUFF)3 


RFGIN 


S1t*LOC N? 


DieLOC NS 


DS+8DEC; 


Dy*LOC N? DSe/F ILL? Dre}BS 


DSeLiT™ "3 SyeLOC MIDS SleSp4#1s DSe7CHR3 


DSeLy 18/3 


OSe6LIT" SEGSa"3 


NSeL ITM /"5 
OSeLIT%e"$ 


SyeSyeq3 


SteSr4+43 


END STREAM: 


IF FILTOG THEN 


BFGIN 
MLOGIT3 


SPOUT(B)3 


END FLSE 


FORGETSPACE(B)3 


NTERFILES 


P60,050,020,020.0,0,050)3 
S SET OMIT = NOTCSHAREDISK)3 

IF RotCF)=0 THEN MAKE RESERVE/nISK 

BEGIN MINDte"RESERVE'S FIDsm"DI SK "3 


TF CATSEDIRECTORYSEARCHE@MIDeFI1D95))#0 THEN 


BEGIN STREAMCBUFF )3 


DStsqOL 17" RESERVE/DISK ALREADY PRESENTe"$ 


G0 To EXIT3 


END3 


TF CA*GETUSERDISK( CNeRESERVEDISKSIZE 8102847941) )80 THEN 


BFGIN STREAMCBUFF )3 


NStsZ2L1T"**NO USER DSK FOR RESERVE/DISKe™ 


GO TO EXIT? 

PND: 

GO TO «23 
END3 
IF RDT THEN 
BEGIN PCB)3 AtsMC BUFF INX 073 
BEGIN 
SCANS 
IF TYPrat THEN % INENTYIFIER 
BEG1N 


FILEID$ 


TMT DeWORDS 


DS«7CHR$ 


DS«8CHRS OSeBLIT" CREATED 
FILTOGCOS«6LIT" FROM "3 SIeSl4143 DS#7CHR3 


DS+7CHR); 


Ne@MCBUFF INX 13% END ELSE 


SCANS TF WORD#"/* THEN GO FXITS 


05953117 
05953120 
05953125 
05953130 
05953135 
05953140 
05953145 
05953150 
05953155 
05953160 
05953165 
05953170 
05953175 
05953180 
05953185 
05953190 


05953195 
05953200 
05953205 
05953210 
05953215 


05953220 
05953225 


05953350 
05953360 
05953369 
05953400 
05953600 
05953800 
05954000 
05954200 
05954400 
05954600 


05954800 
05955000 
05955200 
05955400 
05955600 


05955600 
05956000 


05956250 
05956300 


05956350 
05956400 
05956450 
05956500 
05956550 
05956600 
05956650 


AHH HAHAH HAA HH 


4~4-4 4 


i hh oe ee 


4-4 


44 


a 


05953090 
006413 
006711 
007130 
007271 
007531 
007780 
007980 
007930 
007983 
0080%2 
008413 
008213 
008531 
008731 
0088!2 
008910 

05953145 
008934 
0089t2 
009010 
0091330 
009231 

05953200 
009211 
009433 

05953065 
009540 
009912 
010211 
0102%1 
0103%2 
0105%2 
010810 
010984 
O113%2 
011640 

05954000 
011610 
0119%2 
012083 
012541 
0127130 

05955000 
012780 
012772 

05953600 
012782 
012713 

- 05956300 
013282 
013310 
0143480 
013483 
013591 
0136%0 
013641 


SCANS IF NOTCTYPEst OR TYPEs2) THEN GO EXITS 
TFIDeIF TYPE=? THEN DECWORD ELSE WORD} 
FILTOGeTRUE? 
SCAN} 

END3 


IF TYPre2 THEN % NUMBER 
REGIN 
AeWORD; 
SCANS 
YF TYPes3 THEN ITF WORDe"/" THEN 
BFGIN 
WORDeAS 
A<«03 
TMID*#PDFCWORDS 
GO FIrLEID: 
END ELSE SCAN 


1F TYPez2 THEN NeWORDS 
END3 


ENDS 


SEGSeNeN+(N20)3 

IF aA#0 THEN 

BEGIN 

STREAMCAsDtelFYD1)3 

BEGIN S?tslLOc As DS:3=8 DEC! END; 


IF ¢J%eA DIV 1000000) GEQ@ NEUP,NEUF OR A LSS DIRFCTORYTOP4+4 THEN 
Vt BEGIN STREAMCF IDS BUFF) 3 
BEGIN DSte2?2LIT" tNVaLTD DISK ADDRESS *3 
Syptet_OC FIDs DSszBCHR$ DSt=Ll Te} 
Dpeepr-9s OSts7 Fyius 
FND} 


GO TO FXIT$ 
END3 


IF WATTIOCLF ID INX@100000000»s G64518+F 10,(591]),£4291) THEN GO TO V3 
IF ¢Re=FJDer12t6)) GEQ 2 THEN % CHECK FOR 40 MIL ADDRESS 
IF NOT WAITIOCEFIDIINX 9140000000, 0646184F10,(5211),04381] 
THEN GO TO V ELSE IF R GE@ 4 THEN GO TO V32% NV ADD 
FND3 


IF FILTO0G THEN GO XDFILE3 
IF azO THEN GO EXITS 
SLEFPCrTOGLE J»USERDISKMASK)$ LOCKTOGCUSERDI SKMASK)3 


$ SET oMIT s NOTCSHAREDISK) 
Jede13 
BZ: Nitec lL teCFsFUL IJ) ~STARTWRD) MOD 303 
S$ SET OMIT = NOTCSHAREDISK) 
$ SET OMIT = SHARFDISK 
AVS ee30"(Ste(C8mE AND NUMEFNTM)492M0D 30483 
FIXARRAYCUTARe AVS)? DISKWAITC*R,AVSeBial DIV 30¢USERDISKBOTTOM)! 
KieSs [.t2D8 Stay4C3 


05956700 
05956750 
05956800 
05956850 
05956900 


05956950 
05957000 
05957050 
05957100 
05957150 
05957200 
05957250 
05957300 
05957350 
05957400 
05957450 


05957500 
05957550 


05957600 


05957650 
05957700 
05957750 
05958600 
05958800 


05959000 
05959200 
05959400 
05959600 
05959800 
05960000 


05960200 
05960400 


05960600 
05960650 
05960660 
05960670 
05960675 


05960680 
05960685 
05960700 


05960705 
05960800 
05961000 
05961005 
05961199 
05961200 
05961400 
05961600 


4~4 4-4 


AAH AAW 


AAA AAR AR AAA FAA OA OAS 


a4 


AAW 


0138414 
014404 
0145314 
014640 
014780 
05956500 
014710 
014783 
014831 
044920 
015040 
015210 
015242 
0153%1 
015410 
015532 
015630 
05957200 
0158:0 
0160:0 
05957000 
0460:0 
05956350 
0160:0 
0162!14 
0163:0 
0163:2 
0164%2 
05958800 
0165:14 
0146920 
017032 
0173!2 
017442 
0475140 
05959400 
017581 
017720 
05959200 
O17710 
048110 
018273 
01862 
018824 
05957750 
0168! 
01489%4 
019012 
05960700 
019512 
0195t2 
019683 
0199383 
0499183 
019933 
020410 
O211°4 


S$ POP OMIT 


Wt 


xt 


Y3 


GterreNTosecPCULJ=1)]»DUP) AND NUMENTM)+PCXCH),STARTWRD)3 
SteUfued]) STARTWRO@S3 WteKiakKet3 


IF UTETtSLJ.DEND GTR A THEN GO X3 
IF UTrTeCH+L41) DIV 2),DEND > A THEN ITF UTfHeT#1),0END > A THEN GO W 
FLSF ELSE IF UTeTeT+17,DEND € A THEN BEGIN LeT4+13 GO W ENDS 


IF A GEO LeaCHIsUTCTI DENN eCQ%sUTCTI,OSIZE) THEN 
IF ¢LAtscAeN)) LEQ@ H THEN GO AZZAREA AVAILABLE 


ELSe TF LA LEQ SALt=CUTC T4413. DEND@UTCT41),0S1ZE) THEN 
Nta,AwAt=H ELSE NizSAjeAteaH ELSE IF CLAt#A4N) GTR L THEN 


Nt=,"A ELSE RDTSsRDT OR @1000003 


GO 1NUSE: 


TMIntsIF ROT THEN “"OKTEST * ELSE “BADISK "3 


$ SET OMIT = 


END? 
FORRETSPACECR)3 
GO FXTT3 
TNUSE! 
¥ FILE. SINCE USFRDISK REMAINS LOCKED» 
% CANNOT CHANGE, HENCE, 
FORGETSPACE¢R)3 


DStsLIT *s/} 
p83213 LIT ™ NOT CREATFOC3 


NOTCDKBNODFX AND NOT DFX) 
STREFAMCIMIDeFIDoNeMIDeoRBeBUFE )3 
REGIN OStslLIT *,*%: SI&tsLOc TMID: 


1F SB THEN FLSE 


BEGIN SytelLOc N3 HSte7 DECS NIsDI3 DEteDI=73 OSte7 FILL 
NpimNs NSts5 LIT * SEGS*3 
NSt=4_ LIT " YN USE BY "3 


ENDS 


SyteSt+13 DSt=7 CHRE 
DSt=e2 LIT) +} 


& SEARCH THE DIRECTORY TO FIND THE NAME OF THE CONFLICTING 
N1SK ALLOCATYON 
THE DIRECTORY NEED NOT BE LOCKED, 


FIXARRAY(UT,R»480)3 


FOR JteDIRECTORYTOP+4 STEP 16 WHILE TRUE DO 


BEGIN DISKWAIT¢E#Rsd48095)3 


FOR I[!s14 STEP “1 UNTIL 0 NO 


BEGIN EtSUTP450+2x1)3 
IFCE €QV @114)=NOT O THEN 
REGIN MIDS#"SYSTEM "3 B&=FID$ GO Z3 END3 


END: 


ST#sSt+i3 DSt=7 CHR3 
SrtsSr4qs OSte7 CHR} 


S12 =S 7483 


IF CE FQV @14) NEQ NOT O THEN 
BEGIN RIsUTC30x749) AND 313 
FOR Kt#q STEP 1 UNTIL B DO 
IF (C8BUTL30%14+94K I NEO O THEN 
IF A GEQ@ C THEN IF A LSS 
SA,t#¢C+D22UT(30x1+8)) THEN 
BEGIN MyrDtepaccbLA LEQ SAI) AND 
CRoT ci8it5J) ei sa7sz14y3 


TF A+N GTR SAY THEN NeSAL@As 


BteUTCA5is+2xy)3 


gO TO 73 


ENN3 


ENDS 


SKIP SB3 


Sp teSpet3 
DSts7 CHR} 


DSteLIT*s"3 


05961601 
05961800 
05962000 
05962200 
05962400 


05962600 
05962700 
05962800 
05962900 
05963000 
05963100 
05963800 
05963809 
05964000 
05964200 
05964400 
05964500 
05964600 
05964800 
05964900 
05965000 


05965200 
05965400 
05965600 


05966100 
05966110 
05966200 
05966210 
05966220 
05966400 
05966600 
05967000 
05967200 
05967400 
05967600 
05967800 
05967900 


05968000 
05968200 
05968400 
05968600 
05968600 
05968900 
05969000 
05969100 
05969150 
05969200 
05969400 
05969600 


05969800 
05970000 


A+AH AHHH HHH WAS 


AAAs a 4 


i ee 


4 «+ 


021410 
021410 
021831 
022510 
0231:2 
05962400 
023983 
0244:0 
0246°1 
025130 
025783 
02613%14 
026370 
026541 
026541 
026731 
026812 
026912 
027210 
02723 
027410 
027532 
05964800 
027830 
0278:2 
027930 
05964200 
027941 
028030 
028330 
028310 
02783:0 
028310 
0283:3 
0288:0 


* 029220 


0293%2 
029530 
029710 
029852 
05967900 
030230 
0303%2 
030632 
030830 
031140 
031310 
031631 
031733 
032010 
032310 
032510 
032512 
05969000 
032733 
05966200 
0327383 
05967600 


END3 


73 
$ SFT OMIT = NOT SHARFEDISK 
UNLOCKTOGCUSFRDISKMASK); 


G0 TO ¥3 
AZ?! IF a NE@ L AND LA NEG W THEN 
REGIN YF SsO0 THEN 
$ SET OMIT = NOTCSHAREDISK) 
$ SET OMIT = SHAREDISK 
BEGIN IF G=0 OR DsO THEN | 
REGIN USERDISKSPECIALCASEC2.£.UT»JU)3 GO TO BZ END3 


St=Ip PccG+i1) DV 2eDUP) > D THEN PCDELeD) ELSE P3 
UrJ].STARTWROtar"Ss GteN=Ss Kt2G4C#13 
$ POP oMyT 
MOVECCeFUTLCDJ Jef UTLGIII3 TimTwS3 
ENDS 


FOR GtsK STEP =-1 UNTIL T DO UTCG$1) #2UT( G13 
UTLET]&sARCA@LICTODSIZEY3 
UTCT+1) §@HRCHELAI EF TODSIZEI3 
CreC4+13 
K «¢ K413 
END ELSE 


IF asl AND LASH THEN 
BEGIN Checra1s MOVECK™TSCUTET+1)}+CUTCTII23 KsekKe4 END 


FUSF UTETI%sC(9IF AelL THEN H ELSE A)&CQN)(TODSIZE]3 
UlJY NUMENT&=C3 
IF Qelifd).MAXS1Z THEN 
BEGIN OteUTPFHiek=C4+1),D0S17E3 
FOR H?=H STEP 1 UNTIL Kk OO 
IF PCUTCHI-DSIZF»eDUP) GTR @ THEN Qt=P ELSE PCDEL)3 
Urd] MAXS17%sG3 
END3 


Mipnserr Rovt THEN "DKTEST * FLSE "*RADISK "3 
$ SET OMIT = NOTCOKBNODFX AND NOT DFX) 
& SET OMIT = NOTCSHAREDISK) 
$ SET oMrT = SHAREDISK 
DISKWALTCReAVS,B)3 
£ POP omrT 
UNLOCKTOGCUSERDISKMASK)3 


FORGETSPACECR)3 
CZ: ENTFREILES 
GO FXIT3 
XOFILE? 
IF CHEANERtsDIRECTORYSFARCHCTMID»NFLAGC@TFID OR M)p4)) LSS 64 THEN 
BEGIN 
TYPE SRHEADERS 
GO MSG3 
END; 


05970200 


05970300 
05970390 
05970500 


05970600 
05970800 
05971000 
05973005 
05971095 
05971200 
05971400 


05971600 
05971800 
05971801 
05972000 
05972200 


05972400 
05972600 
05972800 
05973000 
05973100 
05973200 


05973400 
05973600 


05973800 
05974000 
05974200 
05974400 
05974600 
05974800 
05975000 
05975200 


05975400 
05975404 
05975410 
05975595 
05975600 
05975601 
05975610 


05975620 
05975630 
05975640 
05975700 
05975750 
05975800 
05975850 
05975900 
05975950 


FS ier, en en ee i 


+4 StH 


AatHtA aH 


Anaad 


ee 


03300 
05967200 
0330%2 
0330:2 
033032 
05970500 
033430 
0334:2 
0336?1 
033732 
033732 
0337%2 
0339:%3 
05971400 
O342%2 
03462 
0352:2 
0352*2 
0355'3 
05971200 
035533 
036421 
036410 
0367!1 
036812 
036913 
05974000 
036933 
037220 
05973600 
0378:0 
O383%4 
038533 
038731 
039033 
039230 
039733 
040031 
05974400 
0400314 
0402:2 
0402:2 
0402%2 
040232 
040333 
040383 
05975610 
O4807ti 
0408:0 
040910 
041230 
0412!0 
041594 
041533 
041652 
041710 
05975800 


HAfHEADER, CFF I3 
HDReECMCHEANER*|HEADER INX 03) & 3078238240)3 
MIDe*"RANISK "3 
SeHnRrBjs ¥ SEGMENTS PER ROW 
IF a#0 THEN 
BEGIN 
FOR J*HOR6 9] STEP =4 UNTIL 1 90 
TF (CLA+HDRE 1493240 THEN 
1F A GF@ LA AND A LSS LAtS THEN % FOUND ROW 
1F A+N LEO LA+S THEN GO FOUND ELSE GO CONFLICTS 
TYPE «43 
If FALSE THEN 
BEGIN 


CONFLICT! TYPE «33 


SEGSeA+N=LA&S3 
ENDS 


HF ADERUNLOCKCTMIDs TF IN sHEADER&HACCTE ))3 
GO MSG3 


FOUND: 


HDR 14+9)«03 
DISKWATTCHEADER» 300HA)} 
IF Cl#A*LA) GTR O THEN FORGETUSERDISK¢(LAe 13 


IF CL*LA+Se(LA«AtN)) GTR O THEN FORGETUSERDISKCLA1)3 


$ SFT OMIT = NOTCDKBNODFX AND NOT DFX) 


FNTFERFILES 
GO FINYS$ 
END3 


NeS$ SFGS*¢05 

FOR yeHDRCOI] STEP =1 UNTIL 4 DO 

IF ¢AeHDRE1499)#0 THEN 

BEGIN 
HDRC1+9)¢03 
DISKWAITCHEADER*®30-HA); 
WORDeAS FIDeDECWORDS 


$ SET OMIT = NOTCDKBNODFX AND NOT DFX) 


FNTFRFEILE? 
SEGSe¢SEGS4EN3 
END$ 


FINYS! 


MSG 


TO! 
T3! 


FORGE TSPACECHEADER)3 
PcDYRECTORYSFARCHC@TMID- TFIID» 6),DEL)3 
TYPre53 


3 
STRFAMCTMIDe TFIDsSEGSeAs TYPE s BUFF )3 


BEGrN 
S1+L0C SEGS*# DIe©LOC SEGS3 DS+BDEC3 DS+8NEC3 


DreLOC SEGSS DSe+BFILLS DleLOC AS’ DSeB FILLE DyPeBUFFS 


OSeLITe, 3 SpeLtOC TMrOs SpoeSy#13 DOSe7CHR3 
DSeLITW/"5s SteSl+4s DSe7CHR3 

DSe11 LIT" NOT XD#EDC"3 

CleCl+TYPE3} 

GO TO} GO T13 GO T2! Go T33 GO Tas GO T53 
OSei1 LIT*NOT ON OSK™*s GO EXT3 

DS«8 CHRE DSe6 LIT*® SFGS "3 


05976000 
05976050 
05976100 
05976150 
05976200 
05976250 
05976300 
05976350 
05976400 
05976450 
05976500 
05976550 
05976600 
05976650 
05976700 
05976750 


05976800 
05976880 
05976900 
05976950 
05977000 
05977050 
05977100 
05977124 
05977450 
05977200 
05977250 


05977300 
05977350 
05977400 
05977450 
05977500 
05977550 
05977600 
05977624 
05977650 
05977700 
05977750 


05977800 
05977850 
05977900 
05977950 
05978000 
05978050 
05978100 
05978150 
05978200 
05978250 
05978300 
05978350 
05978400 
05978450 
05978500 
05976550 


AA HHH aA HR IS 


i ee | 


AHA H HATA Hs HHA Ht 


041730 
0418°1 
042182 
0422:2 
042352 
0424314 
042433 
042833 
043033 
043332 
043910 
043983 
044030 
0440:2 
044121 
044332 
05976600 
0443°2 
044583 
O446%1 
0446%4 
044810 
0449%4 
045232 
045784 
045744 
045830 
045812 
05976250 
045832 
046030 
046430 
046610 
046632 
046851 
046912 
047112 
047142 
047330 
O47at) 
05977450 
047433 
O4a74t3 
0475%2 
Oa77S34 
047830 
047830 
048010 
048010 
048440 
048201 
0483%2 
0aB4gte 
0486'4 
0486%3 
048834 
049084 


3 NS¢6 LIT*IN USES GO EXTS 
: DSe14 LIT*SYSTEM FILE”™$ GO EXT 
S1eS 1483 oSe8 CHR; 
NSe12 LIT™ NOT IN FILE™S GO EXTS 
T53 DreOrs113 
NS«6 LIT* SEGSs"3 DSeB CHRS DS*7 LIT" XD"EDeS 
TYPE*D1$ DY+BUFFS NSebLyT™ "% DI * TYPES GO EXT3 
EXT? NS«? LyTM <3 
END STREAM3 


Ae1$S NeSFGS? ¥ FOR LOGGING 
GO FXxTT; 
eXyT? 
1F a#O THEN 
BEGIN 
ReBUFF3 
MLOGIT3 
ENDs 


Te ROT THEN MESLEEPER INX O}] 3:21 ELSE SPOUTCRBUFF)} 
BUFF &=s0% TF MSCW NEO 1 THEN KILL CCMSCWI)3 & CALLED AS IND, RUNNER 
ENDS 


05976600 
05976650 
05978700 
05978750 
05978800 
05978850 
05978900 
05978950 
05979000 


05979050 
05979100 
05979310 
05979320 
05979330 
05979340 
05979350 
05979360 


05979400 
05979500 
05979600 


ee ee ee 


T 
T 
T 


049142 
049223 
049433 
O49Stt 
ON97TS4 
049782 
050020 
0501:2 
050230 
05978400 
050284 
050313 
O50at! 
050484 
050513 
050634 
050710 
0508:0 
05979330 
0508380 
0512142 
051531 
05950200 


S1ZE= 0516 WORDS 


STACK¢F41) = 100 


SAVE PROCFOURE OISKIOCLOCIOD,COREs SIZE oDISK 3% 


STACK¢ Fa?) = OLAYIO 


STACK¢F43) = FIN 


$ SET 
$ SET 


$ POP 


$ SET 


06000000 


START OF SAVE SEGMENTS BASE 


VALUF CORE ,SIZEsDYSKS% 


REAL 


LOCIODs% 


INTEGER CORESSIZESDISK3& 
BEGIN REAL 100s OLAY?10O, FINS 


OLAYIO $= SIZE.£33173 
COREtSCORE? SIZFEt=SIZEs OISKtsDISKS & INTEGERIZE £6450 


oMtT 
OMIT = 


OMtT 


OMIT = 


SIZE.C3t1] t= 03 


TF DISK,£1'4) THEN 
BEGIN ®% AUXILIARY MEMORY 


= NOTCAUXMEM) 


AUXMEM 
PUNTCINVLDAUXI0)3 


END 


FLSE BEGIN [0D :* ABSC¢CCORE) & SIZEC8138810] 
& CCSIZE INX 29) DIV 30 +@1000)fcTF) 
& COREL2Z4#1%14) & 3658463215 
NOTCSHAREDISK) 
STREAMCHISK»DSsCORE,[CFI)3 
BEGIN SI « LOC DISKS DS ¢ 8 DEC ENNIS 


SIZE «+ 23% 
ENDE% 


FINteIF OLAYTO THEN IOD&DISKECTCI&DISKC8:21212) ELSE 10D 

% ACTUAL DISK ANDRESS IN FINALQUE FOR OLAY 3/0°S 

LOREQUESTCNABSC(FINIB@377( 2584088) + 10DefLOCIODIRS 
CSIZEF+16IL1284226 JROLAVYIOL9#I47841)3 

LOCIOD « O8% 


END OYSK{O3% 


06001000 
06002000 
06003000 
06004000 


06004010 
06004100 
06005000 
06006000 
06006999 
06009200 
06009300 
06009400 
06009500 


06010000 
06011000 
06012000 
06012499 
06013000 
06014000 


06015000 
06016000 


06016100 
06016200 
060147000 
060418000 
06019000 
06020000 


T 


000030 


ADDRESS = 00597 


T 


AAHAAR AHO a4 


Se Re, Meee ee eee | 


AA ANA AA 


000010 
0000:0 
000030 
000030 


0000:0 
000333 
0006:0 
0006!3 
O0OT?4 
0007: 1 
0007314 
0008630 
000810 
06006000 
0008:0 
0009314 
001183 
001412 
001482 
001630 
060;4000 
0016%3 
0041732 
060140000 
001712 
002411 
002141 
0023:2 
002671 
O02TI4 
06004000 


S1ZE= 0028 wORDS 


PRT¢160) & T 


PROCEDURE FORGETESPDISKCSEGMENT)3 VALUE SEGMENTS REAL SEGMENTS FORWARDS 
START OF REL SEGMENTS DISK 


REAL PROCEDURE GETESPDISK3&% 


06020500 
06021000 


START OF REL SEGMENTS DISK 


BFGIN REAL T=NT18 


FNDs 


1F ESPCOUNT#®0O THEN 
BEGIN 
STREAMCDt=sTtxSPACE(2))3 
DSe12 LrT * NO ESPDSKe"™3 
SPOUTCT)3 
SLEEPCCESPCOUNTIJ,NOT 0O)3 
END} 


STREAMCT#OsAek SPTABIX«0)3 
REGIN SIeA3 
Lit TF SC=""" THEN BEGIN Sfe#Sife13 GO TO Li END} 


AeSI3 DreA3 
L2! YF SB THEN 
PEGIN TALLY*TALLY415 SKIP SB SKIP DBS GO TO L? ENDS 


Te TALLYS DS#SET3 
END: 


GETESPDISK*CCP (DUP) CCF J*ESPTABIX8 
+P CXCH),£3083))x64P+ESPDISKBOTTOMS 
ESPCOUNT«ESPCOUNT@43 


06022000 


06022100 
06022200 
06022300 
06022400 
06022500 
06022600 
06022700 


06023000 
06024000 
06025000 


06026000 
06027000 
060268000 


06029000 
06030000 


06031000 
06032000 
06033000 
06033100 


T 


000030 


ADDRESS = 00142 


T 


0000380 


ADDRESS = 00142 


A+ aH 


AAAs 


000080 


000030 
0001:0 
000132 
0004a'4 
000634 
000732 
Q009t] 
06022200 
000981 
0010383 
0011480 
06025000 
001210 
0012%2 
001310 
06028000 
001430 
0014%2 
060234000 
001433 
001630 
00191 
0020:2 
06022000 


S1ZEs 0021 WORDS 


STACK¢(Fe1) = § 
STACK¢F42) = T 


PROCEDURE FORGETESPOISKCSEGMENT)3 VALUE SEGMENTS REAL SEGMENTIY 


06036000 


START OF REL SEGMENTS DISK 


BEGIN REAL SeT3 


TF SEGMENT LSS FSPDISKBOTTOM OR 
SEGMENT GTR ESPNTSKTOP THEN 
BYBYC"ESPDISk ERROR«%o44)3 


Tes(St=(TteSEGMENT@ESPDISKBOTTOM) DIV 6)x6@T3 
$oS,630815)8S( 308459 31+ESPTABS 
STREAMCT*®S)3 BEGIN SKIP T DBS OSeRESET END? 


ESPCOUNT+ESPCOUNT+13 
END3& 


06037000 


06037100 
06037200 
06037300 


06037700 
06038000 
06038100 


06038200 
06039000 


T 0000:0 


ADDRESS # 00143 

T 0000!0 

T 0000:0 

T 000491 

T 000284 
06037300 
06037300 

T 000842 

T OO¢291 

T 001510 
06038100 

T 0017320 

T 001891 
06037000 


SIZE= 0019 WORDS 


$ SET OMIT = NOTCHEBUGGING) 
REAL SCHENULEIDNSS x» A BIT TN POSITION X MEANS THAT THERE 1S A JOB IN THE 
PRT¢545) = SCHEDULEIDS 
% SCHEDULECSHEET) WITH SCHEDULE*ID X. USED BY COM5, 
% SELECTRUN AND CCFINISH, 
& SET oM!IT = NOT¢SHAREDISK) 
SAVE PROCEDURE DISKWAITCCORE,SIZEeDISK)3 


06045999 
06056099 


06056100 
06056200 
06057000 
06061500 


START OF SAVE SEGMENTS BASE 


VALUE COREsSIZE*DISK3 
REAL CORE sSIZEeDISK$ 
BEGIN REAL T3 
STACK¢(Fai1) = T 
DISKIOCT»CABS(CORE I #1) &CORELIL21491]-SIZEeDISK)3 
SLEEPCCTJ]»+1OMASK)3 
FND3 


06062000 
06063000 
06064000 


06065000 
06066000 
06067000 


000030 
000030 


000030 
000030 
000080 
000030 
DORESS = 00625 
000030 
000010 
000080 


AANA PAH A 44 


“4 


0000!0 
0003%2 
000510 
06064000 
SIZEs 0006 WORDS 


a4 


q 
PROCEDURE DISKSQUASHCBUFF)3 06068000 T 0000:0 e 
START OF REL SEGMENTS DISK ADDRESS # 00144 
PRT¢546) = n1TSKSQUASH 
VALUE BUFFS REAL BUFFS 06068100 T 000010 € 
BEGIN 06068200 T 000080 
REAL RCws40, Baele EeB41> Fabet, ReF+ti, Hf eRe], LOsHI +1, 06068300 yr 000080 
STACK¢F40) = RCW e 
STACKeF41) = 
STACK(F42) = 
STACK¢F43) « e 
STACK(F44) = 
STACK¢(F45) = HI 
STACK¢F46) = LO e 
MSCWaede 06068350 T 0000:0 
STACK(F"2) = MSCW 
CNT=LO#1s USEECNT#+1* TOGRUSE41, [OLETOG+13 06068400 T 000010 @ 
STACK(F47) = CNT 
STACK(F410) = USE e 
STACK(CF 411) = TOG 
STACKEF412) = [0D 
REAL Tey;ONe1» SUMET; 06068500 T 0000:0 e 
STACK¢F413) = T 
STACK(F413) = SUM ; 
REAL Als Tale AP=A1415 A3SA241+ A4SA341» ASwAG41) ¥ ARRAY VARTARLES 06068600 T 000010 
STACKER 414) = AY e 
STACK¢F415) = AQ 
STACK¢(F+16) = A3 
STACK(F 417) = AG @ 
STACK¢F+20) = A5 : 
| REAL X1eAS415 X2eX4al~e X3=X2e10 X4eX3e1e X5eX441s & SCRATCH VARIABLES 06068700 T 000010 
STACK¢F 421) = X4 é 
STACK¢F 422) = X2 
STACK(F423) = X3 
STACK¢F424) = XQ rd] 
STACK¢F 425) = X5 
REAL LOCTODeX4* HICNT#X4» LSTCNT&X5$ 06068800 T 0000:0 
STACK(F 424) = LOCIOD a 
STACK¢F 424) = HICNT 
STACK(F 425) = LSTCNT 
BOOLFAN CONFLICT=X541» PASSTWOSCONFLICT#1» EFUNOTSQUASHENSPASSTNOS1. 06068900 T 000030 @ 
STACK¢F 426) = CONFLICT 
STACKEF 427) = PASSTWO 
STACK¢F430) = FUNOTSQUASHEN @ 
FILEOKZEUNOTSQUASHE D415 SQALLEFILEOK+413 06069000 T 000030 
STACK¢F 431) = FILEOK e 
STACK¢F 432) = SQALL 
INTEGER C=SQALLe1* DECei+ [RDeis, Sepole EUmSet, AVEEUS> 06069400 T 000010 
STACK¢ F433) = C 
STACK¢F 434) = D @ 
STACK¢F 435) = ] 
STACK¢F436) = S 
STACK¢(F 437) = EU @ 
—STACK¢(F 440) =. AV 
AVSIZESAV44> DISKAVEAVSIZE44> SQSIZFEDISKAV+]3 06069200 T 000080 
STACK¢ F441) = AVSIZE ® 
STACK¢F 442) & DISKAV 
STACK¢ F443) = SQSIZE e 
a 


STACK¢F 44a) 
STACK¢(F 445) 
STACK (CF 446) 
STACKEF 447) 


STACK¢F 450) 
STACK¢F 451) 


ARRAY UTESQSIZE¢1(e]» MVEUT+1p*#]*e DIR=MVezcue)s EUSSDIR+{L¥)3 


REAL PRTADPR#EUS+15 PRIVALUE=PRTADDR413 


PRTADDR 
PRTVALUE 


£$ SET OMIT = NOT SHAREDISK 
LABEL SCcAN,SPOUTERR,CK »OKINUSF »sNOTOK sOKBOUNDS »MVEMORE o MVE» 
ENDMVE pAGAIN, OK sNEXT,SQ7T,STOPSO,STOPITsSOXITsOUT oF IXMVE 


DEFINE 


$ SET oMrT = SHA 


$ POP 


COMMENT 


DEFINE 


U 

OMIT 

1, TNK 
ASIZE 
LOCKED 
FACTOR 
MINSIZE 


MAXMVSIZE 


KEYINMASK 


FACTOR? 


MINSIZE& 


MAXMVS|ZE3 


cELL 
STOP 
STOPCK 
MOVEABLE 
TEMPNSK 


& 


R 


uu aH eH 


FDISK 
AVTABLE#>, 


r12%i0)#, 
(3819I)#, 
coril#s 
190004, 
108» 
900#, 
18215783 


THE MAXIMUM SEPARATION» IN SEGMENTSs ALLOWED 
BETWEEN TWO AVAILABLE AREAS WHICH ARE TO BE 
SQUASHED, IN GENERAL» FACTOR SHOULD NOT BE MADE 
LARGER THAN THE CAPACITY OF A 20 ML SUBMODs1.E,» 
402000 SEGMENTS, 

THE MINIMUM SYZE» IN SEGMENTS» ALLOWED FOR AN 
AVAILABLE AREA TO BE CONSIDERED AS A CANDITATF 
FOR SQUASHING, MINSIZE MAY BE MADE AS SMALL AS 
ONEs BUT AS SQUASH TIME VARTES INVERSLY WITH 
MINSIZE» SMALLER VALUES WILL INCREASE SQUASH® 
ING TIME PROPORTIONALLY, MINSIZE LIMITA® 

TIONS MAY BE OVERRIDEN BY THE LOOKAHEAD 
FACILITY, 

LIMITS THE NUMBER OF INDIVIOUAL AREAS IN AN 
IN“USE AREA To BE AT MOST MAXMVSIZE/3 AREAS 

FOR SQUASHING TO OCCUR, 


NOTES 

1) MAXMVS?'Ze MUST BE LESS THAN 1024, 

2) MAXMVS!ZF MUST BE A MULTIPLE OF 3, 3 
MrPRTADDORI#, 


= MCPRTADDR)#, 


IF MECPRTADOR] THEN GO STOPSQ#,» 
NOT DIRCECX34+4),(42%1)] #> 
MVECI +2) ori ta )83 


SUBROUTINE SQUASHMESS3 


BEGIN 


IF (X82 PCXCH))>1 THEN X3tsIF SQSIZE#0 THEN SQSIZE 
ELSF FUSCEUt1) DSIZE3 

STREAMCALSEURME SBisXieCPex3, C1 &eOeC2t 20, CX tds 
NOSQ?SFUNOTSQUASHED, X2t=xX2ieSPACE(10))3 


BFGIN 


CitsCys GO TO LOS 
StészLOc As DS8e4 LIT* EU #3 HSts?2 NEC} 
Drit=zDI723 OSterrLLs DItsas Crs#CKX$ 


At=DI: 


06069300 


06069400 


06069500 
06069900 
06070000 
06070100 
06070200 
06070300 
06070400 
06070500 
06070600 
06070700 
06070800 
06070900 
06071000 
06071100 
06071200 


06071300 


06071400 
06071500 
06071600 
06071700 
06071800 
06071900 
06072000 
06072100 
06072200 
06072300 
06072400 
06072500 
06072600 
06072700 
06072800 
06072900 
06073000 
06073100 
06073200 
06073300 
06073400 
06073500 
06073600 
06073700 
06073800 
06073900 
06074000 
06074100 
06074200 
06074300 
06074400 
06074500 
06074600 


AHA HHH HHH HHA A HAAS HA A tA A A A A tt st 


0000:0 


000010 


000080 
0000380 
000080 
000010 
000010 
000010 
000080 
600030 
0000380 
000040 
000080 
000010 
000010 
000010 
000010 
000010 
000020 
0000:0 
0000!0 
000010 
000020 
000010 
000030 
000030 
000070 
000030 
0000:0 
00000 
000030 
0000:0 
0000:0 
000030 
0000:0 
0000!:0 
0000:0 
000030 
0000:0 
0000230 
000010 
000070 
0001:0 
00034390 
0004:0 
000683 
0009180 
001183 
001143 
001231 
001382 


0 teCy; TO DS 
Lis pete? Lre™ SQuASHm 
LA: CypreCy+B3 
GO TO LLOs GO TO LLOF GO TO LL23 GO TO LtL23 
LLO? CXteC ys cCpyisc13 
RCNOSQ(CDSSSLIT”™ "3 CXseC1s C1t=C2))3 
cXteC 7? GO TO L113 
RCNOSQC JUMP OUT 2 TO LL1)3 DS#22 LIT*ED"? 
JUMP OUT TO LL41)3 
NSt=a3 LIT ING™s 
LL! G40 TO FXT3 
LLet pStelLIT"™ "3 CXtacys Cytaco3 
CXteC rs GO TO Li3 
STiseRs ScST@sSl"B)s Br sSyy 
RBCCX3zC] se CytsC1 3 
OSte22 LIT C3 SytsLOe C3 
DSts6 NEC] CtaDy3s DyteDI763 ODSIsH FILLS DI sacs 
OStei9 LIT” SEGMENTS AVATLABLE'™3 
RCJUMP OUT TO LL3)! DSt24 LIT ON 3 
CXtsC rs Crist} 
LL3i OS taLyT* yes 
EXT? OStsLy Te"; 
ENn: 


TPNULL"$ CLtsCXs 


SPOUT CX2)3 
END PRINTING MESSAGES? 


SUBROUTINE SCANMESSAGE? 
BEGIN 
XPrarXStaNeuP, CFF IIT13 XoeteBUFE,£30948)3 
FIXARRAYCEUSs A5exX5)8 
MOVE (X52 A5™15A593 
XSt=ets X WILL BE GE@ ZERO AFTER FIRST PASS THRU SCAN 
SCAN3 
STREAMCAS=SO0+SIZIsOrE Vy tent pEUSt Hoy eERRTOGSEOSNOtE0e 
BIEXS<OsFUIHO2564ON0000000000.CXtzOrC1te0, 
Cet|eOeKTRisx2)}3 
BEGIN 
CyisC1; GO TO La; 
IF Sc<O THEN 
AO: BEGIN TALLYt=13 NOtsTALLY$s CIt=scCX ENDS 


TF Stw12 THEN GO TO AQ; 
NnypislLOc §173 
Lit F SC GEQ O THEN JF Scei? THEN 
BEGIN 
TALLY? a TALLY41$ 
SttsSy+t3 
GO TO Li3 
FND: 


NOtSTALLY3 
SrisSt"NO} 
NHSteNO O¢cT3 
TALLY #203 NOteTALLY3 
Cyt=CX} 

L2: C2teCys gO TO STR$ 


06074700 
06074800 


06074900 
06075000 
06075100 
06075200 
06075300 
06075400 
06075500 
06075600 
06075700 
06075800 
06075900 
06076000 
06076100 
06076200 
06076300 
06076400 
06076500 
06076600 
06076700 
06076800 
06076900 


06077000 
06077100 


06077200 
06077300 
06077400 
06077500 
06077600 
06077700 
06077800 
06077900 
06078000 
06078100 
06078200 
06078300 
06078400 
06078500 


06078600 
06078700 
06078600 
06078900 
06079000 
06079100 
06079200 
06079300 


06079400 
06079500 
06079600 
06079700 
06079800 
06079900 


AHA AHHH HATA HH Ht HAH a ss 4 


Ata 


SS 


001433 
001631 


001753 


. 0048581 


001921 
001933 
002251 
002233 
002531 
002610 
002633 
0027:0 
002830 
002872 
002933 
003310 
003133 
003310 
003533 
003733 
003631 
003883 
0039%14 
06074300 
00392 
004033 
06073800 
0041:%0 
0041310 
004130 
00442 
004833 
005083 
005433 
005413 
005431 
005533 
005612 
0056:2 
005730 
0057:2 
06078500 
0056t1 
005930 
0059!) 
0060%1 
006031 
006032 
006013 
006410 
06078900 
0061410 
O0061!1 
006113 
006211 
006233 
0063:0 


TALLY8=13 DytsLOc EUS 
TF 2 SCeDC THEN & AN 
REGIN 
CXtstt# GO TO L33 
IF SC GEQ O THEN IF SCe12 THEN 
REGIN 
SpteSyets OFt=Loc EU13 
IF SC GE@ O THEN IF SC«12 THEN 
TALLYt2? FLSE GO TO AY 
Syt2Sy=1s NOPsTALLy} 
DSt=NO OCT’ TALLY!=03 
END ELSE GO TO Aq? 


FU SPECIFIED 


ENDS 


NOTETALLYS CIESA3 
CL SEAS 
L3: TF SCs" " THEN BEGIN SI#=S34+13 GO TO L3 ENDS CItacxs 


STR! SyseKTR$ Cre2ecl+B3 GO TO L5$ GO TO L43 
La: YF SCm%e* THEN GO To FXTS 
CXtsCys CyssCys x SeZE CHECK 
NOCJUUMP OUT TO L5)3 
CXtsC1s GO TO L33 
IF SC#*e" THEN 
Ai: G0 TO ERR3 
GO FXT3 
LS: At=CIs Crt=c23 & EU CHECK 
NOCJUMP OUT TO ERR); 
TF Sts*-" THEN 
REGIN 
STtaeS}eis CX#acrs GO TO L33 
CXteCl3s Clt=C13 & SIZE CHECK 
NOCJUMP OUT TO L6)3 GO TO L73 
L63 TALLY*sEUL3 EUStETALLY3 
At= Cl3 CiseC23 & EU CHECK 
NOCJUMP OUT TO ERR); 
FND3 


L7: At=TALLY; % ZERO OUT 4 
1F SC=2"e" THEN GO TO FXT3 
TF SC#e"s" THEN 
RFGIN SrtaSy4t3 atsSts GO EXT ENDS 


ERR! TALLY%=13 ERRTOGte]e TALLY 
EXT: 
ENn3 


IF P THEN & ERROR IN [NPUT MESSAGE 
BEGIN 
SPOUTERRS 
SPOUTCPCBUFF.£19215971 sDUP QM[ P94 6989897)5 
FORGETSPACECAS)3 
PcxyT)3 
FNn3 


1F (X3%tsP) GEQ O THEN & AN EU RANGE SPECIFIED. 


06080000 
06080100 
06080200 
06080300 
06080400 
06080500 
06080600 
06080700 
06080800 
06080900 
06081000 
06061100 


06081200 


96081300 
06081400 
06081500 


06081600 
06081700 
06081800 
06081900 
06082000 
06082100 
06082200 
06082300 
06082400 
06082500 
06082600 
06082700 
06082800 
06082900 
06083000 
06083100 
06083200 
06083300 
06083400 


06083500 
06083600 
06083700 
06083800 


06083900 
06084000 
06084100 


06084200 
06084300 
06084400 
06084500 
06084600 
06084700 
06084600 


06084900 


“4 AAH HARASS 


~a4 


AM HHM AWS HH ts Hs + 


4~44— 


44-4 


a ee 


006352 
0064:0 
0064!%2 
0064!2 
0065170 
0066:0 
0066!0 
006612 
0067%2 
0068%4 
006833 
006912 
06060500 
0070120 
06080200 
0070:0 
007082 
007083 
06061500 
007230 
007331 
0074:0 
007482 
0075%3 
007631 
007633 
0077:0 
007751 
007713 
0079:0 
0079:2 
007982 
0080%1 
0086033 
0082!1 
008331 
0083!3 
008510 
06082700 
0086520 
008531 
008610 
008622 
06083800 
0087%4 
008733 
008783 
06078200 
0068630 
0088:0 
0088%2 
0088:2 
009330 
009333 
009480 
06084300 
0094!0 


BEGIN 
TF (X4t=P)>x1 OR X35Xq THEN GO SPOUTERR?S 


FOR 1t2X3 STEP 1 UNTIL X4 DO EUSE 1) 2213 
PCDELIS GO CK3 
ENn3 


X5t=eP¢eXcH)s & SIZE OF SQUASH 
1F ¢(X4teP) GEQ O THEN IF X4>X4 THEN GO SPOUTERR ELSE 
EUS(CXa}t=1aXSpTONSIZE) ELSE IF X5s0 THEN SQALL#514 
ELSE SOSIZE8=X53 

CKi IF ¢(Xot=P)40 THEN GO SCANS &% NOT FINISHED YET 

END SCANNING INPUT MESSAGES 


SUBROUTINE FYXANDWRITEHEADER? 
BEGIN 
MEA4+94KX?, C2885] )%sC$ 
DISKWAIT(A4s300X%2,(CFJ)3 
END WRITING NEW HEADERS 


SUBROUT NF ROUNDARYCK$ 
REGIN 
LSTCNT#=03 MC AQ@4)8eR43 
MVEMORE? 
X322HTCNT#203 STOPCKS 
FOR ;t=CNT STFP #3 UNTIL O DO 
IF POMVET]+DUP).DEND>X3 AND PCXCH)20 THEN 
BEGIN X3S=MVIT].DEND? HICNT?=!1 ENDS 


1F X320 THEN & RE@*ORDFRING OF MV ARRAY COMPLETE 
BERIN 

MVELSTCNTS+27), LINK SSO 7773 

GO OKBOUNDS3 
ENN; 


1F MfA2"11<0 THEN MLA2P1]$eHICNT ELSE MVELSTCNT+2),LINKSSHICNTS 


MVrLSTCNTIsHICNTItsNABS (Pc DUP) )3 
MVFHICNT4+1),( 2826) SHI3 
HI stHI™CX3SteMVCHICNTI DSyZF 3 
IF X3 LEQ UTLAV4eLIASYZE THEN 
OKt BEGIN 
MVEHIOCNTseelts03 
GO MVEMORES 
ENn ELSE 


BEGIN ®% LO@KING FOR TEMPORARY STORAGE 
FOR YeaSe? STEP =1 UNTIL D DO 
IF X3 LEQ UTETI,ASIZE THEN 


IF NOT UTCITIJ,LOCKED THEN ® OK FOR TEMP STORAGE 


REGIN 
MVCMTCONTs2]2eUT C7] OFND&I1C2238810)3 
GO MVEMORE3 
END3 


ENn? 


IF PASSTWO THEN % NON@=PROTECTED FILE TRANSFER 
BEGIN 


060865000 
06085100 


06085200 
06085300 
06085400 


06085500 
06085600 
06085700 
06085800 
06085900 
06086000 


06086100 
06086200 
06086300 
060864800 
06086500 


06086600 
06086700 
06086800 
06086900 
06087000 
06087100 
06087200 
06087300 


06087400 
06087500 
06087600 
06087700 
06087800 


06087900 
06088000 
06088100 
06088200 
06088300 
06088400 
06088500 
06088600 
06088700 


06088800 
06088900 
06089000 
06089100 
06089200 
06089300 
06089400 
06089500 


06089600 


06089700 
06089800 


AA H AA HHH HMA HH HHH 


ee ee 


asta ta oH St 


a4 a4 


009510 
0095!2 
00981 
040332 
010434 
06085000 
0104%1 
040530 
0407814 
011183 
011333 
011531 
06077300 
011582 
011610 
011630 
011910 
012033 
06086200 
012350 
012180 
012130 
012410 
012480 
0127:t0 
0128:0 
043083 
06087300 
013533 
013682 
0143780 
014080 
074082 
06087500 
014032 
0148t2 
015033 
015333 
015691 
015631 
015833 
0160%2 
016430 
06088400 
016110 
016122 
016533 
OL167Ri 
016930 
0469%2 
017310 
0173%2 
06089200 
017440 
06088800 
017410 
O174aty 


DISKWATTC*AG4s 30eMVIHICNT4+2], 
STREAMCASSCM( AS+MVIHICNT42), 
BEGIN 
OSte27 LIT" #FYLE INTEGRITY CONFLICTS "3 Sytsa3 
SyteSteds DSt]e7 CHRS DSteLyTr/s SyraSypet3 
DSt#7 CHR} DStshyT%en3 
ENDS 


3 
DJ) eX2texPiezSPacr(6))} 


SPOUT(X2)5 CELL eKFYJNMASKS=73 
SLFEPCCPRTADDR INX M).@77777)5 STOPCK3 
IF CELL=2 THEN BEGIN CELLtsO81(CTFI3 GO TO OK END3 


ENn €LSF CONFLICT#=TRUE3 


TOR3S=0; 
OKROUNDS! 
FND ROUNDARY AND CONFLICT CHECKINGS 


BOOLEAN SURROUT]NE y;NUSEOK3 
BFGIN 
UTrAVe1], Fi21]'=NOT PaSSTWO? ToGtsi1? CNTi203 
FOR X1#=SDIRFECTORYTOP+4 STEP 16 WHILE TRUE DO 
BF GIN STOPCK3 
NISKWAIT¢C HAG» 480,X1)3 
FOR 13814 STEP =4 UNTIL O DO 
RFGIN STOPCKS 
TF CCFPENIREASO+PC Le pUPs+))) EQV O114)=NOT O THEN 
GO TO NOTOK; 
IF ce EQV ©44)4 NOT OU THEN 
RFGIN FILEOK%=FALSE? % INITtATE STATUS CHECKING 
Btepi Ree xX3ta230xy 49), 74385373 
FOR X2te4y STEP 4 UNTIL B DO 
IF (CRSP IR(X3+94X2))#0 THEN 
IF PCCeDUPJ<HI AND PCXCH)>LO THEN 
IF FILEOK THEN GO FIXMV ELSE % CHECK STATUS 
TF NOT SYSTEMFILECE*DIR£4504PC] eDUPs4)411) AND 
DIREX3#4),01284]20 THEN % NOT SYSTEM FILE 
IF CPCOIREX34+4),DUP),¢183]7 OR PCXCH),£16920) OR 
DIREX3+9),01#281)20 THEN % FILE NOT N USE 
IF MOVEABLE THEN % NOT PERMANENT 
BEGIN 
FILFONtsTRUES & ELIMINATE STATUS CHECKING 
FIXMV3 USE txtISE@CMVCCNTJ) teC&DIR(X3+8)(TODSIZE}) 
wOSIZE3 
MVECNT4i]) $eCXi+]&XOFCTFIS & HEADER INFO 
IF PASSTWO THEN &% SAVE LOC OF FIDS 
MVECNT+2) teCXit1SIOCIxX2dCCTFI3 
IF USFeO THEN % FOUND ALL USERS OF IN®#USE AREA 
BEGIN 
BOUNDARYCK3 
GO OKyNUSE$ 
FND3 


IF USE<O THEN GO TO NOTOK$S & DIRECTORY ERROR 
IF CONT? @CNnTs3)2 MOD 150 = O THEN 
BEGIN 

IF CNT=MAXMVSIZE THEN GO TO NOTOK3 


06089900 
06090000 
06090100 
06090200 
06090300 
06090400 
06090500 


06090600 
06090700 
06090800 


06090900 


06091000 
06091100 
06091200 


06091300 
06091400 
06091500 
06091600 
06091700 
06091800 
06091900 
06092000 
06092100 
06092200 
06092300 
06092400 
06092500 
06092600 
06092700 
06092800 
06092900 
06093000 
06093100 
06093200 
06093300 
06093400 
06093500 
06093600 
06093700 
06093800 
06093900 
06094000 
06094100 
06094200 
06094300 
06094400 
06094500 
06094600 


06094700 
06094800 
06094900 
06095000 


ee ee ee ee 


AHH HAHAH HM HHH AA HH tH A A tt oe 


44-4-1 


017433 
O0177%2 
048223 
018283 
018633 
048870 
018833 
06090300 
048980 
0492%2 
019631 
06090800 
0202180 
06089800 
020331 
020430 
020430 
06086700 
020434 
020530 
020530 
020933 
021383 
021532 
021730 
021830 
0219%3 
022310 
022382 
022580 
022631 
0209314 
023030 
02322 
023530 
023533 
023932 
024133 
0245130 
024751 
0249382 
0250380 
025033 
025233 
0255%1 
0258:0 
025884 
026210 
026213 
0263514 
026430 
026482 
06094300 
026482 
026543 
026850 
0268:2 


FIXARRAYCMVeXGe(CNT4150) 93 
MOVECCNT»A2eX4)3 
FORGETSPACE(CA2)3 
A2t=X4q3 

FNG3 


END ELSE 60 TO NEXT ELSE GO TO NEXTS 
ENDS 
NEXT END3 


ENn3 


NOTOKS 
TORt=03 

OKTNUSEt 
INUSFOKSeT0G3 

FND SEARCHING IN USE AREAS3 


SUBROUTYNE MOVEANDFIX3 
BEGIN — 
Tt=Mpa2~—4]3 STOPCKS 
WHrLF 1<@1777 90 
BEGIN 
NISKWATTC™A4e 30e¢X2tSMVL 141) )e0CF1)3 % READ IN HEADER 
MVFs Xi #29303 FiePCMVPT],DUP)NEND+(BtePCKXCH) ASIZE)3 
TF PCOMVE142).DEND20,NUP) THEN Ct2mMVC141),.02326) ELSE 
MVFT),DENDS=(CteMV(7+4+2],0FNDI"B3 
WHILE (X4%2X1430)<B DO 
REGIN 
EtsrrF P¢(B=X1),DUP)<30 THEN P ELSE PCDEL?30)3 
DISKIOCT+/I"A3sExXZ0eF szFHE D3 
10Ds=JOOR(ExX30)(82388 108 EC 272 4226)3 
LOCTON&s=03 SLEEPCET J+ IOMASK)$ 
STREAMCAL#®C3SC@E,Biszar3e{)3 
BEGIN STt=LOC as DSte 8 DEC ENDS 


TORFQUESTCNABS(ITODIR@357L 2584088) e100. 
(LO0C10n)&1801234286))3 
SLEEPELLOCIOD],10MASK)3 
IF LOCTOD.£2624] THEN & WRITE LOCKOUT OCCURED 
BEGIN 
UTCIF P THEN AVol ELSE MVET4+2].62910]) LOCKFDIal3 
UTCAV4+1].DENDS=MVC14+1],£2326)3 GO ENDMVES 
ENDS 


FND3 


FIXANDWRITFHEADER; 
tr NOT P THEN & TEMPORARY pySK STORAGE WAS USFD, 
BEGIN 
MVOC14+2]7,DEND&=03 
TEMPNSKIt=15 
GO TO MVE3 
FND3 


06095100 
06095200 
06095300 
06095400 
06095500 


06095600 
06095700 
06095800 
06095900 


06096000 
06096100 
06096200 
06096300 
06096400 


06096500 
06096600 
06096700 
06096800 
06096900 
06097000 
06097100 
06097200 
06097300 
06097400 
06097500 
06098300 
06098400 
06098500 
06098600 
06098700 
06098800 


06098900 
06099000 
06099100 
06099200 
06099300 
06099400 
06099500 
06099600 


06099700 


06099800 
06099900 
06100000 
06400100 
06400200 
06100300 
06100400 


ee ee ee ee ee ee ee ee ee i | a4 44 


4S att ss 


ee | 


026933 
027510 
0276%2 
027731 
027830 
06094900 
027830 
06093500 
0260%4 
06092400 
0260814 
06092000 
028212 
06091700 
026310 
0283:0 
026313 
028383 
026401 
06091400 
0264t2 
0285:0 
028530 
028813 
029010 
029030 
029331 
029712 


- 030211 


030712 
030913 
030923 
031331 
031633 
032010 
032231 
032413 
06096800 
032582 
032782 
032980 
0330%2 
0331%1 
0331433 
033751 
034210 
06099300 
034210 
06097500 
034232 
034430 
034484 
034413 
034753 
03503 
035441 
06100000 


preMVry4+2), LINK} 06100500 T 035191 

ENn$ 06100600 T 035331 
06096900 

WILL NOw RECONFIGURE THE AVAILABLE TABLE 06100700 + 035333 

UTFAVIFSHIRCUTLAVI] ,ASTZESUTCAV41) ASIZE)( 282882033 06100800 T 035333 

MOVE CS™AVePCCUTCAV42)) »DUP)»NOT O INX PCXCH) 3 06100900 T 035882 

Ctx(StxSeide13 FOR ITtaC STEP #4 UNTIL D DO 06101000 T 036211 

IF PeUTCTI,ASTZEsDUP)>USF THEN USEtsP ELSE PC(DEL)3 06401100 T 036680 

UrpfuUytePCOUP»LONe DUP BUSSE F28320)8CPCXCH) NUMENT@{ )CTONUMENT 73 06101200 T 037133 

EUNOTSQUASHED S&F ALSES 06101300 T 037632 

IF NOT S@ALL THEN 06101400 T O3778%3 

BEayN 06401500 T 037743 

IF PCSQSIZ7FeDUP)#0 AND PCXCH) LE@ USE THEN CELLI=1 06101600 T O378!4 

FLSE IF PCEUSPEU*1),0SIZE,0UP)40 AND PCXCH) LF USE 06101700 T 038482 

THEN ELSE GO TO ENDMVE3 06401800 T 0385%1 

PcDELI3 GO STOPSQ; 06101900 T 038612 

ENn3 06402000 T 038784 
06101500 

ENDMVE? 06102100 T 0386714 

END FIXING AND MOVING} 06102200 T 038734 
06096600 

$ SET OMIT = NOT SHAREDISK 06102220 T 038732 

P60002000202050008020);3 06102500 T 038712 

PC0900000000050902020)93 06102600 T 03902 

P60900020902020002020)3 06102700 T 0393t0 

P609090902020508020)3 06102800 T 0395%2 

PC SDYISKSQUASH»sNUPsME(P)J)3 & PRTADURSPRIVALUE 06102900 T 0397383 

SFT GMTT = NOT SHAREDISK 06403000 T 039930 

SCANMFSSAGE3 06103300 T 039930 

SET OMTtT = SHARFDISK 06103400 TF 0400:0 

LOcKDYRECTORYS 06103500 T 040030 
06103500 
06103500 

POP oMyT 06103600 T 040632 

SLFEPCETOGLE I] ,USFRDISKMASK)$ LOCKTOGCUSERDISKMASK)3 06103700 T 040682 
06103700 

HALTS % STOP NORMAL STATr PROCESSING WHILE SQUASHING 06103800 T 041182 

A&ssSPACE(30)3 06103900 T 041210 

SFT OMT = NOT SHAREDISK 06404000 T O44434 

FIXYARRAYCDIRA1 2480) FI XARRAYOMV,A2,150)3 06107200 T O414%4 

A3:=SPACE(900);3 064107300 T 04292!3 

TON? #@14400004000000008(A3"1)(CTCI3 06407400 T 042510 

IF NOT SQALL THEN FOR EUte_ STEP 4 UNTIL NEUP,CFF] 00 06407900 T 042633 

IF (CELLIacPCSQSIZE*DUP)#0 AND PcXCH) LEO ULEU),£1820))) 06108000 T 043230 

THEN BEGIN P¢€2)3 SQUASHMESS? GO STOPIT END3 06408100 T 0435:2 
06108100 

FOR FUs=1 STEP 1 UNTIL NEFUP,CFFIJ DO & 06408200 T 0441:2 

IF NOT CEteUfEU}).EUNP THEN % NOT A DUMMY EU 06108300 T 044583 

IF EUSTFUT1) OR S@ALL OR SQSIZF#O THEN % SQUASH THIS EU 06108400 T 044732 

BEGIN 06408500 T 045032 

FUNOTSQUASHFD? #TRUE; 06108600 T 045430 

1F NOT SQALL THEN & CHECK IF SQUASH JS NECESSARY 06108700 T 045433 

te CPcCEUScEUey 1] nSIZE,DUP) LE@® £,f192903 AND PEXCH)#€0) 06408800 T Oa5aiy 

THEN BEGIN P¢3)8 SQUASHMESS: GO STOPIT END3 06108900 T 0456!0 
06108900 

CELL &eORg¢CTFI3 06409000 T 045812 

P¢O)} SQUASHMESS3 064109400 T 046012 


PszCLI=E,STARTWRD) mMOp 303 
AVSYZEtS3Z0"(SteCE AND NUMENTM)40) MON 30483 
FIXARRAY¢UTsRsAVSIZF)3 

NOVSKAVis1 DLV 304eUSEROISKBOTTOMS 


$ SET oMTT = NOT SHARFDISK 


AGAIN! 


SQrTt 


SToOPSQ: 


DISKWALT(C@RsAVSIZE sDISKAV)3 
SUMS$e2USE 3203 
FOR [t=Se3 STEP =4 UNTIL PD DO 
BEGIN STOPCK3 
IF CUTE 1T4+1)<0)sPaSSTWO THEN &% NOT CHECKED THIS PaSS 
IF COX 2 SUT PT) ASIZEDFCX28eUT CY 41),ASIZE)) GEQ SuM 
THEN TF (CX3eeCCCXG4tsUTLIF1I.DEND M1L"UTLI4+1),ASIZE)© 
XSte(UTCLJ,DEND*"1)) LEG FACTOR THEN IF MINSIZE LEQ X2 
THEN IF MINSIZE LEQ X1 THEN 
REGIN 
USE2=X33 aVe=ls 
SUMS=X44X93 8 SUM OF CURRENT AVATLABLE AREAS 
Hy t=X43 LOteX5$ 
END ELSE tF [#0 THEN % LOOK AHEAD TO NEXT AREA 


IF ¢CMINSIZE LEQ UTE 171).ASIZE) AND (CCX5"X1)* 
UTC1re1).,DEND"1) LE@ FACTOR)) THEN GO SQrtT3 
FNS 


IF USr#0 THEN &® FOUND A POSSIBLE SQUASH SITUATION 
BFGIN 

IF TNUSFOK THEN MOVEANDFIX3 

GO AGAIN 
FND ELSE & TIME TO WRAP JT UP FOR THYrS EU UNLESSeeee 


TF CONFLICT THEN JTF NOT PASSTWO THEN 2% ,eCONFLICTS EX1ST 
BEGIN 

PASSTWOt=TRUES 

GO AGAIN: 
END ELSE 


BEGIN ® CLEAN@UP PASS AFTFR CONFLICTS RESOLVED, 
PASSTWOtsCONFLICT# #03 
GO AGAIN: 

FNDS 


FOR 1%eD STEF 1 UNTHL S DO UTCIJ§eABSCPCDUP,LON 806 23281))3 
TF NOT EVNOTSQUASHEN THEN 


$ SFT oMyT = NOT SHAREDISK 


STOPI{T!3 


DISKWAITC ReAVSIZE eDISKAV)3 
FORGETSPACE CR) 

Pci)! SQUASHMESS3 

TF STOP THEN GO OUTS &% STOPCK GOT US HERE 


ENN FU LOOPS 


OUT: 


FORGETSPACECA1)2 FORGETSPACEC AZ) FORGETSPACECA3)3 
$ SET oMIT = NOT SHAREDISK 


SOXITs 


FORGETSPACF(AQG)3 FORGETSPACECAS)3 
CELLItePRIVALUES 
STREAMCASSBUFF,C158159"1)3 DSt#2xi3 LIT™ END SQUASH, «3 


06109200 
06409300 
06709400 
06109500 
06409600 
06440300 
06110400 
061410500 
06110600 
06110700 
06110800 
06110900 
0611411000 
06111100 
06111200 
06111300 
06111400 
06111500 
06111600 


06141700 
96111800 
06111900 


06112000 
06112100 
06112200 
06112300 
06112400 


06112500 
06112600 
06112700 
06112800 
06112900 


06113000 
06113100 
06113200 
06113300 


06113400 
061413500 
06413600 
06414300 
06114400 
06114500 
06414600 
06114700 


06114800 
064744900 
06445000 
06415500 
06115600 
06115700 
06115800 


AHHH AAA YH tt Ht 


444 oe 


a 


AA AA HAH 


a4 AHH 


046210 
046434 
046830 
047241 


(047410 


047410 
04752 
047633 
046110 
048233 
048433 
0469:0 
049at4 
049824 
050030 
050032 
050230 
050331 
050413 
06111200 
050733 
051180 
051433 
06110600 
051770 
051733 
O518%1 
052110 
052142 
06112100 
0521%2 
052341 
0523:3 
0524%2 
0525:0 
06112600 
052510 
0525:2 
052633 
052791 
06113000 
0527'4 
053430 
0534%2 
053412 
053631 
053710 
0538:0 
053933 
06108500 
054031 
054071 
0542%2 
054242 
O542t2 
0544:0 
054582 


SPOUTCBUFF,(15215]=1)3 
$ SET OMIT = SHAREDISK 
UNLOCKDIRECTORYS 


$ POP OMYT 
UNLOCKTOGCUSERDISKMASK ); 


NOPROCESSTOGE=&NOPROCESSTOG#=13 
KILLErMScW]);3 
END SQUASHINGS 


06415900 
06115990 
06116000 


06116010 
06116100 


06116200 
06116300 
06116400 


at 


T 
T 
T 


054932 
0551433 
055133 
06116000 
06116000 
055531 
055531 
06116100 
055833 
0560:0 
056033 
06068200 


StZes 0562 WORDS 


PRT(547) = 


PRT(550) = 


STACK ¢(F41) 


STACK(F 42) 
STACK¢F43) 
STACK ¢F 44) 
STACK¢(F 45) 
STACK¢(F 46) 


PROCFNURE CHANGEABORT(X)3 VALUF X$ REAL X3 FORWARDS® 


CHANGE ABORT 


LOOKQ 


a Ll 


0G 


STACK¢(F4a7) » MYX 


STACK ¢F 410) 
STACK (F411) 
STACKEF 412) 
STACK (F413) 
STACK¢(F 444) 


STACK¢F 415) 


STACK(F +16) 


STACK (F417) 


$ SET oMrT 
TIMEAX 
. 
A 
Q 
ESED 
& SET omqT 
UNIT TNO 
PM 
$ POP OMIT 
$ SET OMIT 
Rral pn3 
a) 
£ POP OMyT | 
$ SFT OMT 
$ 
$ 


REAL LOOKQ} 


06179000 


START OF REL SEGMENT?# DISK 


PROCEDURE SIGNOFFC VECTOR» FILEBLOCK,PKT)3 


06179200 
06180000 


START OF REL SEGMENT? DISK 


VALUF VECTORSFILERBLOCK so PKT$ 


ARRAY VFCTOR(E*J sFILERLOCK( *I]3% 


REAL PKT3 
BEGIN ARRAY NAME LOGS 


INTEGER Neloto de TIMEXSS 


INTEGER MYX3 


NOT STATISTICS 
REAL TIMEAXs Ts» A,Q,ESEDS 


NOTCPACKETS) 
REAL UNTTNO$S 


INTEGER ARRAY PMC #]3 


NOTCWORKSET AND WORKSFTMONITOR) 


WORKSET AND wORKSETMONITOR 
SUBROUTINE TrMETT3% 
REGIN CHANGE ABORT(O)3% 
WHILE CNT2%eXCLOCK4+PCRTR)) GEQ WITCHINGHOUR D0 
MIDNIGHT? . 


LOGLTIMEFAX42) © NT2S% 
NOTCSTATISTICS) 

STOPLOGCP1IM1X20)3 

MIXePaMTX3 PIM[XeO} 

IDLETIMESS 

OLDIOLETIME + CLOGETIMEX] # VECTORE3)4% 

PROCTIMECMIXJ)40OLDIDLETIMES 

PROCTIMECMIX] « "VECTORI3)32% 

LOGE TIMEX+1LI¢VECTOREC4SI4LOTIMELMIX]3 
SET OMIT = NOT WORKSET 

LOGCTYMEX4+2] * OLAYTIMECMIXIS %710= 
SET OMIT = WORKSET&7102 


127" 


$ SET OM1T = NOTCWORKSET AND WORKSETMON] TOR) 
IF WKSETMONTTOR AND ¢(DD2#0) THEN 


BFGIN 


06181000 
06482000 
06482100 
06483000 


06184000 


06184100 


06184199 
06185000 


06185099 
06185100 


06185105 


06185110 
06185111 
06185112 


06185113 
06186000 
06187000 
06188000 
06188100 


06189000 
06189099 
06190000 
06190100 
06191000 
06192000 
06193000 
06193500 
06194000 
06194890 
06494900 
06194990 
06195090 
06195095 
06195100 


Y 000030 
ADNRESS =# 


T 0000:0 


T 000030 
ADDRESS & 
T 000030 
T 0000:0 
T 0000:0 
T 0000:0 


T 0000:0 


T 0000:0 


0000:0 
000030 


i 


T 0000%0 
T 0000:0 


T 0000:0 
000030 


000030 
000010 


aa 


000010 
000040 
0001140 
0001%3 
000430 


a | 


00163 


00163 


061866100 


00098! 
001184 
OO11%1 
001383 
001531 
001533 
001730 
001991 
002110 
002410 
002410 
002611 
002631 
002631 
002811 


AAANDNQDAADAHA HAHAHA 


STREAMCN1 t= VECTORGO}s NO ta VECTORE 1)» 


Tt 
To 


ts (¢LOGETIMEX340,5)/60 HIV 1)» 
t= (CLOGETIMEX+134+0,5)/60 DIV 1)ds 


T4 © COLAYTIMELMIX]4#59) DIV 60+ &% OLAY 170 TIME IN SECS ¥7 108 
T3I=CCCLOGLTIMEAX+2)*VECTORG5).024824))4+0,5)/60 DIV 1)» 
NVtzOe DN t= NN 2% SPaCEC10)93 


BFGIN 


Stt=sLOc N43 OStshrT" 3 

2eSTtsSil+13 DSte7cHRs pSt=Lit™ ")3 

OSt=4LIT"*cPUa"; 

NSts6NE CE OVIsSOLs OL sepr76s NStsSFILLs DI t=Dv3 

NStae5LyT* 7/Os> 

ODSts6DFCe OVESOTS OL s=pr"63 NStS5F ILLS DIteDV3 

NSe 6LIT™ OLAYs"3 ¥7100 
DSe 6NFCE DVe DIF Dle HI76s NSe SFILLI De DVS ¥7108 
NSts6LIT* ELAP="3 

DSts6DFC3 OVISNIs Di sepl"63 OStZ5FILL$ DI taovys 

DStaLiT tet} 

END STREAM STATEMENTS 


SPOUTCDD)$ 


ENN Ss 


$ POP OMIT 2 WORKSET AND WORKSETMONITOR 


$ SET 


$ SET 


04568366 ACCIDENTAL 


£ POP 
$ POP 


STREAMCAeVECTORI5],£61823)1B+0)3% 
BEGIN Sy + LOC A# Dy « LOC AS DS «+ 8 DEC ENDS2 


LOGLTIMFAX) «© PCXCH)I2 
LOGCTIMPrAX¢1) «+ VECTOR(5),(2412413% 


OMIT = NOTCSTATISTICS) 


NT4 * VECTORE2),0881013% 

LOgrTyMEAX+3] © IF VECTOR(1] < 0 THEN (NT4= 99) 
+2 ELSE NT4 & 33% 

LOGLETIMEAX4+3),01%330}+ DATE.£18230)3 

LOGETIMEFAX+4)] 3eUSERCODEIMIXI3 


OMIT = NOTCDCLOG AND NDATACOM) 


IF TARBCNTOEM!X)#0 THEN 
BEGIN T3isCLocK+s9003 
COMPLEXSLEEPCTABCNTEMIX]©0 OR CLOCK>T)3 


FNTRY aT T 
END? 
OMYT = NOT ¢nATACOM ANN NOT HCLOG) 
PRTROWCMIXI,CPSFJ1s03 
OM1T = NOTCPACKETS) 
UNTTNOF=PSEUDOMIXE MIX] 
PSFUDOMIXEMIXJ $203 
PMrO)teLOGETIMEX 1/603 
PMri)8=LOGFTIMEX411/603 
CMIT = NOTCWORKSET) OR OMIT %7598 
PMr2]s80LAYTIMELMIX]/603 £7598 
OMIT 
OMIT 2759" 


USERCODELMEX] # O38 
STREAMCS*CNFOLCMIX@4)xNOXIJIIZS 
BEGIN DS#8 LIT "OS SyeS3 DSe2 WOSt ENDS 


06495105 
067954410 
06195115 
06195118 
06195120 
06195125 
06195130 
06195135 
06495140 
06195145 
0614954580 
06195155 
06195160 
06495161 
06195162 
06195165 
06195170 
06195475 
06195180 


06495185 
06195190 


06195195 
06196000 
06197000 


06198000 
06199000 
06199099 
06200000 
06201000 
06202000 
062702100 
06203000 
06203099 
06203600 
06203650 
06203700 


06203750 


06203790 
06204000 
06205009 
06205010 
06205020 
06205030 
06205040 
06205049 
06205050 
06205051 
06205052 
06205100 
06205200 
06205300 


AAAHOO AAA ARH HAHA HO HAG 


a4 


a-s 


AAA HHA AA 


~+ 


4AAHO RUD AHA 


0028:3 
0030:0 
0032:2 
0035!2 
003730 
0041:1 
004470 
0044:0 
0044:3 
0046:4 
0047:0 
004634 
OOa9s4 
005082 
005472 
0052:3 
0053%3 
005510 
0055%2 


06195130 


005533 
0057:0 


06195100 


0057:0 
0057:0 
005930 


06197000 


006010 
0061%2 
006431 
006411 
006513 
0069!0 
007182 
007541 
007732 
OO77I2 
007910 
008033 


0087142 


06203650 


0087%2 
0087%2 
009010 
009030 
009130 
0092'4 
009483 
009783 
009733 
009983 
009983 
009983 
010190 
010380 


06205300 


$ SET omrT = 


£ SET OMIT = 


$ SET oMIT = 


£ POP omrT 


$ POP OMIT 


&$ SET OMIT = 


NOT STATISTICS 
JARROWE MIX] :SsPRTROWEMIXIJExO3 
END TIMET3 


NOTCPACKFTS) 

SUBROUTINE MFSSaGF$ 

IF UNITNO#O OR CVFCTOR.(C2489)#0) THEN 
REGIN 


STREAMCAt=CVECTOR(OJI,MIX»BterpPMcOJ),T&eTt=SPACE(10))3 


BEGIN DSt=5LIT" FORMSSTISASSTI=ST+150S8@7CHRS 
DStaLyTM/"ESpteSTal SOS ta CHRIST sLOC MYX} 


NStaLp,T "ss PSs aoDec3 
AteDysOLt=D1=23pStaFILLsOltwAs SyPt=Bi 
NSts1O LIT "2 PROCESS«”3 DSts5 DEC} 
AtaDrsO1rt=DleS53pStzdFy LLsOLiwa3 
O08%310 LIT * SECS, 10%" DStesS DEC 
AtaDT sD tad [Ss nSia4FyLLsOL seas 
NOTCWORKSET) OR OmyT 

NMStei2 LIT * SECS» OLAYs"3 DSt25 DECI 
AteDrsDp ted] “SsnSrz4F LLsDEt was 


OStalyprtet3 
END: 


SPOUTERCTeIF VECTOR.£(2419] NEQ O THEN 
VECTOR. £2439) ELSE UNITNO>64)3 
ENDS 


A © VECTORE6),£33:15)3% 
FSEDtsVECTOR(2),[( 2:1]: 


TrsQteC(LisVECTOR(63,616315))4C91F ESED THEN NeO ELSE 
NisFTLEBLOCK ,(8940))+60) DIV 25273 


LOGt=(METYPENSPACFECT »sLOGAREAV) 113% 
MELOG INX NOT 13,6986) « O88 
NOTCPACKETS) 
PMtarMCSPACEC5)])85£6:38810)3 

MoPM INX NOT 1],0926]2203 


Joe ass 

D0 BEGIN I © [42733 
DISK1OC T a*™¢ LOG INX [)6260N)38 
SLEEPCE TJ» OMASK)3&% 
J @ LOGE 41132 

FND UNTIL Js0 OR 14+53>Q5% 


IF VecTOR(2),¢83:10)]50 THEN L « LOG(29]3 
IFCLs2€L"5) MOD 254147) LSS Q93 THEN 
IF I MOD 27 # O THEN? 
BEGIN LOGL1) © LOGLI+1] « 03% 
] «+ [42 ENDS 


NOTCSTATISTICS) 
LOGEIJ#= IF vecrorfO) LSS 0 


THEN IF VECTORCOJ*#¢*"COBOL ") THEN 2 
ELSE IF VECTORCOJ*C(C="FORTRAN") THEN 6 
ELSE IF VECTORCOJ=c""BASIC “) THEN 7 


4759" 
2759" 
“7598 
2759" 


£7598 
X759= 


%167= 


06205540 
06206000 


06206100 


06206109 
06206110 
06206120 
06206130 
06206140 
06206150 
06206160 
06206170 
06206175 
06206180 
06206190 
06206200 
06206205 
06206209 
06206210 
0620629145 
06206216 
06206220 
06906230 


06206240 
06206250 
06206260 


06206261 
06207000 
06207100 
06208000 
06209000 
06210000 
06211000 
06211099 
06211100 
06211200 
06211201 
06212000 
06213000 
06214000 
06215000 
06216000 
06217000 


06217100 
06218000 
06219000 
06220000 
06221000 


06221099 
06222000 
06222100 
06222200 
06722300 


oe ee eee ee se ee ee ee ee ee 


~~ 


Aosta AAA HH AHH DAH 


010510 
010530 


010731 
06187000 
010980 
010980 
010940 
O11it2 
011280 
011610 
044733 
041980 
041983 
012140 
012293 
012333 
01252 
012612 
012682 
012882 
012982 
0129182 
013080 
06206150 
013004 
013294 
013580 
06206130 
0135314 
013591 


O14i0t 


014233 
014691 
015012 
015381 
015683 
015683 
016082 
016411 
016411 
016540 
016611 
016812 
017010 
017220 
06213000 
017433 
017811 
018210 
018383 
01872 
96220000 
018813 
018833 
019040 
019221 
019433 


ELSE IF VECTORLOJsc™"XALGOL ) THEN 9 
ELSE IF VecToRrOJsc="TSPOL ") THEN 10 
ELSE IF VECTORLOJ#c="COBOL68") THEN 11 
ELSE 1 ELSE O3 
LOGLT+1] « N DIV 533 
IFCT@s(TIMEXt3]42)+3) LSS Q"$ THEN 
IF 1 MON 27 s&s O THEN 
BEGIN LOGE1) «© LOGLI+41) « O88 
I ¢ 1423% 
ENDS 


I © CTIMEAX © 1)453% 
IF NOT ESED THENSIF JOB ES*ED THEN NO FPB ENTRIES 
FOR J « 5 STEP 5 UNTIL N DOK 
IF FILEBLOCK¢J™4)a0 THEN LOGETIMEX @1]e*PCDUP)@1 FLSF 
BEGIN IF I MOD 27 = O THENS 
BEGIN LOGLIIJ « LOGLI41] « OF8% 
I © 142 ENDSS 


1F 1+#4 LEQ@ @ THEN 
STREAMCASCFTLEBLOCK(JU@SJ]]eBefLOGl1)]1)5% 
BEGIN ST + A$ DS » 5 WOS END; 


IF [44 LrQ @ THEN 
IF LOgGlT+4) < 0 THENS 
BEGIN LOGLI+4] «© *PCDUP)+CLOCK+ePERTRIIE 
LOGLI+3) 6024812] ©PC DUP» DUP). £24912) 4T INU 
CNTL*PCXCH),£3626)"1),018212)3% 
TINUCNT1],£18312] «+ 03% 
PND33 


IF LOGE 1+21,0184830)80 THEN 
LOGKL+2).CA8*ZIOIS SPATE, L18*30)S ENTER CURR NATE 
IT «+ 14+5% 

ENDI4% 


No « LOGETIMEX 4353 

FORGETSPACECFILFBLOCK 3% 

J «© 07% 

TF VecTOR(2),(8810] = 1 THEN’ 

BEGIN DO J * J#27 UNTIL LOGE J41] = 033 
WHILE J+#27 LSS I AND IT LSS @ 00% 
BEGIN LOGCI+1) © GETESPDISKSS® 
Joie Je273% 

FNO3S 


I « 273% 

TIMEITSS 

bOGl29)]«5xL0G(40)4203 

DO BEGIN DISKIOCT»LOG INX [226eA93% 
A © LOGE 4+1)3% 
1 © [+427:% 
SLEEPCE TI] sIOMASK)32% 

END UNTIL A = O8% 


ENDS 


06222400 
06222500 
06222550 
06222600 
06223000 
06224000 
06225000 
06226000 
06227000 
06228000 


06229000 
06229100 
06230000 
06230100 
06231000 
06232000 
06233000 


06233100 
06234000 
06235000 


06235100 
06236000 
06237000 
06238000 
06239000 
06240000 
06241000 


06241100 
06241200 
06242000 
06243000 


06243100 
06244000 
06245000 
06246000 
06247000 
06248000 
06249000 
06250000 
06251000 


06252000 
06253000 
06253500 
06254000 
06255000 
06256000 
06257000 
06258000 


06259000 


st at st tt 


AatHA sas 4H 


AHAHHHH a HAA HH HH 


AA AHHH 


+ 


O19741 
049933 
0202!1 
0204!3 
020732 
021030 
021361 
021530 
021813 
0220:0 
06226000 
0220180 
022133 
0222h1 
023010 
023433 
023642. 
024011 
06232000 
024182 
024233 
0245t2 
06235000 
024681 
O247t2 
025010 
0253:3 
0256:2 
0260%2 
0263°0 
06237000 
026370 
0265i2 
0269°3 
O270%14 
06231000 
027334 
027533 
027633 
0277:2 
0279:0 
02834 
0286:0 
0288! 4 
0289:2 
06249000 
0290:0 
0290:3 
029210 
029531 
O29731 
029981 
0300t2 
030230 
06254000 
030311 
06247000 


ELSE BEGIN 


DO BFGIN JeJ4273 
FORGETESPOISKCA)3% 
A + LOGE J+1I)3% 

ENI) UNTTL A = O88 


IF LOGFRFEE®O THEN TIMEIT FUSE 


BEGIN 


£ SET OMIT = 


$ POP OMIT 


Ne Je293 


IF 


END33 


LO04f29)433 
Te [463% 
WHILE (J © J#27) €«€ 1] NOs 
BEGIN A © At253% 
STREAMCXefLOGCUJ J sVeC£LOGLAJI)s% 
BEGIN S] « X3 0S « 25 WOS END3SZ 


IF TIMEX 2 A THEN TIMEX © TIMEX=23 
If TIMEAX 2 A THEN TIMEAX © TIMEAX#2} 
FNDs2 


Ne (N4¢L) DEV S338 

lL «+ 283% 

TIMEX+#2 LSS @ AND TIMEAX+4 LSS @ THEN 
TIMEITTE LOGSPACECL41 JINX LOGe (N™1)%5)3 
ENDS% 


NOTCPACKETS) 

MESSAGES FORGETSPACECPM)3 

IF UNI TNO#O THEN 

NRATNOCUNTTNO, (VECTOR(2],£8810]#1) OR CPKT#0)» 
CCVECTORE13<0) OR CVECTORE227,£8910)#3)) 
QVECTORIG6IC1%111])3 


FORGETSPACECLOGI3& 
FND SIGNOFFS3 


06260000 
06260100 
06261000 
06262000 
06263000 


06263100 
06263200 
06265000 
06266000 
06267000 
06268000 
06269000 
06270000 


06271000 
06272000 
06273000 


06278000 
06279000 
06279100 
06280000 
06327000 


06328000 


06328099 
06328100 
06328200 
06328300 
06328400 
06328500 
06328501 
06329000 
06330000 


AAA HA HHA HHH 


ee a 


AAatA AAA HH 


0303%4 
030383 
030510 
030533 
0307:3 
06260100 
030980 
0311490 
0312!3 
031431 
0315t2 
0317133 
031930 
0321!0 
06270000 
0321:3 
O032a14 
032633 
06268000 
032784 
032982 
033031 
033330 
033810 
06263200 
033830 
06260000 
0338:0 
0338:0 
0340:0 
034033 
O344!4 
034633 
0348:2 
034812 
O3a9t] 
06183000 


SIZE# 0350 WORDS 


STACK¢F@#4) 
STACKeF*1) 
STACK¢Fe2) 
STACK¢(F#3) 


STACK (CF 41) 
STACK¢F 42) 
STACK ¢F43) 


STACKeF 44) 
STACKEF 495) 
STACK ¢F 46) 
STACK¢F 47) 


ius a. 


PROCEDURE USERDISKSPFCTALCASECQsReUToJ) 3 


VALUE @,J3 REAL ReJs INTEGER QF ARRAY UTC*) 3 
BEGIN 
REAL BUFFaQsNaJsZsUTeERR } 
aURR 


Z 
E 
$ SET OMIT = NOTCSHARFDISK ) 
$ SET OMIT = SHAREDISK 
REAL NEUsNTs ARRAY UAcH) 3 


06350000 


START OF REL SEGMENTS DISK 


NEU 
NT 
UA 
DEFINE USAVTABLE #» AVS=R #+ NEUL=J91 #, NEU2SNT#1 #3 
$ POP oMIT 
INTEGER NT(eNT39NTO6B 3 
NT} 
NT3 
NT4 


LABEL Lisl 2eL3pUPsPUrBDsWHY eMie TIO 3 
SWITCH SWebLisl2el3 3 
IF @40 THEN GO SWr@=1) 3 
$ SET OMIT = NOTCSHAREDISK ) 
Lit BUFF taRS Zie03 UNLOCKTOGCUSEROITSKMASK)} 


IF N LE@ RESERVEDISKSIZE THENS CALL OUT RESERVES 


IF CZteDITRECTORYSEARCHC*RESERVE* se * DISK 
BEGIN FORGETSPACE¢Z)3 
IF N>0O THEN 
$ SET OMIT = PACKETS 
BEGIN STREAM(Z$#2Z2=SPACE(3))3 


"56)) NEQ O THEN 


NS+23 LIT "“**RESERVE/DISK REMOVEDe"™: 
SPOUTFRCZ,255(NOT LIBMSG) AND 122 


ENDS 


FORGETSPACECBUFF)S PCXIT)3 
FND OF RESERVE CALL UP3 


te AUTOUNLD THEN 
BEGIN PCP4MIX)3 AUTOUNLDSSPIMIX3203 
STREAMCASSDATE»Zta#ZtaSPACE(10)42)3 


BEGIN NSie23 LrT*cC UNLOAD EXPIRED TO xP} 
ST2sLOC AS StteSy+3? OS8e5 CHR} 


pSt=9 LIT * 3/ss3FND,3 
ENDS 


TNDFPENDENTRUNNERCPC .CONTROLCARD) 528312344325 30192)3 


PiMyX%sP;3 
IF N GEQ 9 THEN 
BEGIN STREAMCZ3#Z73aSPACEC10))3 


NS:318 LyT"18 AUTOUNLD RESETo"3 


SPOUT(Z)3 
END END AUTOMATIC UNLOADINGS 


06350300 
06350600 
06351000 


06351050 
06351100 
06351104 


06351105 
06351106 
06351250 


06351500 
06351800 
06352000 
06352490 
06353500 


06353510 
06353530 
06353540 
06353541 
06353542 
06353545 
06353550 
06353551 
06353552 


06353555 
06353570 


06353560 
06353590 
06353600 
06353610 
06353620 
06353630 
06353640 


06353650 
06353660 
06353670 
06353680 
06353690 
06353700 
06353710 


T 


0000:0 


ADDRESS = 00175 


T 
T 
T 


i ee ae | 4~a4 a4 


an 


AAHAAA AH A ts 


0000:0 
0000:0 
0000:0 


0000:0 
0000:9 
0000:0 


0000:0 
0000:0 
0000:0 


0000!0 
0000:0 
0000:0 
0006:0 
0006:0 
06353500 
0014:0 
0011:3 
0014:2 
0015:3 
0016:2 
001632 
00193 
0023°1 
0025:3 
06353545 
0025:3 
0026:3 
06353540 
0026'3 
002732 
0030:2 
0034;0 
0037%4 
0038:0 
003932 
06353610 
0039:3 
0042:0 
0042:2 
0043%1 
004682 
O0agt 
0050:2 
06353680 


06203700 


1F NOT N,f2ti) THEN 
BEGIN IF P§{MyX#0 THEN 
REGIN 
NT1 @ NOTERMSETCPIMIX)# © NOTE? NTI TS LOCAL "537= 
WHY? STREAMCJUPSJARROWLPIMIX]-PIMITXsNe BUFF) 
BEGIN DS¢«14 LIT "#NO USER DISKS) 
SleJs Sf*Sl4e1% NS? CHR? 
NSeL yt "/"3;  SteSt+t3 OS«7 CHR3 
Ste#LOC PIMrX3 DNSeLIT "a3 OSe2 DEC 
J2sD1F DL tsDre2s OStaFTLLs HL sede OSt=LIT ts 
SttsaLOc N3 DS#28 pecs nSta7 LIT”* SEGS, «3 
DI'sN1"15% OSte7 FLU 


END3 
SPOUTCRUFF)3 
IF AUTODS AND NOTERMSETC(PIMIX) THEN ¥7475 
TERMINATE CPIMIX&61(°CTF)) ELSE £747= 
BEGIN %747= 


REPLYCPIMIX] semyWYRVOK [368 49%6)]3 
COMPLEXSLEEPCCREPLYCPIMIX] GTR 0) OR 


CTERMSETCPIMIX) AND NT1))5 4537= 

ACCIDENTAL FNTRY AT NTY 
ene Z747= 
IF NT1 THEN £537= 


IF TERMSETCPYMIX) THEN 

BEGIN PRTROWFPIMIXIJ,f781) e143 
GO TO [NITTATES 

END: 


IF NOT WHYSLEEPCVWY&VOKE3634216)) THEN 
REGIN RUFF SeSPACF(10)3 

GO TO wWHYs 
ENDS 


END FLSE 


RFGIN 

STREAMCNe BUFF DE 

RBEFGIN NSis20 LIT"#NO USER DISKIMCR = 3 
StTteLOc Ns 0S3286 NEC 
pSts6 LIT” Seasens 
NYssH19143 Osta? FYLLS 

FNS 


SPOUTCBUFF)3 
NT1t=#03 DO SLFEPe(CLOCK], NOT CLOCK) 
UNTrL CNTLeNT141 92303 
END 


END ELSE FORGFTSPACECBUFF)3 


PExXrT) 3 
L2: ULUyiert FleNEUPSCNTPaNFUP.NEUF +24 (NTO+I DIV 2k PCNTIB JS ad 
$ SET OMIT = SHARFDISK 
NTL:SNT4+NTeNTs FORGETSPACECUTIS FIXARRAYCUAeNT2eNT1)3 EtROS 


06353720 
06354000 
06354100 
06354200 
06355000 
06356000 
06357000 
06358000 
06359000 
06359500 
06360000 
06360500 
06360505 


06360510 
06369515 
06360516 
06360517 
06360520 
06360530 
06360540 


06360542 


06360545 
06360550 
06360560 
06360570 
06360560 


06360590 
06360600 
06360610 
06360620 


06361000 


06361010 
06361100 
06361200 
06361300 
06361400 
06361500 
06361600 


06361610 
06361700 
06361705 
06361710 


06365110 


06380070 
06380100 
06380120 
06360140 


MAHA HAHAH 


2 VAA IO -4 


4aaHHAN 


4444 


ee ee eee 


ae 


06353590 
0050:2 
0051:2 
0052:3 
005331 
0055?1 
0057°0 
005930 
005933 
0060:3 
0061:3 
006331 
006510 
0065!°2 
06356000 
0065:3 
006730 
006912 
O071%4 
007510 
0077:2 
0077132 


0085!4 
06360517 
008S5!4 
0085:2 
008772 
0090:2 
009430 
06360560 
0091:0 
0093380 
009533 
0096! 4 
06360600 
00968) 
06354100 
0096s! 
00963 
009733 
010032 
010180 
010210 
010282 
06361200 
010233 
010410 
010433 
010833 
06361010 
010833 
06354000 
041030 
011031 
011633 
011613 


$ POP oMrT 
UPS [TF eNT4ts— MOD 30) LSS CNT382CNTIt2UCU],STARTWRD) MOD 30) 
THEN NT4¢%eNT3 3 
IF eNTotsx(QteUruy AND NUMFNTM)4NT4) GTR 1023 
OR ¢CQsE41) DIV 3041°7E DIV 30) GTR 34 THEN 
BO: BYBYC"ODISK IS TOO CHECKEREDee ePLEASE COMPACT I[Te",43) $3 


DISKWATTC@CCUALNEUL TS=CUAPNEFU2Z+ JJ SSSPACE CNT?) )4+NT4)&NT3) 2 QENT 3p 
USERDISKBOTTOM4+NTI DIV 30) 3 
$ SET OMYT = NOTCSHAREDISK ) 
£ SET OMYT = SHAREDISK 
IF Jeti THEN B&sUA.(CFI+NT4NT=1 3 
$ POP oMrT 
MEBsJ]PEeUCJJREPTOSTARTWRD] 3 
IF ¢NT78sQ DIV 4) LSS AVDIFFMIN THEN NT{SaAVDIFFMIN 3 
IF ¢Ris&+Q+NT1) GTR AVIMAX THEN GO TO Bp3 
TF PCDUP) GEQ Jtsd+1 THEN GO UPS ESSEeNTISs Jted 3 
PU NT2te(NT382P (Mr B+) eDUP) »STARTWRDD+NTStePCXCH) AND NUMENTM 3 
IF PCDUP)#J THEN JTF CNT2"*7) MTV 302(NTGeMCB4J41).STARTWRDIDIV 30 THEN 
MOVE CNTI«NT2 MOD 30 ,UACNEUIT+#NTS@NTIoONTI®UACNEUL $1 JeNTS MOD 30)3 
DISKWASTCUALNEULIENTLeONT3 MOD 30+NTI4+NTSeUSERDISKBOTTOM4NT3 DIV 30)3 
$ SFT omMrT = NOTCSHAREDISK) 
FORGETSPACECUAPNFU24+J0))3 
IF PCNUP) GE@ YtsJ+1 THEN GO PU 3 
$ SET oMIT a SHAREDISK 
MOVECNT+PUAPCNT4NTIJ+CAVTABLEL1II1) 3 
£ POP oMyT 
£ SET oMTtT = NOTCSHAREDISK ) 
FORGETSPACFCUA) 3 
$ SET OMYT = NOTCSHAREDISK ) 
P(DEFLeQ&AVSCTOSJZEJ] OR MsRTN) 3 
L3: PCUPNFUP NEUF +24(OtsJ OFV POM1)) DIV 2)eIF @ THEN P,(8!20) FLSE 
Plf 782201) 3 
IF ULQ+1),SPFED = 2 THEN 
REGIN & 40=M7TLL MASK CONSTRUCTION, 
QteP } 
STREAM(S2201Q)3 
BEGIN 
Stt#Lioc Q3 SKIP 28SB3 DrtelLoc Ss SKIP 8DR ; 
5CACIF SB THFN nS:sSET ELSE SKIP DBSSKIP SB)3 SKIP 4 DBI} 
SttsLOc @; SKIP 28 Spy oOreeLOc Ss Ditspre23 
Sc4¢rr SR THEN nSisSeT FLSE SKIP DBSSKIP SB)3 SktIP 4 nAd3 
END STREAM 3} 


PND 3 


STREAMCMSKSs2Otyviea7m(Jss¢¢ Asad MOD POM1))4+ABSCRI"1) DIV PCT10)), 
Wtiel+J"d NOTV PCT10))3 
BEGrN NrtsLOC MSK3 SKIP V DBs DOSteaw SETS END) 


PCLND sLNGe Do LNG ose RTN)D 3 
Myaet @3644100 % DECIMAL 4000000, 
TIOBE3 6234203 % DECIMAL 10000, 
END OF USERNDISKSPECIALCASF 3 


06380141 
06380150 
06380200 
06380250 
06380300 
06380350 


06380400 
06380450 
06380490 
06380520 
06380525 
06380526 
06380550 
06380600 
06380650 
06380700 
06380750 
06380800 
06380850 
06380900 
06380924 
06380950 
06381000 
06381020 
06381070 
06381071 
06381075 
06381085 
06381095 
06381250 
06381300 
06381310 
06381320 
06381330 
06381335 
06381340 
06361345 
06381350 
06381355 
06381360 
06381365 
06381380 


06381390 


06381395 
06361400 
06381405 


06381410 
06381450 
06381500 
06381550 


ooocdco 
eo ee ee ee 


‘ 
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m= WRN 


013623 
06380350 
06380350 

014693 

O154% 

035533 

015543 

015533 

016030 

0160:0 

0163%1 

0166°1 

0169:0 

017331 

0178:0 

018333 

019433 

019652 

0196382 

0496:3 

020430 

0201:!0 

0203%2 

020332 

020332 

020412 

020412 

020633 

0212:0 

021212 

021472 

021510 

021532 

021613 

021633 

021733 

022012 

022132 

022411 
06381345 

0224!2 
06381330 

0224t2 

022911 

023191 
06381405 

023233 

O234%4 

023630 

023710 
06350600 

S1Zes 0239 WORDS 
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aa 
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PRT(551) = 


STACK¢F 41) 
STACK(F42) 
STACK¢F 43) 
STACK¢F44) 
STACK (Fe2) 


STACK(F +0) 


PROCENURFE GETMOREOLAYDISKCMIX) 3% 


06400000 


START OF REL SEGMENT? DISK 


GETMOREOLAYD:SK 
VALUE MyTX3B 
INTEGER MYX3% 
BEGIN INTEGER [eel od’ 


Js+208 
=z J 
T34333% 
=a 7 
ARRAY A=+47*] 3% 
= A 
REAL MSCWer?3 
=z MSCW 
REAL RCW=403¥ 
a RCW 


LABEL EXIT3% 
DEFINE DALOCMAXSZ = 
$ SET OMIT = NOTCAUXMEM) 
$ SET OMyT = AUXMEM 
127#3 SpALOc S1ZE MUST = 9 INITIALLY, 
& POP OMIT . 
PcOs Os 0» 093 TOGLE « TOGLE OR STACKMASKIS 
IF (T*#DALOCEMIX*0],0CF)+1)sDALOCMAXSZ THEN BEGIN 
TERMINATE CMIX& L114 (CTFI)3 
GO TO EX{T$ ENDS 


TF TeDALOCROWCMIX], (8210) THENS 
BEGIN IF cJe#T+PCDUP) * 123129 THEN JepALOCMAXSZ3 
WHILE C1 &* GETSPACEC Js O» 3)42)22 DO 
SLEEPCCCLOCK], NOT CLOCK)3 
MOVE(Te DALOCROWEMIX], [23 
FORGE TSPACECDALOCROW(MIX])3 
DALOCROWECMIX] ts ¢*PCOUP)) & ILCTC] & J68138810)3 
MET"2).0926] $= MyX3 
END) AIT TYPE ACTIONSY 


1F CT © GETUSERDISK(500 OR MEMORY))=#0 THEN GO TO EXIT3% 
NALOCEMIXs0O1 + CH¥PCDUP)IACTF+IIICTCI3% 
NALOCEMIXsT] © [3% 
DALOCEMIXsT+1] © O78 
EXIT! OLAYMASK « TWOCMIX) OR OLAYMASK3S 
KTLLCCMSCW))3 
FND GFT MORE OVERLAY DISK FOR A MIX INDEXSY 


“5178 


06401000 
06402000 
06403000 


06404000 
06405000 
06406000 
06406500 
06407000 


06408000 
06408100 
06408199 
06408299 
06408300 
06408301 
06410000 
06441000 
06411010 
06411030 


06412000 
06413000 
06414000 
06415000 
06416000 
06417000 
06417500 
06418000 
06419000 


06420000 
06421000 
06422000 
06423000 
06424000 
06425000 
06426000 


T 000010 
ADDRESS #® 00183 


T 000010 
T 0000170 
T 000010 


T 000030 
T 000030 
T 0000130 
T 000010 
T 000030 


000030 
000010 
000010 
000030 
000030 
0000:0 
000040 
0002t4 
000543 
000770 
06411000 
O007K2 
000930 
001390 
0016%1 
001812 
002081 
002131 
002434 
002712 
06443000 
002742 
003032 
0033%2 
0035%1 
003712 
003981 
004030 
96403000 
SIZFe 0041 WORDS 


ie ee i i ee ee 
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REAL PROCFOURE SECURTTYCHECKCMIDeFIN»sUSERIDsHEADER)D 3 


06460000 


START OF REL SEGMENTS DISK 


VALUE MrDeFIDeUSERTNS 
RFAL MInsFIDsUSFRIDZHEADERS 


% MID MULTT FILE 1D OF FILE TO BE CHECKED 
% FID FILE 10 OF FILE To BE CHECKED 
% USERID SER IDENTIFICATION 
% HEADER 
% >512 CORE ADDRESS OF HEADER IN 33115. JUST CHECK IT, 
% >0» <512 VALUE FOR DIRECTORYSEARCH, FIND THE FILE ANO PASS 
% BACK THE HEADER IN ADDITION TO SECURITY INFO. 
% <0 DISK ADDRESS OF HEADER, REAM IT IN AND CHECK JT» BUT 
% DONT PASS 1T BACK, 
% 
%  RESILT FROM SECURTTYCHFCK 
x =( NO LeotTiMATe USER FOUND 
% mp =TERTTARY USER ¢ TNPUT ONLY) 
% 23  SFCONDARY USER ¢INPUT/OUTPUT) 
% =7 PRIMARY USER CINPUT/OUTPUT/LIB MAINT, ) 
BEGIN 
| REAL, TorDKSGROWsCODE SeROWS eROWSNKADReROWSZ»>C eUSER® TYPE » SHB 
STACK(F42) = T2 
STACK¢F43) = DKSGROW 
STACK(F44) = CONFS 
STACK¢F45) = ROWS 
STACK¢(F46) = ROW 
STACK¢F47) = DKADR 


STACK¢F 410) = ROWSZ 
STACK¢Fatt) = C 
STACK(F412) = USER 
STACK ¢F 413) 
STACK EF 414) 


nooa 
—4 
~< 
vu 
m 


REAL 12DKSGROW, FPBSIZE=CODES! 
STACKOF4+3) = 1 
STACKCF4+4) = FPBSIZE 
. ARRAY FHE*]-FPRsROWE*)3 
STACK¢F 415) = FH 
STACK(F +6) = FPB 
LABFL FOUND: 
LABFL FXYT»NOTFOUND, LOOK eWHYe FORGET: 
REAL SUBROUTINE DYRSRH3 
BEGIN 
LOOK! IF CT2S2DTRECTORYSEARCHCMID>FID»sHEADER))? LSS 64 THEN 
WHY BEGIN 
IF T220 THEN FILEMESS¢*#NO FIL®,Y0ON DISK*>MIDeF1D,0,0,0) 
ELSE IF T2e1 THEN BEGIN PCDEL)S TYPEta=13 GO EXYTS END 


ELSE IF T2222 THEN FILEMESSC"#SYSFIL™s"FRROR *, 
MIDeF1D2920,0)3 
TF AUTODS THEN TERMINATECPIMIX&6¢C°CTFJ) ELSE %747= 
BEGIN 747s 
REPLYrPiMyX]saneSptsVWwVaVOK 362 aot 6IEV ILE 308 4ot6))3 
; COMPLEXSLEEPCCREPLYCP1MIX] GTR 0) OR TERMSETCPUMIXI93 
06360540 ACCINENTAL FNTRY AT 1 
END3 Z747" 


IF TERMSETCP4MIX) THEN GO INITIATES 


06460100 
06460200 
06460300 
06460400 
06460500 
06460600 
06460700 
06460800 
06460900 
06460950 
06460960 
06461100 
06461200 
06461300 
06461400 
06461500 
06461600 
06462000 
06462100 


06462105 


06462110 


06462120 
06462200 
06463000 
06463100 
06463200 
06463210 
06463220 
06463225 


06463230 
06463240 
06463260 
06463270 
06463260 
06463300 


06463310 
06463340 


T 000030 
ADDRESS » 090185 
000030 
000010 
000040 
000080 
0000#0 
000080 
0000:0 
000010 
000030 
000010 
0000:0 
000030 
000010 
0000'0 
000010 
000010 
000030 
0000!0 
000030 


So Bee Me Nee Ween ee ee ee ee ee 


T 000030 


T 000030 


000010 
000010 
000040 
000410 
000410 
000331 
000383 
0004%2 
06463225 
001310 
OO14ty 
OO47NE 
001923 
002310 
002730 


ee 


44 AWA 


003483 
06463270 
T 003423 


o 


FOUND?! 


ENDS 


IF NOT WHYSLEFEP (SH) THEN GO TO WHY? 


IF CSHeT2eREPLYFPIMIX),CFF I) > PSEUDOMAXT THEN 


RBFEGIN STREAMCT23)3 


REGIN Sites 


LL& Syes=Sr4 3 
SpreSyp+ 3 


END: 


TOtsP3 


IF SC#"L" THEN GO TO LbL3 


TotaSI3 


FPRBSIZE&8s(FPRt=PRICP1M]Xe31),(8810]3 


FOR 1%20 STEP ETRLNG UNTIL FPBSIZE DO 


IF CFPREI) E@Vv MIDIZNOT O THEN 
IF CFPBCI4+1] FQV ABSCFID))#NOT 0 THEN GO FOUNDS 


NAME TDCC+T2)3 
NAME LDC CeT?)3 


END? 


MrDizC3 


NAMFIDCCeT2)3 


FrDOtsC&FIpci21%1I3 

IF 1 LSS 1020 THEN 

BEGIN FPBCt)t=sMIp3 
FPBC141]%2C3 


FORGETSPACE(SH™1)3 
END ELSE LARELTABLECT2)])8==e¢ *PCDUP))3 


REPLYCPIMIX]2 203 
aQ TO LOOKS 


NTRSRH ts 


FND DIRSRH? 


T23 


IF HEADER GE@ O THEN 


SHiz1F HEADER GTR 511 THEN HEADER ELSE DIRSRH 


FLSE DISKWAITC*CSH#SSPACE(30))»300HE ANDER, (CF I)3 
FHisTOQUERSHECTC]3 
TFCFHE2) EQV O)FNOT O OR CABSCUSERID) EQV ABSCFHL2)))BNOT O 


OR CUSERID EQV MCP)=SNOT O THEN TYPEe7 ELSE 


IF CFKE6] EQV ©¢4)eNOT O THEN TYPE«2? ELSE TYPEe33% 


IF HEADFR<O THEN GO EXYT ELSE 
IF CFHCS] FOV O14) =2NOT O THEN 


IF TYPE # 0 THEN GO TO EXYT3 
IF FHE51,.6191] THEN 


BEGIN JF ¢SHteDIRECTORYSEARCHCABSCFHE5]) »FHE6)919))20 


THEN BEGIN TYPE8®03 GO TO EXYT END$ 


MESH+4],pittr)s=a3 


STREAMCDATEsJ#2®5)3 BEGIN SIt=l0C DATES 


MCSH+#3],F12918)%eJUNK3 

NISKWAITCSH, CCF 1]5"™309SH,CFFI)3 
$ SET OMIT = SHARFDISK 

UNLOCKDIRECTORY3 


$ POP OMyT 


NKSGROWPeMESH INX 873 
CODES&=SPACE(30)3 
ROWSte(MrSH INX 9] ANn 319°43 


DSt=80cTs FND3 


TLZ540« 


4764" 


06463360 
06463380 
06463400 
06463420 
06463440 
06463460 
06463480 


06463500 
06463520 
06463540 
06463560 
06463580 
06463600 
06463620 
06463640 
06463660 
06463680 
06463700 


06463720 
06463740 


06463760 
06463780 
06463800 


06463610 
06463820 


06463840 
06463860 
06463880 
06463900 
06463910 
06463920 
06463925 
06463930 
06463940 
06463980 
06463960 
06463970 
06463980 


06463982 
06463984 


06463986 
06463988 
06463990 
06463992 


06463994 
06463996 
06464000 
06464050 


4A 444 w- 


en en ee ee ee ee eee ee 


44 


474 AAA AHHH 


asta 


4qa4-4 


003711 
003812 
004130 
004212 
004213 
00433 
006614 
06463420 
00442 
004510 
004712 
004920 
0050%3 
005682 
008994 
0062!0 
0062%3 
006432 
006631 
06463660 
006631 
006732 
06463400 
006983 
007130 
0071382 
06463210 
007132 
007230 
06463100 
0072314 
0077380 
0080%4 
008610 
008712 
009083 
009512 
009613 
009910 
010333 
040530 
010680 
010940 
06463980 
O1si1e 
01142 
064639684 
011684 
011992 
042210 
012230 
06463992 
06463992 
0125%2 
0125%2 
012782 
012933 


FOR ROWts0 STFP 41 UNTYL ROWS 00 
REGIN IF COKANDR&teM(SH INX 104R0W1])20 THEN 
NOTFOUNR? REGIN TYPE ts O;3 
FORGET! FORGFISPACECCODES)# FORGETSPACECSH)3GO TO EXYTS 
END? 


ROWSZ t= DKADR + DKSGRONWS 
WHILE DKADR « ROWSZ DO 
REGIN DISKIOCCe1 CODES» 304eDKADR) 3 
SLEEPC{C],10MASK)3 
FOR ct=0 STEP 4 UNTIL 29 DO 
BEGIN IFCCUSERSt=NFLAGCMC CODES INX CJ)IEQV @114)2 
NOT O THEN GO TO NOTFOUND$ 
1F CUSER FOV @14)# NOT O THEN 
IF USER.(3!3)20 THEN 
BEGIN 
1F CUSERYD EQV ABSCUSER))eNOT 0 THEN 
BEGIN TYPE te 
1fF USER «< 0 THEN 2 ELSE 33 
GO TO FORGET} 
ENn3 


END ELSE 


BEGIN 
IF PaMrx #4 0 THEN 
IF CABSCJAREPIMIXe0] EQV 
USER, (6!42))= NOT O THEN 
TFOCTR JARCPIMTX+0}<0 THEN "DISK “ELSE JAREPIMIXe1] 2 EQV 


MCCODES INX C#1],€6%42))= NOT O 


THEN 

BEGIN 
TYPE t= USER,(£333)3 
GO TO FORGET3 

ENDS Csece+l3 


END3 
ENDS % 30 USERS 


DKADR = OKADR + 13 
ENn$’ % ROW 


FND$ % ROWS 


G9 TO NOTFOUNDS 
END: % NO SFCURJTY BLOCK FILE 


TYPe 303 
FXYT? 
IF HEANER LSS 512 THEN 
IF HFANER GEO O THEN HEADFRteeFH ELSE FORGETSPACECFH)3 
SECURITYCHECK txTYPei 
END SECURYTYCHECK3 


06464100 
06464200 
06464300 
06464400 


06464500 


06464600 
06464700 
06464800 
06464900 
06465000 
06465100 
06465200 
06465210 
06465220 
06465230 
06465300 
06465400 
06465500 
06465600 
06465700 


06465800 


06465605 
06465840 
06465820 
06465830 
06465840 
06465650 
06465860 
06465870 
06465880 
06465900 
06465910 


06465920 
06466000 


06466100 
06466200 


06466300 


06466310 
06466400 


06466500 
06466600 
06466610 
06466620 
06466700 
06466800 


+ 41 4 


maa at ta tt tt 


— 


~ 


Aaa 


013283 
013530 
013830 
013934 
O14a¢ti 
06464300 
014131 
0142%2 
014383 
014533 
014731 
0144810 
015083 
015230 
0153%2 
015531 
015533 
0157%2 
0158!0 
016033 
016141 
06465400 
016194 
06465230 
01640! 
0146433 
0162!2 
0164814 
016632 
017083 
O174t 
017530 
017582 
017683 
0179130 
06465870 
018031 
06465805 
018011 
06465100 
0182%2 
018393 
06464800 
0184314 
06464200 
018682 
018710 
06463970 
018730 
018713 
018733 
018812 
019310 
049393 
06862000 


S1Zee 0495 WORDS 


PRT¢(174) 
PRTC175) 


PRT(176) 


PRT¢552) 


SET OMIT = EO TCORTACOT ) 
x *£ * * oe OK * ee eK ee eK Kk Re OR ee Re ke eR ee Re eR ke em ETS 
e SET OMIT = NOtesecoe AND DaTaCOM ) 


DEFINE KLUMP=@17443% @173 1S RESERVED FOR THE DISK ADORESS 
COMMENT LASTCDNUMs FIRSTDECKs AND LASTOECK ARE STORED IN THE 


FIRST THREE WORDS oF THE DISK SEGMENT LOCATED AT DIRECTORYTOP 
+3, IN A NON SHARED DySw SYSTEM» THEY ARE WRITTEN OUT EACH 
TIME ONE OF THEM IS CHANGED So THAT THEY WILL BE PRESERVED 

TF A HALT/LOAD OCCURS; IN A SHARED DISK SYSTEMs THEY ARE 

RFAD JNTO THE PRT WyJTH A READ*LOCK COMMAND EACH TIME THEY ARE 
USED, THIS PROVIDES CONTROL DECK INTERLOCKING BETWEEN SYSTEMS 
IN ADDITION TO PASSING THE INFORMATION BETWEEN SYSTEMS, 


END COMMENT} 
INTEGER LASTCONUMs@4743 


= |,ASTCDNUM 
REAL, 

= FIRSTDECK 
REAL. 

= LASTDECK 


FIRSTNECK=@1753 


LASTDECK=@4763 


DEFINE |,OCKCONTROLDECKSSBEGIN SLEEPCETOGLE)sCDMASK)$ LOCKTOGCCOMASK)$ 
$ SET OMIT = NOTCSHAREDISK) 
END» 
UNLOCKCONTROLDECKS=BEGIN 
$ SET OMIT = NOTCSHAREDISK) 


UNLOCKTOGCCDMASK) ENN#3 


REAL PROCFDURE NEXTCDNUMCUPDATE)# VALUE UPDATES BOOLEAN UPDATES 
START OF REL SEGMENTS DISK 


= NEXTCONUM 
BEGIN 


LOCKCONTROLDECKS3 


LASTCDNUM = ¢LASTCDNUM MON 9999) +13 
STREAMCCDNUMts0!t LNUMseLASTCDONUM)3 
BFGIN 

SrisLOc LNUMS DIseslLoc CONUMS DSts8 DFC} 
ENn3 


NEXTCDNUM t= P3 
IF UPOATE THEN 
BEGIN 


ENDS 


OISKWATTCKLUMPe#3,01RECTORYTOP43)3 
UNLOCKTOGCCDMASK)3 


ENN 


06499999 
06845900 
06845999 
07000000 
07000010 
07000015 
07000020 
07000025 
07000030 
07000035 
07000040 
07000045 
07000050 
07000100 


AN AHHH Hts 


“+ 


07000200 
07000300 


“+ 


07001000 T 
07001099 T 
07001200 T 
07001300 T 
07001399 T 
07001500 T 
07001600 T 

A 


07001620 T 
07001640 T 


07001660 T 
07001680 T 
07001700 T 
07001720 T 
07001740 T 


07001760 T 
07001780 T 
07001800 Ff 
07001620 T 
07001840 T 


07001860 T 
07001880 T 


0000:0 
000030 
000030 
0000!0 
000010 
000010 
000040 
000030 
000010 
000010 
000030 
000010 
000010 
000030 


000080 
000080 


000010 
000080 
000030 
000030 
000070 
000030 
000030 


DORESS = 00192 


000010 
0000130 
07001640 
07001640 
0005!1 
0007 :0 
0008:4 
0008314 
000930 
97001700 
0009814 
0009183 
004010 
001012 
001242 
07001840 
001630 
07001800 
001640 
07001620 


SIZEs 0019 WORDS 


PRT(553) 


PRT¢554) 


PRT(555) 


PRT(556) 


PROCFDURE STARTADECKCN)3 VALUF N3 REAL NS FORWARDS 07002000 
START OF REL SEGMENTS DYySK 
= STARTADECK 
PROCENURE FNTERCONTROLDECK(H)$ VALUF HS ARRAY HE *J]3 FORWARD} 07002100 
START OF REL SEGMFNT$ DISK 
= FNTERCONTROLDECK 
REAL RUNUMBERSS 07003000 
& RUNUMBER 
x891" 07003250 
SSSESISSL PERE SLSES CES SESE SOLES TSS ES SESE SESS ESSELTE SSCS LOSES SRS EEL ESE 22s: 07003251 
£8918 07003252 
PROCEQDURE FBTARBLE 7890" 07003270 
START OF REL SEGMENTS DISK 
= FBTABLE 
REGIN LABEL LS %690= 07003280 
PCOsxI Ts, LeDEL); %8908 07003290 
Lees £890 07003300 
Do 329% M1 222% A MOTS 2M M/S 27OM , MaLK DH eM I22—M SM IDDIM MI2Z090N MRC BOM, MADDON, 07003310 
EDD I pH PPO PM eM PP2OMsMIDPDH A NDPDDH EMH DDIIM, 2890" 07003312 
MO PP 2M MI2DIM SM 77AIDM MIPIM AMRIDDM MIDDPN HOPPIN HODOPM NIODOM NODDOM, 07003320 
ODOM aD DOM MADD OM MODI IM MIDDDM ES HDDDDM, %890" 07003322 
"BEL PMM222DM DMV a OMe MODI 2M MAGLI MPIDE Me MOD2DM He MOPD7DMS NHL OMe MODIODM, 07003330 
i iy i BA aly Dy Dy fe A Ot de dl OO es OB 0 28908 07003332 
@077706752A057704132806714661 69 B651764730 £892 07003340 
047574656 6B4555445 34977799799» M2TTH2620 pAP5 3524368 2890 07003342 
sadly dy By Dy Dail Taal Oe De a ally ey 2 ll Tad Ot ot ls Oe nd De i Oe 0 0 P| Z891e 07003344 
BQMARKANDRESSES 4890 07003350 
TROP D MID DDM MDD DIDM SMIDPION NIAID IAM LMIDIDH, HDODDON MIDDOH HMODDON HADDAD, 07003352 
HO22OM MOOD eM DI2IOM MIQ22M MIDDIM EM DDDOM, 2890" 07003354 
Or Oe Oe Oe Oe Or Oe Oe Or Or OeDeOsOrDeOe % SPACE FOR ADDRESSES %890° 07003360 
090900000009 03 890" 07003370 
END: £890= 07003380 


T 
A 


r 
A 


T 


PaAAaND 


HOO a H8Nmoraaaooaaonaoanna 


0000:0 
DDRESS # 


0000:0 
DORESS # 


0000:0 


0000:0 
000020 
000010 
000030 
DDRESS # 


000030 
0000:0 
000120 
000110 
001230 
0016:0 
0028:0 
0034:0 
0044:0 
0050:0 
0054:0 
0060:0 
0066:0 
0066:0 
0076:0 
0082:0 
009810 
010530 


00193 


00193 


00193 


07003280 
SIZE= 0106 WORDS 


PRT¢5S7) = SETUP 


STACK¢F42) 2 ADR 


ISP E PTE S SELES SERS ESE SS TET STE E ST ELSES SELES ESSE SSE SET ESE ESS ESET TES EES ES 


Real. PROCFNURE SETUPEBTABLES 


FBTARLE 
BEGIN RrAL ADR LABEL EXITS 


DEFINE STOREADORESSe 
M&eST3 SrteLoc Xs SpsxSy +53 
DSia3 CHR DLtsDt+5 #3 
EBTARLES 
PCPFMECANRIe*PC,ERTABLE) INX NOT 123]10R)3 
SETUPEBTABLE sADRSZADR, Cr) 433 
TF MrADR+84) « O THEN 


STREAM rXts0> TABLE te ADRs OMARKTABLEANDRESS# ADRs 32eLOCAT IONS =ANR440)3 


BEGIN 
NTSsTABLE3 STPaTABLE? Sl taS1483 
acnOcSyseSyaas DSteg CHRI))3 


ZFIRST FILL ALL OF ADDRESSES WITH ADDRESS OF 25S 


S]Tt=QMARKTARLEADDRESS$ 
XtaS]3 


SreslOC Xs SlteSI+53 SPOINT SI AT ADDRESS OF QMARKS 


DIresLOcaTIONS; 
OS:=3 CHR? 
S}TieLOcaTIONS; 
n$3:=63 woOS$ 


ZNOW SFT ANDRESSES FOR VALYD CHARS {NTO ERCNIC TABLE 


S18sTABRLE3 
DrssLOCaTTONS; 
3¢STOREADNRESS3 ZSTORF ADDRESSES FOR LP=Oo19? 
ZCORRESPONDING TG BLANK,9 HOLEs8 HOLE 
SyiskX$ 
S$122514633 Sptt2S741)% SKIP B WORDS DOWN TABLE 
OlraD1+B} #LP23 18 INVALIN 
STOREADNRESS:; BLPZ4 eee. 7% HOLE 
DP teDT +83 ZLP2#5 ¥5 INVALID 
Syt=X3 
SrisSyaq3 
STOREANNRE SS? 
OpiwD +83 
SyeaXs 
STsaSt4q3 
STOREADDRESS: 
DIssDI+a3 
Sl2aX3 
S]tzS[4 43 
STOREADNDRESS? 
OY saNl +403 
S]asX3 
S{txzSt4+13 
STORFANDNRESS; 
OLisD] +83 
SreaX3 
StteSreq3 
STOREADNRESS: 
2CO01tsn1+57)3 


*SKIP 1 CHAR NOWN TABLE 
ZLPe6,...788 HOLES TOGETHER 


LP HB .06.6 HOLE 


ZLPH10 90426688 HOLES TOGETHER 


BMISS 5 WORDS. e,4P511,12013014015 


ZBLPUa16,.0% 5 HOLF 


$LP=#18,..,. 5&8 HOLES TOGETHER 
MISS 13 WORDS,..,LP21993}4 


ZB919 07003390 
07003391 

Za91" 07003392 
¥8908 07003400 
START OF REL SEGMFNTS DISK 
%890= 07003410 
¥8908 07003412 
%890 07003414 
%890= 07003416 
%890« 07003420 
¥890° 07003430 
48908 07003440 
4890= 07003450 
07003462 

£8908 07003464 
%890= 07003466 
¥890= 07003468 
¥890= 07003482 
%890= 07003484 
¥890= 07003486 
%890« 07003488 
%8908 07003490 
%890= 07003492 
890 07003494 
%8909 07003496 
%8908 07003498 
%890° 07003500 
¥890- 07003502 
%890« 07003504 
8908 07003506 
£8908 07003508 
£8908 07003510 
%890= 07003512 
%890~ 07003514 
£8908 07003516 
¥890= 07003518 
%890= 07003520 
%8909 07003522 
¥890+ 07003524 
%890= 07003526 
18908 07003528 
%890= 07003530 
%890= 07003532 
7890" 07003534 
£890 07003536 
48902 07003538 
%890" 07003540 
£890 07003542 
4890" 07003544 
890" 07003546 
48906 07003548 
%890= 07003550 
£890 07003552 
¥8908 07003554 
78906 07003556 


MAIOIMAIAANON AYVNAAAA YAN ANAAANAAANAANAN AN NAANANNAAAOAMA DNA ANA 000 


000030 
000080 
0000:0 
0000:0 
ODRESS ® 


0000!0 


000010 
0000:0 
0000:0 
0000:0 
000430 
0003!2 
000533 
000713 
0010:3 
0014033 
001132 
004340 
001310 
00143%1 
001312 
001430 
OOLats 
0014:2 
001443 
001580 
001510 
001531 
001512 
004740 
001730 
001751 
001830 
0078%4 
00149%2 
001933 
002030 
002074 
002482 
002113 
002230 
0022%4 
0023%2 
002313 
0024130 
002461 
002582 
002533 
002610 
002641 
002732 
002713 
0026:0 
002811 
002912 


00197 


S1%aXx; 
SlsaSreq3 
STOREADNRESS3 
DIssD1+83 

Sl @=uX3 
SlteST4+43 
STORFANMRESS; 
END$ 


FNn3 


ZLPH3Poegen 


ZLPH3B4,4, ee 


4 WOLF 


4&8 HOLES TOGETHER 


2890" 
4890" 
2890" 
%890= 
%890# 
%890= 
%890= 
¥890= 


%890- 


07003558 
07003560 
07003562 
07003564 
07003566 
07003568 
07003570 
07003580 


07003590 


HO QanAaaaonan 


C 


00301 
003032 
003083 
003210 
003231 
003212 
003283 
0034:0 
07003464 
003481 
07003410 


SI1ZE= 0035 WORDS 


QO CIO IOI IGOR IOIOI ORR OIOI ORI IORI SICK IOIOIIGOI I OIE IOIOR IOI OR IOIOR IHC RO ROI IG IGE ate 


STRFAM PROCEDURE EBCOICCONVERTCINTOs TABLE ,POINTERS)3 


PRT¢560) = FBCDICCONVERT 


VALUE INTO,TABLEsPOINTERSS 


VES SE LEP CETTE LE SEES SES TT EE SSE TEPER TEES LESTE SSS STE SES TESST SSS See eee ee aT | 


BEGIN 


LOCAL HPsLPsSRCEsDESTeHPPTR»LPPTRS 
ZPOrNT HPPTR & LPPTR TO LAST CHAR OF HPoLP 
Srt=xLOc HP3 


S]tsS [473 

HPPTRizsy3 BHIGH PART 
S{tsxL0C LPS 

SyieS{+73 

LPPTR&=Sy3 KLOW PART 


STt=INTos SytsS1+43 
DILteINTo3 
ZSTART CHARACTER TRANSLATE LOOP 
2(40¢ 
NESTi=py3 
ZTRANSFFR LOW & HIGH PARTS 
NISZHPPTR3 
NStst cHR3 
NOTteLPPTR} 
NnSiat cyR) 
SRcEt2Sr3 STORE S] FOR Next PASS THRU LOOP 
ZNOW FIND THE POINTER INTO TABLE APPROPRYATE TO LP 
STt=zPOYNTERSS 
LPcS]i#$y+8); 


S128} xSy NOW POINTS INTO TABLE © POINT NEPENDANT ON LP 
DresDEST3 

S]seStoyPs3 ZSKIP SI THROUGH TABLE HP CHARS 

DStsCyHR;3 


SrieSRCp) 3 
DItsTABL.Es DOUtsD1+33 
END CONVERT3 


ZPOINT TO Q@MRK 


07003600 
¥890« 07003610 
¥890= 07003615 

07003620 
%890= 07003630 
OF SAVE SEGMENTS BASE 
¥890" 07003640 
%890= 07003650 
%890= 07003660 
2890s 07003670 
%890= 07003680 
7890" 07003690 
48908 07003700 
%890= 07003710 
%8908 07003720 
7890" 07003730 
%890= 07003740 
%890« 07003750 
%890= 07003760 
¥890= 07003770 
%890" 07003780 
%890= 07003790 
4890 07003800 
%8908 07003810 
7890 07003820 
%890= 07003830 
%890= 07003840 
4890= 07003860 
%8908 07003870 
¥890= 07003880 
¥890" 07003890 
%890= 07003900 
£890= 07003910 
%890= 07003920 
¥890= 07003950 


000010 
000010 


an 


000030 
0000#0 
000080 
DDRESS # 00631 
000020 
000010 
0000:0 
000084 
00002 
00003 
000410 
0001814 
000432 
000210 
00021 
000231 
000233 
0003:0 
00030 
OO0O03%1 
000382 
000313 
000430 
O0004aty 
0004%1 
0004:2 
00052 
0005!3 
000620 
0006!2 
0006#3 
0007%2 
00080 
07003630 
SIZE2 0009 WORDS 


DMOAIAIAINAIOHAIAOYANONM AMO ONHAAAAOO AM ANAA NA OFODO OO 


STACK¢F 41) 
STACK(F 42) 
STACK ¢F 43) 
STACK ¢(F 44) 


STACK ¢(F 45) 


= 


PROCEDURE COM233% 


REGIN 
REAL TNBUFF .% 
INBUFF 


STACK¢F46) = T 
STACK¢eF4a7) = T1 


STACK ¢F 410) 
STACK¢F 411) 
STACK ¢ F412) 
STACK ¢F 413) 
STACK (F414) 
STACK(F 415) 
STACK¢F 416) 
STACK¢( F417) 


STACK ¢F420) 


STACK(F 421) 


STACK ¢F 422) 


STACK ¢e F423) 


STACK (F424) 


OUTBUFF .% 
OUTBUFF 
FrRSTCARD »& 
FIRSTCARD 
OUTRUFFOLDs% 
OUTBUFFOLD 
RESERVE »% 
RESERVE 
ToTisTAp% 
T2 
RelLoNsd 
R 
L 
N 
Qk 
Q 
1U,% 
[TU 
OUs% 
Ou 
FIRST,% 
FIRST 
S,% 
S 
z 
N3% 
0 
Z 


ANDRESS OF THE INPUT BUFFER, 
" " *" OUTPUT BUFFER, 
" " CARD IMAGE OF THE FIRST CARD 
" " oo» LAST OUTPUT BUFFER, 
" " 30 WOS OF CORE USED TO BUILD THE 


TEMPORARY VARJABLES, 


USED 10 COUNT CARD IMAG 


USUALLY INDICATES COL 1 HAS A QUESTION MARK 
UNIT NUMBER OF THE INPUT UNIT, 

i" " " OUTPUT UNIT, 

TRUE IF THE FIRST CARD OF A DECK, 

USED AS A TEMPROARY VARIABLE IN SUBROUTINE 


AND TO HAND THE UNIT NUMBER To SUBROUTINE S 
USED AS A MASK To SLEEP UNTIL DISK OPERATIO 


ARE COMPLETED. 


$ SET oMrT = NOTCPACKFTS) 


REAL, VERYFIRSTs 


VERYFIRST 
FIRSTORSFC, 
FIRSTORSEC 
PTYPEs% 

PTYPE 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
4 
% 
% 


ZTRUF TF THE FIRST CARD OF THE FIRST DECK 


ZIN SYNCF LOAD CONTROL WAS EXECUTED, 


ZIRUE TF THE FYRST OR SEC, CARD OF NEW DECK 


CONTAINS THE RESULT OF REAL SUBROUTINE 


PACKETCARD+ SAVING SOME NEEDLESS EXTRA 
CALLS ON IT TO CHECK THE TYPE OF A CARD. 
THE VALUE OF PTYPE IS AS FOLLOWS! 
0 = NOT A PACKET CONTROL CARD 
1 = “PACKEND*"CARDs CUSED BY THE 
OPERATORS TO END A GROUP 
OF PACKETS BEING LOADED TO 
D1SK) 
3 = "PACKET* CARD,CFIRST CARD 
OF A PACKET) 
5 = "END PACKETS™ CARDs cUSED BY 
THE OPERATORS TO BOTH END 
A GROUP OF PACKETS AND 
SIMULTANFOUSLY DYSCONTINUE 


07004000 


START OF REL SEGMENT? DISK 


07005000 
07006000 


07006010 
07006020 
07006030 
07006040 


07006050 


07006060 


07006070 
07006080 
07006090 
07006100 
07006140 


07006150 
07006160 


07006161 
07006169 
07006172 


07006174 
07006176 


07006180 


07006190 
07006200 
07006210 
07006220 
07006230 
07006240 
070062580 
07006260 
07006270 
07006280 
07006290 
07006300 
07006310 
07006320 


T 000030 
ADDRESS w» 00199 
T 0000:0 
T 0000:0 
T 000030 
T 0000:0 
T 0000:0 
T Q0000:0 
T 000010 
T 000010 
T 0000:0 
T 000010 
T 000010 
T 000030 
rT 0000:0 
T 0000:0 
T 000010 
T 0000:0 
T 000030 
T 000030 
T 000030 
T 000030 
T 000080 
T 000030 
T 0000:0 
T 0000310 
T 000030 
T 000010 
T 00000 
T 000030 
T 0000:0 
T 900030 
T 000010 
T 000080 
T 000010 
T 000030 
T 0000!0 


STACK ¢F 425) 


STACK(F 426) 


STACK (F427) 
STACK¢(F 430) 


STACK¢F43t) 
STACK¢( F432) 
STACK¢F 433) 


STACK (F434) 
STACK¢(F 435) 


STACK¢F 436) 
STACK¢(F 437) 


uous 


nou 


% LOAD CONTROL), 
PLUGGED3% TRUE JTF THE LAST "PACKET® CARDCI Eee 


PLUGGED 
x PTYPE=3)» WAS BOTH THE START OF A NEW 
% PACKET AND WAS USED TO *PLUG"™ THE END 
% OF THE LAST PACKET WITH AN ARTIFICIAL 
% "mQUESTION MARK@™ PACKET," CARD3 
£ POP oMyT 
BOOLEAN CDONLYS 
CDONLY 
INTEGER Aol3% 
A 
$ SET OMIT # NOTCPACKETS) 
REAL CONTINUFsDISKCHAIN*S ANECKS LABEL DK$ 
CONT NUE 
DISKCHAIN 
ADFECK 
$ POP oMmrT 
LABFL AGAJNe INL»ERROR»SUPFR,BOMBsSKIPITSEXITS 
LABEL INPUTL 
BOOLEAN EBCDIC! REAL EBTABLEADR? 
EBCODIC 
FBTABLFADR 
ARRAY FPBC*¥)oHr¥13% 
FPB 
H 


SUBROUTINE STOPS % 
REGIN IF S #4 18 THEN 
BEGIN READY « NOTCQ@ «+ TWOCS)) AND READY3Y 


%890= 


RRRMECH « NOT @ AND RRRMECH OR @ AND SAVEWORD? 


LABELTABLECS] « @1143% 
RDCTABLECS) « MULTITABLELS] « 0% 
END3% 


FPRET+1J]«© *PCDUP)+4CLOCK4PCRTRD3S% 
FPBCT),£C24212) « TINUPSJ,£18212]3% 
TINUCS],£18%12)8 203 

FND3% 


$ SFT OMIT = PACKETS 
& SFT OMIT = NOTCPACKETS) 
SUBROUTINE FORGETONE3 

$ POP oMrT 

RFGIN Ti © HE9) 493% 
FOR T2 « 10 STEP 1 UNTIL T1 DO 
FORGETUSERNISKCHIT2)»"H[ 8) )3 

FND3% 


$ SET OMYT = NOTCPACKETS) 
SUBROUTINE FORGETIT3 
REGIN FORGETONE3 
WHILE DISKCHAIN NE@ O 90 
BEGIN DISKWAITC@CH INX 09+ 30eDISKCHAINDS 
DISKCHAINtH(6],.CFF JS 
FORGE TONES 
ENDS 


07006330 
07006340 


07006350 
07006360 
07006370 
07007000 
07007001 
07007100 


07008000 


07008199 
07008200 


07008251 
07009000 
07009100 
07009200 


07010000 


07031000 
07012000 
07013000 
07014000 
07015000 
07016000 
07017000 


07018000 
07019000 
07020000 
07021000 


07021999 
07022099 
07022100 
07022101 
07023000 
07024000 
07025000 
07026000 


07026099 
07026100 
07026200 
07026300 
07026400 
07026500 
07026600 
07026700 


“4-4 


4HAaAsaaosas 


ona 


AHA As A ~ 


ee 


EL 


000030 
000010 


0000:0 
000030 
00000 
000030 
0000:0 
000030 


000010 


0000!0 
0000:0 


000030 
000010 
0000:0 
0000!0 


0000:0 


000070 
0001:0 
0004:3 
0004!3 
000731 
0008%2 
000933 
070313000 
001083 
001333 
001730 
0019%2 
07012000 
001933 
0019183 
001933 
002010 
002030 
002132 
002310 
002730 
07023000 
002731 
002731 
002630 
002930 
003031 
0032%2 
003430 
003510 


END FORGETITS 


$ POP OMyT 
SUBROUTINE ROMATYMES & 
RFGIN WHILE STOPSETCPtMIX) DO STOPMCFALSE)? 
TF TERMSFTCPIMIX) THEN GO BOMB? END} 


$ SFT aMtT = NOTCPACKETS) 
REAL SURROUTINE PACKETCARDS% THIS USED TO BE “ENDCARD® 
REGIN JF @ THENS 


BEGINS? 
IF ERCN1C THEN ¥8908 
BEGIN %890° 
FRCDICterALSE3 ¥890= 
MEcC*¥PC,EBTABLE) INX NOT 1)),¢284]2208 %890 
END3 £8908 


STREAMCX2e"PACKETS* SY SE" CONTINU", Z3=2"END, , ¥890@ 
EBts"pATAQ29", INBUFF)3 £8908 
BEGIN SI] « INBUFF3S% 
Lt Sy « SIl+143 YF SC =" ™ THEN GO TO LdE 
INBUFFRsSy3 ¥890" 
NreLOC X3 DteDl413% POINT TO "PACKETS" 
IF 48cCeDC THENZ A "PACKET" OR "PACKEND™ CARD 
TF 28C20C THEN TALLY#3% A "PACKET" CARD 
ELSE TALLY*#1% A “PACKEND"™ CARD 
ELSF BEGIN Dy*#DIl#43% POINT TO "PACKETS*" 
IF 7 S§CsDC THEN TALLY%s5 2"END PACKET" 
ELSE BEGIN SI&INBUFFEIDITt=2LOC Y3 ¥890" 
Ort=Dir+q43TF 7FSCEDC THEN TALLYS 26 
ELSE BEGIN DItsLOC ZiDIteD1443 


ST ts ]NBUFF3 ¥890= 
1F 3 SCeOC THEN TALLY#=7 £890= 
ELSE BEGIN 890" 


DIt=LOC EBSDII=DI413 £890 
SIteINBUFFS 


IF 6 SC#O0C THEN %890= 

BVOTN ¥890= 
TALLY#43 

BVOtn 07036353 %B90= 

END END END? ¥890" 


ENDS % 


X # TALLY33 
FNDS% 


FNp FLSr Pc 03% 


PTYPRi=P3 . 
IF PTYPE26 THEN BEGIN PTYPEts33 CONTINUE ts TRUE END 


ELS CONTINUE? @FALSES 
IF PTYPE=7 THEN PTYPEtsADECK? 


07026800 


07026801 
07027000 
07028000 
07028100 


07028999 
07029000 
07030000 
07031000 
07031200 
07031300 
07031400 
07031500 
07031600 


07032000 
07032100 
07033000 
07034000 
07034500 
07035000 
07036000 
07036100 
07036150 
07036200 
07036210 
07036220 
07036230 
07036240 
07036250 
07036260 
07036270 
07036280 
07036290 
07036300 
07036310 
07036320 
07036330 
07036390 


07036400 


07037000 
07038000 


07039000 


07039100 
07039200 


07039300 
07039410 


4 


+a 


Aaaooraoon vt vasa Oe HHO Ot HOOD Aa oOaIaIn ~ + 4-41 


++ 


07026400 
00352 
07026200 
003533 
003583 
0036:0 
003931 
07028000 
004142 
004182 
004230 
004281 
004233 
0043%0 
004312 
004484 
0048380 
07031300 
004830 
004984 
005010 
0050%1 
0054%1 
005132 
005210 
005222 
005341 
0053:3 
005484 
005540 
005533 
005642 
005732 
005783 
005832 
005833 
005934 
005982 
0060:0 
006010 
0060%4 
006024 
07036270 
07036240 
07036220 
006031 
07036200 
006081 
006032 
07033000 
006033 
07031000 
0066814 
006633 
07039200 
006912 
007033 


IF PTYPrE = 4 THEN 


BFGIN PTYPE%203 FRODICH=TRUES 
FBTABLEADR?=SETUPEBTABLFS 
ENN? 
PACKETCARND!=PTYPE3 
ENDI% 
$ POP oMrT 


$ SET aMTT = PACKETS 
REAL, SUBROUTINE ADR3% 
REGIN TF CT? © HECTI «© R OV 200)410)) = O THENE 
BEGIN Hr9)] «+ T1438 
HOTI4+90} © T2 «+ GETUSFRDISK(200)3% 
ENDS% 


ADR « R MOD 2004T2% 
FNDES 


SUBROUTINE yNPLUT3 
RFGINS 
IF IU < 16 THENS 
£ SFT OMIT = NOTCPACKETS) 
REGIN 
INPUTL!? T © WATT?O €@120540000000 + INBUFF> 
@C60000K40, 1U)3 
1F T=@40 THEN GO TO INPUTL3 
1F T#0 THEN 
BEGIN 
PCDEL)3 
GO TO FRROR 
END: 


$ POP OMYT 
$ SET OMIT = PACKETS 
Q + MCINBUFF9?1)=93% 
FNDS 


FLSE BEGIN WHILECQt=wATT10¢@400000004;NBUFF+ 
EBCDICxP 400000001 FI RSTX4y 
@4000000.1U)),74581] DO 


IF FIRST AND CDONLY AND NOT CONTINUE THEN 


GO EXIT ELSE 
BEGIN SLEEPCCTOGLEJ,STATUSMASK)3 


RRRMECHERRRMECH AND NOT Q«+TWOCTUDS 


READY*READY AND NOT Q3 
SLEEPCrREADY]sQ)3 
ENDS 


IF EBCDYC THEN EBCDICCONVERTCINBUFF » 
ERTABLEADRSEBTABLEADR4+40) ELSE 


IF @ « @ # O THEN 
BEGIN StacTtsUNITECIUI),CFFI3 
RETURNIOSPACE(S)3 


UNITCIU] «© TRO77777065120828)3 


ENDSS 


7890= 
%8908 
¥8908 
¥890= 


7890« 
g8908 


%654= 
X6540 


¥890= 
48902 


07039500 
07039600 
07039700 


07039800 


07040000 
07041000 


07041001 
07041099 
07042000 
07043000 
07044000 
07045000 
07046000 


07047000 
07048000 


07049000 
07050000 
07051000 
07051099 
07051100 
07051110 
07051120 
07051130 
07051140 
07051150 
07051160 
07051170 
07051180 


07051181 
07051999 
07057000 
07058000 


07059000 
07059010 
07059400 
07059110 
07059112 
07059200 
07059300 
07059400 
07059500 
07060000 


07060100 
07060200 
07061000 
07062000 
07063000 


07065000 
07066000 


—+—- Aa oaan 


AHtaaAaas 


AHHH HO VHOV Ae HA HAHA 4H 


4—aH OO 


4-4 


007233 
007332 
0075!2 
007682 
07039600 
007632 
007710 
07030000 
007741 
OO7TT31 
007741 
007810 
008110 
0083!1 
0086+1 
07044000 
0086t1 
008730 
07043000 
008810 
0088:0 
008810 
0088!3 
008833 
008981 
009084 
009132 
009233 
0093%2 
009430 
009481 
009413 
07051150 
009710 
009710 
009710 
009982 
07051100 
0099%2 
010430 
010283 
010511 
010613 
010633 
010910 
011132 
011310 
011482 
07059200 
011810 
012013 
012230 
012333 
012612 
07063000 
012913 
013210 


@ 
07062000 e 
STREAMCQMK tei 21BCLte1°FBCDIC, INBUFF)3 %890° 07066100 ¢ 013280 
BEGIN ¥890 07066200 c 043410 
SIt=INBUFFS %890= 07066300 c 013480 @ 
RCL CTF SCE"*™" THEN JUMP OUT TO L4)3 07066350 c 013481 
te SC#@14 THEN 890" 07066400 ¢ 013680 
Lit BEGIN StteLOC QMKSS]teS1473 ¥890° 07066500 C 013612 @ 
pSt=1 CHR} %890« 07066550 C 043780 
TALLYte43 %890= 07066600 c 013731 
S1te{NBUFF3 ¥890= 07066610 c 013712 @ 
2(36C1F SCaM>" THEN £890" 07066620 C 043733 
REGIN INBUFFS3SI13 DIt=INBUFFS £890" 07066630 c 013833 
nStelIT "" %890= 07066635 C 013981 6 
FNS ¥890= 07066640 c 013983 
07066630 
1F SCm*2" THEN £890 07066650 ¢ 043933 e 
BEGIN «NBUFFSeSTs3 OL te ~NBUFFS %890@ 07066660 c¢ 014084 
pSt= LyT #"" %890« 07066665 C 014083 
ENDS Sit#Sf413)) ¥890° 07066670 C O1attt a 
07066660 
END} 4890= 07066700 c 014280 
07066500 8 
QMK t=TALLY3 48908 07066800 c¢ 044280 
END %8908 07066850 c 014281 
07066200 e 
QreP OR Q3 %890= 07066900 ¢ 044282 
Te 05% 07067000 T 014382 
ENDS 07068000 T 014414 e 
07059000 
END INPUT? & - 07069000 P 014481 
07050000 @ 
Joneemeaneenaneme C0M23 semen wetnnmecenenen - 07069200 c 014610 
% SET UP INPUT VARIABLES 07071000 T 014630 
IF CDONLY2®(PRTICPIMIX,@25]>22) THEN 07072000 T 014610 @ 
BEGIN [Ut=PRTCPIM1X2@25]73 07072100 T 015583 
PRTCPIMIXs@25]%=03 % DISK 07072200 T 0157383 
END FLSE 07072300 T 015912 e 
07072100 
BEGIN IF CIULEFINDINPUTC™CONTROL™»"DECK  60000,00050. 07072400 T 015912 
0+0)) LSS O THEN GO INITIATES & BEEN DS#ED 07072500 T 0162814 e 
IF IU GEQ 32 THEN PCXITD3 % EOU TF PSEUDODCK 07072600 T 016530 
ENDS 07072700 T 016612 
07072400 e 
STARTIMINGCOsTU)S 07073000 T 046612 
FPRitsPRTCPIMIX03]3 07073500 T 016782 
$ SET OMIT = PACKETS 07073999 T 016930 a 
TF NOTCJAREPIMIXs9)46(281)) THEN &% DONT SUPPRESS MFSSAGE 07074090 T 016940 
FILEMESSAGEC™ IN "&TINUCIUI£L6330¢8183-0- 07074100 T 017083 
MCONTROL™» "DECK "> 020200 0PNMESS)3 07074200 T O17381 @ 
ROCTABLELIUI,£836] © PIMIX32 07075000 t 017582 
IF [U LSS 16 THEN BEGYNX 07076000 T 017880 
FPBI3],¢23t1})%=13 SET INPUT FLAG FOR LOG 07076010 T 017981 1] 
T © WAITI0¢@540000005»0.1U)% 07077000 T 018133 
ENDS 07077010 T 048283 
07076000 e 
FLSE IF I1U@23 AND READERA NEQ@ O THEN 07078000 T 048382 
BEGIN FORGFTSPACECREADERA"293% 07079000 T 018933 e 
@ 


% 


ws 


SET 


SET 


SFT 


$ VOrTOT 


READERA © 038% 
ENDS 


ELSE JF 1U=24 ANDO REANDERB NE@ O THEN 
BFGIN FORGFTSPACFECREADERB@2)3% 
READERB «+ 038 
ENDS 


%890= 
FIRSTCARD © GETSPACE(C10sCONTROLCARDAREAVs1)4+23% %167- 


SET UP OUTPUT VARIABLES? 


IF PRTCPIMIXs@25)] THENS 
FEGIN OU « LABELASCRATCHC(T «#2 
TAPELABELC™CONTROL" » "DECK "o1012100))3% 
IF QOU<O THEN GO INITIATES *BEEN DS*ED 
FORGETSPACE¢T)3% 
FPBL31,6r2384)2203 ZSET OUTPUT FLAG FOR L0G 


END 
FLSE BEGIN OUTBUFFOLD « OUTBUFF «2% Z167* 
GETSPACE C6021 0BUFFERAREAVs)1)+252 Z167= 
RESERVE « GETSPACE(305001)4+23% 
H t= SAVEARRAYDESC(30,DISKHEADERAREAV)3 K167« 
OU «+ 183% 
INBUFFE « GETSPACEC 24 21]0BUFFERAREAVe1) + 23 ¥8928 
END3¢% 


STARTIMING(5,0U)3 


FRB&ePRI[PIMIXe3)3 & STARTIMING MAY HAVE MOVED IT, 


SET oM!1T = NOTCPACKETS) 


VERYFIRST«13% 


POP OMIT 


BEGIN ONF 
AGATN? 


SFT OMIT = 


POP OM1T 


RF GIN ONE 


INL: 


DECKS 

QOUTBUFF « OUTBUFFOLDS3 

Lo« N «© OfF% 

NOTCPACKETS) 

ADECK « O$ FIRSTORSEC ¢ %176« 


FIRST « D © 13 
If OU = 18 THENY 
BEGIN Hr 9] « OFF 
MOVEC20,CH(9I]J»+CHE10]))3 
H[8j«2003 
END3Z 


CARDS 


OMTT = NOTCPACKETS) 


tF PTYPE NE@ 3 OR VERYFIRST THEN 


POP oOMrT 


INPUT? 


OMIT = NOTC(PACKETS) 


IF FIRSTORSEC THEN 


POP OMIT 


IF FIRST THENS 
BEGIN 


OMIT & NOTCPACKETS) 


07080000 
07081000 


07082000 
07083000 
07084000 
07085000 


07086000 
07087000 
07088000 
07089000 
07090000 
07091000 
07091100 
07093000 
07093010 
07094000 


07095000 
07095100 
07096000 
07097000 
07098000 
07401000 
07103000 


07104000 
07104500 
07105499 
07105500 
07105501 
07106000 
07107000 
07108000 
07108099 
07108100 
07108101 
07109000 
07110000 
07111000 
07412000 
07412100 
07113000 


07114000 
07115000 
07115099 
07115100 
07415104 
07115200 
07415499 
07145500 
07115501 
07116000 
07117000 
07117099 


4 


a4 +441 


AOAVAOD HAHAH WAH AD 


ee ee ee | 


AAMAS 


019142 
019281 
07079000 
019211 
0194192 
019631 
049730 
07083000 
019730 
019710 
0199314 
0199%4 
020031 
020110 


020410 


020533 
020632 
020930 
07090000 
020980 
021210 
021483 
021730 
0220!3 
022182 
022383 
07095000 
022333 
0224:3 
02261 
022631 
022740 
022770 
022730 
022713 
022910 
022910 
022983 
022933 
023182 
023231 
023410 
023680 
023731 
07111000 
023731 
023731 
0237141 
023711 
0238:2 
023832 
0240:0 
024030 
024081 
024081 
024130 
024132 


£ 
§ 


$ 


be ad 


mw 


POP oMIT 
SET OMIT 


SET OMIT 


POP omrT 
SET oMyT 
SFT OMyT 
NKi . 


POP oMIT 
SFT OMIT 


POP OMIT 


SET OMIT 


POP OMIT 


SET OMTT 
SET oMyT 


POP oMrT 


SUPFRE? 


SET OMIT 


POP omrT 
SET OMtT 


SET OMIT 


PLUGGEDSSVERYFIRST? 


PACKETS 
MOVE CLO, INBUFFeFIRSTCARD) $% 
NOTCPACKETS) 
1F PACKETCARD s 5 THEN 
1F OU<t6 THEN FIRSTSEVERYFIRST#20 FLSe 
GO TO FXIT ELSE 
1F PTYPE#3 OR CONTINUE THEN 
BEGIN 
ADECKital$ GO DK3 
FND: 


FND ELSE% THrS MUST BE THE SECOND CARD IN 


PACKETS 
NOTC PACKETS) 
IF Q THEN FYRSTORSEC3s0 ELSESBAD SEC./FIRST 
BEGIN VERYFIRST#43 % CARD 
GO TO ERRORS 
FND$% tNV DECK SET*UP 


TF T NEQ@ O THEN 
NOTCPACKETS) 
IF PTYPE NE@ 3 OR VERYFIRST THEN 


GO TO ERRORS; 
BOMBTIME 33% 
IF OU < 16 THEN % OUTPUT TO TAPE ¢ OU = 18 NORMALLY) 
BEGIN 
NOTCPACKETS) 
PLUGGFD «© VERYFIRST OR CPACKETCARD#3) 
OR FIRST3 
IF PLUGGED THEN 


TeWAITIOCINBUFF&@5000718833315) 
&8(¢10"Q)78!38810),0.0U)3 
PACKETS 
NOTCPACKETS) 
IF VERYFIRST THEN VERYFIRST*PTYPE*03 
IF FIRST THEN FIRST+PTYPE«O3 
IF PTyPe2O0 THEN GO TO YNL3 


MCTNBUFF@1) «© ®17370000000000003 
T «© WAITIOCINBUFF#?1,020U)3 


NOTCPACKETS) 

te PtyPre5 THeN GO TO exyT3 

Ie PTyPezi THEN VERYF RST aTRUE3 
GO TO AGAIN3 


PACKETS 
END32 


IF D = O THEN SLEFPCENJ»NOT 093 
NOTCPACKETS) 


07417100 
07117101 
07117199 
07418000 
07418099 
07118500 
07418510 
07118520 
07448550 
07418600 
07118690 
07418700 


07119000 


07119004 
07419009 
07419099 
07119400 
07119200 
07449300 
07119400 


07419401 
07120000 
07120009 
07120010 
07320011 
07420020 
07121000 
07122000 
07122010 
07122999 
07123500 
07124000 
07124500 
07424504 
07125000 
07125500 
07125599 
07425999 
07126000 
07126500 
07127000 
07427004 
07127500 
07128000 
07429000 
07129099 
07429100 
07429200 
07429300 
07429301 
07429999 
07439000 


07139500 
07139509 


ES . 


_" 


ee 


MA HHHHHA HHA RHA HA HA DH HHH 


“44 


024112 
024231 
024231 
024231 
024333 
024333 
024532 
024832 
024832 
025034 
025033 
025240 
0714318600 
025230 
07417000 
025210 
025230 
025210 
025230 
025410 
0255! 
025533 
07119200 
025533 
025533 
025612 
0256!2 
0258!1 
025831 
025920 
026010 
026083 
026131 
0261%1 
026331 
026433 
02650 
026530 
0266314 
026934 
026981 
026984 
027194 
O273!%4 
027412 
027432 
027682 
027833 
027833 
0276:3 
0260:4 
026234 
028530 
0285:0 
0285:0 
07122010 
0285:0 
0288!0 


1F PACKFTCARD 


NEQ 0 AND NOTCANECK AND PTYPEs#1) THEN 


BEGIN ITF NOT¢PLUGGED OR FYRST) THENS 
BEGIN STREAM(N+OUTBUFF)3 BEGIN DS«27 LIT 
"CC ENDeee IN CASE YOU FORGOT™"SDSe¢45LIT"® " ENDS 


IF PTYPE = 3 AND NOT CONTINUE AND NOT ADECK THEN 


BEGIN STREAMCFIRSTCARDse TeTeSPACE(13))3 
BEGIN DS*24LIT"#NQO PACKFEND CARD, PKT = "$3 SIeFIRSTCARDS 


OS+9 WOSt DSeLITte™3 


ENDS 


SPOUTCT)? 


ENDS 


FND FUSE MOVE (10+ 1NBUFF ,OUTBUFF 3% 


END ELSES 


$ POP oMIT 
$ SET OMIT = 


&$ POP oOMyT 


$ SET OMIT = 


$ POP OMIT 
$ SET OMIT = 


MOVEC 105 INBUFFsOUTBUFF)3& 
NOTCPACKETS) 
IF VFRYFIRST THEN PLUGGEDSO3% 


tF @ THENS 
BFGJIN JF L DIV 6 # N DIV 6 THENZ 

BEGIN R « L DIV 33% 
Ae ADR3Y 
DI SKIOCTe t*RESERVE » 302A) 3% 
SLEEPCE TI], 1OMASK)3&% 
MrteL MOD 3x1049+RESERVE]) «© N3Y 
DrSKIOCTsRESERVE*1s300A)5% 
SLEEPCE TJ] ¢1OMASK)3% 

ENDS 


ELSE MC] *CLON)X104940UTBUFF) «© N3& 
Lo « MrOUTBUFF+4+9)] © N3Z 
FNDS% 


IF N = 12000 THENY 
BEGIN T ¢ SPACE(14)3% 
STREAMCFIRSTCARDeT)}3 
BEGIN DS * 32 LITS 
NOTCPACKETS) 
"#MORF THAN 12000 CARDS IN PKT = *$ 


PACKETS 
SI*FIRSTCARDSDS*9WHSIDS«LIT "e3 
FND?3 


GO TO SkIPIT3 
ENDS 


IF (CN * N+1) MOM 6 * O THEN 
BEGIN R « N HIV 37233 
A « ADRSS 
OUTBUFF * OUTBUFFOLD3% 
DISKIOCH»OUTBUFF™12600a)3 


¥124e 


071395140 
07439511 
074339512 
07439513 


07139520 
07139530 
07139540 
07139550 
97139560 


07139565 
07139570 


07139575 
07139590 


07139591 
07140000 
07140099 
07140100 
074140103 
07141000 
07142000 
07143000 
07144000 
07445000 
07146000 
07147000 
07148000 
07149000 
07150000 


07151000 
07152000 
07153000 


07154000 
07455000 
07156000 
07157000 
07157099 
07157100 
07157101 
07157999 
07159000 
07160000 


07161000 
07162000 


07163000 
07164000 
07165000 
07166000 
07167000 


+ 


AAAH HAHAHA HA 


aa 


Gein oe ne i ee 


4a+4-34—4-1 


028810 
029141 
029233 
O29qt¢ 
07139512 
030430 
0306%1 
030933 
O313%4 
031430 
07139540 
031434 
031582 
07139530 
0315%2 
07139512 
0317:2 
07139511 
031732 
O317%2 
0319%2 
0319:%2 
0321:0 
0324:0 
03211 
0323%2 
032531 
0326'2 
0328:2 
0330:0 
0334:0 
033630 
033732 
071443000 
0337%2 
034230 
034432 
07142000 
034432 
O34584 
034830 
034910 
ORO 
O38914 
035341 
0353%1 
035311 
0354a%} 
07157000 
035432 
035650 
07155000 
035610 
035881 
036032 
036212 
0363!1 


$ SET OMYT = 


& POP omrT 
$ SET omIT = 


POP OM1T 


oe oF 


$ SET OMIT = 


SET OMIT = 


FND ELSE OUTRUFF «+ OUTBUFF 41033 


NOTCPACKETS) 
TF FIRST THEN FYRSTePTYPE «Ose 
IF VERYFIRST THEN VERYFIRST&sPlyPet203 


NOTCPACKETS) 
IF PTYPE=9 THEN GO INL? 


PACKETS 

IF 0 = O THEN SLEFPCE DI »NUT 0)3 
OUTBUFF « OUTBUFFOLD3% 

R« N DIV 6x23% 

A «+ ADRIZ 

1F N MOD 6 # O THEN 

BEGIN 
NISKTOCTs»OUTBUFF@4,60,A)3% 
SLEEPCE TI)» 1OMASK)3% 

ENDS% 


IF R¥2 «< 200 THEN 
BEGIN Hr8)] « R+2}3 
FORGETUSERDISKCA+2sR™198)3 
END: 


H(7JeN@13 

HfL AleH( 6) 403 

H¢5)t= “03 

NOTCPACKETS) 

H(EG]eORDISKCHAINEICTFIRCIF [U<23 THEN 2 ELSE [U"23) 
(234226)3 


IF CONTINUE THEN 


$ POP oMrT 


&$ SET OMIT = 


$ POP oMyT 


FRROR?S 


S$ SET OMIT =. 


REGIN 
HC2]t=NEXTCONUMC1)3 

DNYISKCHAIN!S =GFETESPHISK$ 

NYSKWAITCH INX Os 30eD7SKCHAIN)3 
STREAMCA$2H( 2) +RteFIRSTCARDs»INBUFF)S 

BEGIN Syt=B! DSt#8B CHR} 

NSt245 LIT" CONTINUES PKT#"3 

STiaLoC AF SyteS144s OStad CHR ONSteLLTess 
ENDS 


END ELSE 
BEGIN DISKCHAINts03 


FNTERCONTROLDECKCH) 3 
NOTCPACKETS) 
END} 


GO To SUPERS 
T ¢ SPACE(I2)3% 
NOTCPACKETS) 
STREAMCFIRSTCARD se XeVERYFIRSToT)3% 
BEGIN Ste«Loc X3 SleSI+7) [TF Scs"2" THEN 
DSe16 LIT "#INy PKT CARD @# “& 
ELSE 1F SCerae THENY 


07169000 


07469099 
07169100 
07169110 
07169201 
07169499 
07169500 
07169501 
07169999 
07471000 
07173000 
07174000 
07175000 
07475100 
07175200 
07176000 
07477000 
07178000 


07178100 
07178200 
07178300 
07178400 


07179000 
07179050 
07179100 
07179199 
07179200 
07179202 
07179205 
07179210 
07179220 
07179230 
07179250 
07179260 
071379270 
07479280 
07179290 
071479300 


07179310 


07179320 
07179321 
07180000 
07180009 
07180010 


07480011 
07181000 
07214000 
07244099 
07214100 
07214110 
07214120 
07344130 


AAAs AHA HA AA OG 


AHHH H HHA AHH 


~ 


AaAHAG 


Aa AHHH 


036531 
07164000 
036720 
036730 
036910 
037180 
037120 
0371:0 
O372%4 
037231 
037211 
037531 
0376:0 
037733 
037912 
038033 
03814 %4 
038304 
036483 
07175200 
036483 
0386:0 
03688 4 
039084 
07178200 
0390%4 
039280 
039424 
0395:3 
039533 
039982 
040140 
0404981 
0404:3 
040382 
040482 
040612 
040810 
040812 
041083 
041210 
07479270 
Oa12it 
07179210 
Oaety 
041382 
041332 
041482 
041432 
07179320 
0414442 
041412 
041580 
Ort 
04171 
041872 
041932 
042433 


POP oMtT 
SFT oMtT 


SKIPITS 


SET OMIT 
SET OMIT 


POP aMyT 


BOMR3! 
EXTT$ 


DS#16 LIT *#INV DECK,PKT = % 

ELSE 08¢16 LIT “*#READ FRRePKT = "33 
PACKETS 

SI « FIRSTCARDS DS « 9 WDSS DS # LIT Mempy 

END3% 

SPOUTC(T)3 
DO BEGIN INPUT3¢ 

ROMBTIMES% 
PACKETS 


NOTCPACKETS) 
END UNTIL PACKETCARD NE@ O3 


TF OU < 16 THENE 
BEGIN DO BEGIN T « WAITI0¢€@340000005s@60.0U) 3% 
BOMBTIME3S? 
ENO UNTIL T,£420133% 


T + WAIT[0(@140000005,@60,0U)3% 
ENDS 


FLSE FORGETIT3& 

GO TO SUPERSg 

TF OUE18 THEN FORGETITS2& 
SLEEPCFTOGLET»+STATUSMASK)3 

IF IU GE@ 23 THEN UNITCODEL[UK23]%="03 
S «+ ~Us T © 33 STOPSS 

S «¢ OU? T © B83 STOP?2 
FORGETSPACECINBUFF 3% 


_FORGETSPACECFIRSTCARD)3% 


IF OU > 16 THENY 
RBFGIN FORGFETSPACECH)3S% 
FORGETSPACE¢ OUTBUFFOLD)3% 
FORGETSPACECRESERVE )3% 
ENDE& 


END COM?33% 


07214440 
072914450 
07914151 
07214999 
07217000 
07218000 


07219000 
07220000 
07221000 
07221999 
07222099 
07222100 


07222101 
07223000 
072924000 
07225000 
07226000 


07227000 
07228000 


07229000 
07230000 
07231000 
07232000 
07232500 
07233000 
07234000 
07235000 
07236000 
07237000 
07238000 
07239000 
07240000 
07241000 


07242000 


4a444 +45 


Aaa As4s 


AAHA- 


4-4 


AAHAHAH AAA BH 


—3 


0422%2 
042483 
042734 
04271 
042731 
042831 
07214110 
042832 
0429:3 
0431:0 
043210 
043250 
043210 
07220000 
0434:0 
0434:0 
043433 
043730 
043630 
07224000 
043934 
044110 
07228000 
04414130 
044510 
044582 
044830 
0449390 
045233 
045510 
045810 
045833 
0459:2 
046031 
0461:3 
0462%2 
046371 
07238000 
046331 
07005000 


SIZEs 0464 WORDS 


PRT(561) = 


STACK ¢F41) 
STACK ¢F 42) 
STACK ¢F 43) 
STACK(F 44) 
STACK¢CF +45) 
STACKCF 46) 
STACK ¢(F47) 


PROCEDURF STARTLOADNCKTRI§ VALUE KTR$ REAL KTRIG 


STARTLOADN 


Hu H Bw ew 4 


HDR 
SEG 


0 


TRYAGAIN: 


07243000 


START OF REL SFGMENTS DISK 


RBFGIN REAL HDRsSEGOotsFseToC3} ARRAY SHFATE#I3 


LABEL TRYAGATN>oLDCNTRL, DISKS 
STREAMCK¢O2KTR) 33% 
REGIN St « KTR3% 
Lé IF SC = * * THENZ 
BEGIN SI «+ Sit+is 60 TO L ENDSS 


Of + LOC KS OF © DI+6s DS + 2 CHRIS 
END3% 


C + P3% 
T © KTRQC15815) 9138 
IF €c NEQ "MT" AND C NE® "DK") OR 
Cc = "DK" AND CDONLY ? THEN 
SPOUTCT INX MCT®42) 
ELSE BEGIN C « c = "MT"3% 


TF CHDORtepIRECTORYSFARCHCPCLOCNTRLJ ePCOLSK)53)) # 0 THEN 


BEGIN 
SHEAT t= (MCF &sTYPEDSPACEC31sSHEETAREAVII] & 30(8:38170)3% 
STREAMC(S#=sF"qs nisFf)s’ & ZERO OUT THE SHEAT ENTRY 

BEGIN 

SyttsS3 DSte30 wOS3 

END3 


SEGO t= TYPENSPACE(30,SEGZEROAREAVISS 
DYISKWAYTTC@SEGO-s 30% MrHDR INX 10])3 
F,CFF) t= HORS ¥ CORE ADDRESS OF HEADER IN CFF) OF PARAM, 
SHEAT(7] #= SEGOS &% CORE ADRS,OF SEGMENT ZERO IN SHEAT(7] 
SHEATCOJ] %= PCLOCNTRL)? 

SHEATC1) t= PcDrSK)5 

SHEAT(2] t= 0 & LOCNTRLCODELS#$45#3)] & 2f8238810)3 

% £4911 IN SHEET£L2) MEANS SUPRESS BOU/EOY MESSAGES 
SHEAT(16] $* SHFATC17) ts @3777777777773 & TIME LYMITS 
SHEAT[19] t= c3 % COMMON VALUE 

SHFAT(20] ts 43 % CORE ESTIMATE 

SHEAT(C 21) %'= 1503 % STACK SIZE 


%167= 


STREAM(AtSO & S te PC, SCHEDULFIDS))3 
BEGIN 
SyisS3 
47CSKIP SBS SKIP DBS TALLYt=TALLY#+13 
IF SB THEN ELSE JUMP OUT) 
DStaSET! AtsTALLyY; 
END STREAM STATEMENTS 


07244000 


07244100 
07245000 
07246000 
07247000 
07248000 


07249000 
07250000 


07251000 
07252000 
07253000 
07253100 
07254000 
07255000 
07255100 
07256000 
07256200 
07256400 
07256600 
07256800 
07257000 
07257200 


07257400 
07257600 
07257800 
07256000 
07258200 
07258400 
07258600 
07258800 
07259000 
07259200 
07259400 
07259600 
07259600 
07260000 
07260200 
07260400 
07260600 
07260800 
07261000 
07261200 


07261400 


T 


000030 


ADDRESS = 00215 


T 


4a4n444 


“a+ 


Se ee 


AA HAHAHA AH to 


~~ 


0000:0 


000030 
000030 
000330 
0003%1 
000333 
07248000 
000411 
000530 
07246000 
000531 
000533 
000732 
000931 
OO1181 
001131 
001931 
001944 
002142 
002230 
002611 
002733 
002733 
0026141 
07256800 
002812 
003083 
0033%2 
003433 
0036:0 


003741 


0038%2 
0044383 
004133 
004430 
004524 
004632 
004733 
004733 
004910 
004910 
004984 
O050%y 
0051433 
005281 
07260200 
005212 


LOCNTRL3 83 
NrSker8s 


ENDS 


I t= P} 
SHEATC3)].°8210) t= 33 % SCHEDULE NUMBER 
SHEFATC23] %= (CLOCK + PERTR)) DIV 603 
SHEAT(E 24] $= MCPS 
SHEAT(25] t= HOR.GFFI3 & DISK ADNRESS OF FILE HEADER 
STREAM(C)» T)3 
BEGIN 
DrtsD 14163 
OSts31LIT*cc EXECUTE LOCNTRL/DISKSCOMMONa"$ 
SptsLOc Cs DStx8DEC} 
DSts6LIT*sEND eS 
END STREAM STATEMENTS 


MrT] t= OF MeT4a] t2 703 

SHEATI6] %= GETESPDISK & 10718:33815)3 
DrSKWAIT CT» 41% SHEAT(6),(CFIJ)3 
FORGETSPACECT)3 
INDEPENDENTRUNNERCPC.SELECTRUN) oF 2#160)3 
END ELSE & IF IN DIRECTORY 


BEGIN 
ENTERSYSFILEC2)3 
GO TRYAGAIN3 
"LDCNTRL®3 

“DISK "3 

FAD? 


END 3% 


07261600 
07261800 
07262000 
07262100 
07262200 
07262400 
07262600 
07262800 
07263000 
07263200 
07263400 
07263600 


07263700 
07263800 
07264000 
07264200 
07264400 
07265000 


07265100 
07265200 
07265300 
07265400 
07265500 
07265600 


07266000 


07267000 


AHA HHO AH 


AAoaHoaHH 


4AAaasaas 


— 


T 


0052!2 
0053:0 
005532 
005733 
005923 
006432 
006222 
0062%2 
006233 
006710 
006782 
00682 
07262600 
006833 
OO7T2%4 
007434 
OO76%4 
007730 
OO7634 
07256200 
007834 
0084110 
008123 
0082?) 
0084:0 
008530 
07265300 
008550 
07255000 
008530 
07244000 


SItZEs 0086 WORDS 


PROCEDURE TARLFOFCONTENTSCReCOUNT )3& 07268000 T 0000%0 
START OF REL SEGMENTS ODYSK ADDRESS # 00218 
PRT(562) © TABLEOFCONTENTS 


VALUE B,COUNT$ REAL Bs, COUNTI2 07268100 T 0000:0 
BEGIN REAL ToTeNoAsTUSTAsTUSBUS 07269000 T 000030 
STACK¢F41) = I 
STACK¢(F42) = T 
STACK¢(F43) = N 
STACK¢(F 44) = A 
STACK¢F45) = TUSTA 
STACK¢(F46) =a TU 
STACK¢F47) = BU 
$ SET OMIT = NOTCPACKETS) 07269099 T 000030 
REAL FIRST,START,FINALSPKTCTIZ 072769100 T 000080 
STACK¢ F410) = FYRST 
STACK¢Fai11) = START 
STACK¢F 412) = FINAL 
STACK¢Fa13) = PKTCT 
$£ POP oMyT 072769101 T 000030 
LABEL LeoEXIT,G3Y 07270000 T 0000180 
$ SET OMIT = NOTCSHAREDISK) 07270099 T 000030 
A%=B,(15%15)913 07271900 T 000030 
TUSTASEMCATEI3 07272000 T 000412 
LOCKCONTROLDECKS3 07272500 T 0006!2 
07272500 
07272500 
At=F i RSTDECK3 07273000 T 0011%2 
$ SET oMYT = NOTCPACKETS) 07273099 YT O0723%1 
FIRSTe13% 07273100 T 001231 
$ POP OMIT 07273101 Y 004310 
L3 Lt=SPaceci14) NX TUSTAs 07274000 T 004310 
G! IF A = 0 THEN GO TO EXITS% 07275000 T 0014533 
DISKWAITC™I1»120A)3 07276000 T 0017380 
At=Me}+6),(CF)} 07278000 T 001482 
&$ SET OMIT = NOTCDATACOM AND RYE ) 07278a99 T 002130 
$ SET OMIT = NOTCSHAREDISK) 07279000 T 002410 
N ¢ MET4+2]3% 07281000 T 002130 
$ SET OMIT = NOTCPACKETS) 07281099 TY 002310 
IF NOT COUNT THEN 07281100 T 00230 
BEGIN? 07281200 T 00232 
£ POP OMIT 0798129041 T 002430 
DISKWAITC™2"499oML 1410) 93 07282000 Y 0024120 
STREAMCNeoToTUSBUs])3 07284000 T O027%4 
REGIN St « LOC N3$ SI © Sto13% 07285000 T 002930 
& SET OMIT = NOTCPACKETS) 07285099 Y 002932 
n$is8 LIT * PACKET "80S#s5 CHR3 07285100 T 002932 
$ POP OMT 07285111 T 003130 
$ SET OMIT = PACKETS 07285999 T 003130 
£ SET OMYT = NOTCSHAREDISK) 07286100 T 003130 
$ SET omMIT = SHAREDISK 072986400 T 0034:0 
DSt28 LT" #3 07786500 T 003130 
$ POP OMIT 07286501 T 0032%1 
$ SET OMYT = NOTCPACKETS) 07286509 TY 003241 
OSt23 LIT " #3 072866510 T 003241 
$ POP OMIT 07286511 T 003310 
$ SET OMIT = NOTCRJE AND nATACOM ) 07286599 T 003310 
NSts6B LIT " "3 07286800 T 003310 


SET 


POP 


SET 


POP 
SET 


SET 
SET 


Next 
OMT = PACKETS 
OMIT = NOTCPACKETS) 


OMrT 


OMIT 


OMYT 


DL teDLe4OsD][ ssNT+19sOSteLy Tre} 


FNDES 


SPOUTC1)3% 
NOTCPACKETS) 


END FLSE% 


BEGINS OPERATOR WANTS A COUNT 
IF FIRST THEN BEGINS STORE FIRST DECK #, 
FIRSTe¢OS STARTeNSS 


FND3& 


PKTCTo#PKTCT413 FINALeN3% 
FORGETSPACE(I)3% 


ENDS 


GO TO L3% 


FXITStF NeO THEN 


REGIN STREAMC1}3 


OMIT = NOTCPACKETS) 


OMIT 
OMYT 


oMyT 
OMYT 


it} 


tt 


0$%220 LIT " NO PACKETS ON DISke"3 


PACKETS 


SPOUT¢1)32% 


PACKETS 
NOTCPACKETS) 


FND ELSEX CHECK FOR COUNT REQUEST, 


IF COUNT THEN 


BEGINS STREAMCCePKTCT»S@#START 2% 
FeFINALsT1eO+T2e0p] 3% 
DSeLIT " fS T2eDI32 

St*LOC C# DyeLOC Tq98 

DS«2 DEC St+LOC T1s DieT23 
OS+2 CHRS T2eDI3 DleDI=23% 
DSe#FILLI DleT23% 

O0S¢7 LIT ® PACKET"3¢ 


BEGIN 


AQi 


SleLOC Ty 


1F SC#"0" THEN GO TO AQ 
ELSE SleStet3 
IF SC#*1" THENZ ONLY 1 DECK 
BEGIN DSe#2LIT . 


SIe*LOC FS 


DSe¢5 CHRIS 
ENO FLSE% MORE THAN 1 


RBEGIN DSe3 LIT "Se 


S]eLOoc St 


DS#5 CHRIZ 
DS«6 LIT ™ THRU "3% 
Sle#S14+43 DS#4 CHRIS 


END33 


e511 
e511° 
s511°% 


x511° 


07266900 
07286999 
07288099 
07288100 
07288101 
07289000 


07290000 
07290099 
07290100 


07290200 
07290300 
07290400 
07290500 


07290600 
07290650 
07290700 


07290701 
07291000 
07292000 
07293000 
07293099 
07293100 
07293101 
07293199 
07294000 
07294899 
07294999 
07295000 


07295010 
07995020 
07295030 
07295040 
07295050 
07295060 
07295070 
07295080 
07295090 
07295100 
07295102 
07295104 
07295110 
07295120 
07295130 
07295140 
07295150 


07295160 
07295170 
07295180 
07295190 
07295200 


07295210 


NAA 


Aww AH 


a4 


AA AHA AH 


AAA AHA ONO WH tt 


i) 


003431 
003431 
003431 
003491 
0035%4 
003571 
07285000 
003512 
003633 
003683 
07281200 
003633 
003930 
003933 
004441 
07290300 
OO0ayti 
004311 
004410 
07290200 
004410 
0044180 
004432 
00a5%4 
004632 
0046382 
004932 
004912 
00492 
0050383 
005033 
0050!3 
097293000 
0050!3 
005182 
005233 
0054:0 
005453 
005531 
005610 
005633 
005731 
0058!2 
0058:3 
005952 
0060:0 
0060!2 
0061490 
006112 
006133 
07295120 
006230 
006233 
006311 
0063!2 
006432 
006530 


$ POP OM{tT 


ENDs% 


FND3S 


DSeLIT "eM se 


SPOUTCI)#% 


END ELSE FORGETSPACEC(CI)3% 


UNLOCKCONTROLDECKS3 


07295220 
07295230 


07295235 
07795240 


07295241 
07296000 


07297000 


T 


07295160 
0065%0 
0065%2 

07295040 
006583 
006730 

07295020 
006821 
0068!1 

07296000 

07296000 
007133 

07269000 


S1Ze= 0073 WORDS 


PRT(563) = 


STACK(F41) 
STACK¢F 42) 
STACK¢F 43) 
STACK¢F 44) 
STACK ¢F 41) 
STACK¢F 45) 
STACK(F 46) 


STACK(F47) 


PROCEDURE REMOVEDECK(Ne TUSTAXSVALUF Ne TUSTASREAL Neo TUSTAS 


REMOVFDFCK 


Hu HH WH ON 


<rewr,Yroae 
—_ 


START OF REL SEGMF 


BEGIN REAL [ToTroAsLisdey ob e,VIS 


£ SET OM] 


$ POP QOMYT 


$ SET oMIT 
FAI! 

$ POP OMIT 

$ SET OMIT 


£ POP OMTT 
$ SET OMIT 


$ SET oMIT 
$ SET OMIT 


$ POP OMyT 


$ SET oMIT 
$ SET OM{T 
$ POP OMyT 
$ SET OMT 


$ POP oMIT 


"i 


NOTCPACKETS) 
REAL L33 


LABEL FAIL» CONTINUES 


LABEL LeoEXITsREMOVEs% 
LOCKCONTROLDECKS3 


IF (1 * DIRECTORYSEARCH(™DECK oNe5)) © 0 THENY 


NOTCPACKETS) 


BEGIN IT ¢« SPACEC5)3% 
STREAMCN® 123% 
NOTCPACKETS) 
BEGIN pnSt2#5 LIT * PKT #3 


PACKETS 
$1 « LOC NF ST « Sl4is DS «+ 5 CHRIZ 
DS « 13 LIT ™" NOT ON DISKe"3e 
FND3;% 
GO 10 EXIT3% 
FND32% 
NOTCSHAREDI SK) 


NOTCPACKETS) 
L3taMe1+6).CFFI3 


LOseM(1+6).0CF I} 
IF CASSFIRSTDECK =(Lite],CFF)) THEN 
BEGIN 
PACKETS 
NOTCPACKETS) 
FIRSTDECK!sIF L3 NEQ O THEN L3 ELSE L23 
IF L250 THEN LASTDECKeIF &3 NE@ O THEN L3 ELSE 03 


DISKWATTCKLUMPs3,01RECTORYTOP+3)3 
NOTCPACKETS) 
IF U3 Ne@ 0 THEN GO TO CONTYNUE ELSE 


GO TO REMOVES 
END} 


Jo ¢ 7,733815)7% 


0729 
NT} 


07299000 


07299499 
07299500 


07299600 
07299601 
07300000 
07301000 


07303000 
07303499 
07303500 
07303501 
07304000 
07305000 
07305099 
07305100 
07305101 
07305999 
07307000 
07308000 
07309000 


07310000 
07311000 


07311199 
07311499 
07311500 
07311501 
07312000 
07313000 
07314000 
07344099 
07314109 
07314110 
07314120 
07314121 
07314200 
07344289 
07334290 
07314291 
07344300 
07314400 


07315000 


~-4 


aaa 


Se es Nee Ree Bee ee ee ee ee ee ee | 


1-4 


i ee eee | 


+ 


000030 
000030 


000030 
000010 
000080 
000010 
07301000 
07301000 
000683 
000980 
000910 
000982 
000982 
001113 
001233 
001283 
001313 
001313 
001393 
001442 
001692 
07305100 
001633 
002010 
07304000 
002030 
002010 
002010 
O022t2 
002282 
002510 
002734 
002783 
002733 
002783 
003082 
003432 
003432 
003681 
003611 
0037340 
003780 
003810 
07314000 
003810 


$ SET 


nom 
wn 
m 
“+ 


$ POP 


Lt 


OMIT = 


OMTT 
OMIT = 


OMIT = 
OMrT = 


OMTT 


OMyT = 
oMIT = 


OMIT 
OMIT = 
OMIT = 


CONT] 


OMIT 
RE MOV 


OMIT & 


OMIT 
OMIT & 


OMIT = 


OMTT = 


ENDS 


DISKWAITTCeJ» 300A)3 
IF (Vt=M(J+6),0CF))20 THEN 
NOTCPACKETS) 


IF AslL1 THEN GO REMOVE FLSE BFGIN FORGETSPACECIDS 


PACKETS 


END} 


IF V # Li THENS 
RFGIN A « V3 GO TO L END3& 


PACKETS 


NOTCPACKETS) 
MrJ+63,0CF Jere L340 THEN L3 FLSE Las 


DISKWAIT(J*#300A)3 
IF L2 = 0 THENR 


REGIN 
PACKETS 


NOTCPACKETS) 
LASTDECKtsIF L3 NEQ@ O THEN L3 ELSE A3 


DISKWATTCKLUMP®3,01RECTORYTOP+3)3 


PACKETS 

NOTCPACKETS) 

FND FLSE IF L3s0 THEN ELSE 
NUE: 

BEGIN Je] INX 03 
DISKWAITC#JU» 3001393 


MECJ+6),0CFJ]eL23 
NDLSKWAITCJ* 300L3)3 


ENDS 


Es 


FORGETSPACECI)3 
PtaDrRECTORYSEARCHC "DECK *,Ne8).0CFI5 
To © MET+9)3% 
FOR V ¢ { STEP ¢ UNTIL T DOZ 

IF ME14V4+99#4#0 THEN FORGETUSERDISKCME+V49) eMe 148) )3 
STREAMCNS 123% 
NOTCPACKETS) 
REGIN DSt=5 LIT *® PKT "3 


PACKETS 


END3% 


PACKETS 


S] « LOC NS ST] © St4i3 DS « 5S CHR3% 
DS « 9 LIT * REMOVED}e "3% 


SPOUTERCTRTUSTAL 98989} eTUSTASLIBMSG) 


PACKETS 


SUNLOCKCONTROLDFCKS3 


GO FATL 


07316000 
07317000 
07318000 
07318009 
07318010 
07318042 


07318013 
07318019 
07319000 
07320000 


07320999 
07321099 
07321100 
07321101 
07322000 
07324000 
07325000 
07325999 
07326099 
07326100 
07326101 
07327000 
07327999 
07329999 
07330000 


07330050 
07330400 
07330200 
07330300 
07330400 
07330500 


07330501 
07331000 
07332000 
07333000 
07343000 
07344000 
07345000 
07346000 
07346099 
07346100 
07346101 
07346999 
07348000 
07349000 
07350000 


07350099 
07351000 
07351099 
07352000 


07353000 


444-44 


4~44-4 


ee ee ee | 


AH AAA 


aad 


003931 
003984 
004083 
004333 
004313 
004633 
07318040 
0046!3 
004633 
004633 
0047%2 
07320000 
004934 
Q0aDi1 
004984 
005410 
005430 
005524 
005610 
005612 
005602 
005632 
0059t4 
005931 
006130 
0061:0 
006140 
07325000 
006283 
006324 
0064i2 
006610 
0068!3 
007030 
07330100 
007010 
007010 
00700 
0070:3 
007340 
007580 
007730 
008674 
0087 %4 
OOB87 41 
0088%4 
0088i1 
008831 
008930 
009072 
07346100 
0090:3 
009033 
0092%2 
009272 
07352000 
07352000 
009720 


07299000 


S1ZEs 0099 wORDS 


PRT(564) « 
STACK ¢Fa1) 
STACK ¢(F 42) 
STACK¢F 43) 
STACK ¢F 44) 


STACK¢F45) 


NASER 


PROCEDURE DFCKREMOVER(B)$ VALUF BS REAL Bd 
NECKREMOVER 


BEGIN REAL KaNoFs% 


INTEGER US 


REAL D3 


07354000 


START OF REL SEGMENTS DISK 


LABEL ON»ERRS 


LABEL LeTRYIT+GyVEUPS 
K «© B,f15315)"13% 
L$ STREAM(Xe129B%AeO)3% 
BEGIN St « B3% 
IF SC = " ™® THEN BEGIN SteSI413 GO TO U ENN3% 


is 


BL § 


ENS 


Ft 


IF SC=x"=s"* THEN BEGIN DYeLOC X3 DleDI+63 DSeCHRS 


SreSr*1s3 BeSys GO TO € END) 


IF SC = "#" THEN SrtsSret3 


IF SCa¥ 


Dit=zLoc X3 


THEN BEGIN S1%=S]4+13G0 TO BL ENDS 


Dit=DI415 D0S%s5 LIT *#0000"3 


4cCIF SC < "0" THEN JUMP OUT TO EN3 
IF SC > "9" THEN JUMP OUT TO ENS 


S1taSy4+13 


TALLY t=TALLY+1)3 


AteTALLY$ SypteSI*as OF teD"As OSteA CHR} 
IF SC = " ™ THEN BEGIN Sle#SI413 GO TO N END} 


DS « CHR} B « SI#% 


ENDS 


Pe, Bees Noe )3% 


FeN,(3686)3 


N C3626] ere"; 


TF Fate" OR Fe," OR Fete” THEN 
BEGIN IF Fs"s* THEN 
BEGIN IF DwO THEN D+*SPACEC30)3 
LOCKCONTROLDFECKS3 


GIVEUPS 


TRY1TS 


IF ¢ 


BEG] 


END3 


NtsFIRSTDECK)=0 THEN 


N Ftate%3 
UNLOCKCONTROLDECKS3 


GO ON3 


DISKWAITC "D2 300N)3 


$ SET OMIT = NOTCSHAREDISK) 


Ni=MrD+2]3 
UNLOCKCONTROLDECKS3 


END3 


07355000 


07355100 
07355200 


07356000 
07357000 
07358000 
07359000 
07360000 


07360100 
07360200 


07361000 
07361500 


07362000 
07363000 
07364000 
07365000 
07365500 
07366000 


07367000 
07368000 


07369000 
07370000 
07371000 
07371100 
07371200 
07371300 


07371400 
07371450 
07371500 
07371600 


07371700 
07371750 


07371800 
073718609 
07371900 
07371950 


07372000 


T 


000010 


ADDRESS = 00225 


T 


— 


AAAHHse BAH Ht HS 


a4 


4a AAAS 


—- 


aa4 1 


000030 


000010 
000030 


0000730 
000010 
0003:0 
0004%2 
000433 
07360000 
000533 
000730 
07360100 
000733 
0008%2 
07361500 
0009132 
004130 
001231 
0013%1 
001430 
001533 
07366000 
0016:3 
0014731 
07359000 
0017%2 
0018%2 
0021%2 
00241 
0025%2 
002932 
07371300 
07371300 
0034t2 
003533 
003684 
003730 
07371600 
07371600 
004012 
004210 
07371500 
0042:0 
004332 
0043%2 
004532 
07371950 
07371950 
004930 


FOR y « O STEP 1 UNTIL PSEUDOMAX D0 
IF CrOROWCUI#0 THEN 
IF CCIOTABLF(Us2] FAV NISNOT O THEN 
IF LaBELTAgBLE(U+32]20 
$ SET OMIT = NOTCPACKETS) 
AND LABELTABLE(U+32]4@214 AND 
PACKETACTrUJ=90 
$ POP oM{T 
THEN 
BEGIN 
ENDOFDECKCUsMEK™1)93 
GO ONS 
END FLSE GO TO ERR} 


REMOVFDECK(NeM(Ke1))5 
ON? IF Fa™e"™ THEN GO TO L3 
FORGETSPACECK)3% 
END ELSE 


FRR: SPOUTCK INK MUEK@™4])3 
Tr D#0 THEN FORGETSPACECD)3 
END3% 


07372090 
07372100 
07372200 
07372300 
07372309 
07372310 
07372320 
07372321 
07372330 
07372400 
07372500 
07372600 
07372700 


07372800 
07372900 
07373000 
07374000 


07374100 
07374200 
07375000 


07371200 
004920 
0051:0 
005230 
005433 
005631 
005631 
005832 
005912 
0059342 
0060%1 
0060:3 
006330 
00632 

07372400 
006533 
0068:0 
0069?1 
0070:0 

07371100 

T 007030 

T 007332 

T 0075%2 
07355000 

StZE= 0076 WORDS 


AAA HAH HHH 


444-4 


STACKCF42) = A 
STACK¢F43) = B 


STACKEF4+2) = | 


WR 2Q DA AQ BE DA DC 


BOOLEAN 


HoOy 
Hei) 
Ht2) 
HO3) 
Hr 4) 
HO51 
Ht7) 


PROCEDURE READEMFROMNISKCH,IBI5% 


07376000 


START OF REL SEGMENTS DISK 


VALUE He IB3 ARRAY H(*¥)],]Bl4]3% 
BEGIN 


ADDRESS OF Busi (B)% 
ANDRESS OF B2+1% 
DECK NAMES 
RECORNCOUNT (ND 
NEXT CONTROL CARD ¢L)% 
RFCORNS USEN IN THrS BLOCK «x 10 ¢Rd¥ 
H(€ 30) ARE FILE HEADERS 
REAL Ap BSS 


DEFINE NEHC3)# + LEH 41 #-RsH(S)#3% 
INTEGER 12A3 DEFINE MOMZCIDROWE MBI 143 


$ SET oMIT = NOTCRREAKOUT) 


£ SFT OMIT 


£ FOP OMTT 


Boe HLOU3S% 
IF R s O THENS 
IF ¢MEB=2) AND TOMASK) = O THENS 
SLEEPCEMEB=2]]»10MASK)3% 
STREAM(BeR4+R, JB)IE 
BEGIN S1 « BS DS « 10 WDS FNDSE 


MrIB JINX NOT 0} « 403 
IF CREADEMFROMDYSK ¢ NEL) THEN 
|. « [BL9}3¢Z 
IF CASSN8=*PCDUP)41)2 > CHT 7]41) THEN 
BEGIN READEMFROMDISKS=43 
STREAMCIB)3 
BEGIN 
= NOTCPACKETS) 


%639= 


oSts8LyT" "Ss SrtslBs NSteB WOSs Dre Bs 


NSteSLrT"END."3s OL tsNle53 NOSt=zRESFT3 
END3 


END 


FLSE BEGIN IF (R « *PCDUPI 410) = 30 THENS 
BEGIN +B « (M£B=21)3% 
R« Q3 
A ¢ A DIV 3413 
TeH(A DIV H(8I1+10)+A MOD HCBI3 
If 1>0 THEN &% NEXT BUFF EXISTS 
DrSKIOCTBsi"B+ 3061 2)3% 
HrO] © HOIIJSS 
Hrijd « B38 


END3 END: ENDsS 


%639" 


07377000 
07378000 
07379000 
07380000 
07361000 
07382000 
07383000 
07384000 
07385000 
07386000 


07387000 
07388000 


07388010 
07389000 
07390000 
07391000 
07392000 
07393000 
07394000 


07394500 
07395000 
07396000 
07397000 
07398000 
07398100 
07398200 
07398299 
07398300 
07398301 
07398400 
07398500 


07398600 
07399000 


07400000 


07400400 
07400500 
07401000 
07401900 
07402000 
07403000 
07404000 
07405000 


T 900010 
ADDRESS « 00228 
000010 
0000:0 
000030 
000080 
000010 
000010 
0000+0 
000030 
000010 
000030 


a ee 


000040 
000030 


4-4 


000010 
000080 
000483 
000213 
000583 
000883 
001033 
07394000 
0011%2 
001410 
001533 
001713 
002132 
002213 
0023!3 
002333 
0023:3 
002513 
002533 
002714 
07398200 
002722 
07398000 
002732 
0030!2 
003243 
0034390 
003533 
0039314 
004030 
004213 
O044att 
004512 
07400000 
07399000 
07378000 
S{Zp=s 0046 wORDS 


+a Ht HH 4 


A ARH HA AR HHH DHA 


NAAM AO AHH 


BOOLEAN PROCEDURE PRYNTORPUNCHWAITCQsPNCH)SVALUE Q@sPNCHSREAL Os» PNCH? 07405100 T 000030 
START OF REL SEGMENT? DISK ADDRESS = 00230 
PRT¢565) = PRINTORPUNCHWA!T 
FORWARN} 
PROCEDURE ENDOFDECKCRe TUSTA)S VALUE ReTUSTA3 REAL, Re TUSTAS 


07405110 T 000030 
07406000 T 000030 
START OF REL SEGMENTS DISK ADDRESS ® 00230 
BEGIN ARRAY H[*1]3% 07407000 T 0000:0 
STACK¢F4i1) = H 
REAL Bo l#% 07408000 T 0000:0 
STACK¢F42) = B 


STACKeF43) = 


oe 


$ SET oMIT = NOTCPACKETS) 07408099 T 000010 


REAL DISKAD»sPBREC,T»USERIDS & %7508 07408100 P 000080 
STACK¢(F 44) = DISKAD 
STACK¢F45) = PBREC 
STACK¢(F 46) = T 
STACK¢Fe7) = USERID 
$ POP oMIT 07408101 T 000080 
LABEL EXIT# 07408500 T 000010 
IF CHS=CIDROWLR])&0 THEN GO TO EXITS 07409000 T 0000!0 
LABELTABLEI R432] « @11443 07409100 T 000383 
MULTTTARBLEL R432) « RDCTABLELR+32) «+ O03 07409200 fT 000532 
USERIDeUNITCODErFR+9I]3 & %750% 07409250 c 000833 
UNITCODELR+9]t2=03 07409300 T 001031 
IF NOT TUSTA,£181] THEN REMOVEDECKCHI21¢ABSCTUSTA)) ELSE 07410000 T 001231 
PCNIRECTORYSEARCHC*"DECK "sHI 21914) sNELI3 07410100 T 0015314 
FOR + « O STEP 4 UNTIL 14 DOR 07431000 T 0017383 
BEGIN B « HEII13% 07412000 T 0020:0 
IF ¢(MrpB=2]) AND IOMASK) = O THEN 07413000 T 002330 
SLEEPCrMEB*2)),10MASK)3% 07414000 T 002332 
FNDS% 07415000 T 002632 
07442000 
IF CIDROWLR]sO THEN GO TO EXITS & FIXES TIMING PROB, 07445100 T 0028:3 
IF H.618#15] # O THEN 07416000 T 003031 
FORGETSPACFECR.L18%1519°2)3 07417000 T 003133 
$ SET OMIT = NOTCPACKETS) 07447099 YT 0034314 
IF PACKETPBDFR] GeQ@ 14 THEN 07417100 T 003434 
BEGIN 074437200 YT 003533 
PRCOUNT t= PBCOUNT413 074147300 T 0036%1 
1 t= 004 & CYDTABLEL R96) 76t6224)3 07447400 T 003732 
IF CPBREC ts DIRECTORYSEARCHC"PBD "o125))#0 THEN 07417500 T 004080 
BEGIN 07417600 T OO4281 
IF PACKETPAGELRIJ>1 THEN 07417700 T 004233 
BEGIN 07417800 T 004484 
PBREC t= PBREC,(CFI3 07417900 T 004433 
T te MCPBREC+6]3 07418000 T 004630 
DISKAD t= MrPBREC#+10)423 07438100 T 004830 
DISKWAITC*PBREC®30eDISKAD)3 07418200 T 005032 
IF ¢MePRBREC412] EQV C#"ABORTED") )aNOT O THEN 07418300 T 005280 
STREAMC(BISPBREC+11)3 07418500 T 005530 
BEGIN 07418600 T 005683 
OStsBLyT*sxOxg000"s HSIsSBLIT"OPACKET 3 07418700 P 005683 
END} 07418800 T 0059%4 
07418600 
MUEPBREC+1SJeMCPBREC+27 JeUSERIDS & %7508 07418880 ¢ 005982 
DISKWAITCPBREC»30sDISKAD)3 07418900 T 006331 
ENDS 07419000 T 006412 


£ POP OMIT 


EXIT? 
FND3& 


PCDIRECTORYSEFARCHC="PBD eTe14)eDEL)3 
TF AUTOPRINT OR T#0 THEN 
PCPRINTORPUNCHWATTCY »0O&T1983939)),DEL)3 
FORGETSPACECPBREC)3 

END3 


ENDS 
PSEUNOLR] ts 


CIDROWCR] te O03 
TF CRUNUMBEReRUNUMRER4+3)>0 THEN 


STARTADECK¢CIF TUSTA.C181) THEN "HE2) ELSE 0)3 


FORGETSPACE(H)3 


07419100 
07449200 
07419300 
07449400 
07449500 


07419600 


07419700 
07419703 
07419800 
07420000 
07420010 
07420050 
07420100 
07421000 


07417800 
006432 
006634 
006810 
007033 
007132 

07447600 
007132 

07417200 
007182 
007230 
007270 
007333 
007532 
OO79T4 
0080314 
0080!4 

07407000 
S{ZE= 0083 wORDS 


444-4-4 


—~ 


i 


STACK ¢F 41) 
STACK(F 42) 
STACK¢F43) 
STACK ¢(F 44) 
STACK¢F 45) 


STACK(F+6) 


STACK¢F se?) 


06463300 


% PSEUDOCOPY DECLARATION MOVED TO 02347110 TO 
% ALLOW ACCESS IN DRATNO 
PROCFOURE STARTADECK(N)$ VALUF N% REAL NE 


BEGIN LABEL EX] ToL» POSSIBLE ® NEXT 
REAL TeRoTrAeS3 


nr + De 


RFAL SDED3 
SDFD 
ARRAY H(*¥]3% 
H 
LABEL AGATNoSTART3 
START? 


te Noriti) THEN BEGIN SDED*ABS(N)3 NeoO END? 


LOCKCONTROLDECKS3 


If RUNUMBER LE@ O AND NwO THEN GO TO EXIT 


AGAIN? 


25415 
s541= 


07421500 
07421505 
07422000 


START OF REL SEGMENTS DISK 


IF PSEUDOCOPY > 2 THEN% TOO MANY COPIES CONTROLCARD 


IF STARTOG AND N#0 THEN GO TO EXIT & 
FLSE BEGIN STARTOG « TRUE3 
UNLOCKCONTROLDECKS3 


COMPLEXSLEEPCPSEUDOCOPY $ 2)3% 
ACCIDENTAL FNTRY AT 2 


STARTOG « FALSE3S 
GO TO STARTS 
ENDS 


FOR R «+ O STFP 1 UNTIL PSEUDOMAX DO 


TF CrDROWER} = O THEN GO TO POSSIBLESS 


STREAM(CSe¢SeSPACE( 4) )3 


NSt227 LIT" ALL PSEUDO“READERS IN USES 


SPOUT(S)3 
GO TO FXIT#s 
POSSIBLE %% 
IF CAS"FIRSTHNECKI=O THEN GO TO FXIT? 
LABEL TABLELR+32]?x@1143 


HeCIDROW(RI|PM(S*#GETSPACE (9422001942) 1894(83 3811033 


MpS923,7996) «+ OF HLE2)] « O3% 
L& DLTSKWAIT(C"5S230,A)3 
tf N#¥0 THEN 
BEGIN 
IF H(02],£12124]#N THEN GO TO NEXTS 
IF HO4),£281] THEN 
BEGIN 
STREAMCATECHL2) I)» 
$ SET OMIT = NOTCSHAREDISK) 
S)3 
$ SFT oMtT & PACKETS 


07423000 
07424000 


07424100 
07425000 


07425500 
07425600 
07425700 


07426000 


07426100 
07427500 
07427600 
07427610 
07497620 
07427625 


07427630 


07427640 
07427645 
07427650 


07428000 
07429000 
07499400 
07429200 
07429300 
07430000 
07431000 
07432000 
07432100 
07433000 
07434000 
07435000 
07436000 
07436100 
07436200 
07436300 
07436400 
07436500 
07436509 
07436520 
07436599 


p 
Pp 


T 


000030 
0000:0 
000030 


ADDRESS # 00233 


T 
T 


444444 


en] 


ee ee ee ee 


000080 
000030 


000070 
0000:0 


000010 
000010 
000113 
07425700 
000483 
07426000 
074296000 
000933 
001231 
001211 
004330 
0015%4 
0014713 
07497625 
07427625 
002131 


0026!3 
002882 
003080 
07427620 
003030 
0033t0 
003413 
003732 
0041%2 
004213 
004391 
004381 
004510 
004613 
005210 
0056%2 
005810 
005813 
005931 
006131 
O062t1 
006213 
006382 
0063%2 
006430 


é 
$ SET OM{T = NOTCPACKETS) 07436609 T 006410 e 
BEGIN Syt#aAsSyteSpo1s0$t=25 LyT* PKT "3 07436610 T 006410 
$ POP OMTT 07436611 T 006582 
oS:=5 cHRsDSte7LIT" IN USF" 07436700 T 00652 
$ SET OMTT = NOTCSHAREDISK) 07436799 T 006710 e 
pSt2LiTme™s 07437000 T 006740 
ENDS 07437100 T 006712 
07436610 q 
SPOUT¢S)3 07437200 T 006733 
CIDROWCRI8=03 07437300 T 006980 
GO TO EXITS 07437400 T oOo70t e 
END} 07437500 T 007083 
07436400 
END ELSE 07437600 T 007013 a 
07436100 
IF He4),f2!1) OR ¢SDED#O AND HE27=SDED) 07437800 T 007083 
$ SET OMIT = NOTCSHAREDISK) 07437899 T 007312 @ 
THEN GO TO NEXT 07438000 T 007312 
HE4yseC*PCDUP) R2r2tdbtPIBSYSNOCAI463:2)3 07438100 T OO7581 
DISKWATT(S»30sA)3 07438200 T 007833 é 
$ SFT OMIT = NOT (DATACOM AND RJED 07438250 T 008010 
HrO) © $4323% 07441000 7 008010 
Hel] « S#643¢ 07442000 T 008433 6 
T © CHO30TT3 DISKTOCT,L°H(90}e30,HE10) 93% 07444000 T 0083%2 
IF HI7) LSS 3 THEN HE62]7!=10MASK ELSE 07445000 T 008710 
BEGIN TteC(HC621)3 IF wE8)#1 THEN 07445100 T 008933 @ 
NISKFOCT+1*Hr1),30°H011)) ELSE 07445200 T 0092314 
DISKIOCTr1*HE1],+30eHL10])+1)3 07445300 T 0095%4 
ENDS 07445400 T 009813 @ 
07445100 
TISGETSPACE(13»20,0) 443 07446000 T 009833 
OMIT = NOTCBREAKOUT) 07446010 T 010110 e 
McT TNX 10] se wWE5]3 07446100 T 010110 
CM1T NOTCPACKETS) 07446149 T 010331 
T,C2426]¢HL61,(226]3 07446150 T 010381 e 
OMT 07446151 T 010583 
Hr3] t© Hr4) t= He5)] te HL6)] t= 03 07446200 T 010533 
MeT=41,09:6) © OFF% 07447000 T 011080 & 
LABELTABLELR+32]¢"@143 LET IT BE MOVED 07448000 T O11381 
T+READEMFROMDISKCHe CMPTII&10683 38210393 07448500 T O115!1 
INDEPENDENTRUNNER(PC,CONTROLCARD) T8& 07449000 T 0118142 @ 
OMTT = NOTCDATACOM AND RJE )D 07449099 T O11981 
(R432902242161919293 07449200 T O11981 
PSEUDOCOPY « PSFUDOCOPY + 13% 07449500 T O12182 e 
IF CRUNUMBER«RUNUMBER@1) LE@ 0 OR N40 THEN GO TO FXIT3 07450000 T 042282 
GO TO AGAINS 07450200 T 012610 
NEXTIHTF CAt=HI6]e£CFI)#0 THEN GO TO Ls 07451000 T 012682 e 
1k N#¥O THEN 07452000 T 012930 
BEGIN 07452100 T 012983 
STREAM(N® S23 07452200 T 013081 e 
$ SFT OMIT = PACKETS 07452299 T O413t91 
$ SET OMIT = NOTCPACKETS) 07452309 T O13181 
BEGIN ST*LOC N$ S1*S14#43 DS*6 LIT" PKT #*3 07452310 T O131!1 e 
$ POP OM}T O7452311 T 043283 
DSse4 CHRIDS##13 LIT" NOT ON DY SKe}3 07452400 T 013283 
ENDS 07452500 T 0143530 e 
07452310 
SPOUT(S)3 07452600 T 0135914 e 
& 


EXIT! 


END?S 


FNOD FLSE FORGETSPACE(S)3 


CIDROWER] © 03% 
UNLOCKCONTROLDECKS3 


07452700 T 013682 
07452100 

07453000 T 013783 

07455000 T 013910 
07455000 
07455000 

07456000 T 014212 
07423000 
SIZF= 0144 WORDS 


PROCEDIIRE RUNTHEDECK(B)SVALUF BS REAL BSR 


PRT(566) = RUNTHFDECK 


STACK(F41) 2 | 
STACK¢Fe2) = J 


07457000 


START OF REL SEGMENTS DYSK 


REGIN REAL TeJs3 


STREAMCStaOtRe,As=rt)); 


REGIN S] « BSS TO REAL IN 1 


Lt IF SC=" " THEN BEGIN StteSr+is GO TO L ENDS 
IF SC="#" THEN 
BEGIN 

Lat SltsSt4+i3 IF Sce™ " THEN GO TO Lis 


pS##8 LTT*00000000"3 
QCIF Sc<*"0" THEN JUMP OUTS 
IF Sc>"9" THEN JUMP OUT3 
ST@eSi+t2 TALLYV=TALLY +14) 3 
StsTALLYs SI teSreSt Dliep1*Ss NStssS CHR 
TALLY #213 
GO TO FX3 
DSted LyT"O000%3SDStz4 CHRSTALLY##13G60 To FX3 
END3 
St « ST + 43% 
IF Sc $ "9" THEN TF SC 2 "0" THEN GO TO TWO} 
St « St = 43 DS «# OCT3S 
GO TO EX:s% 
TwOs St « St * 43 DS « 2 OCT} 
EXISteTALLY? 
ENND3 


JssP3 

RreB 15815) 943 

IF J THEN 

BEGIN 
FORGETSPACF(R)3 
STARTADFCKCI)3 

END FLSE 


REGIN 
IF {1 GTR PSEUDOMAX$’ THEN JYstaNABSCRUNUMBER) ELSE 
BEGIN 
RUNUMBER 3273 
FOR Jtsz0 STEP 1 UNTIL PSFUDOMAX DO 
RUNUMBER!?®RUNUMBER*=(CIDROWEJI#0)3 
END3 


STREAMCX1 Patel slits} eX2PcRUNUMBER. Citi Jel teABSC 1) BS 
BEGIN Crtecr4+X13 GO Lis DSt=iOLIT™ WILL USE "360 L423 


Lat ChteC {4X93 GO L2s OStebLyTte"3s Loe 
STtsLOC 1#DSte2 DEC} 
DS «¢ 43 LIT ® PSEUDD@RDRSe"™3 

ENDS 


SPOUTCB INX MeB4)])3 
IF RUNUMBER GTR O THEN STARTADECK(O)3 
END} 


07458000 


07461000 
07461100 
07461120 


07461140 
07461160 
07461180 
07461200 
07461220 
07461240 
07461260 
07461280 
07461300 
07461320 
07461330 
07461340 


07461400 
07461500 
07461510 
07461520 
07461530 
07461540 
07461550 


07461560 
07461570 
07461600 
07461700 
07461800 
07461900 
07462000 


07462100 
07462200 
07462250 
07462300 
07462400 
07462500 
07462600 


07463000 
07464000 
07464100 
07465000 
07466000 
07467000 


07468100 
07469000 


07472500 


T 


000030 


ADDRESS = 00238 


T 


A AHHH HR HA HHH ste 


Att HH 


000080 


000030 
000210 
000283 
07461120 
0003%1 
000343 
000343 
000483 
0006:0 
0007%1 
000841 
000930 
001033 
001130 
001181 
001283 
07461160 
001283 
001310 
001481 
001483 
0015:%0 
0015%2 
0015383 
07461100 
001630 
0016382 
001834 
901882 
001980 
001983 
002012 
07461700 
002082 
002130 
002381 
002313 
002432 
002610 
003081 
07462250 
003081 
003381 
003610 
0037%1 
003783 
003983 
07464000 
004030 
004330 
0045180 


END 
07 
07473000 T Sousto 
07458000 
SIZEe 0046 WORDS 


PROCEDURE EXTERNALEND(B)3 


PRT¢567) = FXTERNALEND 
STACK¢Fel) = U 


$ SET oMyT = 


BFGIN REAL U3 


VALUF Bs REAL B3 


LABEL EXITS 


Uo « UNITINCTINU,B)3 


Re B,C15t15j<13 

If 32 € U AND U $ PSEUDOMAXT 
IF LARELTABLE;( UY 
NOTCPACKETS) 

IF LABELTABLETU) NEQ@ @244 AND PACKETACTEU=30)]80 THEN 


2 0 THEN 


THEN 


$ POP om1T 
IF CrOROWLU@32) # 0 THEN 
REGIN 
ENDOFMECKCUs32eML Bm) )3 
FORGETSPACE(B)3 
GO TO ExyT3 
END} 
SPOUTCBR INX M[B=14)3 
EXITRENDS 


3 
START OF REL SEGMENTS D 


0747 0 


10 
ISK 


07474000 


07475000 
07476000 
07477000 
07478000 
07478099 
07478100 
07478103 
07478500 
07479000 
07479400 
07480000 
07481000 
07482000 


07483000 
07484000 


T 
A 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
ig 
T 
T 
T 


T 
T 


000010 


DDORESS # 00240 


000010 


000080 
000210 
000383 
000582 
000730 
000730 
0010383 
004093 
001233 
001341 
001620 
001693 
001741 
07479000 
001791 
002031 
07474000 


SIZFE= 0021 WORDS 


PROCEDURE CHANGFPRIORITYCBUFFeMrX)3 VALUE BUFF eMIX REAL BUFF eMIX3 


07485000 


START OF REL SFGMENTS DISK 


PR1¢570) = eCHANGFPRIORITY 
. BEGIN INTEGER PRYEORTTYS REAL BI 
STACK¢F41) = PRyOR?TY 
STACK¢F42) = B 
$ SET oMTT = NOTCPACKETS) 
DEFINE UNTTNO = PSEUDOMYX(MIXY#3 
$ POP oM{T 
BUFF « (CBeBUFF) 615815774 )8MPPCOUP)#11¢792989)3 
STREAMCPRIORITY!B)3 
BEGIN SI«B3 
N3 JF SCate" THEN GO To X3 
TF SC<"0" THEN BEGIN SIeSt+13 GO TO N3 ENDS BeST3 


Kt IF Sc2"0" THEN JTF Scs™9" THEN 
BFGIN TALLY«TALLY41s Si*#Sy413 GO TO K END} 


SJ#Bs DNLleLOC PRIORITY AeTALLYS DS«B OCT GO TO Z3 
Xt DI*#LOC PRYORITYs SKIP DBS DSe44 SETI 
Z3 
FND STREAM; 


tF ¢PRIORITY«P) 2 O THEN 
Ip PRYORGMIX]20 THENS 
Ter JARCMIXs*]#0 THEN 
BEGIN JAREMyXe2),°0CFJe¢ PRYOR(MIXJe PCPRIORITYe 
tr PRIORITY232766 THEN 32766 ELSE PRIOR|TYs» OUP) & PICTF]3 
STREAM( Je JARIMIXee*I],MIX,PRIORITYs*BUFF D3 
BEGIN pS#10 LIT ™ PRIOR; TYs"3 
SyeLOC PRIORITY? BUFFeDIS DSe6 DECS Dy +DI=63 
NS*5 FILLE DIeBUFFS Dl eDI463 DSeL T9273 
Syed? SleS1413 OSe7 CHRS STeSI4+15 DSeLIT"/"$ OSe7 CHR} 
DSeLIT™="*3 STeLOC MIX OSe2DEC3 DSeLIT%e%5 
DieDI“38 DSeF ILL: 
END FND3 


SPOUTERCRUFF se UNTTNOs4 23 
END CHANGEPRIORITY?3 


07486000 


07486499 
07486500 
07486501 
07487000 
07488000 
07489000 
07490000 
07491000 


07492000 
07493000 


07494000 
07495000 
07496000 
07497000 


07498000 
07501000 
07502000 
07503000 
07503500 
07504000 
07505000 
07506000 
07507000 
07508000 
07509000 
07509500 
07510000 


07511000 
07512000 


T 


0000380 


ADDRESS = 00241 


T 


att ot 


“4 


Se Le ee 


44 


000030 


000010 
00000 
000030 
0000:0 
0005380 
0006381 
000632 
000731 
07491000 
000832 
000982 
07493000 
Q01ORY 
0041423 
0012!2 
00412382 
07489000 
001283 
001323 
001534 
001633 
001931 
002333 
0025!2 
002730 
002830 
002981 
003130 
003212 
0033:0 
07505000 
07503000 
0033014 
003483 
07486000 


S1ZeEx 0036 WORDS 


STACK¢F41) 
STACK¢(F 42) 
STACK¢F 43) 
STACK¢F 44) 
STACK ¢F 45) 


STACK EF 46) 


PROCEDURE ENTERCONTROLDECKCH)S VALUF HS ARRAY HI*]3 


07541000 


START OF REL SEGMENTS DISK 


BEGIN Rea ReSoTeT4.T?? 


$ 


$ 


$ 


INTFGER J3 


SET OMIT = NOTCPACKETS) 

LABEL MORES 
POP OMIT 

Te"nECK "RHEGIC13478433 % FOR SCRATCHDIR DELETE 
StenEXTCDNUMCO)3 

DISKWATTCKLUMP, 3eDIRECTORYTOP+3)3 
SET OMIT = NOTCPACKETS) 


® CHANGE LASTCONUM ON DISK 


MORE $ 


$ 


$ 


$ 


POP OMIT 
Hr07t128001200036000301;3 

SET OMIT = NOTCPACKETS) 
TOeHFOICFFI3 HOO) CFF I6T13 

POP oOMyT 
STREAMCDATFeBelH( 3] 


}) 
BEGIN SleLOC DATES 


’ 
DSe8 OCTSDeD[MBsDSe2 LIT 7"3 ENDS 
Hf4) t= OB 
SFT OMIT = NOT SHAREDISK 
15612%4414)}3 
Hf LleCXCLOCK+PCRTR) )RHE63106230818)3 
HP2)8=StrO 7 4eh72,634ot6)aSp 12824824) O37 368428673 
TySeFUF CT SoH CCF IMIS 
SFT OMIT = NOTCPACKETS) 
IF T2 NE@ O THEN 
REGIN DISKWAITC™CH INX 0)» 30% T2)3 
FORGETFESPDISK(T2)3 
S¢H[2]3 GO TO MORE 
ENDS 


POP OMIT 
HL27*LASTCONUM} 
IF FIRSTNFCK#O THEN FIRSTpEcKtcT1 FUSE 
BFGTN 
SET OMYT © SHARE DISK 
LOCKNIRECTORY:3 


POP oMYT 
DISKWATTC@C TP eSPACE(30))s=30eLASTDECK)3 
MCT+6) COP I23T43 
DISKWATTCLs™30,LASTHECK )3 
FORGETSPACECI)8 

SET OM]T = SHARFDISK 
UNLOCKNIRECTORY? 


POP OMIT 


07542000 


07543000 


07543099 
07543100 
07543101 
07545000 
07547000 
07547100 
07547499 
07547500 
07547501 
07548000 
07548099 
07548100 
07548101 
07549000 
07549100 


07550000 
07550003 
07550010 
07550100 
07557000 
07559000 
07559099 
07559100 
07559110 
07559120 
07559180 
07559490 


07559191 
07559500 
07560000 
07561000 
07561990 
07562000 


07562010 
07564000 
07565000 
07566000 
07567000 
07567990 
07568000 


07568010 


T 


ADDRESS ® 00243 


T 


| 


AMMAN Ht 


AHHH HHH HHH 


a | 


000010 
000030 


0000:0 


000030 
000080 
000030 
000030 
000382 
000433 
000612 
000612 
000612 
000632 
000733 
000733 
001141 
001191 
0012%2 
07549100 
001430 
0014383 
001433 
001691 
OO198y 
002410 
002730 
002730 
002733 
003082 
0031!1 
0035380 
07559110 
003530 
003580 
003611 
003614 
0038!:3 
003883 
07562000 
07562000 
004531 
004521 
004910 
005133 
005331 
005410 
005410 
07568000 
07568000 
005712 


ENDS 


LASTOECKIST{3 
DISKWATTCKLUMPs*3e+DIRECTORYTOP43)3 
UNLOCKTOGCCOMASK)3 


Te RUNUMBER @TR O THEN STARTANECKC(O)3 
FND ENTFRCONTROLNECKS 


07569000 


07570000 
07571000 
07572000 


07573000 
07575000 


005712 
07561000 
0057'2 
005611 
00604 
07572000 
0063383 
006533 
07542000 
SIZE® 0068 WORDS 


a4 


44 


BOOLEAN PROCENURE MTXINCI,>UsBUFFI3S 


REAL U»BUFFS INTEGER 13% 
BFGIN LABEL EXTTsXs% 
Ue UNTTINCTYNU,BUFF)? 
BUFF « BUFF ,645815]°13 
IF U > 45 THEN 


08000000 


START OF REL SEGMENT’ DY1SK 


BEGIN3SSTREAMCBUFF)$ DS « 8 LIT "INV KBD "3% 


GO TO EXITS 
END ELSE I + TWOCU)D3 


STREAMCA*TINUCUJIBUFF ) 3% 


BEGIN Sfe*LOC AF STeSI4#53 DSel IT" "3 OSe3 CHRSZ 


DS « LIT ™ 3 A & DPSS 
END:S 


PCCBUFF J] »«)3% 
IF LABELTABLELU) & ©4114 OR LABELTABLECU) 
BEGIN 
STREAMCSAViec C(I] AND SAVEWORD) NEQ 0). 
BEGIN 
NSisq,OLrTYNOT READYe"}3 
SAVCDT tabyeis DSPSBLIT*C SAVED De)3 
END} 


GO TO EXrTs 
ENDS % 


IF LABELTABLELU] «< 0 THEN’ 


@214 THEN 


BUFF )3 


BEGIN? STREAMCBUFF)S DS « 7 LIT "IN USEe™3% 


ENDX 


ELSE GO TO X3% 
FXJTSMTXIN «© TRUESS 
XITEND32 


08001000 
08002000 
08003000 
08004000 
08005000 
08006000 
08007000 
08008000 


08009000 
08010000 
08011000 
08012000 


08013000 
08014000 
08015000 
08015100 
08015200 
08045300 
08015400 
086015500 


08016000 
08017000 


08048000 
08019000 
08020000 


08021000 
08022000 
08023000 


AAA AH BAH HH PH 


i 


a4 0 


T 
T 
T 


000030 


DORESS = 00246 


000030 
00000 
0000!0 
000281 
000414 
000510 
0007:3 
000831 
08006000 
001081 
0011%3 
001330 
001333 
08010000 
004410 
004482 
001633 
O07 Et 
004914 
00194 
0020183 
002310 
08015200 
002331 
002333 
080;,5000 
002333 
002433 
002732 
08049000 
0027!2 
002752 
002881 
08002000 


S1ZE= 0029 WORDS 


PRT(571) & 
STACK ¢F 41) 
STACK ¢F42) 


STACK¢F43) 
STACK ¢F44) 


STACK ¢(F 45) 
STACKCF 4) 


TAPEPURGE 


ry 2 


4m ce 


TEST 


WHAT 


PROCEDURE TAPEPURGECBUFF)3 VALUE BUFF? 


RFGIN LABEL FXIT3 


REAL yoUs% 


REAL R»eT3 


BOOLEAN TEST3 


REAL WHAT = BUFFS 


REAL BUFFS 


IF MTXINCI®UsWHAT) THEN GO TO EXITsS 


STREAMCBIS=BUFFeTe(T1)3 
BEGIN S]teBs StexSI+63 
tPF Scett= THEN 

BEGIN SI%eSJ4t3 


5c]F Sc." THEN JUMP OUTS 
TALLY STALLY 41251 42S] 4493 


BeelALLY? 
DteDE 783 
END} 


END) 


LABELTABLELU) « =@143 
IF CReWAITTIO¢@500000000,01772U))#0 THEN 
IF R#8120 THEN ZFRROR OTHER THAN WRITE LOCK 


SttsS1°Bs OSt=B OCT3 
DSeLyT "Hs 


BEGINISTREAMC(UsTINUCUJ>BUFF )3 


BEGIN 035414 LIT *#CANNOT PURGE "3 
SreS1+53 DS«3CHR3 


ENO? 


LABELTABLELU]+@2143 


GO TO EXITS 


END ELSE 3NO WRITE RING 


08024000 
SK 


8 
START OF REL SEGMENTS DI 


%725° 


BEGIN? STREAMCBUFF)$ DS # 14 LIT “WRITE LOCKe"3% 
LABELTABLELU) «+ 61143 


GO TO EXITS: 


ENDER 


TF NOT 7,011) THEN JTF TxO THEN 


BEGIN T&=PRNTABLECUI,£530318)3 TEST%= TRUE END3 


TF T,.£184120 AND T=O THEN BEGIN 


STREAMCBUFF)3 DSe¢17 LIT "NOT PG#"EDCPRN#O)o%3 
LABELTABLErUj«e 674; 


STREAMCAtsTsBUFF)3 
BEGIN Dr ¢ OY + 33 OS « 8 LIT ™ LABEL 


GO EXIT ENDS 


BcnSeo LIT m0x")3 


24¢DSe2 LIT "0")3 DSeo LIT "2eM3 
St ¢ LOC A! DS « 5 DECs*% 


DI 


%725= 


%725= 
£725 


T+ABSCT)3 4725 


08025000 


T 
A 


T 


08026000 T 


08027000 


08027100 
08028000 


08029000 
08029015 
08029020 
08029025 
08029030 
08029035 
08029040 
08029045 
08029046 
08029050 


08029055 


08029100 
08030000 
08030100 
08030200 
08030300 
08030310 
08030390 
08030330 


08030400 
08030500 
08030600 


08031000 
08031100 
08032000 
08033000 


08033980 
08033990 


08033992 
08033993 
08033994 


08034000 
08035000 
08035100 
08036000 


08037000. 


AN HAHAAAAR HA lH 


+ 


ee 


Oo 40 AH tH 


ao 


444 


000030 


DDRESS = 00247 


000030 
000030 


000030 


0000:0 
0000:0 


0000:0 
0003t1 
0004%4 
000433 
000514 
000522 
0006:3 
00072 
000833 
000912 
080929030 
000932 
08029020 
000933 
O01? 1 
0013%2 
001433 
001612 
0018!2 
OO19'4 
00149143 
08030300 
002080 
002191 
002330 
08030200 
002330 
0026314 
002712 
002880 
08031000 
002830 
0030314 
08033990 
003330 
003533 
003931 
08033992 
004230 
004310 
00abt2 
004532 
004730 


] 
BEGIN DSe 
END: 


FLSE 


EXIT! 


FND3% 


ENDS 


RRRMFCH ¢« IT OR RRRMECH3S 

MULTITABLELU] « 03% 

PCWATTIOCE4S200000000s,05U) s DELS 

R # WAYITIOCBUFF JINX 7420500000001 .@20000000U) OR 
WATTIOCBUFF {NX 102@2000000,U)3% 


Ir Mop3y;0S THEN ZAI 
DO UNTIL PCWAITIOCBUFF INX @3400000120®50sU))=@10 %AY 
FLSE ZA] 


PEWATTI100@4200000000 ,0pU) »DEL DIZ 
SLEEP CETOGLE J »STATUSMASK)3 
RRRMFCH « RRRMECH AND NOT 138% 
REANY « READY AND NOT 473% 

IF R = 0 THEN BEGINS 
LABELTABLELU) + @4143¢ 


F TEST THEN BEGIN STREAM( BT, BUFF D3 ¥708= 
1O LITPPG=EDCPRN="3 SrelLOC BS DSe5 DECE DS? LIT e"3 "7088 
END %& PRINT PRN WITH PLAIN PGMT ¥708= 


BEGIN STREAMCAtsT, Bi =sPpRNTABLE(U),£30!18],BUFF)3 
BEGIN DSts{OLITePGeEDCPRNeWs 
S1teLOc A; pSis25 DEC; 
DSte5L1T*, WAS 3 
SrTtezLOc Bs nSt$=s PECIOSseaL IT) os 
END$ 


PRNTABLECUI,(€30:18] «¢ T3 
ENDS 


SPOUTCNABSC(RUFF 4NX MCRUFF"19))3% 
END FLSF BEGINS 


LABELTABLESU] © 82149% 
FORGETSPACE (BUFF )3% 
ENDE% 


08038000 


08039000 
08041000 
08042000 
08043000 
08044000 
08044500 
08044600 
08044700 
08045000 
08046000 
08047000 
08048000 
08049000 
08050000 
08051000 
08051004 
08051005 


08051010 
08051020 
08051030 
08051040 
08051050 
08051060 


08051065 
08051070 


08052000 
08053000 


08054000 
08055000 
08056000 


08057000 


OO VAatHAWe Hs Ss 


ee 


4-4-4 44 


— 


004783 
08035000 
004830 
004981 
005082 
0052380 
005333 
005631 
005730 
005932 
0060414 
006632 
006810 
006982 
007130 
007231 
0073%2 
007531 
007733 
08051004 
08051000 
007880 
008210 
008312 
008430 
008530 
008630 
08051020 
008633 
008833 
06051010 
008813 
009230 
08049000 
009280 
009383 
009412 
08053000 
0094%2 
08025000 


S1ZFe 0095 WORDS 


PROCEDURE GIMENATECBeDT)5 


PRT¢572) = GIMEDATE 


PROCEDURE REWINDANDLOCKCWHAT)? 


PRT¢(573) = RFWINDANDLOCK 


STACK¢Fel) 2 BUFF 
STACK¢(Fai1) = U 


STACK¢F42) «= | 


REGIN REAL RUFFSWHAT, U3 


INTEGER 13% 


LABEL EXIT#% 
IF MTXINC] *U, BUFF) THEN GO TO EXIT3% 
RRRMECH « RRRMECH OR 13% 
LABELTABLECU) « =@143¢ 
MULTTTABLECU] « 03% 
PCWALTIOCO4200000000s00eU) *DELD3& 
SLEEPCETOGLE J sSTATUSMASK)3 
RRRMFCH « RRRMECH AND NOT I3% 
READY « READY AND NOT 13% 
LABELTABLELU] «+ @2143¢ 
STREAMCBUFF)3 DS « 5S LIT “"RW/Le S52 
SPOUTCBUFF INX Mr BUFFS13)3 


VALUE BeDT# REAL BeDTS FORWARDS 


VALUE WHATS REAL WHAT3% 


ZRH 
START OF REL SEGMENT) DISK 


08070000 


08079000 


START OF REL SEGMENT? DISK 


08080000 


08081000 


08082000 
08063000 
08084000 
08085000 
08086000 
08087000 
08088000 
08089000 
08090000 
08091000 
08092000 
08093000 
08094000 


T 000030 

ADDRESS = 00251 

T 000030 

ADDRESS = 00251 

T 000030 

T 000030 

T 000010 

T 000080 

T 000282 

T 000333 

T 0005t1 

T 000632 

T 000830 

T 0009%2 

T 001130 

T 004232 

T 0013383 

T 004583 

T 004833 
08080000 


SIZEs 0020 WORDS 


RELAIRAXLALALBALTSEARELERERKALALTARAZTALASALELABALFLELELLAALLLLAKLALTSRASAKT 
FORGO IOUS III RIOR ICI IOI OIOR IGOR SIG I ICICI ICI fone i ono Hoke a % 


z* 


PRrNTDIRECTORY 
i ee ee | 


PURPOSE? THIS PROCENURF HANDLES THE PDe EX» LF» LC AND LS 


MESSAGES, ALL MFSSAGFS ARE FORMS OF THE PD MESSAGE 
FXCEPT FOR CERTAIN OIFFERENCES, THE POD MESSAGE WILL 
LIST THE NAMES OF THE DESIRED FILES AS WELL AS 
CERTAIN PIECES OF INFORMATION fF REQUESTED, 


SYNTAX! THE FORMAT OF ALL THE KEYIN MESSAGES WITH THE 


EXCEPTION OF THE LF MESSAGE IS AS FOLLOWS? 
<MESSAGE> <FILE SPECIFIER> <OPTION®@=LIST> 
<MFSSAGE> %3= PD / EX / LO 7 LS 


<FILE SPEC]FIER> is «FILENAME> / <FILENAME> "/n 
<FITLENAME> 


<OPTION®LIST> s8= <EMPTY> / <OPTION> / <OPTION> 5» 
<OPTION@LYST> 


<OPTTON> t= RECS / LAST / DATE / SAVE / SIZE / 
CREATOR / SECURTTY 7 ALL 


<FILENAME> t%= (FROM 4 TO 7 CHARACTERS OPTIONALLY 
- ENCLOSED IN QUOTES] / = 


THE SYNTAX FOR THE LF MESSAGE ISt 


LF <USFRID> <OPTION#LIST> 


SEMANTICS? THE EXe Lr» LCs AND LS MESSAGES ARE JUST 


MODIFIFO FORMS OF THE PD MESSAGE, THE EX MESSAGE 15S 
THE SAME AS A PD EXCEPT THAT ONLY THE EXPIRED FILES 
ARE |.ISTED. THE LF YS THE SAME AS A PDw/= EXCEPT 
THAT ONLY THE FILLES BE).ONGING TO THE SPECIFIED USER 
ARE LISTED, THE LC MESSAGE [8S THE SAME AS A "PDH 
<FILE SPECIFIER> CREATOR". THE LS MESSAGE IS’ THE 
SAME AS “PD <FILE SPECIFIER> SECURITY»CREATOR", 


THE OPTIONS SPECIFY WHAT ADDITIONAL INFORMATION 
IS TO BE LISTED BESIDES THE DEFAULT INFORMATION, IF 
AN UNRECOGNIZABLE WORD 1S ENCOUNTERED IN THE OPTION 
LIST» 17 7S FGNORFO, THE AVAILABLE OPTJONS ARE? 


RECS = NUMBER OF RECORDS IN THE FILE, (SPECIAL LOGIC 
1S INCORPORATED TO THE LIST THE CORRECT NUMBER 
FOR BACKUP FrLES), 

LAST = LAST ACCESS DATE, 


DATE = CREATION DATE, 


08095050 
08095100 
08095150 
08095200 
08095250 
08095300 
08095350 
08095400 
08095450 
08095500 
08095550 
08095600 
08095650 
08095700 
08095750 
08095800 
06095850 
08095900 
08095950 
08096000 
08096050 
08096100 
08096150 
08096200 
08096250 
08096300 
08096350 
08096400 
08096450 
08096500 
08096550 
08096600 
08096650 
08096700 
08096750 
08096600 
08096850 
08096900 
08096950 
06097000 
08097050 
08097100 
08097150 
08097200 
08097250 
08097300 
08097350 
06097400 
08097450 
08097500 
08097550 
08097600 
08097650 
08097700 
06097750 
08097800 
08097850 


NQAIDWWAAANAIOGOAAIAINABDOVATDAAANRUANAANYVN AGO ANANDANNANANO ANON BAINAMQAANANAAD ANA AMRAGM A AAA ODM 


000030 
000080 
000080 
0000!0 
000030 
0000t0 
000030 
0000:0 
000030 
000010 
000030 
000030 
000010 
000030 
0000!0 
000010 
000010 
000030 
000010 
000010 
000030 
000030 
000030 
000030 
000030 
000010 
0000:0 
0000:0 
000010 
000010 
000030 
000030 
000010 
000010 
0000:0 
0000:0 
0000%0 
000010 
0000:0 
000010 
000010 
000010 
0000:0 
6000180 
0000:0 
000030 
000030 
0000:0 
000030 
0000:0 
000030 
000030 
000010 
000010 
000010 
0000:0 
000010 


PRT¢574) s 


STACK¢F41) 
STACK ¢Fa2) 


STACK¢F 43) 
STACK¢F 44) 
STACK¢F 45) 
STACK ¢F 46) 


STACK EF 47) 


PRINTODIRECTORY 


SAVE = SAVE FACTOR, 
S]7p " SIZE OF THr FILE IN SEGMENTS, 


CREATOR = PRIVILFGFD USERCODE ASSOCAITED WITH FILE, 
CFOR BACKUP FILES THE LABEL OF THE PRINT FILE 
AND THE NAME OF THE PROGRAM CREATING THE BACKUP 
IS ALSO LISTED), 


SECURITY = ACCESS PRIVILEGES OF THE FILE? 
LOCKEDs UNLOCKED» PUBLICs PRIVATEs FREE. 


TeEos 


FoR RRR OOOO IO RIOR I ORR RO ORR ROR RIO kk oY 
LARLASLXLAKLARL ALLA AZALRARALAAAALAAEAAASLALELAAAAKRLKLALASAAAFRAAVELHLAAATALY 
PROCEDURE PRINTDIRECTORYCBUFF,CODE)3 


VALUE BUFF ,CODES 
REAL BUFF »CODF3 


STACK¢Fe10) = N 


STACK ¢F 411) 
STACK¢F 412) 
STACK¢F 413) 
STACK¢F 414) 
STACK ¢F 415) 


STACK ¢F 416) 


STACK¢(F 417) 


BEGIN 
INTEGFR 
I» 
t 
Ji 
J 
REAL 
MF ine 
MF ID 
FiDe 
FIO 
C» 
C 
De 
9) 
Fs 
E 
Ne 
Te 
T 
INFO 
LABELREC 
STA, 
STA 
USERID 
X3 
» 4 
ARRAY 
HDR 


INF Oe 


% NORMALLY CONTAINS OPTTON NUMBER, 


g JUNK, 


ae 


MFID OF DESIRED FILE OR "1 IF Me", 

2 FIN OF DESIRED FILE OR 1 IF "aM, 

% ADDRESS OF DISK HFANER, 

% MFID OF LAST FILE FOUND BY SEFKNAM, 

% FIN OF LAST FILE FOUND BY SEEKNAM, 

% WORK VARIABLE USEN BY SEEKNAM TO SAVE INFO, 
% NORMALLY USED To SAVE DEST. INDEX, 


% BIT MASK FOR OPTIONS SELECTED, 


LABFLRFCs» &® ADDRESS OF LABEL RECORD FOR PBD ¢ IF LC ),. 


USERID» 


HOR *]6 


%¥ ORIGINATING STATION. TU/BUFF IN £919) FIELD, 
% USERTO IF LF, 


% JUNK, 


2 DESCRIPTOR TO OTSK HEADER. 


“% 08097900 ¢ 

*% 08097950 ¢ 

*% 08098000 P 

“y 08098050 Cc 

*% 080981400 P 

«% 08098450 C 

*% 08098200 Pp 

“% 089098250 C 

*«% 08098300 P 

*% 080986350 C 

*% 08098400 P 

«% 08098450 ¢ 
08098500 P 

08098550 P 

K152= 08098600 ¢c 
START OF REL SEGMENTS DISK A 
%152= 08098650 ¢ 
¥152= 08098700 ¢ 
152" 08098750 ¢ 
£152 08098800 ¢ 
¥152° 08098850 ¢ 
%152= 08098900 ¢ 
%152= 08098950 ¢ 
%152 08099250 ¢ 
%152° 08099300 P 
¥152= 08099350 ¢ 
%152 08099400 P 
%¥152= 08099450 ¢ 
%1528 08099500 P 
4152" 08099550 P 
£152= 08099600 ¢ 
%152- 08099650 C 
¥152= 08099700 P 
¥1529 08099750 P 
%152= 08099775 C 
21526 08099800 P 
1520 08099850 ¢ 
%152= 08099900 P 
£1522 08099980 ¢ 
2152" 08100000 C 
%152e 084100050 C 


XLST£*¥I3% SOME DAY WE MAY ALLOW EXCEPTION LIST, 


0000:0 
0000:0 
0000:0 
000010 
000010 
000010 
0000:0 
0000:0 
0000'0 
0000:0 
0000:0 
000030 
000030 
0000:0 
000030 


DDRESS s 


000030 
0000:0 
0000:0 
000030 
0000:0 
0000:0 
0000:0 
000030 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
000030 
0000:0 
0000:0 
000030 
0000:0 
0000;0 
0000:0 
000010 
000030 


0000:0 


00252 


STACK(F420) = XLST 
BO 

STACK¢F 421) = PRNTOG 

STACK¢F422) = FOUNDA 


DE 


DE 


DE 


41520 
OLE AN %¥152= 
PRNTOGs, % TRUE TF SELECTEN FILE IS A PBN, 4152" 
FOUNDAFILE3 % TRUE ITF We LISTED OUT AT LEAST ONE FILE, ¥152= 
FILE 

%152" 
LABEL EXITs-DROPOUT»+DUMMY,OPTIONS? 152" 
DEF SNF NUMOPTS = 7#}3 #152" 
FINE 1520 
TUANDBUF = (939)#s % TU/BUFF STORED IN £939) FIELD. %152" 
STATUANDBUF = STA,TUANDBUF#3 % TU/BUFF OF ORIGINATING STATION, %152" 
FINE PN = (CODE = ODF, £152= 
FX = (CODE = 1)#, %152= 
LO = (CODE = 2)#, %152" 
LF = (CODE = 3)#, #1520 
LS = (CONDE = 4)#3 %152* 
FINE %152= 
PRIMARYUSER = HDRE2)4> % PRIV, USER CODE, %152= 
SAVEFACTOR = HDRE3],.0C28101#, % SAVE FACTOR, Z152= 
LASTACCESSNATE = HDROE3),012:18]4#» & LAST ACCESS DATE. %152° 
CREATIONDATE = HORE 33,030:18)%, % CREATION DATE, ¥152= 
GUARDFILEMFID = HDREI5j#>» % MFID OF GUARD FILE. %152= 
GUARDFILEFID = HDR[6)}#, % FID OF GUARD FILE, £152" 
PBOTUANDBUF =z HDR(63,.(639:9)%, % RJE TU/BUFF FOR PBD, %1528 
PBDTU = HOR(6].(03984)#, % RYE TU NUMBER FOR PRD, %152= 
PBORUF = HDRE61,f44t4]#, % RJE BUF NUMBER FOR PBD, %152= 
EOFPOINTER = HDRE7]#> Z EOF POINTER, 152" 
SEGSPERROW = HDR BJ)» % SEG, PER ROW, £152" 
NOOFROWS = HDRE9},f43:5]4#, % NO, OF ROWS DECLARED, 2152 
HEANERADDRESS = HOReCCFI#3 % CORE ANORESS OF HEADER, %152= 
Ze ok 5 UU BORO OU OT OT ON E SiO Rk gk ok 
SUBROUTINE GETREADYS ¥15e= 
+ 4 BEF Be gts er SHB BRR ew %152= 
BEGIN £152 
STA t= MECRUFF t= CTesBuFF).015215) *1) #133 %152= 
$ SET OMIT = NOTCDATACOM) ¥152= 
INFO t= 0 & ¢€L¢C OR LF OR LS)064214734) &@ LSC438473113 %152= 
FND OF GETREADYS ¥152= 
¥152= 
SURROUTINE GFETFILESPECIFIERS 2152° 
XY wate esters Se ee me %152= 
BEGIN ¥152= 
NAMFIDCMFID>T)s & GET MFID COR USERCODE IF "LF™) %152" 
Ip LF THEN USERID t= MFrDs & FIRST THING IS USERID FOR LF, %152* 
tr MFID = “ee " OR LF THEN £152 
MFID t= = 43 %152e 
NAME IDCFID#T)$3 41520 
IF FID = "/ " THEN % GET FID ¥152= 
BEGIN #152" 
NAMEIDCFIDeT)3 %152- 
NAMEITD(N,T)# & GET NEXT ITEM, #152 
END %152% 

FLSF % NO FIp SPECIFIED IMPLIFS FID OF "=a" £1529 


08100100 
08400150 
08100200 


08400250 


08100300 
08400350 
08100500 
08100510 
08100520 
08100530 
08400550 
08100600 
08400650 
08400700 
08100750 
08100800 
08100850 
08100900 
08100950 
08101000 
08101050 
08101100 
08101110 
08101120 
08101430 
08401150 
08101200 
08101250 
08101300 
08101350 
08101400 
08401450 
08101500 
08101520 
08101540 
08101650 
08101700 


08101750 
08101800 
084101850 
08101900 
08101950 
08102000 
08102050 
08402100 
08102150 
08102200 
08402250 
08402300 
06102350 
08402400 


08102450 


aon 


is] 


AAINIAIAAANAIAN BOOM VY BDBVIANANNANMNAANAAAMQA AANA 


OOrMAaaVrIVDVYVBVS:IANQAAOAO 


oO 


0000:0 
0000:0 
0000:0 


00000 


0000:0 
0000:0 
0000:0 
000080 
0000:0 
0000:0 
0000:0 
0000!0 
0000:0 
000070 
000080 
0000180 
000030 
000030 
000030 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
000030 
000010 
0000!0 
000020 
000030 
000010 
000030 
0001!:0 
000130 
000130 
000510 
0005:0 
001083 
08101500 
001130 
001130 
0044:0 
0011:0 
004150 
0012:0 
001430 
001533 
001731 
001831 
001930 
004932 
002012 
00212 
08102250 
002152 


BEGIN. 
N te FIDS 
FIN ts "43 
ENS 


IF FI0,(686) = LEFTARROW OR LF THEN & NO FID SPECIFIED 
FIN t= = £3 
END OF GETFILESPFECIFIERS 


z 
SUBROUTINE PROCESSOPTIONLISTS 
% om Pe a ny a oe On ee on oe Oe ay 
BEGIN 
WHILE N # “Ne "90 ¥ ACCUMULATE OPTIONS 
BEGIN 


FOR J t= =1 STEP 1 UNTIL CNUMOPTS = 2) DO 


4152" 
£152" 
%152= 
¥152" 


%152= 
z152° 
*152= 


%152° 
%152= 
¥152e 
%152=° 
4152 
¥152= 
¥152= 


DUMMY$s ITF PC.OPTIONS»]}>4,L00) = N THEN &% MATCHES AN OPTION WORD 


REGIN 


%152° 


INFO t= INFO OR TWOCT41)3 & SET BIT CORRESPONDING TO OPT 


GO TO NROPOUTS 
END 


ELSE % CHECK FOR "ALL" 


IF Nos "ALL " THEN & SET ALL OPTION WORD BITS, 


INFO t= NOT O3 


NROPOUT?: 
NAMETDCN,T)$ & GET NEXT OPTION WORD, 
1FNe , " THEN NAMFIDC(NeT)$ & SKIP OVER COMMA, 
END} 
GO TO FXITS 
g 
OPTIONS t21 "RECS  » % OPTION O CINFO,£4781]) 
MLAST ys» ® OPTION 1 CINFO,£46811) 
"DATE ", © OPTION 2 CINFO,(4521)) 
WSIZe os & OPTION 3 CINFO,C44:1)) 
"SECURIT™s & OPTION 4 CINFO,(43811) 
MCREATOR™s & OPTION 5S CINFO,(42111) 
"SAVE "3 ® OPTION 6 CINFO,£4181]) 
EXIT! 
END OF PROCESSOPTIONLIST3 
z 


SUBROUTINE GETSET?3 


% rm ee, wa we me 


BEGIN 


IF FX OR INFO # 0 OR CPN AND USERID # 0) THEN & WE WILL NEED 


HOR t= JOQUE & SPACEC30) [CTC]$ 
END OF GETSETS 


BOOLEAN SUBROUTINE WEGOTAFILES 
xX Be Fae, ® SPR BEBE SREB S we ew 
BEGIN 
SFEKNAMCMFIDsFIDeCoDeEeNoXLST)? & FIND A FILE 
WEGOTAFILE t# C # OF & ¢ TS ANDRESS OF DISK HEADER. 
ENN OF WEGOTAFILE3 


2152" 
%152° 


%15e" 
4152 
Z152° 
£152- 
¥152° 
%152° 
%¥152° 


%152° 
#152° 
t1i52° 
41528 
%i52= 
z152= 
21520 
%152" 
4152" 
%152° 
152" 


£152" 
%152= 
"152" 
4152 
HDRe 

2152" 
£152" 


%1528 
4152= 
%152- 
2152" 
Z1526 
2152" 
2152" 


08102500 
08402550 
08102600 
08107650 


08402700 
08102750 
08102800 


08102850 
08102900 
08102950 
08103000 
08103050 
08103100 
08103150 
08103200 
08103250 
08103300 
08103350 
08103400 


08103450 
08103500 
08103550 
08103600 
08103650 
08103700 
08103750 


08103800 
08103650 
08103900 
08103950 
08104000 
08104050 
08104100 
08104150 
08104200 
08104250 
08104300 


08104350 
08104400 
08104450 
08104500 
08104550 
08104600 
08104650 


08104700 
08104750 
08104800 
08104850 
08104900 
08104950 
08105000 


aOAaIaQa 


oan 


o VuvToBz—oe VU VOVBVOY BOE BTS BD!SVNAOA 


vowvS Ve VN V8 Vy 


AgaAINnAIOIADND 


vwaaonaannan 


002182 
002430 
002433 
0025:3 
08102500 
0025:%3 
002810 
002932 
08101900 
002933 
002933 
0030:0 
003010 
003030 
003131 
003101 
003533 
00372 
0038:0 
004034 
004230 
08103250 
004230 
004210 
004311 
0047:0 
004730 
0046:0 
0050%1 
08103100 
005270 
005232 
0052:2 
0054:0 
0055:0 
005610 
005730 
0058:0 
005930 
0060:0 
006030 
08103000 
006031 
006034 
006150 
0061:0 
006130 
006433 
006811 
08104500 
0068:2 
006832 
006910 
0069:0 
006910 
OOT1i2 
007232 


% 


x 


% 


% 


%152- 

BOOLEAN SURROUTINE WEWANTTHTSFILE: %152= 

Y sete es SCOT R MBO He SHEN REAR %152= 

REGIN %152= 

PROTOG t= (¢nN FQV "PRANn ") = NOT O OR ¢D EQV "PUD ") %1520 

= NOT 0)3 %152= 

IF HEADERADDRESS # 0 THEN % We NEED THE HEADER, %152= 

NTSKWAITTC*HFADFRADDRESS,300C)3 % READ HEADER, %152= 

If LF THEN & CHFCA TO SFE IF WE WANT THIS FILE, 21526 
WEWANTTHISFILE %= PRIMARYUSER = USERID ¥152= 

EI,SE *152= 

IF £X THEN %152= 

REGIN ¥152= 

STREAMC AS HCALCULATEPURGE C*SAVEFACTOR) »X#2fX1)3 *152= 

REGIN 4152 

S] t= LOC As’ DS t= 8 OCT? £152 

ENDS £152 

WEWANTTHISFILE t= X > LASTACCESSDATES % TRUE IF FILE EXPIRED 

END £152 

FILSE £152 

1F PD AND USERID # 0 THEN 3 NEED TO CHECK SECURITY, %152=5 
WEWANTTHISFILE t= SECURTTYCHECK (Def sUSERIDs HEADERADDRESS )#0 

FLSE %152= 
WEWANTTHISFILE t= TRUE3 *152= 

END OF WEWANTTHISFILE3 $152= 
%152= 

SUBROUTINE PUTINFEI[LENAME3 $1529 
ee Baan _petawe® SS HB OP eB eee *%152= 
BEGIN $1529 
STREAMCA=O ? Deo Ere BUFF)$ % SET UP FILE NAME, %152° 
BEGIN 21529 

S] t= LOc Di %152= 

NS sa LIT Ms %152* 

2¢ St te St + 13 DS t= 7 CHR t= LIT "/")3 £1529 

D1] te OY = 473 7152 

NS t= 2 LIT ™ $s & NEED SPACES TO ALLOW FOR ARROW, ¥152- 

A tz O13 %152° 

ENDS %1520 

T t= P3 & SAVE OFF DEST, YNDEX, %152 

FND OF PUTINFILENAME 3 %152a* 

%152 

SURROUTINE DORECS$ %i520 
{Se eter e es Teese £152 

BEGIN Zi52° 

STREAMCAS SIF PRDTOG THEN FOFPOINTERxS5S ELSE EOFPOINTER+4! #793 ¥152= 
%¥1529 

BEGIN ¥152= 

oS t= 9 LIT “RECORDS? "3 £152= 

Sf t= LOC AS £1520 

pS 32 8 pEC} & CONVERT NUMBER OF RECORDS TO DEC, %152- 

A t= MIS & SAVE OFF D1 BEFORE ZERO SUPPRESSING. £1520 

Nn} ts DY = 83 %152= 


08105050 
08105100 
08105150 
08105200 
08105250 
08105300 
08495350 
08105400 
08105450 
08105500 
08405550 
08105600 
08405650 
08405700 
08405750 
08105800 
08105850 


08105900 
08105950 


08106000 
08106020 
08106040 
08406060 
08106080 
08106100 


08406450 
08106200 
08106250 
08406300 
08106350 
08106400 
08106450 
08106500 
08106550 
08106600 
08106650 
08106700 
08406750 


08106800 
08106850 


08106900 
08106950 
08307000 
08107050 
08407100 
08107150 
08107200 
08107250 
08107300 
08107350 
08407400 
08107450 


WO sq—aMwoasInaraonaIoanna0o0on 


aon 


AHSgAaoaaraaonrnannananan Ooraaaan 


oo 


AIAIBIAIaarqraaiwona 


08404850 
0072:3 
007233 
007330 
007330 
0073:0 
007581 
0076:3 
0078:14 
008110 
008133 
008983 
0083:2 
00863 
008784 
00893 
0089'3 
OO9O!4 

08105750 
0090%2 
0090i4 

08105650 
0092414 
00924 
0094:2 
0098t4 
009970 
0100:0 

08105200 
O0yOO') 
010031 
010120 
0101410 
010130 
010233 
0402:3 
010330 
0103!%2 
0105:0 
0105:1 
010533 
010640 

08106400 
010601 
010633 

08106300 
010730 
010710 
010710 
010730 
010730 
OLLiei 
O111%1 
OL1131 
011233 
011380 


“OLL3t 


0113%2 


NS t= 7 FILLS 
ENN? 


T t= Ps % SAVE DESTINATION ADNRESS, 


FND OF DORECSS 


4 

SUBROUTINE DODATFORLAST3 
+ 4 On Pena TaN SON ee 

BEGIN 
a 
STREAMCX!2#(XJ)3 
BEGIN 
S] 32 X$3 


MS t= 8 NECS & CONVERT 


ENDS 


GrMFMATECEXI, CCR I]»°X)3 & CONVERT JULIAN DATE TO 6 DIGITS, 


STRFAMCAS=(Ts1) 8 Xe T)3 
BEGIN 


AC NS t# 10 LIT "ACCESSED? 


nS ts 9 LIT "CREATED! 
Lae 

St t= LO¢ X}3 

S} t= S{ + 23 


3 °¢ OS t= 2 CHR: DS t= LIT W/")3 


DATE TO DECIMAL, 


JUMP OUT TO L14)3 


DY t= DI = 43 8 ERASE THE EXTRA SLASH, 


A t= DI’ & SAVE ODFST,. 
ENT: 


T t= P$ % SAVE DESTINATION ADDRESS, 


END OF DODATEORLAST3 


+ 4 
SUBROUTINE DOSIZE3 


v4 eres Fae e Hw we 


BEGIN 


NT2 t= NOOFROWSS @ NO, OF ROWS DECLARED, 


NTi ts O38 3 NUMBER OF ROWS PROCESSED, 
FOR J t= 4 STEP 4 UNTIL NT? DO ® CHECK TO SEF TF ROW EXISTS, 
IF HORE U+9) # O THEN NTY 


STREAMCAtSNT{xSEGSPERROW 
BEGIN 


nS t= 10 LIT “SEGMENTS! 


Sy #= LOc A3 

nS *= 8 NEC$ 

A t= PTi 

Nr t= Nt @- B83 

pS t= 7 FILLE 
FND?3 


T t= Ps & SAVE DESTINATION ANDRESS, 


END OF DOSIZE: 


4 
SUBROUTINE NOSECURITYS 


xX Cd ee ee ee ee ee 


ts NTL + 413 


% BUMP UP COUNT, 


Z152= 
Z152= 


%152" 
¥152- 


41520 
¥i52= 
4152 
€152- 
%152° 
%152@ 
z152-° 
%152° 
%152= 
Tid2* 


152° 
%152@ 
41520 
Z152= 
#152 
%152¢ 
£152= 
z152= 
£152" 
%152- 
¥152= 
£1520 


%152° 
%152" 


%152= 
¥152= 
*152= 
%152° 
£152= 
%152= 
$152" 
%152« 
2152 
%152° 
%152- 
21529 
%1529 
4152 
152° 
%152- 
%152= 


¥152 
*1520 


%152 
¥152= 
%1520 


08407500 
08107550 


08107600 
08407650 


08107700 
08107750 
08107800 
08107850 
08107900 
08107950 
08408000 
06108050 
08108100 
08108150 


08108200 
08108250 
08108300 
08108350 
08108400 
08108450 
08408500 
08108550 
08408600 
08108650 
08108700 
08108750 


08108800 
06108850 


08408900 
08108950 
08409000 
08109050 
08409100 
08109150 
08109200 
08109250 
08109300 
08409350 
08109400 
08109450 
08109500 
08409550 
08109600 
08109650 
08109700 


08109750 
08109800 


08109850 
084109900 
084309950 


on 


MO ONANAAAGSB 


NOI OonaInaannoa 


AOIMAIYIOAYAMAMAINOAIAIAO TAD om 


oo 


Ooan 


011333 
011420 
08107200 
011434 
011433 
08407050 
011530 
011530 
011530 
011520 
011530 
011520 
011533 
0115193 
011680 
011631 
08108000 
011672 
0118314 
012031 
012031 
0123180 
012452 
012432 
012433 
0125:0 
012631 
0126°2 
012633 
08108300 
012730 
0127%2 
08107850 
012733 
012733 
012830 
012830 
03:28:10 
012932 
013034 
013330 
013632 
013832 
0138:2 
0140:0 
014081 
014032 
0140:3 
0141180 
014131 
08109350 
014182 
014210 
08109050 
014211 
01421 
014310 


pf 


% 


BEGIN 
J ots TF PRIMARYUSER = O THEN 0 & FREE FILE 
FLSFE LF GUARNDFILEMFInN = "2?" THEN & UNLOCK OR PUBLIC 
TF GUARDFILFFIO = "9% THEN £ 8 UNLOCKED 
ELSE 2 % PUBLIC 
ELSE IF GUARDFILEMFID < O THEN 3 & PRIVATE 
ELSE 43 % LOCKED 
STREAM(J & AteEGUARDFYLEMFID»® REeGUARDFILEFIDs T)3 
BEGIN 
AS s=# 10 LIT "SECUR TYS 3 
Cy t= Cr + Ji 
GO TO FREE} 
GO TO UNLOK3 
GO TO PUBLIC? 
GO TO PRIVATE3 
LOCK? NS t= 6 LIT "LOCKED@S GO TO EXIT? 
PRIVATFINS t= 22 LIT "PRIVATE CSECURED WITH "3 
Sj t= LOC A3 
2 ¢ S] tw ST + 13 NS t& 7 CHR DS se LIT "/")3 
Nr &¢= NJ @* 13 
nS ts LIT >)" 
— GO TO EXITS 
PUBLIC? NS t= 6 LIT “PUBLIC™s GO TO EXITS 
UNLOK; pS t# 8 LIT “"UNLOCKFD"S GO TO EXIT 


FREES oS t= 4 LIT "FREE 


EXT: J t= p73 
FNIS 


T se P3 % SAVE DESTINATION ANNRESS, 
END OF DOSECURYTY3 


SUBROUTINE DOCREATOR? 
BEGIN 
SET OmMyT = PACKETS 
SSET OmrT = NOTCPACKETS) 
IF JtsCPBNTOG AND CE.642:6) = 19) THEN & REEL 3 OF PBD 
SPOP OmyrT 
BEGIN 
1F LABELREC =.0 THEN LABELREC %= SPACEC30)3 
NISKWATTC*LABELREC»s 30,HDRI10)+2)3 
ENDS3 


STREAMC(J $ Bie PRIMARYUSER=0» Ct=PRIMARYUSER» 
RJgE t= PBDOTUANDRUF#O» TUS=PBDTU» BUF SSPBDBUF » 
N%exLABELREC INX 42, T)}3 


nS ts 9 LIT *CREATORE *&3 

BR ¢ OS te 4 LIT *NONEWS JUMP OUT TO L2 )3 
S$} ts LOC C3 

S] ‘2 Sr + 43 

0S := 7 CHR3 


J ¢ OS te 2 LIT ® CH} 
SI 3:2 f3 
2 ¢ Sy] ts SJ] + 43 DS t= 7 CHR DS te LIT %7 "53 


¥152= 
%152" 
¥152= 
4152= 
%1520 
%152" 
¥152= 
%152 
%152= 
¥1520 
%1528 
%152= 
¥152= 
%152= 
¥152 
%152= 
%1520 
%152= 
£1529 
%152= 
%152= 
%152= 
K152= 
41520 
¥152= 
£1520 
%152° 


Bi52° 
%152= 


#1520 
%152° 
%152= 
%152= 
2152 
Zi52e 
xi52« 
x152" 
%152= 
x152= 
%152= 
%152= 


¥152= 
£1525 
%152* 
%152° 
¥152= 
*15e= 
%152 
x152= 
%152° 
£1525 
£1520 
£1520 
£152 


08140000 
08110080 
06410100 
08110150 
084192700 
08410250 
08410300 
08710350 
08140400 
084140450 
08430500 
08440550 
08110600 
08410650 
08410700 
08430750 
08410800 
081410850 
08440900 
08110950 
08111000 
08411050 
08111100 
08111150 
08111200 
08411250 
08111300 


08111350 
08111400 


08111450 
08111500 
08111550 
08411600 
08111650 
08111800 
08111850 
08111900 
08411950 
08412000 
08112050 
08412100 


08112150 
084112175 
08112200 
08112250 
08412300 
08442350 
08112400 
08112450 
08112500 
08412550 
06112600 
08412650 
08112700 


AONIAIOAIO DAO O AYMAN AO NAANO ANOANANO 27% 


ao 


HOO WE AIAQanroaanon 


OOO a sanoaaaon 


014310 
014310 
014433 
O1a6ti 
014812 
014981 
01451:2 
015283 
015530 
015580 
0156t2 
0157380 
015734 
045732 
015783 
0158:0 
015991 
016241 
01622 
016440 
016411 
016483 
016530 
016631 
016713 
016832 
016833 
08440400 
016930 
016982 
08440000 
016933 
016933 
017080 
017080 
0170:0 
017030 
017080 
0172%1 
017231 
017233 
01761 
017832 
08411950 
017812 
016013 
018414 
0185!%2 
018532 
048730 
016940 
0189814 
01489t2 
018933 
018913 
0490383 
019140 


Ny te OI = 13 OS 


2 ¢ ST $= ST + 93 DS ts 


3 


ns 
NS ts LIT ")")3 
J ts N13 
ENNS 


1 

2 LIT * (%3 
2 pecs DS 
byt "J" 


7 


SI 
s= LIT "/"3 NS t= 2 DEC3 


r= 4 LIT ” OF "3 
CHR OS 


t= TUS 


T t= P3 % SAVE DESTINATION ADDRESS. 


ENN OF DOCREATOR: 


pf 
SURROUTTNE NOSAVFFACTORS 
+4 pe De me gy te Pe Oe ee oe a 
REGYN 
STRFEFAMCA s= SAVEFACTOR 
BEGIN 
nS := 6 LIT “SAVES 
St ss LOC A3 
nS t# 3 MEC3 
A t= 013 
nt} 3 Hl = 33 
n$ ts 2 FILL; 
ENDS 


' 7)3 


ws 


T t= P3 % SAVE NESTINATION ADDRESS. 


END OF NOSAVEFACTOR; 


% 
SUBROUTINE DOOPTIONS3 


% ee Ree eg 2 eeF BON eee 


REGIN 


FOR y := O STEP 1 UNTIL CNUMOPTS ™ 


1) DO % SEE IF OPTION RIT 


IF CTWOCT) AND INFO) # 0 THEN ZOPTION SELECTED. 


REGIN 
CASE 1} OF 
REGIN 
NORECS3 
BEGIN 


X 12 LASTACCESSDATE? 


% CASE 
% CASE 


NDONATEORLAST 
END OF CASE 13 


REGIN 


% CASE 


X t= CREATIONDATEF3 
DODATEORLAST?E 
END OF CASE 23 


NOSIZE3 
DOSECURITYS 
DOCREATOR$ 
DOSAVEFACTORS 
END OF CASES} 


STREAMC] $ T)3 


% CASE 
% CASE 
% CASE 
% CASE 


0 
1 


av Sw 


"RECS" 
"LAST® 


"DATE" 


"SIZE" 
"SECURITY" 
"CREATOR" 
"SAVE" 


% PUT COMMA AFTER LAST OPTION, 


te LIT "/")3 


¥152= 
£152" 
£152 
%152= 
4152 
%152= 
%152° 
¥152 
¥152* 


%152 
x1520 


%152= 
%152= 
2152= 
%152° 
%152= 
%152= 
¥152= 
¥152° 
¥152" 
%152=° 
z152- 
2152 
Z152- 


%152= 
¥152= 


%152= 
Z152" 
2152= 
z152= 
SET. 

%152= 
%152-= 
%152e 
z152= 
x152= 
%1i52° 
£152 
£152 
¥152= 


%1i52- 
*152= 


K1S2= 


£1529 


z152° 
¥152° 
x152° 
¥152= 
¥1526 


%152° 


08112750 
08412800 
08112820 
08112840 
08412860 
08112880 
08112890 
08112900 
08112950 


08113000 
08113050 


08113100 
08113150 
08113200 
08113250 
08113300 
08113350 
081413400 
08113450 
08413500 
08113550 
08113600 
08113650 
08113700 


08113750 
08113800 


08113850 
08113900 
08413950 
08114000 
08114050 
08414100 
084144150 
08114200 
08114210 
08114250 
08414290 
081144300 
08114310 
08414320 


08114340 
08114350 
08114360 
08114370 


08114400 
08114450 
08114500 
08114550 
08114600 


08114650 


DBIaaaIinaaann 


oO wo 


AIAIAIOAMINOIAIAAAIAaONNa. 


on 


ANON orwaaaaowwIoanrna 


OOoan 


aoannan 


a 


019212 
019332 
019540 
0195314 
019632 
019782 
019814 
0199130 
019931 
08112250 
0199%t2 
020080 
08141600 
020081 
020031 
0204:0 
020110 
020130 
020330 
020340 
0204:0 
O204%4 
0204:2 
020433 
0205:0 
0205%4 
08413350 
02052 
0206:0 
08113250 
020631 
020631 
020720 
0207:0 
020710 
O21131 
021310 
O213%2 
0213%3 
021431 
0215%2 
021582 
021750 
021830 
086114290 
02182 
0218:2 
022010 
022130 
08444340 
022122 
022312 
022582 
022732 
022922 
08134210 
0233:3 


% 


BEGIN 
fl tx 2 LIT ™, 3 


1 t= Nii 
END} 


T Ye P3 


FNnD OF LOGP TO PROCESS OPTIONS; 


FND OF DOOPTIONSS 


SUBROUTINE MAKETHEMESSAGES 


+ 4 oe ee OP Ge ae ge a Fe me oF ay 


‘3 


% 


BEGIN 


If FOUNDAFILE THEN 8 WE NFED A BUFFER, 


BUFF t= SPACEC30)3 
PUTIMFILENAME 3 
DOOPTYJONS$ 


STREAM(T)$ & PUT IN THE LEFT ARROW, 


RF GIN . 

nt t= OL 723 

nS %= LIT LEFTARROWS3 
END: 


END OF MAKFTHEMESSAGE? 


SUBROUTINE COMPLAINS 


BEGIN 
STREAMCBUFF)3 


08 t= 8 LIT *™ NULL "3; & ORIGINAL INPUT 1S AT BUFF + 14, 


SPOUTCBUFF INX STA)3 
END OF COMPLAINS; 


SUBROUTINE FORGETEVERYTHINGS 


BEGIN 


IF HFADERANDRESS # O THEN FORGETSPACE CHEADERADDRESS)3 
IF LABELRFC # 0 THEN FORGETSPACECLABELREC)3 


END OF FORGETEVERYTHING: 


Lkeebeeekeekekeenhaeke S T AR T 0 


GETREANY? 
GETFILFSPECTFIFRS 
PROCESSOPTJONLYSTS 
GETSET3 
WHILE WEGOTAFILE DO 
Te WEWANTTHISFILE THEN 
BEGIN 
MAKE THEME SSAGE3 
SPOUTCBUFF INX STA)3 
FOUNDAFILE $= TRUE3 
ENDS 


TF NOT FOUNDAFILE THEN COMPLAINS 


x152" 
%¥152= 
¥152= 
g152= 


%152= 
2152- 


%152" 


£1520 
41529 
¥152= 
¥152= 
#1529 
%152= 
4152 
152° 
®152° 
£152= 
%152=° 
%152= 
Ki5e* 


v15e- 


%1520 
4152 
%152" 
%152- 
2152" 
z152° 
¥152= 
%152= 


x152= 
%152= 
%152= 
¥152* 
%152° 
*152e 
x152< 


Trrtrrt rT ttt TTT TTT ttt. 


*152= 
¥152< 
¥152= 
%152= 
®1526 
K152= 
¥152= 
%152= 
R152" 
%152° 
%152 


%152° 


08114700 
08414750 


08444800 
08114850 


08114900 
08114950 


08415000 


06115050 
08415100 
06415150 
08415200 
08115250 
08115300 
08115350 
08415400 
08415450 
08115500 
08115550 
08115600 
08115650 


08115700 


084915750 
08315800 
08415850 
08415900 
08115950 
08146000 
08116050 
08116100 


08116150 
08416200 
08446250 
08116300 
08116350 
08446400 
08416450 


08116500 
08416550 
08416600 
08416650 
08116700 
081416750 
08446800 
08416850 
08116900 
08446950 
08417000 
08417050 


08417100 


o> <> A aane 


AAIOIANANIANANAIABYA BIO mz) 


oO 


ao BDOHIOMOaANO 


HOaoaoan 


OO BVOVDOSPIDBDOBVOSIAOOAO 


uw 


023530 
023530 
023532 
023533 
08144700 
0236:0 
0236i2 
08114150 
0237:0 
08114000 
023731 
023731 
023810 
023870 
023810 
023631 
024110 
024210 
024310 
024313 
024313 
0244130 
024412 
08115500 
024433 
08145200 
024510 
024530 
024580 
0245:0 
024580 
024533 
O24744 
0249:0 
08415900 
O24911 
O249%4 
0250:0 
025030 
025010 
0253%2 
025532 
08436300 
025833 
025513 
026210 
026310 
026410 
026510 
026632 
026810 
026842 
027030 
027133 
027242 
08146850 
027310 


FORGETEVERYTHING3 
END OF PRINTDTRECTORY: 


C 02975310 
P 027610 
08096750 


SIZE=s 0277 WORDS 


STACK¢F 41) 
STACK(F 42) 
STACK (F 43) 
STACK¢F 44) 
STACK(F 45) 
STACK(F 40) 


STACK¢e Fea) 


AND DATACOM ) 
3% 


081435999 
08171000 


START OF REL SEGMENTS DISK 


REGIN RFAL TeTODsoLINKs Us 


ARRAY Ar*]} 
REAL RCWH+03% 

ARRAY Rewm4c*J3 OEFINE FIBeA#: zP 
CHECKSTACKSPACE3% SWF 


Ue#CLINK «© NFLAGCMECIOD « NFLAGCMET#PRICPIMIX091)) INXZ 
PCO*LNGs XCH)) INX NOT 0))),£1286]32 
IF U 2 32 THEN 
BEGIN A «© MECTI]3 
IF READEMFROMDISK(CIDROWEU"32)2A) THEN 
METI © A&1L2734794)80C284731) FLSE 
MCT] © R$ GO TO RETURNS 


END; 
METON INX NOT LIJ*FLAGCLINK)’ FIBeME T9373 xP 
MCFIBCL4IINX 17 JeCMCF BCS] CRF IIIS 100038383018 06 2022031)3 
SFIBLCSJ@#PCOUPsLODeOeleCFX*» ADD); xP 
IF FIBCISJ6CFFISFIBE14),°CF)] THEN &% BUFFER FULL ZP 
PB1TOCTreFIBl14]) £P 
ELSE SP 
RFGINS STREAMCASFIBLI4],£CF). BeFIB(14], (FF I)3 xP 
BEGIN Ste#As DS«18 WOS END3 ¥P 
FIRCL4) CFR leFIBG14).C0F F 17183 %P 
ENN} ZP 
GO RETURN xP 
END CONTINUITYBITS xP 


08172000 


08172500 
08173000 
08173100 
08173200 


08174000 
08175000 
08175100 
08175200 
08175300 
08175400 
08175500 
086175600 


08176000 
08177000 
08177100 
08177200 
08178000 
08179000 
08179600 
08179700 


08179800 
08179900 


08180000 
08181000 


T 000030 

T 000030 

ADDRESS =s 00262 

T 0000!0 

T 000010 

T 000030 

T 900030 

T 000030 
08473200 

T 000512 

T 000810 

T 001283 

T 001382 

T 001582 

T OO017%2 

T 002183 

T 002412 
06175200 

T 002482 

T 002910 

T 003482 

T 003730 

T 0039%4 

T 0041382 

T 004133 

T 004483 
08179700 

T 0045%2 

T 004833 
08179600 

T 004883 

T O04984 
08172000 


SIZE 0050 WORDS 


STACK EF +42) 
STACK (F 43) 
STACK¢F 44) 
STACK ¢F 45) 
STACK¢F 46) 
STACK (Fa?) 


ft vu on 


BOOLEAN PROCFDURE PRINTORPUNCHWAITCQ»PNCH)S VALUE Q@sPNCHSREAL QsPNCHS 
START OF REL SEGMENTS DISK 


% 
x 
x 
% 
% 
Zz 
% 
% 
% 
% 
% 
x 
% 
z 
z 
% 
% 
% 
% 

U 

V 

I 

J 

Ji 

J2 


STACK¢F410) = § 


STACK¢Feil) = A 
STACK¢F 412) = HDR 
STACK¢F 410) = §FG60 
STACK¢F45) = F 


STACK¢F 413) 
STACK ¢F 414) 
STACK¢F 415) 


STACK EF 416) 
STACKEF +16) 


= 
= 
= 


PBT 
PBD 
PUD 


D 
SHE AT 


£ SET aMyT = SHAREDISK 
DEFINE SIXTY 


THIS PROCEDURE 


IS RESPONSTBLE FOR STARTING PRNPBT/DISKe JT CHECKS 


FOR 1/0 UNTTS AS RFQYIRED AND® TF AVATLABLEs GRABS THEM, THe 


PARAMETERS ARE? 


Q €-16 


>"J60 


>0 
PNCH,.f 4721] 

39:36) 

f31'8) 


30:1) 
(939) 
C731] 
riti] 


LOGICAL UNTT NUMBER FOR OUTPUT, TAPES AND DISK ARE 
SEARCHED To FIND A FILE TO PRINT, THIS IS USED ONLY 
WHEN AUTOPRINT IS SET OR FOR RJEs 

LOGICAL UNrT NUMBER OF A BACK#UP TAPE, CHECK FOR AN 
AVAILABLE OUTPUT UNIT, 

FID OF A DISK FILE. CHECK FOR OUTPUT UNIT, 

ON FOR PUNCH BACK*#=UP, 

NUMBER OF COPIES FROM PB MESSAGE, 

IF TAPE, NUMBER OF FILE TO PRINT CFROM PB), 

IF DISK, =0 YF ENTIRE PACKET SHOULD BE PRINTENs 21 IF 
NOT, 

ON IF =0 WAS USED IN PB MSG, 

RJE TU/RUFF, 

ON IF CALLED FROM PRINTBACKUPs IeEe A PB MESSAGE, 
ON IF CALLED FROM PRNPBT/DISK, 


BEGIN INTEGER UsVeToJSedieJd20S3 


REAL ApHDR»SEGOSS, Fay} 


REAL PBTePBDsFUDS 


ARRAY DE*J+SHEAT@DE*373 


LABEL TRYAGAINePRNPBT DISKS 


LABEL FOUND»FIREITUP,QUITS 


a717= 


DEFINE MFID = CIF Vea2 THEN PUD ELSE PBD)#3 
DEFINE STACURR © STATIONESTA, C4484] oSTA, £3984) 1 #3 


= 608} 


$ SET OMYT = NOT SHAREDISK 
$ SET OMyT & NOT RJE 


SUBROUTINE LABELTHEPRINTERS 
BEGIN LABELTABLECV 13 #0802909 24315)3 
MULTITABLEfVIJtsIF Vea2 THEN PUD ELSE PBD3 


END; 


08255000 


08255050 
08955055 
08255060 
08955065 
08955070 
08255075 
08255080 
08955085 
08255090 
08255095 
08255100 
08255105 
08255110 
08955115 
06255120 
0895512? 
08255125 
08255130 
08255135 
08255140 
08955200 


08255400 


08255500 


08255600 


08255700 
08255800 
08258900 
08256000 
08256190 
08256200 
08256210 
08256390 
08256420 
08256430 
08256440 
08256450 
08256460 


08256470 


T 


000030 


ADDRESS # 00264 


ADAH AHHH HHA HH Ht st 


ee ee | 


a | 


000030 
0000:0 
0000!0 
000010 
0000!0 
000010 
000030 
000030 
000010 
000030 
000010 
0000:0 
000030 
000030 
000080 
00000 
000010 
000030 
000010 
000010 
000030 


000010 


000010 


000030 


000010 
000030 
000030 
000030 
000080 
000030 
000010 
000010 
000010 
000030 
0001:0 
000381 
000612 
08256440 
000613 


RT t= "PRT "3 PUN t= "PUD "3 PRD t= "PBD "4 
$ SFT oMTt = NOTCRATACOM AND RJE ) 
TF O20°15) THEN &%% PR GIVENs LOOK FOR LP, 
BFGIN 
$ SET OM1T = NOTCMATACOM AND RgJE ) 
IF PNCH THEN IF LABELTABLE[Vt222)#0 THEN Vite0O ELSF ELSE 
IF LABELTABLE(Ve20]#0 THEN 
TF LABELTABLE(V+24]#0 THEN Ve} 
IF V#0 THEN & WE HAVE AN OUTPUT UNIT 
IF @>0 THEN % BACK*UP DISK 
BEGIN Us=s183 
LABELTHEPRINTERS % TO HOLD IT DURING DISK 1/08S, 
IF AUTOPRINT ® CHECK JF A PRNPBT WAS STARTEDS 
$ SET OMIT = NOT RJE % IF SO, START THIS ONLY FOR PR, 
THEN 
IF cA&sDTRECTORYSEARCHC(MF1D»Q219))#0 THEN 
BEGIN tF MEA+4),0681) THENZ NOT FIRST TIME, 
BEGIN 
$ SET omMIT = NOT SHAREDISK 
PePNCH. [281193 % SEE 08259695 
END ELSE % FIRST TIME, MARK JT, 


BEGIN MCA44), F624) 8213 
DISKWAITCA. CCF] e*300A,CFFI)3 
Pcl); 

FNns 


FORGETSPACECA)$ 
$ SET OMIT = SHAREDISK 


UNLOCKDITRECTORYS 
$ POP oMyT 
1F P THEN ELSE GO QUIT 
END ELSE GO OUT; 
GO FIREYTUP? 
ENN FLSF % Q<0» PB MT 2737 
BEGIN RRRMECHeTWOCUSABS(Q@)) OR RRRMECHS ¥717= 
LABELTABLE(U] « g7i7= 
PBT&TINUCV1066130818)8@2151%4385]3 Z717* 
MULTYTABLECV) « PBT3 2717" 
LABELTABLELTV] « PBT&TINUCU 766230848 78 87178 
@210124385173 %717= 
GO FIREITUP3 Z717= 
END Z717* 
FLSE GO QUIT} 2 V = O» NO OUTPUT UNIT 
ENDS 
BFGIN Vi2aRS(Q)3 % LP COR PUNCH) GIVEN» LOOK FOR FILE, 


IF PBCOUNT#0 THEN % TRY FOR DISK 
BEGIN DiecMeSPAcE(90)1189068!38840)3 
$ SET oMyT = SHAREDISK 
LOCKNIRECTORY3 


082956500 
08256699 


08257000 
08257100 
08257199 
08257500 
08257600 
08258000 
08258200 
08258400 
08258600 
08258700 
08258800 
08758990 
08259200 
082592205 
08259250 
08259975 
08959300 
082959375 
08259400 


08259425 
08259450 
08259475 
08259500 


08259525 
08259550 
08259575 


08259600 
08259625 
08259650 


08259700 
08959800 


08259810 
08259820 
08259830 
08259840 
08259850 
08259860 
08259870 
08259880 


08260000 
08260250 


08260500 
08267000 
08267500 
08267990 
08268000 


ie eee ee ee | 


a+ Asan 44-44 


wv 


aa ~- DIAAAIANMANDA 


000613 
001233 
0012183 
001333 
00144%14 
001481 
002210 
002430 
002781 
002830 
002934 
003032 
003250 
003230 
0032:0 
003233 
0037%2 
004030 
004a0%2 
0040892 
004184 
08259275 
O04ss4 
004580 
004732 
0047%t3 
08259425 
004733 
004832 
0048382 
08259575 
08259575 
005230 
005240 
0052%2 
08259250 
00S2%2 
005430 
08258600 
005410 
005710 
005712 
006032 
006413 
006333 
006591 
006513 
08259810 
006523 
006513 
08257100 
006533 
006633 
006782 
0071433 
007133 
08268000 


POP OMrT 


SET omMyT = 


SET oMIT = 
SET OMIT «# 


POP oM{T 


SET OMIT = 


SET OMIT = 


SET OMIT = 


SET OMIT = 


FOUND 
SFT OMIT = 


POP OMIT 


ENDS 


At#MFIDS3 
J18=(A,76998) + A,624824)) MOD MODULUS! 
FOR J2%20 STFP 1 UNTIL (MODULUS#=1) 90 
BEGIN 
NOT SHAREDISK 
JteSCRAMBLE(J12J2)3 
DO BEGIN DISKWAITC*"C(CD INX 30)eS]XTYoJN)3 
FOR [%230 STEP 3 UNTIL 87 DO 
1 CDEr) EQV AD = NOT O THEN 
1F OL341].0CF)"1 THEN 
BEGIN HISKWAITC*O.CCFJ]e"3000CT+2),6°CFI93 
tr 004),£123) # 0 OR 0L4),¢619) 
NoTCRUF AND pATACOM ) 
NOTCPACKETS) 
OR LABELTABLELIF Vs20 THEN 21 ELSE 
IF Vs2_ THEN 20 ELSE 22),(6124] 
=001413,(6124) 


OR (N04],016820) OR 0£931.f1928)9#0 
THEN 
NOT SHAREDISK 
ELSE 
BEGIN DES) .,C6tileais 
PBCOUNT!=PBCOUNT#@13 
VDISKWAITCD (CEJ) >"30e0014+2).°CR1)3 
NOT SHARENISK 
U$s183 
QteDdc 14113 
GO FOUND3 
FND ENDS 


NOT SHARENISK 
END UNTIL CJ820032),CFF))#03 


NOT SHAREDISK 
ENDS 


FORGETSPACFE(D23 


SHARE DISK 
UNLOCKDTRECTORYS 


END SEARCHING FOR DISK 


IF WE HAVE BOTH AN INPUT FILE AND AN OUTPUT UNTT, 
FIRE UP PRNPRT/O07SK., 


1F U#0 AND V#0 THEN 


BEGIN 


SET OMTT & 


FIRFYTUPS 


NOTCDATACOM AND RJE ) 
LABELTHEPRINTER3 


08268010 
08268500 
08268600 
08268700 
08268750 
08268790 
08268900 
08268950 
08269000 
08269100 
08269200 
08269300 
08269400 
08269499 
08969509 
08269510 
08269520 
08269530 
08269531 
08269600 
08269650 
08269690 
08269750 
08269800 
082769900 
08270000 
08270040 
082701300 
08270200 
08270300 
082970350 


08270390 
08270450 


08270490 
08970550 


08270600 
08270640 
08270650 


08270660 
08270700 


08270725 


08270740 
06270745 
08270750 
08270800 
08270819 
08271000 
08271750 


AHHH AHHH HHH AHH A AH HH 


Se 


08268000 
007631 
007831 
008180 
008383 
008810 
008830 
008810 
009510 
009721 
009910 
010083 
010381 
010712 
010934 
0109%1 
010934 
011291 
011482 
011630 
011680 
0119%2 
012001 
012081 
012033 
012333 
0125180 
012631 
0128!1 
0129%14 
013083 
O13iei 

08269800 

08269300 
0133%2 
0133%2 

08268950 
013630 
013630 

08268750 
013632 
013712 
013782 

08270650 

08270650 
014140 
014110 

08267500 
044140 

08260500 
014120 
0141140 
0141%0 
014243 
O143h4 
014384 
0144610 


q 
At=V&QUC3824385)8PNCHL21230817)5 08272000 fT 014430 @ 
$ SFT OMIT = NOT RJE 08272240 T 014633 
TF PNCH,C1°1) THEN PCA) ELSE 08273250 T 014683 
BEGIN 08273500 T 014881 @ 
TRYAGAINS 082973600 T 045030 
IF CHDRSxDIRECTORYSEARCHCPCPRNPBT) »P(DISK)»3)) # 0 THEN 08973750 T 015010 
BEGIN 08974000 T O152°4 e 
SHEAT t= (MrFteTYPEDSPACE(31.SHEETAREAV)JI&30(SI7E]3 08274250 P 045283 
MEF"21ef9%6) $s 0 MCHDR INX NOT 1]1,6986)%s03 08974260 T 0157380 
MOVEC30sF"3oF)3 08274500 T 016383 e 
SFGO t= TYPEDSPACE( 30*SEGZEROAREAV IIS %167% 08275500 P 046583 
MCSEGO"2},CAREAMIXF) ¢s O32 %167= 08275600 c 016810 
DISKWAITC@SEGO» 30» MCHDR INX 10193 08975750 T 017184 a 
F.C(FF) te HDRs % CORE ADDRESS OF HEADER 08276000 T 0417480 
SHEAT£®7} t= SeGOt g& CORE ADDRESS OF SEGMENT ZERO 08276050 T O17531 
SHEAT(O) te PCPRNPBT)3 08276100 T 017632 a 
SHFATC1) t= PeDISK)3 08976450 T O47793 
SHEATC2) t= O & PRNPBTCODE(5#4513}] & 208838810) & 08776200 T 0147910 
ZPRIORITY£OsEXECUTE CODE 08276203 T 0186153 @ 
CPNCH,L281}80)CQ847s1)3 % SET IF NOT #PBe 08276205 T 098433 
SHEATL16] ts SHEATC17) te @3777777777773 & TIME LIMITS 08276210 T 018413 
SHEATF19] t= Al % COMMON VALUE 08276220 T 018612 @ 
SHEATEL20] $= 43 % CORE ESTIMATE 08276230 T 048733 
SHEAT(21] t= 4503 % STACK SIZE 08276240 T 018910 
08276250 T 019081 e 
STREAMCAt=0% §$$=P(,SCHEDULEINS))3 08276260 T 019031 
BEGIN 08276270 T 019432 
Sy t=2S3 08276280 T 0191442 e 
47CSKITP SBs SKIP DBS TALLY2=TALLY+413 08276290 T 019133 
IF SB THEN ELSE JUMP OUT)? 08276300 T 019233 
DStsSET; At=TALLY3 08276310 T 019494 @ 
END STREAM STATEMENTS 08276320 T 019433 
08276270 
08276330 T 019510 6 
1 t= P3 08276340 T 019510 
SHEATC3),08:910] te 73 % SCHEDULE NUMBER 082976350 T 019532 
SHEATE23} t= (CLOCK + PCRTRI) DIV 603 08276360 T 0198:0 e 
SHEAT( 24] %2 MCP! Ki31" 08976365 c 020084 
NOTECMATACOM AND RYE) - 08976370 T 020234 
SHFAT£25}) t= HDRarFFIS & DISK ADDRESS OF FILE HEADER 08276400 T 020281 e 
STREAM(CA, [seyssSPACE(14))3 08976410 T 0204:30 
BEGIN 08276420 T 020710 
DIt=Dp4163 08976430 T 0207:0 e 
OSte30LIT"cC EXECUTE PRNPBAT/DISKS COMMONER} 08976440 T O0207%4 
ST?=LOC AS DS8e8DECS 08276450 T O2titt 
DSt=6LITMEEND, eo" 08276460 T 021133 \ 
END STREAM STATEMENT? 08276470 T 021233 
08276420 
Met) $2 O03 MEy+1)28103 08276480 T 021310 @ 
SHEAT(6] t# GETESPDISK & 107¢48233845)3 08276490 T 0236:2 
DISKWAITCY» 14% SHEATE6).F°CFI23 08276500 T 021832 
FORGETSPACEC(])3 08276510 T 022012 ® 
INDEPENDENTRUNNERCPC.SELECTRUN) 0 F 16093 08976520 T O224t1 
Pc1ys 08976530 T Oz22t2 
END ELSE & yF IN DIRECTORY 08976540 T 022233 e 
08274000 
BEGIN 08976550 T 072213 e 
@ 


FNTERSYSFILEC3)3 
GO TRYAGAINS 


PRNPBT 833 WPRNPBT "3 
orskies "po 1SK "5 
FND! 
FND3 
PRINTORPUNCHWAIT%eP3 
FNO FLSE 
QUIT tfF V NeG O THEN 


$ SET OMIT = NOTCRUF AND MATACOM ) 
LABEL TABLE VJ t=MULTITABLEL VJ 8s03 
END PRINTWAITS& 


08276560 
08276570 
082976580 
08976590 
08276600 


08977000 


08277500 
08278000 


08979000 
08280000 
08280009 
08280030 
082781000 


awa 


= 


~4 


Aaa 


02250 
022533 
022631 
022630 
022910 
08276550 
022930 
08273500 
022910 
022982 
082706800 
022922 
0229%2 
023013 
023013 
023382 
08255200 


S1ZE= 0234 WORDS 


PRT(575) 5 


STACK¢CF 41) 
STACK ¢F 42) 
STACK ¢F 43) 
STACK(F 44) 
STACK (Fs5) 
STACK ¢Fe{) 


PROCEDURE PRINTBACKUPCBUFF)$ VALUE BUFFS REAL BUFFS 


PRINTBACKUP 


Fe BR DR aQ VC TR ve BQ 


THIS PROCEDURE HANOLES THE PB MESSAGE, MAKING THE NECESSARY CHECKS 
AND THEN CALLING PRINTORPUNCHWAIT, THE SYNTAX OF THE MESSAGE [S83 
<PB MSG? tt PB<INPUT FILF><PB SPECS> 

<yNPUT FILE> tt= <TAPE UNIT> / «DISK FILE NUMBER? 

<PB SPECS> its «PB ELEMFNT> / <PB ELEMENT><PB SPECS> / <EMPTY> 

<PB FLEMENT> t= P / ex<yUMBER OF COPIES> / #<STARTING FILE NUMBERD> 


BEGIN REAL Us le COPY sMSsSTA»BSBUFFS 


) 


I 
COPY 
MS 
STA 
B 


$ SFT omMtT = NOT ¢DATACOM AND DCSPQ) 


LABEL OK» BADe SPITS 


& SET oMrT & NOT ¢DATACOM AND DCSPO) 


STREAMCPCPYtet+ NUMRi ats Nieie CPYteeO! BIeBUFF 3 
REGIN S]#Bs DITeLoc NB xP 
L? UF Sem" © THEN BEGIN SI#SJ413 GO TO L ENDS xP 


TF Sc<"0" THEN BEGIN 0S¢5 L1T"40000"3 DOSe3 CHR END ELSEZP 


REGIN RBieSJ> 
A¢IF SCe*O" THEN JUMP OUTS TALLYeTALLY ois SteStoq)3 
S}tsBs BISTALLY! DytseDl 453 Di ted] =B}3 
DS*B CHR *P 
END3 


LL: TF Sc=" " THEN BEGIN SIt#SJ#1s GO TO LL ENDS 
IF §Cs"=a" THEN BEGIN DIt=LOC CPY3 GO TO CNT ENDS 


IF Sco"@ THEN 
BEGIN DI?2sSLOC NUMB: 
CNT: SypisStegs BesSys TF SCen " THEN GO TO CNTSTALLY##03 
3¢IF SC < "0" THEN JUMP OUT3 
IF Sc > "9" THEN JUMP OUTS3 
TALLYSIsTALLY4+¢3 SitsSp44)3 
S1tsBs BieTALLY; DStsB OCT} 
40 TO LL? 
END; 


IF Ssca"P" THEN 
BEGIN TALLYs#03 PCPY:eTALLYS SrtsaSyels 
SCIF SCwALPHA THEN IF Sc<"O" THEN SrtmSt+1 LSE 
JUMP OUT FLSE JUMP QUT)3 
GO TO LL3 
END3 


FND: 
COPYz#¢cOPYteP)RCNOT COPY & NOT 09(63184711)3 


xP 
START OF REL SEGME 


08282000 
NT?# DISK 


08282100 
08262110 
08282120 
08782140 
08282150 
08282160 
08282170 
08282180 


08983000 


087863400 
087864000 
08284450 
08285000 
08266000 
08287000 


08288000 


08289000 
08289500 
08290000 
08290500 
08291000 


08291025 
08291050 


08291075 
08291100 
08291125 
08291450 
08291175 
08291200 
08291225 
08291250 
08291275 


08291300 
08291325 
08291350 
08291375 
08291400 
08294425 


08294450 
08291460 


T 


000030 


ADDRESS = 00272 


i 


4+ HAtas 4+ AHHH 


4 


ee 


a4 


a 


000010 
0000:0 
000010 
000030 
000030 
0000:0 
000030 
000010 
000010 


000080 
0000:0 
000030 
000010 
0003%2 
000410 
08287000 
000530 
08266000 
00070 
OOO7TS4 
OO09TE 
0010t2 
004480 
06269000 
001130 
06291025 
0042:0 
08291050 
003330 
0013%2 
004383 
O04Sti 
001682 
0047!2 
0018#4 
0019%4 
0019:2 
08291100 
001982 
002070 
002033 
0022!2 
002450 
O024F4 
08291325 
0024%1 
08286000 
0024!12 


BR a@ aR 


JQ Fe BO De BQ 


OKs 


BAD? 


RACK UP TAPF, CHECK THE LAREL THEN CALL PRINTORPUNCHWATT, 


tPF ocUstaP) < O THEN 
BEGIN COPYISCOPY&(PeXCH)9"4)f32%4098)8 
IF NOT MTXINCT»U,B) THEN 
IF ¢STAS=MULTITABLECUJ#"PBTMCP © OR STA) AND 
MULTITABLECUJ#"PUTMCP ™ THEN 
BEGIN STREAM(BUFF)3 DSt=19 LIT* NOT A BACKUP TaPEe?3 
GO TO SPITS 
ENN 


FLSE 
IF PRINTORPUNCHWAITC#U, STA&COPYL 30831917] OR M) THEN 
GO TO OK €LSF BEGIN MSt#=43 GO TO BAD END 


FLSF GO TO SPIT? 
FND3 


RACK UP DISK, SET FIRST REFL NUMBER, IF COPTES OR REEL NUMBER 
GIVENes DIAL IN "P" Bite ELSE LEAVE IT OFF TO PRINT ENTIRE 


THING. CHECK FOR THE FILE» THEN CALL PRINTORPUNCHWAIT, 


STREAMC(IT32sP2 Uttar Ul )3 

BEGIN SrtehOc Is DLienr+53 
pSt=x3 DEC? 

END> 


Tt=zP*43 

IF cCOPY OR 1).C€CF)s20 THEN PCDEL) ELSE 
COPYIBCOPY&PCXCHI 398478173 

BUFF YtsBUFF,C15%15)-413 

IF CIT@sOYRECTORYSEARCHC"PRD .U25))50 THEN 

IF CI&SDIRECTORYSEARCHC*PUD %2U25))20 THEN GO TO Ban 

FLSE STA&=STA OR 143 

POMC T+#4])3 

FORGETSPACECI)3 

1F P.62%4) THEN BEGIN MS8e223 GO TO BAD END3 


TF PBCOUNT LSS 1 THEN PBCOUNT!=43 
TF PRINTORPUNCHWAIT¢@U, STA&COPY(30531247) OR M) THEN 
FORGFTSPACECBUFF ) 
FLSE 
REGIN MSte13 
STREAMCMSs X8=#MSe<Oe UtarF PCNUP) THEN TYyNUCU) ELSE U, 
BUFF tsBUFF.CCFI)3 
BEGIN O0S¢#8 LiT™ NULL PBT) 
SypteLOc Us Cltact+X# GO TO DK3 
Syt2S1453 OS%23 CHR GO TO LL} 
DK§ Syt=Syays OS2=4 CHR} 
BUFF isDI3 DyiteDy “4s OSte3 FILL? DItsBUFF3 
LL& DSt=2 LiTeecns 
C1ieClemMS3 GO To LO? GO TO L13 
OSt= 6 LIT"IN USE"3S GO TO L3 
Lt! DSte14 LIT"NO OUTPUT UNIT" GO TO L3 
LO: OSte11 LIT*NOT ON DISK"3 


08291470 
08291475 
08291460 
08291500 
08291750 
08292000 
08292500 
08293000 
08293500 
08294000 
08294500 


08295000 
08295200 
08295600 


08995800 
08296000 


08296160 
08296170 
08296180 
08296190 
08296200 
08796225 
08996250 
08296275 
98296300 


08296325 
08296350 
08996375 
08296400 
08296600 
08296800 
08297000 
08297200 
08997300 
08297400 


08297600 
08298000 
08298200 
08298400 
08298600 
08298800 
08299000 
06299200 
08299400 
08299600 
08999800 
08300000 
08300200 
08300400 
08300600 
08300800 
08301000 


AA AHA aA HAAS 


Aas 


4-4 


AAHAAe HHH 


HH ARAN HS 


AHH AAA Ht tt 


O002TI2 
0027t2 
002752 
002732 
002852 
003131 
0032:3 
003531 
0036132 
004013 
004410 
08293500 
004410 
004410 
OO47?]4 
08295600 
0049t2 
0049%2 
08291750 
004982 
004912 
0049°2 
0049%2 
0049%2 
0049:2 
005012 
0051:0 
005454 
08296250 
0051!2 
0052%2 
0055:0 
005731 
005930 
006431 
006410 
006533 
0067%4 
006830 
08297400 
007310 
007510 
0077!2 
007831 
007833 
0080:0 
0083%1 
O0084i4 
008512 
0086:2 
0087 %4 
008713 
0088!3 
OO89it 
009034 
00914%2 
009313 


Lb t DSt= 2 LIT™)e"3 


END? 
SPT! SPOUTCBUFF 
$ SFT OMYT = NOT ¢DATACOM ANn pCSPO) 


)3 
FNDS 


END OF PR KEYBOARD MESSAGF HANDLER? 


08301200 
08301400 


08301600 
08301650 
08301800 
08302000 


08302500 


a+ 


4~4—-44 


T 


009532 
0096:0 
08299200 
0096:1 
009634 
009631 
009732 
08298600 
0097:2 
08283000 


SiZe= 0098 wORDS 


PRT¢(576) 
PRY ¢576) 


PRT¢577) 


PRT¢577) 


PRT¢600) 


SAVE 


INITIALIZE 
REAL 

ACTDATE 
SAVE 


cCOREND 
REAL 
WEEKDAY 


PROCFOURE INSTIALIZE3 FORWARD} 
ACTDATESINITTALIZE? 
REAL PROCEDURE COREND3 FORWARD: 


WEEKDAYSCOREND? 


PROCEDURE TIMEOUT (B)3 VALUE Bs REAL B42 


TIMEOUT 


STACK¢Fat) = M 
STACK(F42) = H 
STACK(F43) «= C 


BFGIN INTEGFR MeHs C3 


C #XCLOCK/ 360014 
Mec MOD 603% 
He ¢ DIV 603% 
STREAMCHeMeB) 3% 
BFGIN DS « 9 LIT ™ TIME 1S "3% 
SI « LOC Ht DS © 2 DECS DS « 2 DECES 
DS « LIT "es 
ENDS% 


SPOUTCB INX MEMORY(B91))3 
FNDE2 


START OF SAVE SEGMENTS BASE 


START OF SAVE SEGMENTS BASE 


START OF REL SEGMENT? DISK 


08303000 T 0000:0 
ADDRESS # 00640 

08303100 T 000080 

08303200 T 000030 
ADDRESS = 00640 

08303300 T 0000!0 

08305000 T 0000%0 
ADDRESS » 00276 

08306000 T 0000%0 

08307000 T 0000150 

08308000 Tt 0002:0 

08309000 T 000381 

08310000 T 00042 

08311000 T 000533 

08312000 T 000731 

08313000 T 00080 

08314000 T 0008!2 
08311000 

08315000 T 0008:3 

08316000 T 001133 
08306000 


S1ZE* 0013 WORDS 


STACK ¢Fel) 
STACK ¢F 42) 
STACK ¢F43) 
STACK ¢F 44) 
STACKCF 45) 


nn fon on 


<os 


NMG 


PROCEDURE GIMENDATECBReDT)S VALUE BeDTS REAL BeDT3 


08317000 


START OF REL SEGMENTS DISK 


%% PARAMETER USE 1S? 
¥% R=OUTPUT AREA FOR MESSAGE OR DATE 
gXNT=O RECONVERT ACTDATE,WEEKDAY THEN SPOUT TIME MSG 
y% OT>O SPOUT TIME MSG ONLY 
%% NT<O CONVERT MMDDYY USING DT CACTDATE»WEEKDAY NOT CHANGED) 
BEGIN REAL MeDeY¥eNCVeNMGS 


REAL SUBROUTINE DaY3 
RBEGIN#STREAMCMEX¢0 2 Ye0eZe0)3 
BEGIN DJe_L0c X3 DS+24 LIT#000¢0%1,1Y2G2V3D3T4A4 5>”3 
S1*+LO0c X33 STeSIeMs StoeSp+ms 
DieLOC Mi DI+DI463 DS*+2 CHR? 
ENDS 


DAY«P} 
END DAY? 


LABEL DAYS: 
LABEL ON#3% 
IF NOT CNCVecpT>0)) THEN % NOT PRINT ONLY 
BEGIN 
STREAMCDATE*IF (CNMG*DT2f1%31)) THEN DT ELSE DATE Ref YJ)3 
BEGIN Sy « LOC DATES S] # Sy4+33% 
DSe2 OCTS DreDI7163 DS+3 OCT3 
ENDS 


le Y MOD 4 2 O AND Y # O THENS 
BEGIN IF D = 60 THENS 
BEGIN Me23 GO ON ENDS 


IF D0 > 60 THEN D #D=ys% 
ENDS% 


FOR Me? STEP 4% UNTIL 41 DO 
JF DAY2D THEN GO ON; 
OND MeMny} 
DeN=DAY3 
TF Me? THEN PCY@1,M411) ELSE PCY,Me1)3 
PEP6eXr2e 7 eo LOeINVe Date XCHePCDUP),£ 36810] ot+oeo7eRDVaSn TSNI3 
13 PC, DAYS» 4,L00)3 
MeMe43 
END €LSE PCWEEKDAY)3 


STREAMCMe [MJ] ,NMGoNCVeMDY@CACTDATE J +Bo DATE sDWel WEEKDAY) )3 
BEGIN NMG¢eJUMP OUT TO NOMSG)3 
Ste#LOc M3 SyeSy7163 
NCVCSpeSil#23 JUMP OUT TQ NOCNV)3 
DSeWDSI SleSy*63 


NOCNV! DleBs DS#9 LIT" DATE 1S "3 DS#6 CHR} 
OS+5 LIT™DAYs "3 BeDLs NCVCJUMP OUT TO NULCYV)3 
NOMSG! Sy*M3 NMGCO;eBs JUMP OUT TO NULMS)3 


08317100 
08317200 
08317300 
08317400 
08317500 
083;8000 


08318100 
08318200 
08318300 
08318400 
08318500 
08318600 


08348700 
08318800 


08318900 
08319000 
08319700 
08319900 
08320000 
08321000 
08322000 
08323000 


08324000 
08325000 
08326000 


08327000 
08328000 


08329000 
08330000 
08331000 
08332000 
08332100 
08332200 
08332300 
08332400 
08332500 


08333000 
08334000 
08334100 
08334300 
08334500 
08334700 
08334900 
08335000 


T 


000030 


ADDRESS =» 00277 


4454-44-44 


Ath HAHAH HH HHH 


4-44 


44 


+A tt tt st 


a 


0000:0 
0000:0 
0000:0 
000010 
000030 
000030 


000050 
000180 
0002!3 
000611 
000732 
000881 
08318300 
000812 
000813 
08348200 
000910 
000940 
001081 
001183 
001281 
001533 
001681 
001740 
08321000 
001744 
001982 
002083 
08326000 
O022t2 
002510 | 
08325000 
002510 
002640 
003011 
003112 
003393 
003840 
004212 
004383 
004510 
08319900 
004533 
004840 
004984 
004933 
005191 
0051483 
005333 
005611 


NULMS!3 


NULCVS 


Ox1T3 


DAYS: 338 


FNDGS 


DieMDYS 

0Se4 NEC! DS#2 DECS DSe2 DEC} 

NMGCJUMP OUT TO OXITT)3 OyeB3 

SteMDYS S]¢S14+23 

DSe2 CHR? 2¢DSeLIT "/"3 DSe2 CHR)3 

OSt22 LyT"™9c"3 STssLOc DATE3 

SlteSr+33 OSte5 CHR3 NSte#2 LIT es 

St3s=B3 

3(0D1 ¢ BS DS ¢ FILLS Sy «© S433 B eSTd3y 
ENDS 


IF DT20 THEN 

IF NOT NMG THEN SPOUT¢B INX MEMORY(B#1))3 

PcxrT)! 

" MON®." TUES*,"WEDNES*S” THURS,” FRI.” SATUR, 
: SUN"3 


08335200 
08335400 
08335600 
08335800 
08336000 
08336500 
08337000 
08337500 
08338000 
08339000 


08339500 
08340000 
08340100 
08340200 
08340300 
08341000 


00580 
0058t4 
005930 
0060:2 
006180 
00622 
006331 
006434 
006412 
006610 
08334000 
0066! 
006730 
007;%2 
007333 
007830 
007930 
08318000 
S1ZF2 0080 WORDS 


AAHAH aa 


ee ee 


PRT¢601) = 


STACK (Fel) 
STACK ¢(Fe2) 
STACK¢(F43) 
STACK ¢F 41) 
STACK ¢F 44) 
STACK¢(F 42) 


INE nATEOUT 
OCEDURE SET 


orm 
> >a | 


RFGIN 


ENDSS 


CDATEOUTIISGIMENDATECDATEOUT{+0)#3 ZCHANGE DATE & SPOUT IT 
DATECBUFF)S VALUE BUFFS REAL BUFFS 


08342000 
08343000 


START OF REL SEGMENTS DISK 


REAL DYsMNeYRS INTEGER DEDY? REAL Be T=MN3 


REAL SUBROUTINE C3 
BEGINISTREAM(CeO%Be(B1)3 
BEGINS 
SI] « BF SJ « SI+53 SI « SCH 
L’ IF SC < "0" THENZ 
BEGIN 1F SC # "+" THEN GO TO X3% 
S} + SI#13 GO TO L3% 
FNDSS 


K3 IF SC 2 "0" THENS 
BEGIN TALLY # TALLY413% 
S1 « ST#43 GO TO K ENDS2 


Ol « BI B «+ STs ST + LOC Bs DS «+ WDOS3 
Sl ¢ B’ B «+ TALLYS DI « LOC CES 
SI « SI*Bs pS « B OCT32% 

XSENDIS 


CoP} 
END C3 


Bo « RUFFSY 
MNe©C3 NY¥eC3 YReco3 
BUFF « BUFF, 51581537152 
TF MN > © AND MN € 12 ANDS 
DY > O AND Dy $ 31 ANDS 
YR > O THENS 
REGINSSTREAMCMeMN@1EXe0 pV e0e 7093 
BEGIN DIeLOc X# DS#24 LIT"00060%1,/Y2G2V3D3T4A4 S>"3 
S1*LOc Xp SyeSToMs SyeSpeMs 
NI*L0C M3 Dl«D1+63 DS*2 CHR3 
ENDS 


DYePapY3 
IF YR MOD 4 = O AND MN > 2 ANDCYR MOD 100 # O ORY 
YR MOp 400 «= ©) THEN? 
DY « DY413% 
D « YR MOD 100 x 4O004DY32 
STREAMCDeAC( DATE] 3% 
BEGIN S1 * LOC D3 DS « 8 DEC ENDS 


CHANGEDATECBUFF 32% 
END ELSE SPOUTCRUFF JINX MEMORYLBUFF *1))3 


08344000 


08344100 
08344200 
08345000 
08346000 
08347000 
08348000 
08349000 
08350000 


- 08351000 


08352000 
08353000 


08354000 
08355000 
08356000 
08357000 


08358000 
08358100 


08359000 
08360000 
08361000 
08362000 
08363000 
08364000 
08365000 
08365100 
08365200 
08365300 
08365400 


08366000 
08367000 
08368000 
08369000 
08370000 
08371000 
08372000 


08373000 
08374000 


08375000 


T 
T 


000030 
000030 


ADDRESS = 00280 


T 


AAA AH HHH 


14 


AAMAS HHS 


ee ee | 


000030 


000030 
0001180 
000234 
000234 
000330 
000382 
000441 
000433 
08348000 
000433 
0005114 
000812 
08352000 
000610 
000730 
000733 
000883 
08345000 
0009180 
0009%1 
08344200 
000912 
001133 
001782 
0049814 
00210 
002380 
002430 
002633 
003084 
003112 
0032014 
06365100 
003212 
003312 
003730 
003633 
0040182 
004213 
004333 
08372000 
004482 
oo4si 
08365000 
004883 
08344000 


SIZE= 0049 WORDS 


STACK ¢F 41) 
STACK ¢ Fe?) 
STACK ¢F 43) 
STACK (F 44) 


wan NH: 


a9 O@W 


PROCEDURE CHA 
BF GIN 


END3% 


NGEDATECBUFF)$ VALUE BUFFF REAL BUFFS 
REAL BeCoDoT#% 


SLEEPCETOGLE J] »HQOLOMASK)3 
LOCKTOGCHOLOMASK)3 


B « SPACE(30)932% 
DISKWAIT(*Be*30,D01RECTORYTOP)3 
Nts MCB4115% 

MEBe1] « DATES% 
MeB+4812eXCLOck; 
NISKTOCTsBrls*30eDITRECTORYTOP)3 
IF BUFF#0 THEN 

BEGINS 

DATEQUT (BUFF 3% 

C t= TYPEDSPACECS»MAINTBUFFAREAV) 3% 
MrC Jte M(Ce2)s= O8% 

MeC+3]9= 03% 


08376000 


START OF REL SEGMENTS DISK 


£1679 


STREAMCDATE oAt=c+4)3 BEGIN STteLOC DATES OSt=8 OCTS FNDSS 


LINKUPC175C)3% 
ENDIS 


SLEEPCETI]+1OMASK)3% 
FORGE TSPACE(B)3% 
UNLOCKTOGCHOLDMASK)3 


08377000 


08378000 
08379000 


08380000 
08381000 
08381100 
08383000 
08383100 
08384000 
08384100 
08364200 
08385000 
08385100 
08385200 
08385300 
08385400 


08385500 
08385600 


08386000 
08387000 
08388000 


08389000 


T 000080 
ADDRESS = 00282 
T 000030 


000080 
0002t2 
08379000 
000680 
000831 
001080 
001230 
001480 
001610 
O0¢bit 
001930 
0019%2 
0020t2 
002283 
002680 
002610 
08385400 
003081 
0034%1 
08384200 
T 0034%1 
T 003233 
T 003382 
06388000 
T 003720 
08377000 
SIZE® 0038 WORDS 


SE Le ee 


+4 


PRT¢602) 


STACK¢(Fe1) 
STACK¢F 41) 


STACK¢F 42) 
STACK(F 43) 
PRT¢171) = 


PRTC171) = 


PROCEDURE SETIMECRUFFI$ VALUF BUFFs REAL RUFFSS 


08390000 


START OF REL SEGMENTS DISK 


BEGIN REAL BaBUFF,T#Y 


REAL [eR3% 


LABEL EXIT#& 
REAL CLOCK#XCLOCK;2% 


INTEGER CLOK=ECLOCK33% 


T © 432 
STREAMCBeTeLTJ)3% 
REGIN St « B3% 
Li IF SC = " " THEN 
BEGIN SI «+ Sy4#43 60 TO L ENDSS 


IF SC < "0" THEN GO TO X3% 
K% IF SC 2 "0" THENS 
BFGIN SY «© Sy443 TALLY © TALLY413% 
GO TO K ENDS 


Bo« TALLYS SY ¢ StsBs DS « B OCTIS 
xt% 
FND 3% 


BUFF ¢« BUFF,F15815)"™133% 
1F T 2 0 AND T DIV 100 < 24 AND T MOD 100 « 60 THENZ 
BEGIN R s= TYPEDSPACECS»MAINTBUFFAREAV) 32 
MER+2yt= XCLOCK?% 
CLcKts ¢T DTV 100 x 60 + T MOD 100)x36003% 
CLOCK « (CLOCK OR @©77)413% 
TIMEOUT (BUFF D382 
MCR) 8s MC R+3}ia O8% 
STREAMC(DATE ,AteR+4)3% 
BEGIN Sytsl.oc DATES OS#=#8B OCTS ENDS% 


LINKUPC17eR) 3% 
GO TO EXITs3% 
END3% 


SPOUTCBUFF INX MEMORYSBUFF™1))3 


FXITSS 


08391000 


08392000 


08393000 
08394000 


08395000 


08396000 
08397000 
08398000 
08399000 
08400000 


08401000 
08402000 
08403000 
08404000 


08405000 
08406000 
08407000 


08408000 
08409000 
08410000 
08410100 
08410200 
084141000 
08412000 
08412100 
08412200 
08412300 


08412400 
08413000 
06414000 


08415000 
08416000 
08417000 


T 


000010 


ADORESS = 00284 


bi 


ANS AHH Os 


AHHAMA AHO HS 


~a44 


T 
T 
T 


000030 


000080 


000030 


~ 000020 


000080 


000083 
000183 
000233 
000310 
0003%2 
08400000 
000480 
000413 
000534 
000533 
08403000 
000610 
000784 
000784 
08398000 
000712 
000981 
001340 
003533 
004783 
002180 
002283 
002382 
002683 
002811 
08442300 
002910 
003040 
003210 
06410000 
003210 
0035130 
003510 
08391000 


SIZE* 0036 WORDS 


PRT(603) = 


STACK ¢(F 42) 
STACK¢F 43) 
STACK¢F 44) 
STACK ¢F 45) 


STACK ¢F +6) 


REAL PROCFOURF FORMESSCBUFF 013 


FORMESS 


BEGHN REAL RoHeUeMd3 


AGAIN 


EXIT! 


INTEGER Y3 


LABEL AGAINsEXI Te aAWwAyY; 
M1 S=MPRUFF.£15815)=2)3 
STREAMCBUFFE)3 
RFGIN SI&=xBUFF3 

Li TF Sc="™ * THEN BEGIN SI3zS1413 GO TO L END3 


BUFF &sS73 


FNDS 


BUFF aP3 


VALUE BUFF .H13 


Ut=sFORMESSteUNT TING TINUsBUFF D3 
IF US31 THEN REGIN SLEEPCETOGLE),STATUSMASK)3 
IF LABELTABLELU] «< 0 THENS 
BEGIN STREAMCAt=TINUCUJsBIsB2=SPACE(5) 93 
* LOC A’ Sy « ST + 53 OS ¢ 3 CHREY 
DSte2auyT" IN USECTO BE READIED) «3 


ENDS 


ENDS 


tF NOT Hi 


BEGIN Sy 


ENDs% 


REAL RUFF »H13 


SAVEWORD tx SAVEWORD AND NOT TWOCUD3 


SPOUT(B): 


IF Hi THEN GO AWAY ELSE GO TO EXIT3 


LABFLTABLEFU]%=@;14R8H1012471193 


MULTITABLErU] 
I « TWOCU)3% 


IF Hi THEN BtsNOT 0 ELSE 
BEGIN BitsNOT [3 wix]tzo3 


+ 03% 


IF Uto3 THEN H!tSP(.READERA)3 
IF Us24 THEN HisPC,READERB)3 
IF H#0 THEN 


BEGIN UNITCODFLU* 23} 8e=03 
tF C*H),f£CFI#0 THEN 


BEGIN FORGETSPACE( *H#=2)3 


ENNs 


ENN} 


END} 


READY « READY AND B OR [3% 
RRRMECH « RRRMECW AND B OR 133% 
SAVEWORD « SAVEWORD AND B OR 7332 


THEN 


MrH]!203 


START OF REL SEGMF 


08438000 
NT$ DISK 


08418500 


08438700 


08419000 
06419100 
08419200 
06419300 
06419400 


08449500 
08419600 


08449700 
08420000 
08421000 
08422000 
08424000 
08425000 
06426000 
08427000 


08497100 
08428000 
08429000 
08429500 


08430000 
08431000 
08432000 
08433000 
08434000 
08434100 
08434200 
08434300 
08434400 
08434500 
08434600 
08434700 
08434800 


08434900 
08434950 
08435000 
08436000 
08437000 
08437050 


08437100 


T 


000030 


ADDRESS = 00266 


T 


Oe ie ie i 


a 


1 1 


Os tt 


~ 4 


ie i 


— 


000030 


0000!0 


000010 
000010 
000410 
000510 
00051%4 
08419400 
0006!14 
000612 
08439300 
000613 
0007 %4 
000932 
001294 
001381 
001730 
004783 
002130 
08425000 
002184 
002331 
002412 
002533 
084294000 
0025383 
0028:0 
002984 
0030%2 
0032t14 
003530 
003780 
003910 
003933 
004231 
004383 
004533 
00471!4 
08434600 
004711 
08434400 
O0O47?Y 
08434000 
OO0OaTEY 
004910 
0050%3 
0052t2 
08421000 
005232 


RFGIN IF J GTR 31 THEN 
REGIN STREAMCBUFF,Bi=Bs=SPACF(5))3 
BEGIN DSis10 LITWINV KBD RY®3 
SytsBuFFs OSt23 CHR; 
DStaLrT tes 
ENDS 


SPOUT(B |;NX M1i)3 
END3 


STREAMCOK350,BUFF3 )3 
REGIN SYTisBUFF} 
3C1F Sc=" * THEN JUMP OUTS 
IF SCe"s" THEN JUMP OUTS 
IF SCa™"e" THEN JUMP OUT TO L33 
Syp2:aSyad)? 
Lit TF Sc” * THEN 
L2t REGIN SytsSy413 GO TO Ld ENDS 


IF Scs"," THEN GO TO L323 

BUFF SsSy3 

IF Sc#™e" THEN TALLY =43 
L3? OKSsTALLY$ 


ENN 

RUFF &sP3 

IF P THEN GO AGAIN: 
AWAY? FORME SSise13 


FNDS 


T%=SPaAce¢30)3 
DISKWAITC@1,30¢NTRECTORYTOP=SYSNO)3 
MEo1429)%2SAVEWORD: 

DISKWATTC ITr,30eNIRECTORYTOP#SYSNO)3 
FORGETSPACECI)3 

END: 


%146” 
%146% 
¥146= 
%146= 
2146" 


08437150 
08437200 
08437250 
08437300 
08437350 
08437400 


08437450 
08437500 


08437550 
08437600 
08437650 
08437700 
08437750 
08437800 
08437650 
08437900 


08437950 
08438000 
08438050 
08438100 
08438150 


08436200 
08438250 
08438300 
08438350 


08438400 
08438410 
08438420 
08438430 
08438440 
08438500 


i | 


~AHoaAAwHss 


+aAAHS 


i 


ANA AN 


005380 
0054114 
005713 
005984 
005913 
006084 
08437250 
006032 
006284 
08437200 
006231 
006382 
006383 
006540 
006610 
006710 
006782 
006810 
08437900 
006832 
006984 
006932 
007091 
007082 
08437600 
007083 
OO7184 
007210 
007310 
08437150 
007380 
OO75#4 
OO77HY 
007931 
008110 
008113 
08416500 


S1ZeE= 0083 WORDS 


PRT(604) = 


PRT(605) = 


STACK¢F@=1) 
STACK¢Fel) 
STACK¢F 42) 
STACK¢F 43) 


STACK¢F 44) 
STACK¢F45) 


STACK (F +6) 
STACK (F 47) 


PROCEDURE SUSTATUS(AsDDD»B)3 VALUE AeDDD,BE 


SUSTATUS 
FORWARD} 
PROCEDURE OUTPUTLABEL(B)s VALUF Bs REAL BI 
OUTPUTLABEL 
BEGIN RFAL RBUSERo~UsT,AS% 
az BU 
a U 
a T 
a A 
REAL GeQ3% 
2 G 
= @ 
REAL TUSTAr TEMP; 
=e TUSTA 
= TEMP 


BOOLEAN SCRTOG3 


STACK¢F 410) = SCRT0G 


LABFL FXIT#& 
SUBROUTINE DOITT#S# 
BEGINS STREAMCAgTINUCUJ8BI5E 


REAL A»pB3 


ARRAY 


BEGIN ST « LOC As’ Sy © ST4+53 DS © LIT M34 
DS « 3 CHR# OS ¢ LIT " "$3 A © DI ENDSS 


A « P3 T « LABELTABLECUJ32 


DNOrs* 


Dre)js 
START OF 


START OF 


IF U LSS 146 THEN TEMPtsPRNTABLE(CU],£30318)3 


IF T80 THEN 


STREAM(BRieTEMPevie(U LSS 16)°A)3 


REGIN S1tebLoc VsSyseSre473 


1F SC NEQ@ “O" THEN BEGIN S{tsLOC BsnSte5NEC ENDS 


DSte9LIT* SCRATCH*”™ END 


ELSE IF T = ©4114 OR T = 0244 THENS 


BEGYN 


STRFAMCSAViasCCTWOCU) AND SAVEWORD) NEO 0),A)3 


BEGIN 


‘NStslOLIT*NOT READYe"3 
SAVCDIt=DI 713 DS&zBLIT*C SAVED) +")3 


FND 
END 


ELSE IF ABS¢T)#@314 THEN 


STREAM(BisxTEMPeVizcU LSS 16)0A)3 


BEGIN SytsLoc V3 SytaSye73 


IF SC NE@ "0" THEN BEGIN SIteL0C BsOSte5DEC END? 


OStaiy LIT * UNLABELED« "3 


END 


ELSE BEGINS 
STREAMC(CK&2T<03 TEMP, 


Viwrll<1 6s 


A)3 


BEGIN V¢eST22LO0c TEMP3 pSte5 pecs pStabit™ *)3 
Clt=Cl+K3 GO TO LABS 


08438900 


REL SEGMFNT$ OYFSK 


08438910 
08439000 


REL SEGMFNTS DISK 


08440000 


08441000 


08441050 


08444100 


08442000 
08443000 
08444000 
08445000 
08446000 


08447000 
08447100 
08448000 
08448050 
08448100 
08448110 


08448150 


08449000 
08450000 
08450100 
08450200 
08450300 
08450400 
08450500 


08450600 


08481000 
08451100 
08451200 
08451210 


08452000 
08452100 


08453000 
08454000 
08454500 
08455000 


T 


000010 


ADDRESS #& 00289 


T 
T 


0000:0 
000030 


ADDRESS & 00289 


T 


cee Mice Meee Ren I Os ee ee ee ee ee 


44-44 


000080 


000010 


000010 


000080 


000080 
000080 
000410 
0002t2 
000382 
08445000 
000433 
0006%1 
000910 
0009183 
004210 
001282 
08448110 
0013:%2 
084481400 
004510 
001712 
00380 
002012 
002012 
002230 
002411 
08450200 
002414 
08450000 
0024%2 
002610 
O02dI1 
002883 
084512140 
002933 
003112 
08451200 
0034%2 
0032t1 
0035%0 
003633 


nSte6 LIT"IN USE"S GO TO L3 
LAB? pSts7 LIT"LABELED"3 


LL’ nstelLiT* 
ENDS 


A « P3% 

IF CNT1 ¢ ROCTABLELU).£886}) # 0 THEN2 

IF JARROWECNT1) # O THENS 

BEGINS STREAMC JeJARROWC(NTLISNT1,A)3&% 
BEGIN 0S « 3 LIT "BY "3 Sy « Sse 

¢ ST413 0S «+ 7 CHR3S 

DS «© LIT "/*3 Sy « Syr4+13% 

DS « 7 CHRS DS « LIT "=F38 

Ste#LOC NT13 DS*#2DEC3) 

DOS « LIT “893 J ¢ DISS 


IF T<O AND (U=23 OR Us24) THEN 


St 


Dyr+D1"33 


FND?% 


A « P3Y 
ENn ELSF ELSE 


BEGIN 
STREAM(St=z0 3 A 


BEGIN 


"3 KiteDI3 


3 


DSeFILL3 


DSts22L1T*BY AUTO LOAD CONTROLS: "3 
S230y3 


ENND3 


At=P}3 
END FLSeF 


IF U GE@ 20 AND U LE@ 22 THEN 


IF LABELTARLELUI,£1%5)2821 THEN 


BEGIN STREAM( 
BEGIN 


SisOra); 


NnStsi3 LIT "BY SCHEDULED '3 
NSts13 LiT *PRNPBT/DISK: "3 


St 
END? 


AtsP3 
ENn: 


2013 


STREAMC S*#OtKeMULTITABLECUJsT»#ReRDCTABLELU), 


AeP} 


1F U232 THeN IF cIpDROWCU 
STRFAMCDKeCIDTABLECU 


Fi4t1O] NeROCTABLE (UI, £24817] eC*#RDCTABLF (UI ,% 


C4yi7JeA)3 BEGIN ST «© LOC K3% 


2(S} « Siti; 


OS « 7 CHR} 


OS « LIT * ")8% 


DS « 3 DECS DS « LIT & "3% 
DS « § DEC3 DS « LIT ™ "3% 
DS «© 2 NEC? DS © LIT MeM3X 


Sep13 
END} 


"32140 THEN 
3222) 2A) 


08455500 
08456000 
08457000 
08458000 


08459000 
08460000 
08461000 
08462000 
08463000 
08464000 
08465000 
08466000 
08467000 
08468000 
08468500 
08469000 


08470000 
08471000 


08471010 
08471020 
08471030 
084710460 
08471050 
08471060 
08471070 


08471080 
08471090 


08471100 
08471105 
08471110 
08471120 
06474130 
06471140 
08471150 
08471160 


08471170 
08471180 


08472000 
08473000 
08474000 
08475000 
08476000 
08477000 
08478000 
08478500 
08478600 


08478700 
08478800 
08478900 


AA HAHAHA HT AHHH Ot Hot OCA CA AH A CO 


1-4-4 


0037132 
003813 
004010 
004033 
08454500 
0041340 
004112 
0043%2 
004510 
O047%4 
0048S 
004883 
004982 
00501 
005013 
005132 
005210 
08463000 
0052%1 
005283 
08462000 
005311 
005652 
005740 
005611 
005831 
006491 
006132 
08471040 
006133 
0062%1 
08471020 
006211 
006482 
006682 
006814 
0068!4 
OO70#4 
0072:1 
0072:2 
08471120 
007233 
007331 
06471110 
0073" 
007570 
007730 
007832 
0060:0 
0060:3 
008112 
008241 
0082%2 
08474000 
008233 
0083514 
0086!0 


$ SET OMIT 


$ POP OMIT 
$ SET OMIT 


NOTCPACKETS) 


PACKETS 


DS?:=5 Lit “sPKT 


bale 


SleLOC DK: S]#Sj4+i3 


NnSe?f CHR} 
FNn3 


ENN3 


0 


POUTCB NX TUSTA)3 
« OF% 


TUSTACMEB,C15815)"2]; 
Tr CU ¢ UNTTINCTINUsR))S PSEUDOMAXT 


RFGIN B « B, 


IF CU OR 19319 THEN SUSTATUS(B INX TUSTA» OU) ELSE 


DOTTIE 


rid¢15]"13% 


GO TO EXIT3% 


END? X 


$ SET oMtT = SHARFEDISK 
SCRTOG « U = PSEUDOMAXT + 43 


$ POP OMIT 


$ SET OMIT = NOTCSHAREDISK) 
STREAM(CAGO2B) 5S 

REGIN SI ¢ BS 

Ls IF Sc = " ™ THEN 


REGIN St © SI+13 


THEN 


GO TO L END33 


DI « LOC A$ DI © DY+6s NS «© 2 CHRIS 


ENDS 


Q + P$ Be R,f153 
FOR U « O STFP 1 


tr TINUCUILL 


{5]"13% 
UNTtL PSEUDOMAXT pO 
30°12) = Q THEN 


IF ¢€G@ © LABELTARLELU1)#0 AND G#@114 AND G6#89214 
AND NOT SCRTOG OR G#0 AND SCRTOG THEN 
BEGIN JF B = O THEN B ¢ SPACEC10)3% 

DOTTFY 


FND# 2 


IF B # O THENS 


BEGINS STREAMCQsR)3% 


END3& 


FXIT? FND3% 


BEGIN 0S « 6 LIT * NULL, "32 


St « Loc Q3 S] « SJ] +63 


pS « fF LIT ™ TABLE# "3% 


ENDs&% 


SPOUTCB INX TUSTA)3 


DS « 2 CHRss 


08479000 
08479100 
08479409 
08479110 
08479411 
08479199 
08479300 
08479400 
08479500 


06479600 


08480000 
08481000 
08482000 


08482050 
08483000 
08484000 
08484500 
08485000 
08486000 
08487000 


08487099 
08487100 
08487101 
08487199 
08488000 
08489000 
98490000 
08491000 


Se 


+ 


4a+4-4 


ee ee | 


08492000 T 
08493000 T 


08494000 
08495000 
08496000 
08497000 
08497100 
08498000 
08499000 
08500000 


08501000 
08502000 
08503000 
08504000 
08505000 
08506000 


08507000 
08508000 


08509000 


Aas HHH HHH 


~4-41 


0088:3 
0088'3 


008980 
008950 
0090!0 
009070 
009010 
009032 
009033 
08479000 
009430 
08453000 
009410 
009233 
0093%2 
08444000 
009383 
009832 
010033 
010320 
010682 
0106830 
0408:2 
08484000 
010832 
01908:2 
O11Oti 
011081 
011034 
011182 
011183 
011231 
08491000 
011233 
0113%2 
08489000 
011353 
011630 
0411720 
011852 
012230 
012483 
0128:3 
013010 
08498000 
013231 
013330 
0134%2 
0135%2 
013641 
01372 
08503000 
043783 
013932 
08502000 
013982 
08440000 


S1ZFe 0140 WORDS 


PRT(606) = 


STACK¢Fe1) 
STACK(F 42) 
STACK¢(F 43) 
STACK¢(F 44) 
STACK ¢(F 45) 
STACK¢(F +6) 
STACK(F 47) 


PROCEDURE TIMEUSENDCB® X23 

TIMFUSED 

VALUE B, X$ 

RE At, By, X} 
. BEGrN JNTEGEFR Ts He Ms Sp» CPTs OTs ET 
« T 
e H 
= M 
= § 
= CPT 
z {OT 
2 ET 


£ SFT OMIT = NOTCPACKETS) 
NEFFINE UNYTTNO = PSEUNOMIX(XI#3 
$ POP OMT 
REAL, SUBROUTINE CONVERTIMES 
BEGIN S « T=60x(T « T DIV 6933 
Mie T#60x(H « T OPV 60)3 
STREAMCReO® AefH))3 
BEGIN NI*LOC RS DreO14+23 SleA3 


CONVERTIME «© POLISH 
END; 


T © JARI X,31+PROCTIMEEXI3 

$ SET OMTPT = NEWLOGGING 
IF XmPOMIX OR X=PqMIX THEN 

$ POP oMm{T 

$ SET oMET = NOTCNEWLOGGING) 
T « T+CLOCK+PCRTR)3 
T ¢ T4603 CPT © CONVERTIMES 
T  JARCXs4)4+10TIMELXI3 
WHILE T<O pO T © T+CLOCK4+PCRTR)3 
T © T/603 JOT © CONVERTIMEF? 


08525000 


START OF REL SEGMENTS DISK 


3¢0S¢2 DEC) END; 


T © COCLOCK+EPCRTIR)/60)"NFOLCX™1)*NDX#2),.F1817)8 


FT «© CONVFERTIME: 

STREAM( Je JARROWELX) eX, Te (CPTI.B)3 

REGIN DS#19 LIT ™ TIME FOR “3 STeds 
SpeSp4+13 OSeLIT "/"3 NSe7 CHR3 


Sre+Sy+i# O05+7 CHR 
OSeLIT%a3 


ST*#LOC X3 DSe2 DEC XeDI3 OLleDI=23 DSeFILL3 
Dy*Xs DSeB LT * 7St CPa"s SyelT$ SpoeS1423 


3(DSeLIT "§"3 DSed CHR)3 


XeDIs Dept 93 HnSe8 FILL3 Dtex3 


OSe5 LIT “es yOurs SlteSya2h 
3¢OSeLIT "83 DS¢2 CHR)3 


XeNEs DrleDI1"9s nSe8 FILLS Dlex3 


NSe3 LIT * IN"3 SyoSp423 


3CDSeLIT "8"3 DSe2 CHRIS DSeL tT tem 


DreDy"108 DSe8 FILL 
END; 


SPOUTER¢B INX MEMORYrBei]eUNITNOe4)3 


COMMENT MESSAGE PRESENTLY 72 CHARACTERS LONG 


END} 


08576000 
08597000 
08526000 


08528499 
08528500 
08528501 
08529000 
08530000 
08531000 
08532000 
08533000 


08533100 
08533200 


08533400 
08533499 
08533500 
08533501 
08533599 
08533700 
08534000 
08535000 
08536000 
08537000 
08538000 
08538500 
08540000 
08540400 
08540200 
08540300 
08541000 
08542000 
08843000 
08544000 
06544100 
08544200 
08544300 
08544400 
08544500 
08544600 


08544700 
06544800 
08545000 


T 000070 
ADDRESS # 00294 


T 000010 
T 000030 
T 0000:0 


0000:0 
0000:0 
000030 
000030 
0001:0 
0003383 
000612 
000733 
08533000 
000912 
000912 
08530000 
0010:0 
0044:0 
004430 
0045:3 
001533 
001583 
001610 
002032 
002233 
002631 
002912 
0034:0 
0035!2 
003731 
0039%2 
004410 
0042%4 
O0aatt 
0045142 
0046%2 
004723 
0049190 
005010 
005110 
0082:3 
0053%4 
08540100 
0053:2 
0056!3 
005673 
08528000 
S1ZeE= 0057 WORDS 


A4 AA HH AA 


a4 


AAs HHH HHH AAA Ht a ti 


PRT(607) = ANVIL 


STACK¢Fe1) = B 
STACK¢(F41) = U 


STACK¢F42) = 22 


REAL PROCFNURE ANVILC(IL2Z)% VALUE tlheZ* REAL [LeZ3B 


08546000 


START OF REL SEGMFNT$ DISK 


BEGIN RFAL R#Ze-Us413% 


RFAL 7Z3 


LABEL FXIT3 

Z7Z7*=Z} 

NAME TN cCUe77)3 

NAME IN ¢(Ul72Z)3 

IF Us"/ * THEN 

BEGIN USsZ,£152815)3 GO EXIT END ELSE 


IF CU # UNTTINCTINU®B)) S$ PSEUDOMAXT THEN 
REGIN’ 
TF LABELTABLETU) = 0114 OR LABELTABLECU) = @214 THEN 


BEGIN 
STREAMCASSTINUCUJsSAVis(CTWOCU) AND SAVEWORD) # 0 De 


X$a7,7159815)91)3 
BEGIN 
SpieuOc As Sps=S14+53 ONSte3CHR? 
OSseqqL+T* NOT READYe"3 
SAVCOTPaDy"13 OSS=BL ITC SAVED oe") 3 
ENDS 


Ue PSEUDOMAXT + 13 
EN) ELSE 


If LABEL TABLErU) «< 0 THENS 
BEGINFISTREAMCASTINUCUI eo XeZ2, 7152815) 913% 
BEGIN ST « LOC AS SJ] « Sy452% 
DS « 3 CHR? DS « 8 LIT * IN USEe3g 
FNDS% 


U « PSEUDOMAXT + 43 
END3% 


IF U § PSEUDOMAXT THEN 
LABELTABLEFUJ] © CIF IL THEN *PCDUP) ELSE @344)8% 
FXIT: ENDS END? 


08547000 


08547050 


08547100 
08547200 
08547300 
08547400 
08547500 
08547600 


08548000 
08549000 
08550000 
08551000 
08551100 
08551200 
08551300 
08552000 
08553000 
08554000 
08554100 


08555000 
08556000 


08557000 
08558000 
98559000 
08560000 
08561000 


08562000 
08563000 


08564000 
08565000 
08566000 


T 


000030 


ADDRESS = 00296 


T 


— 


444445 


AHAR A HAHA AA 


AHA AH 


44 


4-44 


0000:0 


000010 


0000730 
0000:0 
000184 
000214 
000321 
000410 
08547600 
000830 
0010:3 
0011514 
001382 
0014:0 
0016:2 
001810 
00148:0 
001833 
002032 
002273 
08551300 
002370 
002431 
06551000 
002414 
002533 
002832 
002930 
0030:2 
08559000 
003013 
0032:0 
08558000 
003230 
0032:3 
0036:2 
08549000 
08547000 


SYIZEs 0037 WORDS 


STACK ¢F 49) 
STACK ¢Fe2) 
STACK ¢F 41) 


STACK ¢(F 42) 
STACKCF 43) 


p 


B 
Rcw 


MSCW 


I 


J 
L, 


ROCENURE LOGOUTCA)$ VALUE AS REAL A3 
EGIN Real, RCWs403 

REAL MSCWs=23 

INTEGER JTsRCWe 73 


REA), Jeltte Lage 


LABEL FXITS 
P(0.0eSPACE(335))3 ’ INITIALIZES bt 
IF ¢JssDTRECTORYSEARCHC™SYSTEM a. "L0G 
BEGIN 

STRFAMCL)3 

BEGIN 0S2810 LIT "="NYyLL LOge*® ENDS 


GO TO EXITS 
END$ 


IF LOGFREE GTR O THEN SLEFPCCLOGFREEJ+"0)3 
LOGFREFt=ABSCLOGFREE)3 

& SET OMIT = NOTCSHAREDISK) 
MOVE (300d INX O+L 93 


Mtl410] ¢ GETUSERDISKC#CMrL 48) eM(L48)410))3 % GET XTRA TEN 
% TO MAKE COPY 


DQ REGIN 
NPSKWATT ¢™=L=315300eM( U+10]41)3 
NESKWATT ¢ L434e300eM( L410) 4])2 
END UNTIL Clef410)2M(J48)3 


LOGFREE « MrJd+s013 
Jiay TNX 03 
MCJ}2eMeJ+2) tem(J+3] 8203 
MU( Jet] PSM U4+8)] x63 
MC J+4 7 t="D1SKLOG"3 
ME Je572543 
DISKWAITCJ»30sLOGFREED3 

& SFT OMIT = NOTCSHARFDISK) 
LOGFREFeNARSC(CLOGFREF)3 
PCDrRECTORYSEARCHC™”"SYSTEM “se "LOG 
IF HOLDFREE®O THEN SLEEPCrTOGLE )»HOLDMASK)} 
LOCKTOGCHOLDMASK)3 


DISKWATTC@™Je"*30,DIRECTORYTOP)3 
Pt2eMeJ4+20),68810)34+1) MOD 10003 
MC Ue20]8=C*#PC DUP) &81(8338210)3 
DISKWAYTCUs™30eNTRECTORYTOP); 
UNLOCKTOGCHOLDMASK)3 


STREAM(JeLACTDATE I] ¢D*(1))3 

BEGIN STtensNSi=28 DECIH ta 73S pseu3 
S1#S1+23 pSe4@ CHR} 

ENDS 


FORGETSPACECJ)3 


% LU MUST BE LAST DECLARATION, 


",4))20 THEN 


% SIMPLER 


214) eDELD3 


MCL+4)8=C#PCDUP)IROC1IAZtSIRiC1gsa7s11a0ri284aairays 


08568000 


START OF REL SEGMENT?) DISK 


08568100 


08568125 
08568150 


08568200 


08568300 
08568600 
08568700 
08568800 
08568900 
08569000 


08569100 
08569200 


08569300 
08569400 
08569499 
08569600 
08569700 
08569800 
08569900 
08569910 
08569920 


08570000 
08570300 
08570400 
08570500 
08570600 
08570700 
08570800 
08570849 
08570870 
08570880 
08571000 
08571100 


08571200 
08571300 
08571400 
08571500 
08571600 


08571800 
08571900 
08572000 
08572300 


08572400 
08572500 


T 


0000:0 


ADDRESS s 00298 


T 


T 
T 


i 


AAA HM HHH AA HHH HA 


AAAH Aaa 


4-4 


000070 
0000:0 
000080 


00000 


000070 
0000:0 
000231 
0004:2 
0005:0 
000533 
08569000 
0007:2 
0010:0 
08568800 
0010:0 
0013:0 
0044:0 
0044:0 
0016:0 
0022232 
0022%2 
0026!1 
002933 
08569800 
003341 
0035%14 
003632 
004182 
004571 
OO47tI 
004931 
0050!2 
0050:2 
0051%2 
OO53t1 
005632 
08571100 
0060:0 
006133 
006531 
0068:2 
0070:0 
08571600 
007312 
007432 
007582 
007630 
08571900 
007633 
007730 


MEL4l PeXCLOCK+PCRTR)S 
STREAM(DATE eAeOeReLel 5 


REGIN Ste LOC NATESDIe©LOC AsSDS+8B OCTSSIeLOC AS 
STeSt+33N1*BsDleDpr+13 9563 CHR: END3 


ENTEFRUSFREILEC@ ys *SYSLOG "eLa=1)3 


STREAM(15L)5 


BEGrN DSts?4 LyT***** NEW LOG 


FIle 


IS "sSys=bL0c 


NSt=7 CHRSHSt=8 LAT" /SYSLOGe™ 3 


END$ 


FXYT! 


FND3 


SPOUTEL)? 


IF a THEN KyLLecMSCwW))3 


PeSTiteSyo 43 


08572510 
08572520 


08572530 
08572540 


08572600 
08572700 
08572800 
08572900 
08573000 


08573100 
08573200 
08573300 
08573400 


AAA A 4A AHH 


ass 


008271 
0084:3 


0086t2 
008732 
08572530 
008813 
009130 
0092:0 
009532 
0097:0 
08572800 
0097314 
009731 
0098:2 
010010 
08566100 


StZre 0105 WORDS 


PRT(6410) « 


STACK(F #1) 
STACK CF 41) 
STACK ¢F 42) 
STACK¢F43) 
STACK¢(F 44) 


PROCEDURE SAVETHEUNTT(B23 VALUE BS REAL BSY 


08575000 


START OF REL SEGMENTS DISK 


SAVE THEUNIT 


ee od 


RFGIN REAL AztBeTsUrToMys 


LABEL AGAINs EXIT? 
Mt?smM(B,(15%15)]"2)3 
STREAM(B!)3 
BEGIN S{isB3 
L$ ¥F SC=" " THEN BEGIN SIt2zS]413 GO TO L END: 


tsS 3 
FND3 


Ri=P3 

TtsSPACE(10)3 

TE CUSSUNTTINCGTYNU® AD) GTR 34 THEN 

STREAMCAsT)3 

BEGIN OSte10 LIT"INV KBD SV} 
STtsA3} NSta3 CHR 
DStsLI Tee"; 

FND ELSE 


AGAIN 


BEGIN I © TWOCUD3% 
SLEEP CETOGLEJ»STATUSMASK)3? 
IF LARELTABLECUJ 2 O THENS 
BEGIN LABELTABLECU] «+ 611433 
MULTITABLECUJ*RDCTABLELUJ+«03 
RRRMECH « RRRMECH OR 13% 
READY * READY OR 13% 
SAVEWORD t= SAVEWORD OR 13 
fer EE 
ENDS 


ELSE BEGIN SAVEWORD «+ SAVEWORD OR 13% 
T« " TO BE'S% 
FNDS& 


STREAMCASTINUCUJ] oe To T)3% 
BEGIN 0S « LIT * “3% 
St « LOC AS SI © SI#53 DS + 3 CHRIS 
St ¢ S1423 DS « 6 CHRSY% 
DS « 7 LIT * SAVEDe"3% 
FNDS% 


ENDS 


SPOUTCT JINX M1)3 
STREAMCOKt20,A3)3 
BEGIN S[tsA3 
3¢IF SC#" " THEN JUMP OUTS 
TF SCe"s" THEN JUMP OUT} 
IF SCx"e" THEN JUMP OUT TO L33 


08576000 


08576100 
08577000 
08577100 
08577200 
08577300 


08577400 
08577500 


08577600 
08577700 
08576000 
08578100 
08578200 
08578300 
08578400 
08578500 


08579000 
08580000 
08581000 
08582000 
08582100 
08583000 
08584000 
08584100 
08585000 
08586000 


08587000 
08588000 
08589000 


08590000 
08591000 
08592000 
08593000 
08594000 
08595000 


08596000 


08597000 
08597050 
08597100 
08597150 
08597200 
08597250 


T 


000030 


ADDRESS = 00302 


T 


Ant aH 


AHA HAHA HAH 


aA Aas 4H 


4jA4H45 44 


0000:0 


0000:0 
000030 
0003%2 
000432 
000433 
08577300 
0005:3 
0006:0 
08577200 
0006?4 
0006:3 
000930 
001131 
0042:3 
OO14at4 
001483 
004531 
08578200 
0015t2 
O017t1 
0018:3 
001933 
002132 
0023:3 
002570 
0026i1 
002712 
002851 
08582000 
002831 
003144 
003210 
08587000 
003250 
0033%2 
0034:0 
003433 
003571 
0036:2 
08591000 
003623 
08579000 
003633 
0038:2 
003933 
004030 
oo0a1tt 
004214 


SyTtsSpe1)3 
Ly: IF Sca" " THEN 
L2! REGIN Syt=SI41% GO TO Li ENDS 


1 Sce"," THEN GO TO L23 
At=S]3 
IF Sc#"e"* THEN TALLYt 513 
L33 OK&sTALLY; 
FNND3 


Ag=xP3 
If P THEN GO AGAINS 
TrsSPACEC(30)3 
NTSKWAITC#Te 30 sn IRECTORYTOP=SYSNO)3 
MecT+29]S=SAVEWORD? 
NTSKWAITC Te30snIRECTORYTOP=SyYSNO)3 
FORGFTSPACE(T)3 

FNDSS 


%146= 
¥146= 
%1460 
%146= 
£1460 


08597300 
08597350 
08597400 


08597450 
08597500 
08597550 
08597600 
08597650 


08597700 
08597750 
08597800 
085978610 
08597820 
08597830 
08597640 
08598000 


004321 
0043383 
O044aty 
08597400 
004433 
00452 
0045!3 
004652 
0046:3 
08597100 
004710 
004732 
004831 
0050:2 
0052%2 
005432 
005611 
005710 
08576000 
S1Zes 0059 WORDS 


a4 


AAHsts+4 


ANNA ONASA 


STACK¢F42) = A 
STACK¢F43) = B 


BOOLEAN PROCFDURE WHYSLEEPCMASK)$ VALUE MASKS REAL MASK3 


BEGIN 
REAL As B3 


IF REPLYCPYMEXJeVWY THEN 
BEGIN 
BrsSPACECKEYMSGSZ)3 
DISKWAITC#BekKEYMSGSZ»MESSAGETABLEL2].(22126])3 
STREAM(BaMASK oTizO0s0tz0,Ns=OeAtsAt=SPACE (a) )3 
REGIN 
Stt=sLOc MASK; 
BCIF SC="0" THEN GO TO NEXTS 
IF Sc#VWY THEN 
REGIN 
Nt tsar NSS=3L7T* nS"3 AseDIs GO TO NEXT3 
END: 


TiaSys HrtsLOC Of HIsaNts738 OStecHR; 
SyteLOC OF OpteLOc Ds DlteNhi+63 NSte2DEc3 
Sy]t=B8; 
Rt SytaS 16s DII=07"23 
IF SCs*e" THEN & END OF FIRST PART OF TABLE 
BEGIN 
Syt=T3 GO TO NEXT; 
END} 


IF 2SC NEQ@ DC THEN GO TO R$ 
SpeteS1"6s DLAs OSteL IT $3 OStseCHR? AtseDr3 
NEXTS SypteSpuq 3 
DrssAs OStaLr Tre} 
END STREAM STATEMENTS 


SPOUTCAY3 
FORGETSPACE(B): 
END #2 JF "WY" 


ELSF WHYSLEFPteTRUE3 
END PROCEDURE WHYSLEEPS 


08599000 


START OF REL SEGMENTS DISK 


SiraT3 


08600000 
08601000 


08602000 


- 08603000 


08604000 
08604100 
08605000 
08606000 
08607000 
08608000 
08609000 
08610000 
08611000 
08612000 


08613000 
08614000 
08615000 
08616000 
08617000 
08617500 
08618000 
08618500 


08619000 
08619500 
08670000 
08620500 
08621000 


08621500 
08621600 
08622000 


08622500 
08623000 


T 


0000:0 


ADDRESS = 00304 


T 
T 


AAAAAAH AS AHHH HH AHH A 


44444 


aH 


T 
T 


000030 
000030 


0000:0 
000173 
0002731 
000571 
000834 
O012%1 
0012%1 
0012%2 
0013:2 
001450 
001410 
0015:2 
08610000 
0015%2 
0016:2 
001722 
001733 
001831 
004823 
001833 
001931 
08617500 
0019%14 
002010 
002113 
0022%1 
002320 
08606000 
002331 
002432 
002531 
08603000 
002531 
0026:2 
08600000 


S!ZE= 0027 WORDS 


PRY(611) = 


STACK ¢ Fal) 
STACK ¢F 42) 
STACK ¢F 43) 
STACK¢F 44) 
STACK ¢F 45) 
STACK(F 46) 


PROCENURF CHANGEOPTIONCBUFF RS) 3% 


CHANGFOPTION 


START OF REL SEGME 


aan 8 ea. 


VALUE 


BEGIN RF AI, 


SLEEP 
LOCKT 


BUS «¢« 
NrSKI 


BUFF eRSIREAL RUFF SRS3E 
Be,TsOP»> BUS» MASK, OPTER?3 


CLETOGLE }»HOLDMASK)3 
OGCHOLDMASK); 


BUFF ,.C15%15]"13 B * SPACEC30)3% 
OCT#1*Be™30eDIRFCTORYTOP@SYSNO)$ 


OPTER # SPACECOPTYIONSZ)3 
NYSKWATTC©OPTER»®OPTIONSZ»MEFSSAGETABLELO],£22326])3 
STRFAMCBUFF oe T#OeOPTERe Ref OP ])2% 
BEGIN 
LO? Sye¢BuUuFF3 %535@ 
Lit IF Sc#" " THEN BEGIN SIeSI413 GO TO Lis ENDS ¥535= 
TF See"O* THEN %535- 
Te Sc#"e" THEN 4535= 
BEGIN TALLY#03 TeTALLY$# O1e«LOC T3 25358 
6CIF Scs" © THEN JUMP OUT ELSE 45358 
IF Scate" THEN JUMP OUT ELSE %535= 
IF Sc2"0" THEN JUMP OUT FLSE DS*CHR)3 %535= 
BUFF«SI3 S1eOPTER; ¥535@ 
63(MreLoc T3 ¥535= 
IF 8 SCszD0c THEN JUMP OUT TO L?2 ELSE %535= 


Lot 


L33 


FND3% 


IF Sce™e" THEN JUMP OUT TO LO ELSE TALLY+TALLY41)3 


G9 TO L3? #535- 
IF SC="e™" THEN GO TO LO} 2535 
END ELSE %535« 
TALLY«48 FLSE %535= 
BEGIN Dte*Loc Ts SIeSl+t3 %535¢ 
IF SC<"0" THEN BFGIN SI*SI"13 DSe1 OCT$ END ¥535° 
FLSE BFGIN SyeSI#43 DSe2 OCT$ END3 ¥535= 
TALLY e473 TCTALLY*@ TALLY463)3 £5356 
END: %535= 
Te TALLY? SleLOc Ts DER DSewnS3 45358 
If OP<47 THEN 
BFEGIN#STREAMCA © IF RS THEN * RESET* ELSE ™ SET" 2% 


O+OPTFR INX OP,OP + 47"0P,BUS) 3% 


BEGIN DS «© LIT " "5 Sy «© LOC OP$ OS «. 2 pecs 


pS « LIT * "3 Sy « O8% 


BCIF Sc#O THEN JUMP OUT TO LS DSeCHRIS 


L8 St « LOC AF ST « S1423 DS « 6 CHR3IE 


DS « LyTteM3Z 


08624000 
NT3 DISK 


08625000 
08626000 


08627000 
08628000 


08629000 
08630000 
08631000 
08631100 
08632000 
08633000 
08634000 
08635000 


08636000 
08637000 
08638000 
08639000 
08640000 
08641000 
08642000 
08643000 
08644000 
08645000 
08646000 
08647000 
08648000 


08649000 
08650000 
08651000 


08652000 


08653000 
08654000 


08655600 
08657000 


08658000 
08659000 
08660000 


08661000. 


08662000 
08663000 
08664000 
08665000 


T 


VUVUU VDVVVVVVV VV VOU DUH Ht HH 44 


wv 


av ee +] 


att te te 


0000:0 


0 
ADDRESS = 00305 


0000:0 
0000:0 


0000:0 
0003:0 
08626000 
0006:2 
001082 
OO13t! 
001631 
OO1994 
002033 
0020:3 
002130 
98635000 
002270 
0022:2 
002370 
002333 
0025%14 
0026:2 
00261 
002833 
002934 
0030:2 
0032+4 
003212 
00331 
08638000 
0033%2 
0034;0 
0034t2 
08651000 
0035%2 
08652000 
003631 
003732 
08650000 
0037 %2 
003832 
08633000 
003813 
003982 
004210 
004430 
004530 
004533 
004782 
0048s 


FND3% 


ENDI 


MASKeTWOCOP) 3% 
MrpuS-1),£93913980; 
END3% 


SPOUTCBUS INX MrBUS™1])3 
SLEFPCET],;OMASK)3 
MCBI¢OPTIONe IF RS THEN OPTYON AND NOT MASK ELSE OPTION OR MASKS 
NISKWAITCBe*30,-DIRECTORYTOP@SYSNO)3 
FORGETSPACECOPTER) 3% 
FORGETSPACE(B)3% 
UNLOCKTOGCHOLDMASK)3 


08666000 


08667000 
08667100 
08668000 


08669000 
08670000 
08671000 
08673000 
08674000 
08676000 
08677000 


08678000 


004833 
08661000 
0049130 
005031 
0053%2 
08659000 
005382 
0056%2 
005830 
006111 
006433 
006532 
0066'1 
08677000 
006983 
08626000 
S1ZeE= 0072 WORDS 


a 


Se 


4 


PRT(612) « 


STACK e Fel) 
STACK¢F 42) 
STACK¢F 43) 
STACK ¢(F 44) 
STACK¢F 45) 


TYPOP 


VASE 
TUSTA 
N 

X 
OPTER 


PROCFNURE TYPOPCKTRsP0)3 VALUE KTR»sPOS REAL KTRePO3 


PEGIN REAL VASFeTUSTA® Ns Xs OPTERS 


LABEL, 


INCRS 


REAL, SUBROUTINE SETT: 


REGIN 


STREAMCOPTI=fOPTIONIFOPTERsNoNBStz47"N,VASE DS 


BEGY 


EXIT! 
FNDS 


N 
DNytsnyp+43 


ST*OPTERSNCSpeSy+B TF SCH%e" THEN GO TO EXITSS 


START OF REL SEGME 


RCIF SC<"0" THEN DS*CHR ELSE DSed LIT’ ")30Se2 LIT! "38 


Sy3s0PT; 


If SB THEN TALLY#el FLSE 


SKTP NBS SB 


BEGIN O0S%=3 LIT*NOT"™S TALLYta93 ENDS 


0Se5 LIT® SETe™3% 
DIt=VASE StselLocC NBS3 OS#tsLIT*® "$ DSte2 DECS DStsLIT™ 3 
OPTt=xTALLY3 


SETT¢P3 


END SFTT3 


SLEFPCETOGLE J »HOLDMASK )3 
LOCKTOGCHOLDMASK)3 


TUSTAS HMC (VASES FKTR,G15815]°1)71)3 
OPTER « SPACECOPTYSONSZ)&OPTIONSZ(8336110)3 


NISKWAITC@OPTER* OPTIONSZ» MESSAGE TABLE(O).[22826])3 


1F PO THEN 


REGIN 


STREAM(BUFFISKTR,e PTt=d, 


OPTER, 


Dssenj23 


RFGIN ST*RUFFS63CTF SC=" " THEN SteSted ELSE JUMP OUT TO L)3BL! 
rE SC GEQ "0" THEN GO TO Las 
DreLOc T3 
B8cIF Sce"® * THEN JUMP OUT TO L1 ELSE 

IF Sco." THEN JUMP OUT TO L1 ELSE 


IF SC2"0" THEN JUMP 


DSe1 CHRIS L1t 
TALLY*O3 BUFFeSI$ SIeOPTERS 
63(D]1*LOC T3IF 8 SC¥DC THEN 
BEGIN IF Scatet THEN 


END ELSE JUMP OUT TO Lads 


BEGIN TALLY*#483 JUMP OUT TO L3 END 


OUT TO U1 ELSE 


ELSE TALLY*TALLY+1 


TALLY #483G0 TO L3sLas 


IF SCeae"® THEN BEGIN SI*BUFFIO3CIF SC<"0" THEN SleSrel 


FLSE YUMP 


TF Sc<"O" THEN BEGIN STeSI@15 DSe1 OCT END ELSE 


OUT TO Lad? 


LAs 


DyeLoc TI 


SyeSy4+43 


8679000 
TS DISK 


08680000 


08680500 
08681000 
08681100 
08681200 
08681300 
08682000 
08683000 
08684000 
08684500 
08685000 
08685500 


08686000 
08686500 
08687000 
08688000 


08689000 
08689100 


08689110 
08689200 
08689300 


08689900 
08690000 
08690020 
08690080 
08690090 
08690100 
084690110 
08690120 
08690130 
08690440 
08690150 
08690160 
08690170 
086901860 
08690190 
08690200 
08690210 


08690220 
08690230 


08690240 
08690250 
08690260 


T 


000030 


ADDRESS = 00308 


T 


A454 AHA 


a4 


AAA HAH Host HH HHO 


~- 


4+ 


000030 


000030 
000030 
000110 
000130 
0003%2 
0003%2 
000333 
000533 
000881 
000930 
001030 
08685500 
0011320 
004230 
001313 
001480 
08681300 
001431 
001482 
08681100 
0014183 
001433 
0017383 
08689300 
002131 
002433 
002982. 
003282 
003233 
0033%1 
003433 
003780 
003733 
003810 
0039382 
004083 
004210 
0042%2 
004381 
O044tt 
004433 
08690210 
0045!2 
004533 
08690200 
004732 
004930 
005033 


BEGIN SIe«SI*13 DOSe? OCT END3 


TALLY*#473 TCTALLYe¢TALLY+63)3 
ENn3 


L3: TeTALLYS SteLOc T3 DOlens DS* WHOS? 
FND3 


1F N LSS OPTER,£8:140] THEN PCSETTsDELD3 
SPOUTCVASE INX TUSTA)3 
END FLSE 


BEGIN 
STREAMCKTRE)3 
BEGIN S]%sxKTR$ 
1F Sc="S" THEN TALLY$®1 ELSE 
TF Sc="R™ THEN TALLYS #2 ELSE TALLY#233 
KTRtexTALLY3 
END? 


XieP} Nise73 
INCR: NiaNed3 
IF CCKTR&t=SETT) AND xX) # O THEN 
REGIN SPOUTCVASE INX TUSTA)3 
VASE teSPACE(3)3 
GO TO JNCR3 
ENDS 


IF KTR#O THEN 
TF X#3 THEN 
REGIN STREAMCX82Xx1. VASE)3 
BEGIN DSt342 LIT" ALL OTHERS "3 
X(DSt=4 LITNOT *)3 
DSizd LIT*SET es 
END3 


SPOUTCVASE INX TUSTA)3 
FNO ELSE FORGETSPACECVASE) 


FLSE GO TO INCR3 
ENDS 


FORGETSPACECOPTER) 3% 
UNLOCKTOGCHOLDMASK)3 


ENDS 


08690270 


08690280 
08690290 


08690300 
08690310 


08690400 
08690600 
08690600 


08691000 
08691200 
08691400 
08691600 
08691800 
08692000 
08692200 


08692400 
08692600 
08692800 
08693000 
08693200 
08693400 
08693600 


08693800 
08694000 
08694200 
08694400 
08694600 
08694800 
08695000 


08695200 
08695400 


08695600 
08695800 


08696000 
08696100 


08697000 


AAA AHHH AHHH 


ee ee 


T 


04690260 
0052380 
08690270 
0052%2 
005333 
08690240 
005333 
0054%3 
08690110 
005510 
005831 
006010 
08690090 
006010 
006012 
006112 
00614%3 
006233 
006410 
006484 
08694400 
006432 
0066:0 
006731 
006982 
007433 
0074380 
007412 
08693000 
007482 
007534 
0076%2 
OO7882 
008081 
008483 
00822 
08694400 
0082!3 
0084:2 
08694200 
008541 
008533 
08691000 
008583 
00862 
08696100 
009030 
08680000 


SIZE 0091 WORDS 


STACK ¢F41) 


STACK ¢F=2) 
STACK¢F 42) 
STACK ¢(F 43) 
STACK ¢F 44) 


STACK¢F42) 


HEA 


T 
100 
H 
s) 


I 


$ SET OMIT = NOT(OYSKLOG) 08697099 
% THE FOLLOWING THREE DEFINES MUST FACH BE CHANGED IF THE 08699000 
% DISK ROW SYTZF OF PROD AND PUD FILES 15 TO BE CHANGED, 08699050 

DEFINE PRDROWSZ = 08699100 
300# ¢ %7 328 08699450 
+4 PBDROWSZ 1S THE DISK ROW SIZEse IN SEGMENTS» OF PBD AND 08699200 
% PUD FILES, PBDROWSZ MUST BE A MULTIPLE OF THREE. 08699250 
»PRDRECS = 08699300 
100# ¢ %7328 08699350 
% PBDRECS*PRNROWSZ/3 : NO» OF LOGICAL RECORDS PER ROW, 08699400 
»PRDTOTRECS = 08699450 
2000# & 47329 08699500 
SK PADTOTRECS=PBORECSx20 s NO, OF TOTAL RECORDS PER BACK*@UP FILE, 08699550 
PROCEDURE PRYOCALPHA,POINTER)? VALUE ALPHAS REAL ALPHAsPOINTERS zZP 08700000 
START OF REL SEGMENTS DISK 
% 08700900 
% THIS PROCEDURE HANDLES 10 FOR THE CREATION OF BACK@=UP FILES. FOR 08700940 
% DiSe» JT OBTAINS NEW ROWS AND NEW FILES AS NECESSARY, IF {IT RUNS 08700920 
+4 OUT OF FILES» HEADER(5}.£431] IS SET AND THE JOB TERMINATED, LEAVING 08700930 
4 ONE BLOCK FOR THE LABEL AND OS mESSAGE, 08700940 
% 08700950 
% ALPHA 1S ADDRESS OF TOP {/0 DESCRIPTOR, <O MEANS READ ¥P 08701000 
% POINTFR 1S FIB[14} KP 08702000 
BFGYN NAME HEADERS zP 08703000 

DER 
REAL Tx"?eTODeH» S3 08704000 
INTEGER JYsIOD3 08704100 
LABEL OK3 08704500 
POINTER.CFFI©POINTER INX 723 xP 08705000 
IF CHEADERePOINTER,C3!15])#40 THEN ZZZZPB ON DISK &ZZ2X BP 08706000 
BEGIN 08707000 
HEADER t= (MP C*HEADER)I])3 08707500 
IF HEADER(7) GEQ PBDTOTRECS#=2 THEN & CHECK FOR NFW FILE 08708000 
BEGIN 08708200 
& SFT OMIT = PACKETS 08708400 
IF HEADERL61).6r4226)e"9" THEN 08709000 
$ POP OMIT OMIT 08709200 
IF HFADERE7] GEO PBDTOTRECS THEN PCXIT) ELSE 08709400 
IF HEADER(C5].04%1) THEN GO TO OK ELSE 08709500 
BEGIN STREAMCFYsPRTFPIMIXs3) INX MEMCALPHA®3] INX 4), 08709600 
Fi3tiLijie Ht=HteNABSCSPACE(12)))3 08709800 
BEGIN Sytsrs SytsSter3 087140000 
p$:s24 LIT*TOO MANY BACKUP RECS ON “3 08710200 
OSt=7 CHRS DOStwLIT"/"3 StraeSyoys DStz7 CHR3 08710400 
NStz? LT t ots 08710600 
ENDS 087140800 
HEADER(S5S],Catijiays 08711000 
GO TO OK3 08711200 
END3 08741400 

IF HFADERE 7] GEG PBNTOTRECS THEN ® GET A NEW FILE 


08711600 


ee ee ne ee ee ee i 


~ 


AHN AM HHH HTH Ht OG 


+ 


000010 
000030 


000030 
0000:0 
0000:0 
000030 
0000!0 
0000:0 
0000:0 
0000:0 
0000:0 
000010 
0000:0 
000020 
DDRESS s 
0000:0 
000010 
000030 
000010 
000010 
000010 
000030 
000050 
0000!0 


0000:0 


0000:0 


000030 
000030 
000311 
0005:0 
0005%2 
0007:0 
0009:0 
000932 
000932 
O011!%2 
O01182 
0014s! 
0017%2 
0021%2 
002533 
002631 
0029!2 
003033 
003141 


00312 


08710000 


003482 
003481 
003433 


08709600 


003413 


BEGIN 
IF T2SHEADFRES).6 321) THEN HEADERE5),(3211%=03 
HeSPACE(30)3 S*MrHEADER TNX NOT O]8 
DUSKWALTC@ye 309S)3 
MC H+7 J*HEADERE7]3 
MCH*+5),6294)403 
NISKWAIT(CH,3025)3 
MEH+7 leMPHs9 «03 
MOVE C20 pH+90H410)3 
MCH+5J)e¢eP¢DUP)) OR M3 
HFADER(SJ.¢32t]%s13 BSET CP BK UP TOG 
HEADERE7) te O08 
HEADER( 3] +* XCLOCK + PCRTR)! 
STREAMCONEt1#1»5 Ht #CHEADFRI6)))3 
BEGIN Syts_iOc ONEFs DOS#aB ADD 
Dist*D74+243 2OCNStsB LIT"ONM)S 
FND3 


MEH+7J]¢PBNROWSZ DIV 33 

HEADER(I 9 eMC HF I] 13 

HFADERE IO) eMC H+107«GETUSERDISKC@(PBDROWSZ41))3 

MEHEADER INX NOT 0] t= FUFC@CIF I THEN "PUD ” 
ELSE "PBp ")sHEADER( 6] -H"1)3 

FORGETSPACECH)3 


$ SET OMIT = PACKFTS 


OK 


FILEMESSAGECCIF + THEN *PUD " ELSE 
wPBD “IRHEADFRI6I( 2496124] >» 
"OUT " BHEADER(61£301830818) >» 
O»" 02020» 
(PBDREL OR OPNMESS))3 
END: 


END FLSE 


IF HEADERC7] MON PBDRECS=0 THEN 3GET NEW ROW 

BEGIN HtsSPACEC30)3 SteMrHEADER INX NOT O23 

DISKWAITC™H2300S)3 

HEADER(CO+HEADERLI Jo*PC( DUP) 41 J6 
GETUSERDISKC*CPBDROWSZ44))3 

MOH+9+HE ADERS II IeHEADERIO+HEADERI 9) }3 

MEH+9 J @HEADEREII3 

MCH+7)*HEADERL7)] + PBDROWSZ DIV 33 

DOISKWAIT(C Hse 3005)3 

FORGETSPACE(CH)!} 

END3 


STREAMC ASL eHFADERECHEADER( 9149 4CHEADFER(7)] MON 
PBMRECS)x3eDePOINTER.CCFI"1)3 
BEGIN SteLOc A} DS*#8 DEC END3 


: HEADERE7 JC *PCOUP) 413 
100«@141330100477777; 
END ELSE &% ON TAPE &% 


1TOD+@2143205000000008MLPOINTER INX NOT 4]2384484]3 
TORFOUFSTCMCALPHAJ]sPOINTER INX [ODRALPHAL24t191]> 


zP 


xP 


zP 


zP 
zP 


08711800 
08712000 
08712100 
08712110 
08712120 
08712130 
08742140 
08712150 
08712160 
08712170 
08712200 
08712500 
08713000 
08713250 
08713500 
08743750 
08714000 


08714110 
08714120 
08714130 
08714140 
08714150 
08714170 
08714199 
08714300 
08714310 
08714320 
08714330 
08714340 
08714400 


08714500 


08715000 
08715100 
08715200 
08746000 
08716010 
08716100 
08716110 
08716200 
08736300 
08716500 
08716600 


08716800 
08717000 
08718000 
08720000 


08721000 
08722000 
08723000 


08724000 
08726000 


St tt A Ht 


4 Aad R aes HH 


AAHM HHH HHH 


4a 


44 44-1 


003633 
003633 
004230 
004632 
0048:0 
005033 
0054140 
0055!#1 
005930 
0061%2 
006434 
006710 
0068:2 
00702 
007210 
0072:2 
007412 
08713500 
007433 
007731 
0080%2 
0085314 
008830 
0091442 
009234 
0092%4 
0094:0 
009630 
0098:0 
0099%4 
010191 
08741800 
0101%1 
08708200 
010181 
010980 
011430 
011542 
011683 
042120 
042691 
0129180 
013233 
013410 
013433 
08715100 
013483 
013433 
013884 
0141 '2 
08720000 
O142t1 
014422 
014584 
08707000 
014531 
015031 


( 
MeTJ*¢10D INX ME TJR0[ 26 


MCPO 
12 


“te H LSS O THEN 
BFGIN TERMINATECPiMIX)3 


FND3 


FND PRyO3s 


TERMI NALMESSAGECH)3 


N 
3 


ade 
v0 


=P 


08727000 
08728000 


08728500 
08728600 
08728700 
08728800 


08729000 


0153%1 
015591 
0160:3 
016132 
016233 
016382 
08728600 
T 016382 
08703000 
S1Zes 0165 wORDS 


4a444 4-4 


PRT(613) = 


STACK (CF 41) 
STACK(Fe2) 
STACK¢F 43) 
STACK¢F 44) 
STACK¢(F 45) 
STACK(F +6) 


PROCEDURE TIMFRELAXERCKTRe TYPE »MIX)3% 


08730000 


START OF REL SEGMENT! pySK 


TIMERELAXER 


VALUE KTRsTYPE »MIXjS 
REAL KTR»TYPE»MIX3% 
BEGIN INTEGER BUFF ePRT» [OTe ToP1,1134 

=z BUFF 

a PRT 

a JOT 

2 T 

s PY 

= 11 


LABEL SPIT3% 
DEFINE VCT = 29%» % CHANGE TIME LIMITS 
VXT = 308, % EXTEND TIME LIMITS 
VTL = 31443 ® PRINT TIME LIMITS 
COMMENTS THIJS ROUTINE SHOULD BE BLAMED ON WWF43% 
$ SET OMIT = NOTCPACKETS) 
NEF INE UNTTNO = PSEUNOMYIXEMIXIBS 
$ POP oMyT 
RUFF « KTR,C15215)"132% 
te TYPE NEO VIL THEN BEGING 
STREAMCLOT#O,PRT+OsCONE+03 KTRISE 
REGIN SyTeKTRs TF SCar * THEN BEGIN Li! SteSy413% 
IF Sc=* * THEN GO Li? ENDS 534 


IF Sc="e" THEN BEGIN SyeS]412 GO L53 END %534@ 


1F Sc®"," THEN GO L2' IF SCe"O" THEN GO EXITS 
KTR«S]3 L3% TALLY*TALLY4+13 SpeSypet3 
IF SC2"0" THEN GO L3% SyeKTRi CODE*+TALLY3 
DYeLOC PRTs DSecODE OCTs TALLY+O3% 

LS’ F Sc=" ™ THEN BEGIN L4t SyeSy4i32 
IF SC=" " THEN GO L4 ENDS JF SCH,” THEN GO L2eg 


IF SC3"e" THEN TALLY*13 GO EXIT3& 
L2t SteSr+i3 TF SCa™ * THEN BEGIN L6t SteSi+isg 
1F SCe™ © THEN GO L6 END 3 KTReSI3% 


IF SC#"*#" THEN BEGIN TALLY#13 GO EXIT ENDS% 
IF Sc#*e" THEN BEGIN TALLY«13 GO EXITS ENDS £534" 


IF SC<"0" THEN GO EXITS L7t TALLYeTALLYs13% 
SreSr+#i3 TF SC2n0" THEN GO L73 Die LOC J0T33% 
ST#KTRS CODE* TALLY DSeCODE OCT TALLYe1#% 
EXIT? CODE*+TALLY3% 
ENO STREAMS 


IF NOT P THEN GO SPIT33 
PRT « Px36003 yOT «+ Px36008% 
IF TYPEeVXT THEN BEGIN 
IF PRT#0 THEN BEGINS 
PROCTIMELMIX] © *PCDUP)@PRTS% 
JAREMYX,3) «& *P (DUP) +PRTIS% 
FNORE 


08731000 
08732000 
06733000 


08734000 
08734010 
08734020 
08734030 
08734100 
08734499 
08734500 
08734501 
08735000 
08736000 
08737000 
08738000 
08739000 


08739500 


08740000 
08741000 
08742000 
08743000 
08744000 
08745000 


08746000 
08747000 
08748000 


08749000 
08749500 


08750000 
08751000 
08752000 
08753000 
08754000 


08755000 
08756000 
08757000 
08758000 
08759000 
08760000 
08761000 


T 


000030 


ADDRESS =® 00318 


T 
1 
T 


Ott es st st nt 


Se ie ee ee ee 


Te ee ee Nee ee ee 


000030 
000030 
000030 


000030 
000080 
000080 
000080 
000030 
000010 
000010 
0000:0 
0000!0 
000331 
000432 
00068] 
000731 
08738000 
000830 
08739500 
000930 
0010%2 
0011%4 
001212 
0013%2 
001484 
08744000 
001533 
001633 
001783 
08747000 
001883 
08749000 
001933 
08749500 
002083 
002133 
002310 
0024 
0024t2 
08738000 
0024133 
0025t1 
00271 
002882 
002913 
003133 


00304 


08758000 


1F FOT#O THEN BEGINS 
TOTIMELMIX] © *PCDUPI#;FOTS¥ 


JARIMIXe4] « *PCDUP)+I0T3 
END END ELSE BEGINS 


IF PRT¥0 THEN BEGINS 
PROCTIMEIMIX] © *PCDUPI+JAREMIXe3I]°PRTBY 
JAR(M1X,3] « PRT3S 

ENDS 


IF yOT#O THEN BEGIN? 
LOTTMFEMIX] © *PCDUP)4+JARIMIX*4I°70T3 
JARIMIX,4] « [OTS 
FND END3 


STREAMCTEST©O! XeJARROWEMIXJ oMIXeZePRT#Or LelOT#OeY 
Kt=xTYPEsVXT,TIsTteSPACE(109)3 

BEGIN DSeLIT * "3 ZenSed LIT "PRT "3 TALLYe13& 
1CDSe4 LITMAND "))8 ICOSe*4 LIT "LOT "3S TALLYe193% 
OSe8 LIT "ESTIMATE" ZCICDSeLIT "S938 
DSe#BLIT" CHANGED"3 KCDTeDIN73 DSeBLITMEXTENDED") 3% 
DSeSLIT™ FORMS SteXS SreSt+18 DSe7CHRS Sy#S1413% 
OSeLIT"/™3 DOS*7CHRS DSeLITt=™s SreLOC Z3% 
SyreS1"8s DS+PDECs DSeL Tes TESTeTALLYS 
DreD1I733 OSeFILLs 

FND STREAM#S 


TF P THEN SPOUTFRCOT INX MEBUFF@LJ>UNITNOo1) ELSE 
FORGE TSPACECT)3 
ENDS 


TCT « PRT « =032% 

IF PCJARCMIXs 3} °DUP HeE377777777777 THEN PCDELIELSES 

P1 « (PRT « P DIV 3600)"60x(PRT « PRT DIV 602732 

TF PCJAREMIXe4]°DUP HO 377777777777 THEN PCDEL) ELSES 

If ¢ €7IOT « P DIV 3600)"60x CLOT «+ JOT DIV 60)3% 

STREAMOCXeJARROWEMIXI], MIXePRTePLeI OTs li eBUFF)3 

BFGIN OSes7LIT" TIME LIMITS FOR™3 SypeXs SyoeSy+13 DSe7CHRSE 
DSeLFT"/"3 SpeSy+13 OS#7CHRS DNSeLyTte"s STeLOC MIX) 
OSe2nece MIXeDI3 DOleDr*23 DSeFILL3 DIeMIX3 
DSe1OLIT" ARgEs PRT=*3 Tr SCH*e" THEN 
REGIN SYeS]4163 DS+B8LEIT"NO LIMIT® END ELSE BEGINS 


DSeBDECS DSeLITM8"s DS+2DEC3 BUFFeDIS DleDIi“t13% 
DS*7FILL3 DyeBUFF END$ DSe6LIT"S [OT="™3 JF SCame THEN 


NS*+10LIT*NO LIMIT,«" ELSE BEGIN DS#8DECS OSeLiThs3s8 
DS*2DEC3 OSe2LrTe,e"s DleDle133 OSe*7FILL END? 


FKD STREAM32 
SPIT3% 


SPOUTERCBUFF INX MCBUFFS1]+UNITNO01)3 
END TIMERELAXER:; 


08762000 
08763000 


08764000 
08765000 


08766000 
08767000 
08768000 
08769000 


08770000 
08771000 
08772000 
08773000 


08774000 
08775000 
08776000 
08777000 
08778000 
08779000 
08780000 
08781000 
08782000 
08782500 
08783000 


08784000 
08764100 
08785000 


08786000 
08787000 
08788000 
08789000 
08790000 
08791000 
08792000 
08793000 
08793500 
08794000 
08795000 


08795500 
08796000 


08796500 
08797000 


08797500 
08798000 


08798500 
08799000 


i eee ee 4A4qeHo AHH 44-14 


HARA HHH HS 


4 +44 +41 


4-4-4 


0034!4 
003532 
0037%2 
004010 
08762000 
08757000 
004280 
004331 
0046°2 
004811 
08766000 
0048314 
004982 
005233 
005412 
08770000 
08765000 
0054:2 
005712 
006083 
006213 
0066/1 
006912 
007310 
0075170 
007632 
007733 
007821 
08776000 
00762 
00821 
0063%2 
08736000 
0083!2 
0085%0 
008B7i2 
009282 
009510 
010132 
010410 
0107391 
010930 
011081 
O192e1 
086795000 
011470 
011532 
08795000 
011742 
012030 
08796500 
012191 
08792000 
012182 
012182 
012433 
08733000 


SjZe= 0126 WORDS 


PRT(644) = 


STACK ¢F41) 
STACK ¢F 42) 
STACK ¢F 43) 
STACK ¢(F 43) 


PROCFOURE CHANGFFACTORCBUFFsTF)s VALUE BUFF,TFS REAL BUFFS BOOLFAN TFS 
START OF REL SEGMENT? D1TSK 


CHANGFFACTOR 


BEGIN RFAL FACTOR,SA,T3 


FACTOR 


B 
T 


TEMP 


LABEL TYPEOUTSEXIT? 
BUFF «© (CCBeBUFF).£153157"1&8MrFrPCOUP)=@1jI69898973 
IF TF THEN GO TYPEOUT$ 
STREAMCANS*¢038)3 


RFGIN Ste#Bs DreLOC BS DOS«8L1T*O0000000N?) 
us 1F Sc = ™ @ THEN REGIN SreSye4s GO TO L END 


IF Sc « "0" 
aa $C > won 
SpeSr+t3 

IF St « "0" 
TF Sc < "wg" 


THEN 


INTEGER TEMPaT3 


THEN GO To L113 
THEN GO To L141 


THEN 


BEGIN SteSie1s DieDI=23 


If Sc = "," THEN 
Las If Sc # "," 
Li SyeSt4+13 

IF $c < wor 

IF SC > "9" 

NSeCHRE 

IF Sc 2 "0" 
L3% LFSC. =F 

IF Sc = "ee" 
FRRORtNy*LOC ANS3 


CONVERT? 
FXyTS! 


St*LOCc B3 


END STREAM3 


Pe FACTOR, +¢)3 
If FACTOR < 0 THEN GO To EXITS 
CoRE.C4%14] « FACTOR; 


SLEEP CCTOGLEJ sHOLDMASK)$ LOCKTOGCHOLDMASK)3 


B « SPACE(30)3 
NYSKWAITC*Be*30eDTRECTORYTOP@SYSNO)$3 
MrB+9)] « CORE} 
DrSKWAIT(Be*30eDJRECTORYTOP@™SySNO)3 
FORGETSPACE¢B)!3 

UNLOCKTOGCHOLDMASK 23 


SELECTIONS 


TYPEOUTs 


THEN 


THEN 
THEN 


THEN 
THEN 
THEN 


SKIP 1 DB: 


GO TO ONECHR$ 


G0 
GO 


Go 


DieDiI*23 


TO L2 ELSF GO TO L3} 


To ERRORS 


TQ FRROR? 
To ERROR; 


Sc < "9" THEN DS¢CHR}3 


CONVERTS 
CONVERTS 


OS* 10 SET3 GO TO EXITS: 
SI*#S 1443 DyelLOc ANS$ DSe4 OCT; 


OS¢2 CHR$ FND 


ELSE ONECHR: REGIN SIe#SI"13 NreNl=1s DSel CHR FND} 


% CHANGE FACTOR 


STREAMCTeCFACTORe CORE, £4%14]) DIV 1005 FReCTEMPeFACTOR MOD 100)» 


MXeCTEMP*CORE CCF Jx64xFACTOR/100) pUS*CORE, [FF ]x64, 


£ SET OMIT # NOT WORKSET 
NOSELECTeWKSETNOSELECT> 


£ POP oMmtT 


X749e 
749" 
%749" 
749" 


08800000 


08801000 


08802000 
08802500 
08803000 
08804000 
08805000 
08806000 


08807000 
08808000 
08809000 
08810000 
08810500 
08811000 


08812000 


0881; 3000 
08818000 
08815000 
08816000 
08817000 
088618000 
088619000 
08820000 
08821000 
08822000 
08823000 
08824000 
08825000 


08826000 
088628000 
08829000 
08830000 


08831000 
08832000 
08833000 
06834000 
08835000 
08836000 


08836500 
08837000 
08838000 
08839000 
08839499 
08839500 
08839501 


T 


0000:0 


ADDRESS = 00323 


T 


i | 


44st ts 


oe Bee Bee Bee ee ee 


Ata HI 


oa ovs+1tsa 


000020 


0000!0 
0000:0 
0005414 
000634 
0007%2 
0009%2 
08806000 
001032 
001144 
001210 
001241 
0014330 
001321 
08811000 
001434 
08842000 
001531 
0016%2 
0017%1 
0017%2 
001681 
001910 
001984 
002082 
002131 
002230 
002330 
002410 
002430 
08805000 
0024%1 
002483 
002610 
002783 
08830000 
003283 
003510 
003734 
003981 
00a 1th 
004210 
08836000 
00452 
004613 
004623 
0050t0 
005430 
005430 
005510 


BFGIN 


£ SET OMIT = 


$ POP OMYT 


BU 


FFS Z749= 
NSe9 LIT"™FACTOR = "3 
SteLOC J3 DSe? NEce LeDIs DleDI"?3 NSeFILLS Dyess 
DSeLIT","% HSe2 DECI 
DSe13 LIT*s MAX CORE = "3 DSe7 DEC} 
Tenors DyeDI-73 DSe6 FILL? Died 
NSe7LITMOUSING 3 DSe7 DECS TeDIS DleDI@7s DSe6 FILLIX749® 


Opeayps %749= 
NOT wORKSFT %749= 
NOSELECTCOS#8214 LyYT “",WKSETNOSELFECT™)3 a. 

£749 
NStsL Tes ¥749= 


ENn STREAMS 


EX1T& SPOUT(RUFFD3 
END CHANGFFACTORS$ 


08839600 
08840000 
08841000 
08842000 
08843000 
088644000 
08845000 
08845500 
08845999 
08846000 
08846004 
08646010 
08847000 


08648000 
08849000 


005510 
00551t2 
005730 
00582 
OO059tY 
006132 
006232 
006453 
0065340 
006510 
006713 
006733 
006814 
08840000 
006882 
006913 
06801000 
S1ZEs 0070 WORDS 


AMO VIA VasatawAaan 


44 


PRT(6¢5) = 


STACK EF 41) 
STACK ¢F 42) 
STACK ¢F 43) 


STACK¢F 44) 
STACKCF 45) 
STACK EF +6) 
STACK ¢F 47) 


STACK¢F 410) 
STACK¢(F 411) 
STACK(F412) 


STACK¢F 413) 
STACK ¢F 414) 


STACK (F415) 
STACK ¢F 416) 


PROCEDURE SHEETNIONLERCBUFFs» TYPE sStpnds VALUE BUFF» TYPE sSID3 


START OF REL SEGMENTS DYSK 


SHEETDIODLER 


REAL BUFF.» TYPE,SID; 
COMMENT TYPE = 6! PS == CHANGE PRIORITY OF JOB IN SCHEDULE 


= 8! XS == EXECUTE JOB IN SCHEDULE CFORCE SELECTION) 
=e 7% €S == ELIMINATE JOB FROM SCHEDULE ¢FORCE SELECTION» 


THEN "DS*)5 
= 51 TS == TYPE OUT SCHEDULES 
BEGIN RerAL JOD» T»PRIORITY$ 
10n 
T 
PRIORY TY 
INTEGER LEVEL »NEXTLINKe THTISLINK es LASTLINKS 
LEVEL 
NEXTLINK 


~ THISLENK 


LASTLINK 


ES 

EM 

EH 

$ SET OMIT = NOTCDATACOM ) | 

BOOLEAN LASTPASSEDSATLEASTONE; 

LASTPASSER 

ATLEASTONE 
ARRAY SC*)sDLNK(#]5 


INTEGER ESsEMeEHS DEFINE ET = EH#) 


S 
DUNK 
$ SET omIT = NOTCPACKETS) 
DEFINE UNTTNO #® Sf233,0986)#3 & ORIGINATING UNIT 
$ POP oMrT 
LABEL CONTINUE »Ci»READINO GNX oTSeTSleTS2¢ 
XSFSeESLLePSoPS1oPSoeSPyTPEXIT? 
SUBROUTINE GFINEXTS & READS IN NEXT JOB SHEET ENTRY 
BFGIN 
CONTINUE? LASTLINK ¢ THISLINKS 
IF CTHISLINK*NEXTLINK) # 0 THEN GO TO READIN3 
Cy! IF CLEVELeLEVEL4+12 > MIXMAX THEN 
BEGIN LASTPASSED « TRUES GO TO GNX END? 


LASTLINK «© NEXTLINK © 03 


IF CTHISLINK*SHEETCLEVEL),.{CF]) = 0 THEN GO TO ¢143 


READIN: DISKIOCTODe (CS YNX O4)e30eTHISLINK)3 
SLEEPCrIOD]>+1OMASK)3 
NEXTLINK « S[E29)]3 
IF $£0),03686)2@14 THEN GO CONTINUESSZPASS LM ENTRY 
GNX! 


END GETNEXT? 
SLEFPCrTOGLEJ+SHEETMASK)$ LOCKTOG (SHEE TMASK)3 


S i= (MCE TYPENSPACEC31>SHEFTAREAVII) & 30fSIZEI3% 
LEVEL « 743 LASTPASSED « FALSFS 
IF BUFF¢O THEN 
BUFF «© CCT*BUFF 2.615915 9°71 &MPPCDUP) 9197°99999)35 
$ SET OMIT = NOTCDATACOM ) 


08850000 T 000030 
ADDRESS = 00326 
08850100 T 000080 
08850200 T 000010 
08850300 T 000080 
08850400 T 000030 
08850500 T 000010 
08850600 T 0000:0 
08851000 T 000010 
08852000 T 000080 
08852500 T 000010 
08852599 T 000010 
08853000 T 000010 
08854000 T 000010 
08854499 T 000010 
08854500 T 000080 
08854501 T 0000:0 
08855000 T 000010 
08856000 T 000010 
08858000 T 000010 
08859000 T 000410 
08860000 T 000410 
08860500 T 000313 
08861000 T 0003!2 
08862000 T 000514 
08862000 
08863000 T 000730 
08864000 T o008tt 
08865000 T 004083 
08866000 T 001383 
08867000 T 001591 
08868000 T 001631 
08869000 fT 001811 
08870000 T O016I1 
08859000 
08880000 T 001812 
08880000 
08881000 P 002712 
08882000 T 003311 
08882050 T 003310 
08882500 Tt 003313 
08882599 T 003883 


TS: 
TS42 


TS2338 


Ip TYPE=S THEN GO TS$ If TYPE GTR 6 THEN GO XSES3 GO PS} 
ATLEASTONE « FALSE; 
GETNEXT# JF LASTPASSED THEN GO TO TS23 

IF SID NE@ 63 THEN BEGIN TF SC37608%10) NEQ@ SID THEN GO TS} END ELSE 


IF ATLFASTONE THEN BUFF, [CF J¢SPACEC12)3 
ETe¢CCLOCK+PCRTR))/60)°S(23),(24824)3 
FS « ET MOD 603 ET © ET DIV 603 EM «+ FT MOD 603 EH + ET DIV 603 
STREAMCTUCS(23).°984] >BUF eS (23) ,01484]» 
RTt=S8(23).0924) NEQ OrCt=LEVEL»euit=(Sf0) LSS 0) OR 
($£2),SSYSJOBF = LIBMAINCODE) eJot2S(27)> 
JeSrelsINeS(3) (8t10] sFHe EMP ESe AtS( 20] x64e RUFF): & 

BEGIN SI*LOC C8 DS#6 DECS DIeO1 763 OS*5 FILLE DI©BUFFS DLeD] +63 
DSeLyT*t%s Speds SyeSy+is VDSe7 CHR DSeLIT"/"3 SyeStoy3 
NSte7CHRFJICOS@ebL IT” "sSptzLOc JPsSrteSpetsOSte7CHR)3 
DSteLyTtatsSyseLOc 1N3sNS:s2 DEC 

RT¢nS+6 LIT ™ FROM "3 SreLOc TUs DSe2 DECE & 
OSes LIT "4"3 SteLOC BUFS DSe2 pECci)s &% 
NSe7 LIT" IN FORTS STeLOC EHS 
3(DS « LIT"8"s nSe2 DFC)S ESeDIS Die DI"98 DS*8 FILL? 
DI©ESs DS+8 LIT. NEEDS 3 
SpTeLOC AF DSS NECS DSeLIT"e"3 HTeDI"63 ONS|4 FILLS 
FNn STREAM3 


SPOUTFR (BUFF SIF S1D463 THEN UNITNO ELSE 001)3 
te S10 NEO 63 THEN BEGIN TYPE825#G0 EXIT ENDS 


ATLEASTONE+TRUE} 

Gon To TS33 

IF ATLEASTONE THEN GO To EXIT? 

IF SID NE@ 63 THEN TYPES®5 ELSES 

STREAMCBUFFIS OS ¢« 15 LIT * NULL SCHEDULEe"3& ZWE 
SPOUTCRUFFIS GO TO EX{T3 


XSESt GETNEXT3 


1F LASTPASSFO THEN BrGIN IF BUFF#0 THEN SPOUTCBUFF)5$ 
GO TO EX1Tés ENDS 


IF Sf31,f8810]4S1D THEN GO TO XSES3 


$ SFT oM1T = NOTCDATACOM ) 


PS: 


Sr2),Cit2}isciF TYPE=8 THEN 2 ELSE 3)3 & 7ESeB=XS 
DISKIOCIOD®S INX 081530, THISLINK)S SLEEPCEIODIJs1OMASK)? 
Go To SPIT3 
STREAMCPRIORITY!T)# 
BFGIN SleT3 
Ne IF SC#%e" THEN GO TO X3 

IF SC<"O" THEN BEGIN SIeSt+13 GO TO NS ENDS TeS]3 


Kt IF SC2"0" THEN JF Scs"9" THEN 
RFEGIN TALLY*TALLY4#15 SteSt413 G60 TO K END? 


SleT# N1eLOC PRIORITY TeTALLYS DSeT OCT$ GO TO Z3 
Xs Die*LOC PRIORITY? SKIP DAs DSe14 SETI 
Zt 
END STREAM$ 


Ip CPRIORTTY*P)<O THEN BEGIN SPOUTCBUFFIS GO TO EXIT ENDS 


08883000 
08884000 
08885000 
08885500 


08886000 
08886300 
08886600 
08887000 
088687001 
08887010 
08887100 
08888000 
08889000 
08890000 
08890010 
08890100 
086890200 
08891000 
08892000 
08893000 
08899000 
08900000 


08901000 
08901500 


08902000 
08903000 
08904000 
08904050 
08905000 
08906000 
08910000 
08911000 
08911050 


08912000 
08932099 
08913000 
08915000 
08915100 
08936000 
08917000 
08918000 
08919000 


08920000 
089971000 


08922000 
08923000 
08924000 
08925000 


08926000 


AAH HM HHA HHH HH 


4-4 


—-41 


7a was 


ANH AH HAH HHH HHH 


003613 
004133 
004282 
004530 
08885500 
0048S) 
0052°1 
005531 
006081 
006212 
006531 
006782 
OO71t1 
007283 
007483 
007730 
007810 
006030 
008141 
008213 
0084%3 
0086ti4 
008733 
08888000 
00880 
009230 
08901500 
009432 
0095%1 
009583 
009633 
009833 
010282 
01404:14 
0105:0 
010894 
08941000 
010833 
041013 
041033 
O115¢4 
011992 
012080 
OL12ie1 
012132 
012201 
08949000 
012382 
0124t2 
08921000 
012531 
012613 
012792 
012782 
08947000 
012733 
08926000 


PStt GrITNFXTS TF LASTPASSFN THEN BEGIN SPOUTCBUFF)$ GO TO EXIT END} 


Tr Sr33,f8%10)4S1D THEN GO TO PS43 
* NELINK AND RELINK THIS SHEET FNTRY 

DINK t= £METYPEDSPACEC 34 *SHEETAREAV)I)) & 30CSIZE]3% %167" 

IF NEXTLINK » 0 THEN SHEETCLEVELJe¢CFF) « LASTLINKS 

TF LASTLINK = O THEN BEGIN SHEETCLEVELI,¢°CF]e NEXTLINK3GO PSO END3 


DYSKTOCTOD>e*CGLNK INX O91) e30,LASTLINK)$ SLEEPCLIOD) sTOMASK)S 
DLNKE29) « NEXTLINK3 
DySKTOCTON®+CDLNK INX 0=1)e30,LASTLINKIS SLEEPCEIOD]»1OMASK)S 
PS2: Srel,CCF] + IF (€SE1BJ*PRIORITY) > 32767 THEN 32767 ELSE PRIORITY 
LEVEL © JF PRJORITY > MEXMAX THEN MIXMAX ELSE PRIORITYS 
Ip SHEETTLEVFLI,CCF] # 0 THEN 
BEGIN DISKIOCIODs*COLNK INX O94)+30,SHEETCLEVELI.CFFI)3 
SLEFPCrIOD)s LOMASK)3 
DLNKI 29] *« THISLINK? 
DYSKIOC TON» +COLNK INX O94 )s30,SHEETCLEVELI).CFFI)3 
SLEEPCLIODJ + 1TOMASK)3 
ENN FLSE SHEETCLEVEL) * THISLYINK3 


SHEFTILEVELI, {FFI * THISLINK$ 
$r29} « OF Sf3) + ABSC(Sr3])3 & TO GET SELECTION TO PRINT MESSAGES 
DySKTOCTONe+¢S INX 0”1),30sTHISLINK)3 SLEEPCLIODJ>+IOMASK)3 
FORGETSPACECNLNK)3 
SPrT? Tr BUFFEO THEN 
$ SET OMTT = NOTCPACKETS) 
Ip UNTTNO GEQ 32 THEN 
BFGIN 
MOVE (9s BUFF +1 eBUFF 3 SPOUTER(CBUFFeUNTTNO®64)$ 
END ELSE 


&$ POP OMyT 
FORGE TSPACECRUFF)3 
FXTT# UNLOCK TOGCSHEETMASK)3 


FORGE TSPACECS)3 
te TYPE#S THEN BEGIN KEYBOARDCOUNTER «+ KEYBOARDCOUNTER@43 
SELECTIONS 
KEYROARDCOUNTER « KEYBOARDCOUNTER#]3 
ENDS 


END SHEFTDIDDLERS 


08927000 


08928000 
08999000 
08930000 
08931000 
08932000 


08933000 
08934000 
08935000 
08936000 
08937000 
08938000 
08939000 
08940000 
08941000 
08942000 
08943000 
08944000 


08944500 
08945000 
08946000 
08947000 
08947100 
08947199 
08947200 
08947300 
08947400 
08947500 


08947501 
08947600 
08997000 


08998000 
08998200 
08998400 
08998600 
08998800 


08999000 


aA-+vVHAa 4 


ei ee 


4~a 


AHA 


~4 


At tt at tase 


013140 
08927000 
013422 
0136%2 
0136!%2 
014081 
0143%2 
08932000 
O1a7i4 
015193 
015310 
015791 
0162%4 
016540 
016612 
0470383 
017231 
0173!%2 
0177380 
017832 
98939000 
018131 
018391 
016631 
019032 
019182 
019204 
019at{ 
019404 
049483 
0198383 
08947300 
019873 
019883 
0200180 
08997000 
020332 
02042 
020730 
0208314 
020982 
08998200 
020932 
08851000 


SIZEs 0210 wORDS 


PRT(616) = 


STACK¢Fe 1) 
STACK (CF 42) 
STACK ¢F 43) 
STACKCF eda) 
STACK(F 45) 


$ SET OM1T = NOTCDOCSPO AND DATACOM ) 
S$ SFT OMrT = NOTCH ]SKLOG) 
PROCEDURE WHATINTRNSI 


WHATINTRNSIC 


oon oN it 


$ SET OMIT = NOTCAUXMEM) 

$ SET OMYT = NOT MONYTOR 

$ SET OMyT = NOT AUXMEM 
PROCEDURE FNTRINSICTABLEBUTLDFRCFH)$ VALUE FH3 REAL FHS 


BEGIN 
% WHEN CALLED WITH FH] ¢#1)» TRANSFER TO AUXMEM ONLY 
REAL DISKADDR=41oTa+2rINTLOCat+3eTI7SIZEes¢dsMAXINT@453 
DISKADOR 
T 


INTLOC 
Ti7SI1ZE 
MAXINT 
8 SET OMIT = NOTCAUXMEM) 
PCOs Os On Os 0)3 
IF CTiSFH. CFF JI=O THEN T8=SPaAcE(30)3 
$§ SET OMIT = NOTCAUXMEM) 
DISKWAITC*T» 305 DISKADDRisM([FH FNX 10))3 
MAXINT t= MrT) + 1% 2 NUMBER OF INTRINS{ICS + 1 


TI7S ZF te MET TNX 17),68%10)413 & INTR, #17 SUZE+IWD.FOR DISK.ANDR, 


FORGFTSPACECT)3 


TINTRNSCISPMCINTLOCISGETSPACECMAXINT+ITA7SIZEe INTARRAYAREAVs 142778 
CMAXINT+7175S17E 96883884033 % SPACE FOR INTRINSIC TABLE + INT, #17 


DISKWAITC@=CINTRNSC JINX 0) +MAXINT,DYSKADDOR)} 
MEINTRNSC TNX NOT OJ] t= OF MAXINT te MAXINT "43 
FOR T t= 1 STEP 1 UNTIL MAXINT DO 
INTRNSCOCTISZNABSCCPCePCDUP) DUP), [CBs10)]+INTSIZE) & 
CPCXCH) INX O + DISKADDRI(6921%27))3 


DISKWAITC@CINTLOC SaINTLOCHMAXINT4+2) oC TI7SIZE™1L Ie INTRNSCLI7I],£°6827))9 


INTRNSCP17] 8 CHPCDUP)&INTLOCECTCI]# & MARK PRESENT 


MEINTLOC@1)%208¢Ti 75) ZE9y df CTF IS 2 OUMMY MARKER FOR DUMP/ANALYZE 


DISKADDRi ORL 4sa73133 
INTRNSCr2]8seP(DUP) OR DISKANDRS 


FOR Tt=18 STEP 4 UNTIL 20 nO INTRNSCETJ%=*PCNUP) OR DISKADOR; 


$ SET aMTT = NOTCAUXMEM) 
INTS ZEtECINTRNSCLO) + 3 2 DIV Af 
£ SET OMIT = NOTCPACKETS) 
TS=SPACEC15)$ WHATINTRNSICeT)3 
STREAMCSt=sTenia3)3 
REGIN 
SptsS3 pyptepr+4s & CMBIT IN MC3],06121) 
63c71F Sce”." THEN JUMP OUTS SytaSyot)s SteSy3 
cSytsStois IF SCa",* THEN JUMP OUT)$ 
IF TOGGLE THEN ELSE SpteSs SyteStoy} 


3C1F SCemOw THEN JUMP OUTS TALLYtaTALLY413 SyteStei)3 


SteTALLY3 SytaSyprSs Dy teDlT-S3 OStaS CHR 
FND3 


FORGE TSPACECT)3 
$ POP oMyT 
FND tNTRINStTC TABLE BUILDERS 


CCBUFF)3 VALUF BUFFS REAL BUFFS FORWARDS 
START OF REL SEGMENTS DYSK 


START OF REL SEGMENTS DSK 


08999999 T 0000:0 
09299999 T 000030 
09400000 Tt 00000 
ADORESS & 00333 
09400099 T 0000:0 
09410100 T 000030 
09433590 T 0000:0 
09500000 T 0000:0 
ADDRESS « 00333 
09500500 F 0000:0 
09500510 T 000030 
09801000 T 0000:0 
09501500 T 0000:0 
09504570 T 0000:0 
09505000 T dO0o01%1 
09505100 T 000533 
09505500 T 000533 
09505600 T 000930 
09505700 T 00141:0 
09505750 T 0014180 
09506000 P 001433 
09506100 T 0048:t0 
09506500 T 002030 
09507000 T OOB22t! 
09507500 T 002630 
09508000 T 002780 
09508500 T O029%4 
09508600 T 0034%1 
09508700 T 00382 
09508800 T 0040%2 
09509000 T 0043%2 
09509500 T 0045314 
09510000 T OO047%4 
09510500 T 00521 
09534500 T 005214 
09534999 T 005444 
09535000 T 005421 
09535100 T 005731 
09535200 fr 005631 
09535300 T 0056114 
09535400 T 005833 
09535500 T 006083 
09535600 T 006232 
09835700 T 006312 
09535800 T 0065182 
09535900 T 0067%1 
09535200 
09536000 T 006732 
09836001 T 006881 
09537000 T 006831 
09500500 


S1{ZeEe 0069 WORDS 


PROCEDURE CHANGEINTRINSICFILECBUFF)$ VALUE BUFFS REAL BUFFS 
START OF REL SEGMENTS DISK 


BEGIN REAL ArBoTODs] oJeKoLs3 


REAL FHeTstT# LABEL EXIT#WITHOUTS 


STACK¢F41) = A 
STACK(F42) = B 
STACK¢F43) = 10D 
STACK¢(F 44) = | 
STACK¢(F45) = J 
STACK¢(F+6) = K 
STACK(Fe7) = L 
STACK¢(F 410) = FH 
STACK(F411) © 7 
STACK(F 412) = IT 


REAL SIZ7E=!l+DISKANDR=T,LOczrTeWyeJ3 


STACKeFs4) = SIZE 
STACK¢F4ii) = DISKADDR 
STACK¢F412) = LOC 
STACK¢F+5) = WI 


Boo). EAN SUBROUTINE NULLMIXSS 
BEGIN POLISHC1)3% 


IF 


INTSIZE#0 THEN BEGIN INTSIZE © 03% 
FOR yet STEP 14 UNTIL MIXMAX DOS 
1F JARROWCIJ#0 THENS 
IF NOT CJARC1097-SYSJOBF) THEN % NOT “SYSTEM” JOB 
REGIN PCDEL» O33; J © MEXMAXS ENDSSZ 


TF NOT PCNUP) THEN INTSIZE «+ CINTRNSCLO]+3) DIV 43s 


END? 


NULLMTX «# POLISH3% 
END NULLMIX$% 


SUBROUTINE FORGFTEMS& 
BEGIN SLEEPCLTOGLE ]+STOREMASK)# LOCKTOGCSTOREMASK)$ 


WHILE CK « MELj),rcr1#0 DOg 
BEGIN IF K>9 THEN 


Ip K,£3%12]=@700 THENS 
FORGFETSPACE(L42)3% 
Lo« KI CFIFS 


FND3% 


UNLOCK TOGCSTOREMASK)3 


$ SET OMIT 


= NOTCAUXMEM) 
FORGFETSPACECINTRNSC TNX 02% INTRNSC+O 


END FORGETEMs® 


DEF YNE FRROR = GO TO EXIT#?2 
SLEFP¢rTOGLEJ»+ FREEMASK)3  INTFREE « FALSESS 
T « BUFFS 
NAMEIDCAsT)3 NAMEID(CB,T)3 NAMETDCB,T)3% 
IF CFHPeEDTRECTORYSEARCHC A? Be17) 280 THEN ERROR} 
IF (JeMPFH+4).036%6))#0 THEN 


IF J#DCINTYPE AND J#TSSINTYPE THEN 


RFGIN % DONT ALLOW CI ON KNOWN NON®@INTRINSICS FILE 


09600000 
09601000 


09602000 


09602100 


09603000 
09604000 
09605000 
09606000 
09607000 
09608000 
09611000 


09612000 
09613000 


09614000 
09615000 


09616000 
09617000 


09618000 
09619000 
09620000 
09621000 
09622000 
09623000 


09624000 


09624010 
09624100 
09625000 


09626000 
09630000 
09631000 
09632000 
09633000 
09633100 
09633200 
09633300 


T 


0000:0 


ADDRESS @ 00336 


T 


AnHAA ast 


4+ RAHA 


4441 


a i. | 


0000:0 


0000:0 


0000:0 


000010 
000140 
000171 
000331 
0004:0 
0005:0 
000731 
096141000 
001131 
001434 
09605000 
001434 
0014%2 
09604000 
001483 
0015:0 
09647000 
0020:0 
0023:0 
0023:3 
0025%2 
0027°1 
002812 
09619000 
002940 
09624000 
0032!2 
0032%2 
003430 
09617000 
003510 
0035:0 
004083 
0041:2 
004432 
O0a7I4 
005031 
0052!2 


STREAMCA®BoNTISeBUFF,Fi5ti5)"4)3 
RFGIN DSts?LyiT*# *s Sypt=LOc A3 
SttaSte13 pSse7CHRs NSteL tT*/%3 
SttsSl+13 S37 CHR} 
pSts24 LT NOT AN INTRINSICS FILE os 
FND3 


FORGFETSPACECFH)3 
FORGETSPACECOIRFCTORYSEARCH( A» Be 16) )3 
ERROR} 

ENDS 


tf NOT NULLMIX THEN COMPLEXSLEEPCNULLMIX)3 
07427630 ACCIDENTAL fFNTRY AT NULLMYX 
fF tNTRNSC#0 THEN FORGFTEMS 
$ SET OMYT = SHARFOLSK 
1F MCPFREE@®O THEN SLFEPCLTOGLEJ »MCPMASK)3 
LOCKTOGOMCPMASK)3 


$ POP OMIT 
Tt2zSPACE(30)3 
OKSFGZEROWRITE te TRUES %2048 
DISKWALTC Ts "30°0)3 
11=T+134+5xSYSNO3 
TF CITSEDTRECTORYSEARCHCME TJ »oME14+13916))#40 THEN 
FORGETSPACECIT)3 
Mry)s=2a3 
Mrf+t)t=B} 
DYSKWAYT(T,=30,0)3 
OKSEGZEROWRITE teFALSE3 %204e 
$ SET omtT = SHAREDISK 
UNLOCKTOG¢MCPMASK)5 


$ POP oMyT 
$ SET OMIT = NOTCAUXMEM) 
FORGETSPACEC(T)3 


INTRINSICTABLEBUILDERCFH ACCE I) 
FORGETSPACE (FH) 3 
WHATINTRNSICCBUFF,£15245))3 
STREAMCBSe2BUFF,£15%15J]=1)8 DSts8 LIT" NEW "3 
EXy7T?: SPOUTCBUFF, £13215) =1)3% 
INTFREE « TRUE3S 
END CHANGING INTRINSIC FILES ON USER DISK WITH MANY PRECAUTIONS!S% 


09633400 
09633500 
09633600 
09633700 
09633800 
09633900 


09634000 
09634100 
09634200 
09634300 


09635000 


' 09636000 


09636999 
09637000 
09638000 


09638001 
09639000 
09639001 
09640000 
09641000 
09642000 


09643000. 


09644000 
09645000 
09646000 
0964600} 
09646999 
09647000 


09647001 
09647999 
09648800 
09657000 
09658000 
09659000 
09670000 
09676000 
09677000 
09679000 


0053:0 
00551 
0056:0 
005730 
005732 
0060%3 
09633500 
0061:0 
0061*3 
006382 
006510 
09633300 
0065:0 


Aaa AHH 


Coe | 


0072:0 
0075:0 
007530 
0078%1 
09638000 
008433 
0081°3 
0084:0 
0084'3 
0086!2 
008813 
0093320 
0094} 
009533 
0097:3 
0099%4 
01400:30 
0100:0 
09647000 
0103%2 
0103%2 
010312 
0104%1 
010512 
010631 
010732 
011083 
0113:0 
0414483 
09601000 
S1ZEs 0116 WORDS 


AAMHAAHH AAT HOA 4H tH 


a eee ee 


STACK ¢ Fei) 
STACK(F 42) 
STACK ¢(F 43) 
STACKCF 44) 
STACK¢(F 45) 


“au 8 tt 


ODN 4A® PS 


PROCEDURE CHANGEMCPC(BUFF IS VALUE BUFFS REAL BUFFS 


BEGIN 
REA, 


ASE 


ApReoTs7eBASE 


LABFL FXIT3 
TssRUrF; 
NAMFIDCAeT)3 NAMEIDCBsT)3 NAMEINCBsT)3 
$ SET OMIT = SHARFODISK 
IF MCPFREE=0 THEN SLEEPCTTOGLE],>MCPMASK )3 
LOCKTOGCMCPMASK)5 


$ POP oMYT 
ZteSPACE(30)3 
OKSFGZEROWRITEteTRUES 
DISKWATTC7Z5730,0)3 
BASF i1sz74+1045xSYSNO3 
IF cA FOV MPRASEIT)#4NOT O OR 
«B FQV MPBASF+1))#NOT O THEN 


REGIN 


IF CT&eNPRECTORYSFARCH(A®Be17))20 THEN 
BEGINS 
STREAMCAS=SfA) > Tt=BUFF 6395215) "1)93 
BEGIN DSt=13 LIT"#NO MCP FILE "3SrteasSypteSype 3 
OSt=s7 CHRsIOSteLITt/*s Sy] teSp4 308 8e7 CHR} 
OSeLyT%e™3 
ENDS 


GO TO FXIT3 
END3 


IF ONT1¢M(144],03636])40 THEN IF NTI#MCPTYPE THEN 
BEGIN 2 DONT ALLOW CM ON KNOWN NON@MCP FILE 
STREAMCATS(Al]+TIsBUFF .£15%151°193 
BEGIN DSsseLyT*# #3 Sypteas SpssSyet3 
DSte/CHRs HnSteLITT*/9s SrtaS1413 
DS8s7CHRe OStet2LiT" NOT AN MCPe*3 
ENDS 


FORGETSPACECT)3 
FORGE TSPACECOIRECTORYSEARCH(CAB216))3 
GO TO EXIT3 

END? 


tF MERASE42)°2¢MCPBASE THEN 
FORGETSPACECDIRECTORYSEARCHCMEBASE ] »MPBASE 411016) )3 
MrBASEVIsA3 

MCBASE41)]3eB? 

MEBASE+2] seM(T+1033 


$ SET OMIT = NOTCAUXMEM) 


END$ 


FORGETSPACECT)$ 


09679100 


START OF REL SEGMENT? DISK 


%204= 


09679200 
09679300 


09679400 
09679800 
09679900 
09679999 
09680000 
09680100 


09680404 
09680200 
09680229 
09680300 
09680400 
09680500 
09680600 
09680700 
09680800 
09680900 
09681000 
09681100 
09681200 
09681250 
09681300 


09681400 
09681500 


09681505 
09681510 
09661515 
09681520 
09681525 
09681530 
09661535 


09661540 
09681545 
09681550 
09681555 


09681600 
09681650 
09681700 
09681800 
09661900 
09681909 
09682000 
09682100 


T 000030 
ADDRESS = 00340 
T 000070 
T 000030 


0000:0 
000080 
000210 
000510 
000530 
000811 
09680100 
001413 
001123 
001430 
0014183 
0016%2 
001833 
002110 
002430 
002432 
002633 
002734 
O029%4 
003413 
0033!0 
003312 
09681100 
003333 
003630 
09680900 
0036350 
004014 
004013 
004233 
0043383 
004473 
004633 
09681520 
004710 
004733 
004982 
0050:0 
09681510 
0050:0 
005212 
005683 
0058t14 
006031 
0063t2 
006312 
0064%1 
09680700 


Se ie ee 


ee ee ee ee er 


44 


AHH ATA HH 


STREAMCASSfAlo TS=BUFF,£15815]"1)3 

REGHN DSt##18 Lit " NEXT MCP WILL BE “"SSyteasStsaSpei3 
NSt2=7 CHRIONSteL CTs sSypteSpeqsDSta7 CHR 
NSeL yp Tet} 

END3 


ME3JeNABS(*PCDUP))$3 ® SET FLAG FOR WM 
FXYT3 

DySKWATT(Z»*30,0)3 
OKSEGZFROWRITES=FALSES 
$ SFT OMIT = NOTCNOT SHARFDISK) 

UNLOCKTOGCMCPMASK)3 


$ POP OMYT 
FORGETSPACF(Z)3 
SPOUTCRUFF FI58153"193 
FND CHANGING OF THE MCP3 


Z204= 


09682200 
09682300 


09682400 
09682450 
09682500 


09682550 
09682600 
09682640 
09682611 
09682619 
09682620 


09682621 
09682700 
09682800 
09683100 


AHOAaA HH HAH 


4a 4 


006441 
006631 
006951 
0070!2 
0071420 
09682300 
OO71%1 
OO7T341 
OO734 
007483 
0075t2 
007532 
09682620 
007930 
007910 
007933 
008210 
09679200 


StZex 0084 WORDS 


BOOLFAN PROCEDURE SYSTFMFYLFCA®B)S VALUE ArBs REAL AsBIS 


BEGIN LABEL DISKsLOGs TRUTHS DI ReSYSsREMsDECKeMASKs TESTS 
LABEL DMPS$ 
LABEL MAINT3 
SET omtT = NOTCSTATISTICS) 
DEFINE Tapc TRUTH) #3% 
IF €B EQV PCDISK))eT THENS 


FLSE 


SET oM|T = 


POP OMIT 


SET OMIT = 
ELSE 


PCCCA EQV PCDIR))£T) OR 

CCA FOV PCLOG))sT) OR 

CCA FQV PCOMP))#T)) 

IF CB EQV PCLOG))=T THENS 
PccCA EQV PCSYS))=T) & 

SHAREDISK 
OR cCA EQV PCMAINT) ST) 
OR ¢CA EQY PCREM) ) x1) 


% 
NOTCSHAREDISK) 
IF CA EQV PCDECK) 2ST THEN 
P¢(CB AND PCMASK)) EQv PCTEST))sT)% 


SET OMrT = NOTCSTATISTICS) 
FLSE PcO)3% 


PCRIN)3% 
NrSk 83! “*HTSK "3% 
LOG %t8 “LOG "5% 
TRUTHESS 37777777777 777773% 
DIR t88 "HIRCTRY"SS 
SYS set "SYSTEM "33 
REM ttt "REMOTE "3 
DECk #33 "DECK "3% 
MASK 32! @770000000077773;3% 
TEST $22 8420000000037143% 
NMP 88! “HMPARFA'S & 
MAINTS$3 “MATNT "3% 


£ SFT OMIT = 


ENN3% 


NOTCSTATISTICS) 


09700000 


START OF REL SEGMENTS DISK 


09701000 
09701500 
09701550 
09701599 
09702000 
09703000 
09704000 
09704100 
09704500 
09705000 
09706000 
09706049 
09706050 
09706100 
09706101 
09706150 
09706199 
09707000 
09708000 
09708099 
09709000 
09740000 
09711000 
09712000 
09743000 
09745000 
097416000 
09717000 
09718000 
09719000 
09720000 
09720500 
09720650 
09720699 
09721000 


T 000010 
ADDRESS 2 900343 
000010 
000030 
000010 
000030 
000080 
000030 
000132 
0003%1 
000433 
0006:0 
0008:0 
000913 
000933 
0011440 
0012°2 
0012%2 
001253 
001253 
0014:°2 
001633 
0016:3 
001782 
001733 
0019270 
0020:0 
002130 
0022:0 
002330 
002430 
002510 
002610 
002730 
0028:0 
0029:%0 
0029180 
09701000 
S1ZEs 0030 WORDS 


SAA HHH HHH HHH HAH HH HA A AA tt a 


PRT¢617) = 


STACK (Fal) 
STACK ¢F42) 
STACK(F 43) 
STACK ¢F 44) 
STACK ¢F 45) 


STACK (F 46) 


STACK(F47) 


$8 SFT OMIT = NOT 
$ SET OMTT = NOT 


PROCEDURE WKSETVALUESCKTRX)3 


WKSETVALUES 


3 


REGIN 


0) 
W 


ER 
OR 


UGG 
KSE 


VALUE KTRX? REAL KTRX3 


% ROUTINE FOR HANDLING KEYIN WORKSET REQUESTS, 


$ SET OMIT = NOTCWORKSETMONITOR) OR OMIT 


$ POP OMIT &% WORKSETMONITOR 


STACK¢F410) = N 


STACK¢F4i1) 
STACK(F4+12) 
STACK ¢F +13) 
STACK¢F 414) 
STACK¢F415) 
STACK ¢F416) 
STACK ¢F 417) 
STACK (F420) 


STACKCF+21) 


RFAL 
BUFF, 
BUFF 
CYCLETOG? 
CYCLETOG 
FRRORTOGs 
ERRORTOG 
INS, 
INS 
INSTRUCT, 
INSTRUCT 
KTR» 
KTR 
MONTOGe 
MONTOG 
No 
NAM, 
NAM 
NEXTNAME » 
NEXTNAME 
OLAYTOGs 
OLAYTOG 
STARTINS 
STARTING 
TOLTOG. 
TOLTOG 
ISETOGs 
USFETOG 
VALU, 
VALU 
ZZSTA3 
ZZSTA 
ARRAY NAMS[*]3 
NAMS 
LABEL NUs NEWe 
DEFINE 
OLAY NNX 
PRYIORINDX 
ETIMEINDX 
CORE tNDX 
SAVE TNDX 


SKAN» 


nu oA 


if, 
oF, 
3» 
4#, 
S#, 


SKP » 


Be ae DE BE de 


CONDE 
CONE 
COnE 
CODE 
CODE 


FRROR} 


FOR 
FOR 
FOR 
FOR 
FOR 


"OLAY RaTyro* 
"PRIORITY, 
"ELAPSED TIME"s 
"CORE USAGE” 
"SAVE CORE USAGE" 


09999999 
12200000 
12200500 
12201000 


START OF REL SEGMENTS DISK 


12201500 
12202000 
12202500 
12203000 
12203500 
12204000 
12204500 
12205000 
12205500 
12206000 
12206500 


12207000 
12207500 


122068000 
12208500 


12209000 
12209500 
12210000 
12210500 
12211000 
12211500 
12212000 
12212500 


12213000 
12213500 


12214000 
12214500 
12215000 
12215500 
12216000 
12216500 
12217000 
12247500 
12218000 


ee | 


4+ + 


aA 


a | 


~a-+ 


AN aAaA AAS 


0000:0 
0000:0 
0000:0 
000030 
DDRESS « 


0000:0 
000070 
0000:0 
000010 
000010 
000010 
000080 
0000!0 
0000:0 
000030 
0000:0 


0000:0 
0000:0 


0000:0 
000010 


000030 
0000!0 
000030 
000030 
000030 
0000:0 
0000:0 
000010 


0000!0 
0000130 


0000:0 
000010 
000010 
0000:0 
000010 
000030 
000010 
0000:0 
0000:0 


00344 


INFOSIZE = 5#3; %© NUMBER OF ENTRIES FOR EACH MIX 


NEF INE PRINTOHIGIT = & OUTPUT ROUTINE FOR STREAM STATEMENT 
DVt=eNls NSts5pEcs Dp teNvs OSte4F Lbs 
DrteDVs Sttepvs ScIF SCa” " THEN SI 8aeSI44 ELSE DSIsCHR)3 
DSisl,. TT, #3 


BUFF t= KTRX,£15315]! &% KEYIN BUFFER LOCATION 
KTR t= KTRX,(95!33]) & LOCATION OF REQUEST IN KEYIN BUFFER 
ZZSTA t# 0 & MCBUFF"2)(9193913 %&% REMOTE STATION 


SKAN® & SCAN INPUT BUFFER FOR REQUEST ANALYSIS 


STREAMCNAM t2O0s VALUt("1), LOCN:#02 NEXTNAMES atte ¢ 
TOG##0+ FALTOG? #0» T8=0» KTR)3 
BFGIN 
SptekKTRs GO TO Las 


‘LOt 63¢1F SCSALPHA THEN Sit=Sy41 fFLSe JUMP OUT TO L293 
Lit SpreSr4ts 
L2: te SCs"e™ THEN GO TO L3: & ENN OF RECORD 


Ip Sc=" " THEN GO TO Lis & TGNORE BLANKS 
Ir Sce"s" THEN GO TO L1s % COMMA IS OPTIONAL 
Ir Sce"=" THEN % SET "EQUAL" TOGGLE 
BFGIN 
TALLYts13 FOLTOGSeTALLYS GO TO L13 
FND? 


TE SCRALPHA THEN FLSF GO TO Xx03 & NO OTHER SPECIAL CHR,ALLOWEN 
% TREAT STRING AS NUMEREC ONLY TF PRECEEDED BY "s" 
FQLTOGCIF SC GEG "0" THEN TF SC LE® "9" THEN JUMP OUT TO L4)3 


L38 ToOG¢eN1tsLOC NEXTNAMES JUMP OUT TO LL1)3 & USE "NEXTNAME* OND,PASS 


DrtsLOC NAME % USE "NAM" ON FIRST PASS 
GO Lbis LEO GO LOS XxOt GO TO XXIT3 LLLt 3 BRANCH POINT 
Drt=NT4+5? & NAME STORED JN LAST 3 CHRS, 
IF Sze" THEN % END OF RECORND»DONT MOVE ST 

BEGIN 

NSs=3L7T"00e"? GO TO XX{TS 

FND3 


Tr=Sys OSt=CHR: 

2clF SCsALPHA THEN DStecHR ELSE DStsbLtT" ")3 
ToacSrtsTs JUMP OUT TO xXyT)8 ¥ BRANCH OUT ON 2ND,PASS 
TALLYt213 TOGt=eTALLY3 % SET SECOND PASS TOGGLE 
GO TO LLOS 

* NUMERICS CONVERTED AT * 1,4" 


L4k LoOCNtsSys Syt=St+is TALLY2=03 ECQLTOGIeTALLY’ TALLY#=13 


7c!IF SC GE "0" THEN IF SC LEQ "9" THEN? 
IF TOGGLE THEN ELSE JUMP OUTS Srs#Sy443 TALLYtsTALLY4 193 
SytsLOCN3 TteTALLY3 OltsLOC VALUs DSts#T ocTs GO TO LLO;3 


XXIT? LOCNisSy3 


ENN STREAM STATEMENTS 


NEXTNAMFE #3 P$ & VALUE OF NEXT ITEM IN REQUEST 

KTR $= P3} g ADDRESS OF NEXT ITEM IN KEYIN BUFFER 

VALU ts Ps & NUMERIC VALUE OF REQUEST ¢=1 IF NONE GIVEN) 
NAM $= P3 % REQUEST ITEM 


12218500 
12219000 
12219500 
12220000 
12220500 
12721000 
12221500 
12222000 
12222500 
12223000 
12223500 
12224000 
12224500 
12225000 
12225500 
12226000 
12226500 
12227000 
12227500 
12228000 
12228500 
12229000 
12229500 
12230000 
12230500 
12231000 


12231500 
12232000 
12232500 
12233000 
12233500 
12234000 
12234500 
12235000 
12235500 
12236000 
12236500 


12237000 
12237500 
12238000 
12238500 
12239000 
12239500 
12240000 
12240500 
12241000 
12241500 
12242000 
12242500 


12243000 
12243500 
12284000 
12244500 
12245000 


AA HHH HAHA st st wt ts i 


ee ee 


at to 


att 


0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
000030 
0000:0 
0000:0 
0005!2 
000633 
000933 
0009:3 
000933 
0009:3 
OOT1s! 
0012:3 
001233 
00141334 
001511 
001582 
001631 
001730 
001733 
001831 
001831 
00190 
12230000 
0019:0 
002030 
0020:0 
002231 
002333 
0024:0 
0024:3 
002510 
0025:2 
0025%2 
00262 
12235500 
002652 
0027350 
0029:0 
003052 
0034:0 
0031%14 
00314514 
003232 
003333 
00352 
0037?0 
003781 
12226000 
0037:2 
003732 
003610 
0038!2 
0039:0 


TF NaMete™ THEN &% NULL TNPUT,s, TREAT AS PLIST” REQUEST 


BFGIN 

NU3 USETOG t= TOLTOG t= OLAYTOG ts CYCLETOG t= 13 
GO TO NEW3 
END 


FLSF IF USETOG = 3 THEN &% SETTING NEW OPTIONS 
BFGIN 
JF (NS=CIF CNAM="OLA® AND VALU&(71)) THEN OLAYINDX ELSE 
IF NAM="PRY" THEN PRIORINDX ELSE 
IF NAMB? TIM" THEN FTIMEINDX ELSE 
IF NAM@"COR™ THEN COREINDX ELSE 
IF NAM=@"SAV" THEN SAVETNDX ELSE 0)) NEQ O THEN 
INSTRUCT t= O 8 INSTRUCTE 884240) & NEat4a4t4y 
FLSE GO TO SKPS % MAy NOT RE PART OF "USE" COMMAND 
END % IF USETOG = 3 


ELSE 
SKP&§ IF ¢€NAM="ON * OR NAMBYOF PF") THEN 
BFGIN 
STARTING %2 41 + (NAMB"OFFY)3 
GO TO NU3 
END 


FLSE IF NAMB" USE" THEN & SETTING NEW VALUES 
RFGIN 
INSTRUCT t2 03 
USETOG tx 33 
END 


\ 


ELSE IF NAM="OPT™ THEN USETOG t= 41 % LISTING OPTIONS 
ELSE TF NAM="TOL™ THEN %¥ TOLERANCE FOR OPTIONS 
BFGIN 
TOLTOG += 13 
te VALU GE® O THEN 
BEGIN 
1F VALU GTR 100 THEN GO TO ERROR} 
WKSFTOLFRANCE t= VALU x 0,013 
FNDS 


END 


FLSE TF NAM = "OLA" THEN 
BFGIN 
OLAYTOG t= 13 
IF VALU GEO O THEN 
BEGIN 
WKSETMAXOLAY = VALU/1003 
END} 


END 


ELSE fF NAMe*CYC® THEN & CYCLE TIME 
BEGIN 
CYCLETOG t= 43 
If VALU GFQ O THEN & SETTING NEW VALUE 


12245500 
12246000 
12246500 
12247000 
12247500 
12248000 


12748500 
12249000 


12249500. 


12250000 
12250500 
12251000 
12251500 
12252000 
12252500 
12253000 


12253500 
12254000 
12254500 
12255000 


12255500 
12256000 


12256500 
12257000 
12257500 
12258000 
12258500 


12259000 
12259500 
12260000 
12260500 
12261000 
12261500 
12262000 
12262500 
12263000 


12263500 


12264000 
12264500 
12265000 
12265500 
12266000 
12266500 
12267000 


12267500 


12268000 
12268500 
12269000 
12769500 


ie Ae ie ee ee ee ee ee ee a 


AAAS HH 48 


a 


+ 


ee ee ee eee ee) 


003932 
003982 
0040%1 
0040:3 
004330 
004322 
12246500 
004312 
004433 
004581 
004832 
0050:2 
0052t2 
00541t2 
005733 
005933 
006410 
12249000 
006130 
006480 
0068:3 
006934 
007440 
007430 
12254500 
007430 
O0075!1 
007533 
007632 
OO77T#4 
12257000 
OO7711 
008032 
008333 
008att 
008510 
008583 
008631 
008732 
008984 
42261500 
0089314 
12260000 
008934 
009233 
0093%1 
009410 
009433 
009531 
0097180 
12266000 
009730 
12264500 
009740 
009913 
0400314 
010180 


BFGIN 
NEWS 1F WKSETCYCLETIME®0 THEN & NO PREVYTOUS VALUE 
BEGIN 
STFIRST t= 0% STNEXT ta O3 
IF WKSETINSTRUCTSO THEN &% SET DEFAULT OPTYONS 
BEGIN 
WKSFTINSTRUCT t= PRIORINDX & 
OLAYINDX (4044434) & 
COREINDX (€36%44!24) & 
ETIMEINDX(32¢4and) & 
SAVFINDX (28%44t4]3 
END} 


IF WKSETOLERANCESO THEN WKSETOLERANCE #3 0,103 
IF WKSETMAXOLAY=0 THEN WKSETMAXOLAY te 0,403 
END3 % TF NO PREV1OUS VALUE 


1F STARTING NE@ O THeM & "WK ON* OR fWK OFFe 
BEGIN ; 
IF STARTING = 2 THEN & OFF” 
WKSETCYCLETIME t= NABSCWKSETCYCLETIME) ELSE 
BEGIN & "ON" 
WKSETCYCLETIME3= 
CIF WKSETCYCLETIME=s0 THEN 20x64 ELSE 
ABSCWKSETCYCLETIME))3 
ENDS &% IF STARTING = 1 


STARTING t= 08 
ENDS % TF STARTING GIR O 


IF VALU GEQ@ O THEN WKSFTICYCLETIME t= VALUK643 
tF WKSETCYCLETIME LEQ O THEN WKSETNOSELECT#203 % TELL SELECTRUN 
FND’ &% IF VALU GEQ@ O 


END & IF NAM#"CYC*” 


$ SET OMIT = NOTCWORKSETMONITOR) OR OMIT 
ELSE JF NAM="MON* THEN 
BFGIN 
Ir CVALU LSS 0) OR CVALU GTR 1) THEN 60 TO ERRORS 
WKSFETMONITOR s=VALUS MONTOG! 213 


END 


$ POP oM!tT % WORKSETMONITOR 
ELSE GO TO ERROR; 


IF NaM NEQ "e* THEN 
If NEXTNAME NFQ %e" THEN 
qO TO SKAN$ 


tr FalSe THEN 
FRROR? 
FRRORTOGI=13 


TF USETOG THEN 
BFGIN 
fe USETOG#3 THEN % New OPTIONS SET 


12270000 
12270500 
12271000 
12271500 
12272000 
12272500 
12273000 
12273500 
12274000 
12274500 
12275000 
12275500 


12276000 
12276500 
12277000 


12277500 
12278000 
12278500 
12279000 
12279500 
12280000 
12280500 
12281000 
12281500 


12282000 
12282500 


12283000 
12283500 
12284000 


12284500 


12285000 
12285500 
12286000 
12286500 
12287000 
12287500 


12288000 
12288500 
12289000 
12289500 
12290000 
12290500 
12291000 
12291500 
12292000 
12292500 
12293000 
12293500 
12294000 
12294500 


i ee 


4A ANH FHA 


4444 


"| 
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010183 
0102%1 
010331 
010383 
040733 
040833 
01,09%]4 
011080 
011130 
0112:0 
011380 
011492 
12272500 
0114%2 
0117394 
012070 
12271000 
012010 
032033 
012151 
012210 
012441 
012870 
012812 
013131 
0132:2 
12279500 
0132%2 
013311 
12276000 
0133721 
0136%1 
014021 
12270000 
014031 
12268500 
014091 
014081 
0141422 
014230 
014412 
014733 
12286000 
014733 
0147:3 
014733 
014733 
01486:2 
014983 
015081 
015081 
015082 
015130 
015183 
015443 © 
015280 
015212 


IF ee NEQ@ O THEN & NEW INSTRUCTIONS OBTAINED 
YE. a 


WHILE CINSTRUCT,£443241]20) pO JNSTRUCTISINSTRUCT,C4t40]3 
WKSETINSTRUCT t=  NSTRUCTS 
END? 


INSTRUCT t= WKSETINSTRUCTS 
NAMS t= ¢MPFBUFF JINX 903187078:38:10)3 % USE PART OF KEYIN BUFFER 
NaMSrOjts03 
Nexzerd1)3 
WHILE CINS %# INSTRUCT, fr44at4]) GTR O 90 
BEGIN 
INSTRUCT te INSTRUCT, C4240)3 
NAMSI(N@eNet) ta 
CIF INSsi THEN “"OLAY " ELSE 
IF INS=2 THEN "PRIORTY" ELSE 
1F INS=3 THEN "TYME " ELSE 
TF INS=4 THEN "CORE " ELSE 
IF INS=5 THEN "SavcoR “ ELSE 
"UNKNOWN") & 9158473433 
NAMS(N41)9203 
FND; 


ENND3 & IF USFETOG 


STREAMCCYCLETOGs NEGS=CWKSETCYCLETIME ef 1811)» 
CYCIECARBSCWKSETCYCLETIMF)/6440.5) DIV ts 
FRRORTOGs» VALUTOGt#e( VALU GEO 0), NAMs VALU, 
OLAYTOG, OLA? ecWwKSETMAXOLAY*10040,5) DIV 1, 
TOLTOG. TOLS=(WKSFTOLERANCEX10040,5) DIV 1> 
SET OM1T = NOTCWORKSETMONJTOR) OR OMIT 
MONTOGe MONS sWKSETMONITOR,s 
POP OMIT % WORKSETMONI TOR 
USETOGs NMS=NaMS NX Os DVE20e BUFFS=BUFF#"1)3 
BFGIN 
OStz4L IT" wkKers3 
FRRORTOG(OS#s7LIT™ ERRORI™$ StseLOC NAMS SI#eSJ453 DStz3cyRE 
VALUTOGCOStabLiyta"s SrssLOc VALUS DSts8nFEC} 
OVbEeHIs OLtspre8s DSss7FILLs pyt=DVI3 OSs=eLIT” 73 
SET OMIT = NOTCWORKSETMONITOR) OR OMIT 
MONTOGCDS&=4LIT*MONs"S SysaLOC MONS PRINTDIGIT)3 
POP OMrT %¢ WORKSFTMONITOR 
CYCLFTOGCOS#e6LIT@CYCLES"$ NEGCDSt=LITta")3 
STtmLOC CYC$S PRINTDIGIT)3 
OLAYTOGC(NSSS5LIT*OLAYe"; 
STt*eLOC OLAS PRINTDIGIT)? 
TOLTOGCDS#=4LIT" TOLLS; 
Sltsl0c TOLs PRINTDIGIT)3 
USETOGCST?SNMs OSt2=9L1IT*OPTIONS?: "3 
bit TF Sce"O" THEN JUMP OUT: 
SrsmeSypets 7C1F Sc2=" " THEN SyeaS]o) ELSF DSt=CHR)}3 
NStsLIT*."s GO TO Lids 
DritzOy718 OSsalL Te} 
END STREAM STATEMENT; 


SPOUTCCBUFF™1) INX CO&ZZSTAL919191))3 


12295000 
12295500 


12296000 
12296500 
12297000 


12297500 
12298000 
12298500 
12299000 
12299500 
12300000 
12300500 
12301000 
12301500 
12302000 
12302500 
12303000 
12303500 
12304000 
12304500 
12305000 


12305500 


12306000 
12306500 
12307000 
12307500 
12308000 
12308500 
12309000 
12309500 
12310000 
12310500 
12311000 
12311500 
12312000 
12312500 
12343000 
12313500 
12314000 
12314500 
12315000 
12315500 
12316000 
12316500 
12317000 
12317500 
12318000 
12318500 
12319000 
12319500 
12320000 


12320500 
12321000 
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AAHMAA AAA HHH 
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as 


12295500 
016171 
0462%4 
0165:0 
0166%1 
016724 
0169:2 
0169:2 
017131 
0172:3 
017483 
0176383 
017833 
01860383 
018233 
0184:2 
0186%1 

42300000 
019330 

12294000 
0193:0 
0194:2 
0196:3 
0198314 
0200%2 
020233 
020233 
0204:0 
0204:0 
0206:2 
020612 
020711 
020913 
021141 
0213%1 
0213%14 
0218:3 
024833 
022182 
022513 
022721 
023132 
023233 
023710 
023024 
0240%1 
024231 
0243314 
024480 

123140500 
024424 
O244t] 


NAMSS=(MCNAMS=SPACE(30))) & 30(8:383810)3 
Nr SKWALTC*NAMs 30eDITRECTORYTOP41 93 
NAMSE Nt e4xSYSNO4 12 ewKSETCYCLETIMES 


NaMStNe+] TiswkSeTyNSTRUCTS 
NaMSrN42 JiswkKSrTOLERANCES 
NAMSIFNe3 Tt2wkKSPTMAXOLAY3 


DySKWATTC NAMs30eNIRECTORYTOP41)3 
FORGE TSPACFCNAM)S 


END PROCEDURE WKSFTREQUESTS3 


%143= 
41430 
%1438 
¥143-= 
¥143= 
¥143= 
%143= 
¥1432 


12321100 
12321110 
12321120 
12321130 
12321140 
12321150 
12321160 
12321170 
12321500 


0247:2 
025183 
025333 
025613 
025833 
026033 
0262153 
026432 
0265314 
12201500 
SIZE2 0267 WORDS 


aqAAMAaNNaAaaan 


x 


STACK¢F #2) 


STACK¢F41) 
STACK(F 42) 
STACK ¢F 43) 
STACK¢F 44) 
STACK ¢F 45) 
STACK¢F 46) 


PROCFOURF WORKSFTCN)3 VALUE N3 REAL N& 


STACKCF4+7) = MAXOLAY 


STACKCF410) 
STACK¢F 411) 
STACK¢F 412) 
STACK¢(F 413) 
STACK(F 414) 
STACKEF 415) 
STACK¢(F 416) 
STACK¢F417) 
STACK¢(F 420) 
STACK(F 421) 
STACK¢F 422) 
STACK¢F 423) 
STACK(F 424) 
STACK¢F 425) 
STACK¢ F426) 


STACK¢F 427) 


STACK¢F 430) 


REGIN 
REAL MSCW = "23 
MSCW 
REAL 
DEVIATION» 
NEVIATTON 
INS» 
INS 
INSTRUCT» 
INSTRUCT 
LINK, 
LINK 
OC» 
LOC 
MAXMyXo 
MAXMIX 
MAXOLAY >» 
MAXVALUEF » 
MAXVALUE 
MIXe 
MIX 
NJOBS> 
NJOBS 
PT(ME » 
PTIME 
TOTALPTIME> 
TOTALPT IME 
OLAY, 
OLAY 
TOTALOLAY> 
TOTALOLAY 
STARTING? 
STARTING 
STOPMIX» 
STOPMYyX 
SIZE. 
SIZE 
Tle 
T1 
T2. 
T2 
TOTALOLAYCORE » 
TOTALOLAYCORE 
TOTAL, SAVECORE » 
TOTALSAVECORE 
TOTALSYSTEMCORE, 
TOTALSYSTEMCORE 
VALU3 
VALU 


ARRAy JOBINFOL*)3 
JOR INFO 
ARRAY RUNNING #*)3 


12350000 
12350500 
START OF REL SEGMENT3 DISK 
12351000 
12351500 


12352000 
12352500 


12353000 
12353500 
12354000 
12354500 
12355000 
12355500 
12356000 
12356500 
12357000 
12357500 
12358000 
12358500 
12359000 
12359500 
12360000 
12360500 
12361000 
12361500 
12362000 
12362500 
12363000 
12363500 


12364000 
12364500 


12365000 


r ggner 
ADDRESS 
T 000040 
T 000030 
T 000030 
T 000010 
T 000010 
T 000030 
T 000010 
T 000010 
T 000010 
T 000010 
T 000030 
T 000010 
T 000010 
T 000010 
T 000010 
T 000010 
T 000010 
T 000010 
T 000080 
T 000010 
T 000080 
T 000030 
T 000010 
T 000010 
T 000030 
T 000030 
T 000010 
T 000010 
T 000010 


00353 


STACK¢F e431) 


RUNNING 


DEFINE 

OLAY rNDX = 14, % CONDE FOR “"OLAY RaTyO" 
PRIORINDX = 2#, &© CONE FOR "PRIORITY", 

ETIMFINDX = 3#, %@ CONE FOR "FLAPSED TIME", 

CORE INDX =z 4#, & CONE FOR *CORE USAGE" 

SAVE TNNDX = 54, % CONE FOR "SAVE CORE USAGE* 
INFOS) 76 = 543 % NUMBER OF ENTRIES FOR EACH MIX 


DEFINE tNFOCTNFOL>INFO2] = JORINFOLINFOLXINFOSIZE4+INF O21 43 
LABEL STARTs LOOP» FINISHED3 


COMMENT 
THE INSTRUCTIONS" ARE STORED IN THE GLOBAL VARIABLE 
"WKSFTINSTRUCT®, USING FIFLOS FOUR BITS IN LENGTH, 

THE FIRST "INSTRUCTION® WILL BE IN THE (£4484) FIELDe THE 
SECOND "INSTRUCTION WILL BE IN THE (4084) FIELD» AN SO FORTH, 
THESE "INSTRUCTIONS" ARE THE NUMERICAL VALUES CORRESPONDING TO 
CODES DFFINED ABOVE, 


AS AN EXAMPLE OF HOW THESE "|NSTRUCTIONS* ARE USEDs SUPPOSE THAT 
WKSETINSTRUCT,£44!4) CONTAYTNED A VALUE OF 3> 
WKSETINSTRUCT,£L4984}) CONTAINED A VALUE OF 2, AND THE 

REMAINDER OF THE WKSETINSTRUCT WoRD WERE ZERO, IN THIS 
INSTANCE*® THIS ROUTINE WOULD FIRST EXAMINE ALL JOBS IN THE 

MIX»s FINDING THE JOB WHICH HAD BEEN RUNNING FOR THE LONGEST 
PFRIQD OF TIME. NEXT» ALL JOBS WHICH HAVE BEEN RUNNING FOR A 
PERIOD OF TIME WHICH IS WITHIN THE "WKSETOLERANCE™ CNORMALLY 
WITHIN ABOUT 10% OF THE MAXIMUM VALUE FOUND ABOVE) ARE EXAMINED 
FOR THE NEXT "INSTRUCTION", THAT [Ss THE PRIORITY, 

IN THIS MANNERs THE JOB WHICH HAS BEEN RUNNING FOR THE LONGEST 
PERTON OF TIME» AND WHICH HAS THE HIGHEST PRIORITY WILL BE 
SELECTED FOR "STOPPING", 

END OF COMMENT? 


SURBRQUTINE CORESEARCH? 
BFGIN 
MAXMIX te O3 
% SFARCH THE LINKS TO DETERMINE CORE USAGE 
tr NOT STORENY THEN SLEFPCCTOGLEJ»+STOREMASK)3 
Loc t= O$ % START AT LOW END OF MEMORY 
TOTALSYSTFEMCORE t= TOTALOLAYCORE t= TOTALSAVECORE t= O3 
WHILE CSYtZEtecLINK?aMrLOC1),(CF)] "LOC) Gre 0 DO 
BFGIN 
TOTALSYSTEMCORE t= ToOTALSYSTEMCORE + SIZE3 
IF NOT LINK. C121] THEN 3 IN"USE AREA 
BEGIN 
IF CMIXtSLINKef986)) GTR MAXMIX THEN MAXMIX 82 MIX3 
IF LINK.(2#1] THEN & SAVE AREA 
BEGIN 
TOTALSAVECORE 3 TOTALSAVECORE + SIZE} 
INFOPMIXsSAVEINDX] %= INFOLMIXsSAVEINDX] © SIZES 
% NOTE? JOBS SHOULD BE STOPPED IN INVERSE RELATION TO 
% AMOUNT OF SAVE CORE USED 


12365500 
12366000 
12366500 
12367000 
12367500 
12368000 
12368500 
12369000 
12369500 
12370000 
12370500 
12371000 
12371500 
12372000 
12372500 
12373000 
12373500 
12374000 
12374500 
12375000 
12375500 
12376000 
12376500 
12377000 
12377500 
12378000 
12378500 
12379000 
12379500 
12380000 
12380500 
12381000 
12381500 
12382000 
12362500 
12383000 
12383500 
12384000 
12384500 
12385000 
12385500 
12386000 
12386500 
12387000 
12387500 
12388000 
12368500 
12389000 
12389500 
12390000 
12390500 
12391000 
12391500 
12392000 
12392500 
12393000 
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000030 
000030 
000030 
000030 
000030 
000020 
000010 
0000180 
0000:0 
0000390 
000030 
000030 
000030 
000030 
000030 
000030 
000030 
0000!0 
000010 
000010 
0000:0 
000030 
000030 
0000:0 
000030 
00000 
000030 
00000 
000030 
000010 
0000:0 
000030 
0000:0 
000030 
000030 
000030 
000070 
0000:0 
000120 
000110 
000133 
0004:3 
000433 
000512 
OOO7S4 
004481 
O0¢1%4 
001282 
001332 
0014130 
001710 
0017383 
001831 
001912 
002482 
002482 


END 


ELSE 
BEGIN 
TOTALOLAYCORE s= TOTALOLAYCORE + SIZE3 
INFOrMIX*+COREINDX] te JNFOCMIX+COREJNDX} + SIZES 
ENDS 


ENM3 ¥ JF IN@USE AREA 


LOC tm LINK,(CFI]3 & NEXT LyNK 
FND* &® WHILE STATEMENT 


FOR MIX $s 3 STEP 1 UNTyL MAXMYTX DO 
TF RUNNINGEMIX)] THEN 
IF oo cuean LSS 0 THEN &% CHECK AGAIN (LOSS OF CNTRL.AROVE) 
“GTN 
RUNNING MIX] ts Of 
NJOBS t# NJOBS = 13 
FNp3 


2 NONT USE JOBS WHICH ARE TERMINATING OR JUST STARTING 
Tr NJOBS LSS 2 THEN GO TO FINISHED3 
FND SUBROUTINE CORESFARCH3 


IF CCLOCK+PCRTRY@WKSETSWITCHTIME) 1.SS 960 THEN 
BEGIN 
Z ALLOW 15 SECONDS AFTER THE LAST "BOY" OR MEO 
% BEFORE TESTING THE OVERLAY RATE 
WKSFTCLOCKiac¢eP(DUP)) + 9603 
GO TO FINISHED: 
FND3 


RUNNING t= (MCTY&sSPACECMIXMAX41)9)) & 
CMIXMAX44)(8!38240)3 

JOBINFO = FMETAtsSPACECCMIXMAX44)xINFOSIZEDI) & 
COMI XMAX4+1)xXINFOSIZE)£8238:10]3 


START? 


STREAMCE LEST imi sSZ1toMTXMAX #1 oF 2SRT27 1» 
S$Z2 t= (MIXMAX+1)xKINFOSIZE» Tl9T?2)3 
BEGIN % ZERO OUT THE ARRAYS 
S1t=F23 OS#=S72 WOS$ Sys3F13 HrtsT13 HS#xS21 WHS; 
ENDS 


NJOBS t= TOTALPTYME 22 TOTALOLAY t= MAXOLAY f= O03 
FOR MIXta1 STEP 1 UNTIL MIEXMAX DO 
IF JARROWF MIX) NEQ O THEN & RUNNING JOB 
TF NOTCJAREMIXs9).03%13) THEN % NOT ALREADY STOPPED 
IF CPRYOR(E MIX] GEQ@ 0) AND CREPLYCMIX)=2#0) THEN 
BEGIN 
IF NOTCJAREMIXs)9],SYSJORF) THEN SNOT "SYSTEM JOR 
BEGIN 
RUNNING(MIX] fs 93 
NJOBS %= NJOBS + 1% g COUNT THE NUMBER OF YOBS 


12393500 


12394000 
12394500 
12395000 
12395500 
12396000 


12396500 


12397000 
12397500 


12398000 
12398500 
12399000 
12399500 
12400000 
12400500 
12401000 


12401500 
12402000 
12402500 


12403000 
12403500 
12404000 
12404500 
12405000 
12405500 
12406000 
12406500 


12407000 
12407500 
12406000 
12408500 
12409000 
12409500 
12410000 
12410500 
12411000 
12411500 
12412000 
12412500 


12413000 
12413500 
12414000 
12444500 
12415000 
12415500 
12416000 
12416500 
12417000 
12417500 


Se | 


a 
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002432 
12391000 
002432 
002482 
002530 
002611 
OO3401 
12394500 
OO31%4 
12389500 
0031914 
003232 
12388000 
003330 
003480 
003432 
003630 
0036!2 
003733 
003930 
12399500 
O0041%4 
004181 
0042t2 
12384500 
004233 
004233 
005184 
005483 
005133 
005183 
005383 
00544 
12404000 
0054%1 
005712 
0059382 
006331 
006533 
006533 
006533 
006533 
006831 
OO7OS1 
007081 
0072130 
124141500 
007231 
007412 
007630 
0077130 
OO7931 
008210 
008232 
008441 
0084%3 
0086:0 


END; 


INFOFMTXeETIMEJNDX]&s 
NABS(CLOCK4PCRTRI“NFOP COMIX 1XNDX4+2) (£61217)%60)3 
PTIME t= JAREIMIX+3] + PROCTIME(MIXI3 
£ SFT oMtT = NEWLOGGING OR OMIT 
tF CPiMIXsMITX OR PA2MIXeMIX) THEN 
$ POP OMIT 
$ SFT OMIT = NOTCNEWLOGGING) OR OMIT 
PTIME t= PTIME+CLOCK+PCRTR)3S 
IF CINFOLMIX*sOLAYINDX I] 2s 
OLAYTIMECMEXI/PTIME) GTR MAXOLAY THEN 
IF RUNNINGS MITX) THEN 
MAXOLAYSmINFOCMIXSOLAYINDX]3 % FIND MAX. VALUE 
INFOCMIEX»PRIORINDX) &$2 PRYOREMIXI, CCE ]3 
TOTALOLAY % = TOTALOLAY + OLAYTIMECMIXI3 
TOTALPTIMEt= TOTALPTIME + PTIME3 
ENN: & MLX LOOPS 


MPXeWKSETNOSFLECT? ¥525= 
WKSETNOSELECTP aC COLAY#=TOTALOLAY/TOTALPTIME) GEQ@ CWKSETMAXOLAYx,85))3 
1F MYX AND NOT WKSETNOSELFCT THEN SELECTIONS % SEE IF ANYTHING CAN GO 
Z NOTE? WKSFTNOSELECT 1S A FLAG TO PROCEDURE SELECTRUN TO 
¥ PREVENT ENTERING ADDITIONAL JOBS INTO THE MIX 
IF (OLAY GTR WKSETMAXOLAY) OR CMAXOLAY GTR CWKSETMAXOLAYx4)) THEN 
% SUSPEND SOMETHING IF THE TOTAL OLAY RATE FXCEEDS MAX, VALUF 
% SPFCIFIFDs OR ANY ITNOTVIDUAL RATE EXCEEDS 4 TIMES THE MAX, 
% RATE SPECIFIED. 
IF NJOBS GTR 4 THEN % MORE THAN ONE JOB IS RUNNING 
BEGIN 
CORESEARCHS % SEARCH MEMORY TO DETERMINE CORE USAGE 
% NOW DETERMINE WHICH JOB TO STOP BASED ON THE PRIORITY OF 
% THE INSTRUCTIONS IN "WKSETINSTRUCT® 
STOPM;X te e¢3 
INSTRUCT $e WKSETYNSTRUCT3 
STARTING t= TRUE 


LOOP? 


Te CINS?ts INSTRUCT, (C44:4]) NEQ O THEN & MORE INSTRUCTIONS 
RFEGIN 
INSTRUCT t= 0 & INSTRUCTE8:4240)3 & SHIFT RIGHT FOR NXT,INSTR, 
MAXVALUE te CIF STARTING THEN (*33000) ELSE INFOLSTOPMIX+INSIJ)3 
STARTING te FALSE? 
% FIRST» FYND THE MAXIMUM VALUE 
FOR MIX%=4 STEP 3 UNTIL MAXMIX DO 
IF RUNNINGEMIX) THEN 
IF ¢VALU $8 JNFOCMIX,INS]) GTR MAXVALUE THEN 
REGIN 
MAXVALUE t= VALU3 
STOPM]X t= MIX3 
END; 


% NEXTe FIND THE VALUES WITHIN THE WORK SET TOLERANCE 


12418000 


12418500 
124419000 
12419500 
12419599 
12419600 
12419601 
12419699 
12420000 
12420500 
12421000 
12421500 
12422000 
12422500 
12423000 
12423500 
12424000 


12424500 
12424700 
12425000 
12425200 
12425500 
12426000 
12426500 
12427000 
12427500 
12428000 
12428500 
12429000 
12429500 
12430000 
12430500 
12431000 
12431500 
12432000 
12432500 
12433000 
12433500 
12434000 
12434500 
12435000 
12435500 
12436000 
12436500 
12437000 
12437500 
12438000 
12438500 
12439000 
12439500 
12440000 


12440500 
12441000 


12441500 


AA HAH AHHH 4 
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0087" 
12446500 
O087t4 
0089114 
009430 
009611 
009634 
009830 
009810 
009810 
010081 
010291 
010441 
010534 
010611 
011183 
014381 
011482 
12445500 
011683 
011623 
011831 
012133 
012612 
012682 
012682 
012931 
012981 
012991 
01291 
013082 
013140 
013280 
013210 
013210 
043310 
013410 
013433 
013433 
013433 
013433 
013682 
013710 
013833 
014292 
014333 
014333 
014710 
O1a7he2 
045110 
015142 
015291 
015310 
12438500 
0155t1 
015514 
O155t4 


FOR MIX%=4 STEP 1 UNTIL MAXMEX DO 
IF MTX NEQ STOPMYX THEN 
IF RUNNINGCMIX] THEN 

BEGIN 

DEVIATION t= @MAXVALUF@INFOLMYXs INS) )/MAXVALUES 

TF ABSCDEVTATION) GTR WKSETOLERANCE THEN 
BEGIN 
RUNNINGEMEXJ) 3203 
NJOBS t= NJORS 2-13 
ENDS 


END$ 


TE NJOBS GTR 4 THEN GO TO LOOP! 
FND3 % TF THERE WERE MORE  ¢NSTRUCTYLONS 


Ip STOPMIX GTR O THEN % SOMETHING SHOULD BE STOPPED 

BEGIN 

1F NOTERMSETCSTOPM]X) THEN % JOB YS NOT TERMINATING 
REGIN 
PRTROWPSTOPMIX],[PSFJ%=23 ZB MARK JIT STOPPED 
WKSETSWITCHTIMEt=cLOCK4+PCRTR)3 
WKSETSTOPJOBSS eWKSETSTOPJOBS OR TWOCSTOPMIX)# % MARK AUTO®#ST 
WKSETNOSFLECT#&sTRues %¥138= 
JARFSTOPMIX.9] ¢3813%=13 ¥ MARK IT STOPPED 
STQUELSTNEXTI] &exSTOPMIXS % PUT 1T IN THE STQUE 
STNEXT te CSTNEXT41),044%4]% & CIRCULAR QUEUE, 46 ENTRIFS 
ENDS % IF WE ARE STOPPING THE JOB 


FNDS & IF SOMETHING SHOULD BE STOPPED 


£ SET OMyYT = NOTCWORKSETMONTTOR) OR OMIT 
TF WKESETMONTTOR THEN 
TF STOPMIX GTR O THEN 
FOR STOPMyX!s4 STEP 4 UNTIL MIXMAX DO 
IF JARROW?STOPMIX) Ne@ O THEN 
1F PRTROWPSTOPMIX] NFQ O THEN 
IF INFOLCSTOPMIX*OLAYINDX] GTR O THEN 
BEGIN 
STRFAM( 
Vit="MyXaH, 
V2s=eSTOPMYyX>» 
V3te"RaTz@, 
V4t=ECINFOPSTOPMIXsOLAYINDX]*X10040,5) PIV tLe 
VSs="PRyaK, 
V6tEINFOLSTOPMIXsPRIORINOX]» 
V7taMTIMe", 
V8teCARSCTNFOCSTOPMIXeETIMEINOXI)/644 0,5) DIV to 
V9LeEMCORa", 
VIOSEINFOSSTOPMIXsCOREINDX)>e 
Vids="SaVve"> 
VIZSEABSCINFOCSTOPMIX*®SAVEJNDXI)>» 
V13 33 "TOTES", 
V14 $8 €TOTALOLAY/TOTALPTIMEx10040,5) DIV 1» 
OVie0e 
Nt=T12=SPAcE(15))3 


12442000 
12442500 
12443000 
12443500 
12444000 
12444500 
12445000 
12445500 
12446000 
12446500 


12447000 


12447500 
12448000 


12448500 
12449000 
12449500 
12451000 
12451500 
12452000 
12452500 
12453000 
12453100 
12453500 
12454000 
12454500 
12455000 


12455500 


12456000 
12456500 
12457000 
12457500 
12458000 
12458500 
12459000 
12459500 
12460000 
12460500 
12461000 
12461500 
12462000 
12462500 
12463000 
12463500 
12464000 
12464500 
12465000 
12465500 
12466000 
12466500 
12467000 
12467500 
12468000 


AAs Haas at 


~ 


44 


AAAAN AHHH HH 


— 


Se Le... 


12445000 
016680 
12443500 
016834 
04692 
12434500 
0169132 
016912 
017031 
017013 
O172%14 
017233 
017534 
017710 
0179%2 
0162:0 
018550 
018750 
019033 
12451500 
019033 
12449500 
019033 
019033 
0194¢3 
019330 
0195140 
019630 
019732 
0200:2 
020140 
0201!1 
020152 
020183 
020210 
020512 
020533 
020733 
0208:0 
0211:3 
0212:0 
021410 
024431 
023612 
021633 
021910 
021981 


BEGIN 

SrtelOc Vie DStelLyT* 3 

7CSTtsSy+43 DSteacHRs DSt=5DEC3 

NVteNT$ Dl teDre53 OStsz4FILLs Dl r=spve DStsLiT™ "93 
OStelL I] Tes 

FND STREAM} 


SPOUTCTI)3 
FNDS 


$ POP OMIT % WORKSETMONITOR 
ENN 


ELSE 
FILSE 
IF WKSETSTOPJORS GTR O THEN 
Te COLAY LSS CWKSETMAXOLAY/2)) THEN & START SOMETHING 
REGIN 
STNEXTS21F STNEXT=O THEN STQUEMAX ELSE STNEXT#13 
STOPMYIX?2sSTOUFLSTNEXTI3 
STOQUECSTNEXTIJ2s03 
tr CSTOPMIX GTR 0) AND CSTOPMIX LE@ MIXMAX) THEN 
tr JARROWESTOPM]X] NEF@ O THEN 
BEGIN 
TF STOPSETCSTOPMIX) THEN % NOT YET STOPPED 
BEGIN 
PRTROWCSTOPMIXI,([PSFJ%=03 
WKSFTSTOPJORS2?#WKSETSTOPJORS AND NOTCTWOCSTOPMIX))3 
JARESTOPMIX09),0C 38411503 
FND ELSF 


BEGIN 
REPLYLSTOPMIX]3:2VOK$ & WAKE JT UP 
STREAMCUtSJARROWELSTOPMIX]» STOPMIX» 
Dt=T1#=SPACE(10))3 
REGIN 
SpteJ3 OoSrs9 LIT” AUTOMOK 3 
PCSyTtaS 7412 DSte7 CHRS NSs=LiT ms93 
OlteNyrds OSt=LyThs"3; Sprt=LOc STOPMIXs 
DOSts?2 PFCs NStsLIT*e"; Hi s2zD1=33 OSIeFTLL3 
END STREAM STATEMENTS 


SPOUTERC TL »PSEUDOMEXESTOPMIX)01)3 
PND? 


FNDS3 
FNN? 
FINISHEnS 
IF JORINFO NEQ O THEN FORGFTSPACFCUOBINFO INX 0)3 
IF RUNNING NF&Q O THEN FORGFTSPACECRUNNING YNX 093 
WKSFTRUNNING 32 OF % READY FOR NEXT CYCLE 


KILL ¢rMScwW))3 
ENDS 


B1420 


%142= 
%¥142= 
Zi42= 
4142s 
¥142= 
%142= 
142 
*142= 
K142= 
*142s 
¥142= 
z142= 
¥142= 
%1420 
%142= 
¥142= 
z142= 


z142= 
t142=° 
%142= 
t1i42= 
#142= 
wide 
£1420 
41420 
Zi42= 
%142= 


2525 
zi4ee 


zide@0 


Z142@ 


12468500 
12469000 
12469500 
12470000 
12470500 
12471000 


12471500 
12472000 


12472500 
12473000 


12473010 
12473020 
12473030 
12473040 
12473050 
12473060 
12473070 
12473080 
12473090 
12473100 
12473110 
12473120 
12473130 
12473140 
12473150 
12473160 
12473170 


12473180 
12473190 
12473200 
12473210 
12473220 
12473230 
12473240 
12473250 
12473260 
12473270 


12473280 
12473290 


12473300 
12473310 


12473500 
12474000 
12474500 
12475000 
12475500 
12476000 
12476500 


uvwv- 


AOOOaIoaaas9aanaIaaaganaanno 


an MANDOINMANOYOON 


Aaa Ha 


022133 
022183 
0222:2 
0223:2 
022531 
022533 
12468500 
0226!0 
O227!1 
12459500 
022982 
022922 
12429000 
0229%2 
022932 
0238:0 
023932 
024432 
024220 
0248:0 
024933 
025133 
0253%2 
025530 
025582 
025730 
0257%2 
0260!0 
026203 
0265283 
12473130 
026523 
026634 
026732 
0268t2 
027130 
0271:0 
027233 
027431 
027534 
02762 
12473220 
027633 
O27Bt4 
12473180 
027831 
12473110 
027831 
12473050 
O278!4 
O278%1 
027831 
028131 
028431 
028613 
0287%2 
12351000 


S1ZF2 0288 WORDS 


PRT(620) = 


STACK ¢F 40) 
STACK ¢Fe2) 
STACK( Fed) 


STACK¢F 41) 


STACK (F 42) 
STACK(F 43) 
STACK¢F 44) 


STACK ¢F 45) 
STACK EF 46) 
STACK ECF +7) 
STACK¢F 410) 
STACK (F411) 


STACK¢EF 412) 
STACKCF 413) 
STACK(F 414) 


STACK ¢(F 415) 
STACK¢F 416) 
STACK¢CFali7) 


STACK¢ F420) 


STACK ¢F 415) 
STACK¢(F 416) 
STACK(F +20) 


STACK¢F 421) 
STACK ¢ F422) 
STACK ¢F 423) 


$ POP OM 
REAL PROC 


PRNPRTSPFCASFI 


an 


o#o8 tf WOW “ 


ON TH 
0 


{ 
? 
3 
4 


Be FR Be WE FQ aA BR BR RK 


VALUE 73 
BEGIN 
RF AL. 
RCW 
MSCW 
COMMON 
ARRAY 
INREC 
ARRAY 
FPB 
LOGINFO 
HEADER 
REA, 
UNIT 
V 
COPY 
MF ID 
FID 


IoD 
t 
R 

REA. 
SEARCHVAL 
CURROW 
FrRSTFID 


SEGNR 

REA). 
X 
NUM 
RECOUNT 


tT & WORKSFT 
FHURE PRNPBTSPFCASE1¢2Z)3 


12477000 
12500000 


START OF REL SEGMENTS DISK 


THTS PROCEDURE HANDLES THE FOLLOWING FUNCTIONS FOR COM19> DFPENDING 


F VALUF OF Zt?! 
FINDS THE NEXT REEL OF TAPF, 

FINDS THE NEXT REEL OF A BACK=UP OtSK FILE. 
HANDLES THE @T + OR = MESSAGE, 

INITAILIZES A NEW FILE COR PACKET), 

HANDLES TERMINATION OF A FILE, 

REAL 73 


RCWs+0, MSCW2"9, COMMONES4$ 


INRECS+1[*)5 


FPRsINREC+i£*J, LOGINFOxFPB+1£*), HEADERSLOGINFO+IC#]3 


UNI TSHEADER4+15 VSUNtT+4. COPY=Vets MFID=SCOPY41»5 FIDEMFID41» 


LODeFINt+te T=100+4s Batet3 


SEARCHVAL#B+1i» CURROW@SFARCHVAL41» FIRSTFIDSCURROW+1 » 


SEGNR=FIRSTFIDe13 
X=SEARCHVAL» NUMSCURROW, RECOUNTSSEGNR3 


BOOLFAN SIGNEDONSSEGNR41» FORMTOG=SSIGNEDON41» ABORTENSFORMT0G413 


SIGNEDON 

FORMTOG 

ABORTED 
BOOLE 


STACK¢F43) = TERMFLAG 

STACK¢CF 417) = NOCONT 

$ SET OMIT = NOT PACKETS 
ROOLEAN STOG2ABORTED+13 


STACK(F424) = STOG 


REAL 


STACK¢F+25) = PCOPY 


AN TERMFLAGELOGINF Os, NOCONTSFIRSTFID3 


PCOPY*STOG+1* PFIRSTFIOsPCOPY413 


12500100 
12500110 
12500120 
12500130 
12500140 
12500150 
12500160 
12500170 
12500160 
12500500 
12501000 
12301500 


12502000 
12502500 


12503000 


12503500 


12504000 


12504500 
12505000 


12505500 


12506000 


12506500 
12507000 


12507500 


ADORESS & 00363 


T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
YT 0000:0 
T 0000:0 
T 0000:0 
T 000080 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 000010 
T 000030 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 000030 
T 000030 
T 0000:0 
T 000020 
T 000030 
T 0000:0 


STACK¢F426) = PFIRSTFID 
fSF7 OmMrT = NOT CRUF AND PACKETS) 
£ SET OMIT = PACKETS 


LABFL RD» RED» SPACEND» NOMORE» NOFILE» AUT» BOMBER» NEXTFILEs 
PNCHLK» PRINTITAGAIN® EOFs PRNTDSs PNCHDSs TAPENDs CONTINUE, 
RETURNFALSE» REMOVEM» TEST» TAPECLs STOPTIMEs RETURNTRUE, 
RETURNTOCOM193 

LABEL LOOKSTAPEs NOMOREFLS» QTSPEC® INITIALIZEs STARTANEWFILES 

SWITCH SW tz 
LOOK4STAPEs NOMOREFLS» QT7SPECe INITIALIZEe STARTANEWFILES 


DEFINE OSED = TERMSETCPUMIX)#, 

QTFED = ¢(PRTICPIMIXs@251]#40)#, 
VF = 43t5#, 
UNITF = 36:5#, 
COPYF = 3008, 
NUMF = 22t6#, 
NOTP = 29348, 
COPYO = 21't#, 

$ SET OMIT = PACKETS 
REELNO = 42368, 

$ POP oMrT OMIT 

$ SET OMIT = RJE 
STA = OF, 


$ POP oMrT 
SEPARATION = 46#$ % FOR 6 LPT, SET IT TO 70 FOR B LPY, 
EES ERE SE SEL ESE SE ESSE SESE SPEC ESE CeCe ESC CCC CPPCC CSE SST ELT Te ST TTT TT 


SUBROUTINE RDYTAPE3 

BEGIN 
B.01889212854;3 
PCWAITIOC@4200000000,0eUNIT) »DEL)S 
PCWAITIOCBeOoUNITT)»WAITIOC Re @40UNTT) es DELeDEL)3 
REF COUNT?=@77777:;3 

END$ 


SH ke RI iO OR OIRO RR ROO ORS a tOE OR 


SUBROUTINE REWJND3 
BEGIN 
STOPTIMING(021023)3 
PCWAITIOC@4200000000,0,UNIT)eDEL)3 
IF CSAVEWORD AND TWOCUNITT))#0 AND PRNTABLECUNITI,C1ist) 
ANn NOT cSvPBr OR QTFD OR NOCONT) THEN 


REGIN RDOCTABLELUN;TI],£886)¢03 %5398 
INDEPENDENTRUNNER (PC PURGE IT) »UNTT2 64) 
END 25398 


FL.SE 
BEGIN LABELTABLECUNITJ+@1143 
MULTTTABLECUNITJ¢RDCTABLECUNITJ«¢03 
SLEEP CETOGLEJ>STATUSMASK)3 
READYe¢READY AND NOT NT1¢TWOCUNIT)? 
RRRMECH*NOT NT4 AND RRRMECH OR NTL AND SAVEWORDS 
ENDS 


12508000 
12509500 
12512000 
12512500 
12513000 
12513500 
12513750 
12514000 
12514500 
12515000 
12515500 
12516000 
12516100 
12516150 
12516200 
12516250 
12516300 
12516350 
12516500 
12518000 
12518500 
12518600 
12518700 
12518800 
12519000 
12519500 
12520000 
12520500 
12521000 
12521500 
12522000 
12522500 
12523000 
12523500 


12524000 
12524500 
12525000 
12525500 
12526000 
12526500 
12527000 
12527500 
12528000 
12528400 
12528500 
12528600 


12529000 
12529500 
12530000 
12530500 
12531000 
12531500 
12532000 


ASH HHH a A A a a 


a ht a se a st st st 


0000:0 
000030 
000010 
000030 
000010 
0000:0 
000030 
000030 
0000:30 
000010 
000010 
0000:0 
000030 
000030 
000010 
000070 
000010 
000030 
000010 
0000:0 
000030 
0000130 
000010 
000030 
000020 
000080 
000030 
000030 
000110 
000130 
000213 
0004i1 
000731 
000830 
12521000 
00141440 
0011340 
0011380 
001130 
001180 
001140 
001280 
001332 
001512 
002010 
002330 
0024!:0 
12528400 
0024S) 
002414 
0027I1 
002942 
003140 
0033%2 
003610 
12529500 


FINI); 


He Re ae OR RO KOI NOR EUR NR RO ORO RRR ROO ORK Bi ak i kk ok 


BOOLEAN SUBROUTINE LOOKFORTAPES 
BEGIN 
TIHZ=RDOCTABLELUNIT)3 
REWIND; 
IF SIGNEDON THEN FPBP4I8*FPRC4I*LOGINFOL 24] =CLOCK@PCRTR)E 
TF PCCTISEYNOINPUTCME [pe O@1222123425464N7 eT L1dt1OleioT C2ati7 ds 
"000,T%#20,020,0)) GEQ Os DUP) THEN 
RFGIN 
ROCTABLECUNITisTI,f8t6}taPiMyXs 
LABELTABLECUNIT)%eF 103 
FPBtePRICPIMIX»3])3 % FINDINPUT CALLS STARTIMING 
IF SIGNEDON THEN FPBL4]8sFPBC4)+LOGINFOC241+CLOCK+PCRTRD3 
RDYTAPES 
END} 


LOOKFORTAPE:=P3 
END} 


FORO ORO OI IIOIG II IIOR IOI IOI IOI II IO ICI IOI IOI IGOR IOIOR ORO GIORGIO i OFOi iG 


REAL, SUBROUTINE REANTAPE? 
BEGIN 
ae IF DSEN OR PRIFPIMIX,@25]#5 THEN BEGIN P(5S)$ GO TO RED ENDS 


IF WAITTIOCRe@2000040,UNIT), £4281] THEN 
RFGIN 
PCWAITIOCB®@2000040sUNI T)»DELDS 
Te MrR [NX 3] TyEN 
IF LOOKFORTAPF THEN GO TO Rp 
Pr3)3 
Go To RED: 
Enns 


FOR T!:317 STEP 18 UNTIL, 89 DO 
IF MCB INX T)ef2081] THEN T3*2563 
P(CT>200)3 
RED: READTAPES=P3 
ENns: 


BE Re eke I RIO RRO IOIOR SOKO OR ERR IORI Sk IO ok 


BOOLFAN SUBROUTINE SPACETOFILES 
BEGIN 
XtaNUM3 
WHILE ¢(Xte#X=1) GEQ 0 DO 
BEGIN 
DO UNTIL CTSeREADTAPE)S 
IF T GEQ@ 3 THEN BEGIN P(1)# GO TO SPACEND END; 


FNO: 


12532500 


12533000 
12533500 
12534000 
12534500 
12535000 
12535500 
12536000 
12536500 
12537000 
12537500 
12538000 
12538500 
12539000 
12539500 
12540000 
12540500 
12541000 


12541500 
12542000 


12542500 
12543000 
12543500 
12544000 
12544500 
12545000 


12545500 
12546000 
12546500 
12547000 
12547500 
12548000 
12548500 
12549000 


12549500 
12550000 
12550500 
12551000 
12551500 


12552000 
12552500 
12553000 
12553500 
12554000 
12554500 
12555000 
12555500 
12556000 
12556500 


— 12557000 


tt it CA A tt A 


“st ts st 


+ 


003610 
12526000 
0036314 
O036%¢ 
003631 
003641 
003730 
0037180 
003810 
003980 
004330 
004510 
004912 
005010 
005310 
0054114 
005583 
0059183 
0061:0 
12538000 
006110 
006141 
12535000 
006330 
006380 
006310 
006310 
0063#0 
006310 
12545000 
0067%2 
006911 
006983 
007141 
0072%3 
007413 
007510 
007710 
12546000 
007710 
0078:0 
008312 
0084:1 
008412 
12544500 
008433 
008433 
0084t3 
0084:3 
008510 
008510 
008583 
008810 
008610 
009030 
12556500 
009210 


P¢0)3 
SPACEND!: 
SPACETOFILE!=P3 
END} 


FOR IOI ICICI IOI IGIOIO III IG HOI IG IOIOI SIGIR IIIIOI IOI IIIS RSI IOI RR iO R NOIOR Roi Gi ok 


ROOLFAN SUBROUTINE FINnFILES 
BFGIN 
1F HEANER, FCF] GE@ 64 THEN FORGETSPACECHEADERD3 ¥1598 
TF CHEADERtSDITRECTORYSEARCHCMFID,@*FID,SEARCHVAL)) LSS 64 THEN 
GO To NOMORE? 
HEADERs ®(MCHEADERJ ]&30(8!38210)3 
SEGNR?E £03 
CURROWs:=103 
IF ABORTENt®HEADER( 5) e¢£231] THEN 
IF HEADFRE7]20 THEN 


BEGIN 
NOMORF! P(1)3 
GO TO NOFILF3 
FND? 
LABEL TABLELV}tsNABSCFID)3 
P(0)3 
NOFILE: FINDFILE:ep3 


FND: 


TIO IOI III OIG IGG I IIIS GIO IDR IOI IE IO KOGIOI ON HOR aE ROH Kok 


BOOLEAN SUBROUTINE NOMOREREFELS$ 


BFEGrN 
TF FID, fREELNOJ30 THEN 
Pet) £1598 
FL.SE B1598 
BEGIN 
STREAMCONES#4* Fea=lFInd); 
BEGIN SIr#LO¢ ONE; DS:?8 ADD END; 
PCFINDFILE)$ 
FNns 
NOMOREREELS!? sP3 
END} 


$ SET amit = NOT PACKETS 
TT ETE Tere TET TPS TOLL ITeTereTT LITE TeLITETTTTCTTT LOTT CTT TT TTT TTreTrTTT 


BOOLEAN SUBROUTINE NOMOREFILES3 
REG]N 
IF NOT PCFIN.£3081213"99" OR COMMON. CENOTPJ]* DUP) THEN 
BFGIN 

PCDELDS 

STREAMCONE 315 rtelFin])$3 


12557500 
12558000 
12558500 
12559000 


12559500 
12560000 
12560500 
12561000 
12561500 
12561600 
12862000 
12562500 
12563000 
12563500 
12564000 
12564500 
12565000 
12565500 
12566000 
12566500 
12567000 


12567500 
12568000 
12568500 
12569000 


12569500 
12570000 
12570500 
12571000 
12571500 
12572500 
12573500 
12574000 
12574500 
12575000 
12575500 


12576000 
12576500 


12577000 
12577500 


12578000 
12578500 
12579000 
12579500 
12580000 
12580500 
12581000 
12581500 
12562000 
12582500 


AAA AHHH HHH HON HA HS 


A4 Ae ABW HVVHAH WAS 


AAW HH 


12555500 
0092!2 
009233 
009913 
009340 

12554000 
009331 
0093t1 
0093t! 
009381 
009410 
0094140 
0097170 
009912 
0100:0 
010232 
010321 
010410 
010532 
010710 
010732 
0107:3 
04O8s4 

12565500 
010874 
010933 
011030 
011021 

12561500 
011082 
011072 
011032 
011012 
011120 
041120 
011221 
0113:0 
011330 
011332 
0114:2 

12575500 
0115714 
0116:0 

12574500 
011680 
0116314 

12571500 
011612 
01162 
0116:2 
011682 
011612 
01780 
011730 
011923 
012001 
0120182 


BEGIN SttshOc ONES S 
= 


463 DLbeD1+53 
NSt=2 ANNs DSt "3 


ENDS 


FIRSTFIDt=FID$ 
PCFINDFILE)3 
FND3 


NOMOREFILES:=P3 
ENDs3 


$ POP OMIT 
2 IOI RI RIO IORI IOIOIOIIOI IOI IOI Rk kok sO toi ok iio 


SUBROUTINE REMOVEYTS 
BEGIN 
TtaNTRFECTORYSEARCHC@*MFIDe@cF IN i sPFYRSTFID) »SEARCHVAL)3 
tF T GE 44 THEN 
$ SET om? = NOT PACKETS 
NO BEGIN 
$ POP oMrT 
NO fF FrostOD THEN GO AUT UNTIL NOMOREREELS3 
$ SET OMIT = NOT PACKETS 
END UNTYL NOMOREFILES3 


£2 FOP oMyT 
AUT? 
END: 


SAO ORO IO IG OI IOI OIRO; IOI AGI IOI GIO I IOI IORI GIORGI IO RIG SOI IGG i aOR ii 


SUBROUTINE PAGFUFCT? 
BEGIN 
$ SET omrT = NOT RJE 
PCWATTIOC@4000700000r0sV)» DEL 
END: 


FoR ROO RR RRO IRI IOO OR IOI ICR IOIORIOIOIOIOIO IOI IORI Gi gotOKG i toto ik 


SUBROUTINE WRITERS 
BFGYN 
$ SET OMyT = NOT RJe 
PewArTrOcB INX 8210104000000,00V), DELI 
END3 


FAO RII IOI ROIS IUIGIOI IOI IOI IO IO IOI IG OI IOI IIR ORR NOI IOI ioe ak ke ae toe ak 


SUBROUTINE [NLETIMERS 
BEGIN 
STOPLOGCPIMIXs1)3 
PCPIMIX)S PIMIX?303 
INLETIMES 
PIMIXseaPs 


12583000 
12583500 
12584000 


12584500 
12585000 
12585500 


12586000 
12586500 


12587000 
12587500 
12588000 
12588500 
12589000 
12569500 
12590000 
12590500 
12591000 
12591500 
12592000 
12592500 
12893000 
12593500 


12594000 
12594500 
12595000 


12595500 
12596000 
12596500 
12597000 
12597500 
12898000 
12600500 
12601000 


12601500 
12602000 
12602500 
12603000 
12603500 
12604000 
12607000 
12607500 


12608000 
12608500 
12609000 
12609500 
12610000 
12610100 
12610500 
12611000 
12611500 


AAHA HHH HAA HHA ATA A A  OH O HAA OHS 


AAA HHH 


AAHAHAA HA 


0121°2 
012231 
012330 
12583000 
012331 
012430 
012530 
12581500 
0125:0 
0125t4 
12580500 
012532 
0125%t2 
012582 
01425%2 
0125!2 
012670 
012630 
012833 
012932 
0129132 
0430:0 
0430:0 
0132°2 
0132:2 
12591500 
0134!2 
013412 
0134%2 
12569500 
013433 
013413 
013433 
013453 
013570 
013530 
0135%0 
0136%2 
12597500 
0138:0 
013870 
0138:0 
0138:0 
0138:0 
0138:0 
0138:0 
0140;0 
12603500 
0142:0 
0142:0 
014270 
0142:0 
0142:0 
0142:0 
0144:2 
0145:2 
0146:0 


$ SET OMIT = NOTCNEWNLOGGING) 
LP ARTLOGCPIMIX GS : 


END TOLFTIMERS 


rEEC ES EPL EE ESSELTE ST SEC EES ETE SPST SSE eee eC Te eS ee PP eet Tee TT eee 


SUBROUTING SFTUPTNRECS 

BEGYN 
INRECiwCMPB INX CUNT T#48)I17818L82388{0F}3 
INREChA7) 8a Ot 

FNM? 


SEK OR ROO OO IOI RIOR ROI II IOI ORIG IO IOI IOI RR RIOR OIG gC HOK ie tei 


SUBROUTINE INVALTONUM; 
BEGIN 

FILEMESSC™ INVALID es "F ILE "eOe"NUMB #™eNUM412020)3 
ENDS 


eee ELT ee PTT SSeS TT Eee TCS TST TTT TT TTL TTT TTT TTT TT TTT TTT TTT TL TTT TTT LTT 


PeNrlLeZeMSCWsSTF)3 
Go To SWrPJ# = -& LOOK4TAPE*NOMOREELS*QTSPEC® INITIALIZE sSTARTANEWF ILE 


% 
% LOOKFORTAPE FINDS THE NEXT REEL. THE FIRST RECORD IS A LABEL SO 
a INRFC IS MOVED DOWN TO SKIP IT, 


LOOK4TAPE: 


PCLOOKFORTAPF)} 
IF MCB4+89),018111720 THEN % LABEL RECORD 
BEGIN 
tNRECeCNOT 17) TNX INREC3 
RECOUNT+O} 
END: 


GO RETURNTOCOM]9$ 
NOMOREELS# 


PCNOMORERFELS)§ 
GO RETURNTOCOM193 


QTSPEC! 


PRT¢PiM{Xe#25]3203 
PCT ys % BE CAREFUL OF THIS, 
IF UNIT®18 THEN ® DISK PORTION 
BEGIN NT2tsceT, £9824) Orv SdaTelis2rids 
TOD@sCHEADFRE(G) Div 3)x33 % CALCULATE TRUE ROw SIZE 
IF C(T&#e3xXNT2+4SEGNR) LSS 0 THEN ® SPACE BACKWARD 
NO IF CCURROWSsCURROW"{) LSS 10 THEN % TO A PREVIOUS FILE. 
REGIN 
IF FIDSFIRSTFID THEN GO TO BOMBERS 


12643000 
12613500 
12614000 
12644500 
12615000 
12615500 
12616000 
12616500 


12647000 
12617500 
12618000 
12618500 
12618750 
12619000 
12619250 


12619500 
12620000 
12620500 
12621000 
12621500 
12621900 
12621910 
12621920 
12621930 
12622000 
12622100 
12622500 
12623000 
12623100 
12623200 
12623300 
12623400 


12624000 
12624400 
12624500 
12624600 
12625000 
12625500 
12625900 
12626000 
12626100 
12626250 
12626500 
12626750 
12627000 
12627500 
12628000 
12628500 
12629000 
12629500 


4 4-4 


AA Hato 


a 


AAH HAHAH HHH ADU AHH 


oe ee ee ee ee ee ee ee ee ee oe 


0146:2 
014622 
0149:0 
12610000 
04a9s4 
0149:4 
O149%4 
0149:4 
0150:0 
0150:0 
045371 
015452 
12645000 
0154:3 
0154:3 
0154:3 
0154:3 
0155:0 
0155:0 
0158:0 
12618750 
0162:0 
0162:0 
0162:0 
0362:0 
0463°2 
0166:3 
0166:3 
0166:3 
0166:3 
0166:3 
016623 
0166:3 
0168:0 
0170:2 
017170 
0172:3 
0173:2 
12623100 
0173:2 
0174:0 
O174:0 
0174:0 
0174:0 
0175:0 
017522 
0175:2 
017532 
0175:2 
OL77 44 
017752 
017881 
0181:2 
0183:2 
018533 
0188:0 
0488:2 


IF SEARCHVAL®3 THEN PcDIRECTORYSEARCHC*MF IDs FIDe13)eNEL)? 
FORGETSPACECHEANER)3 

STREAMCONE? 345 FlelFID))3 

BEGIN SITt=Loc onE€s OSs28 SUB END? 


IF CHEADER?®0IRFCTORYSEARCHC(MFIDeFID*#5)) LSS 64 
THEN GO BOMBERS 

HEADER? SCMCHFADFRI 183006: 38:10)3 

CURROW?S SHEADER(9),(4335]+93 

WHILE HEADERECURROW]=0 DO CURROW?*CURROW#13 

TF CURROW<10 THEN 

BEGIN 


BOMBER: NTit="RANGE 413 


TF CNT28eP),72'4] THEN Z LEFT AT 12626500%1 68 
NTZPeNT 1 RMeMr ADs yrts6s3 
FILEMESSC®™NVALIDN' >» "QT 0, 

NTIsNT2,69324]2020)) 
FRTCPIMTXs@25)]3 253 
GO ReETURNFALSES 


Z FORCE A QT 
FND: 
END UNTIL cTt=70D4T) GEA O 


E| SE % SPACE DISK FORWARD 
BEGIN 
IF T GEQ 10D THEN Z% To ANOTHER ROWe 
Do % CHECKING FOR NEW FILE 
IF (CCURROW;SSCURROW+1) GEQ CHEADERI9].04315)+10) THEN 


NEXTFILeEs If NOMOREREFLS THEN GO TO BOMBER 


UNTIL CTr=T" 10D) LSS 1003 
Ip CcURROW"10)x10On+T GTR HEADFRE7)x3 THEN 
qQ TO NeXtrybles 
FNDS 


SEGNRieT? 
PC19)3 
END ELSE % TAPE PORTION 


REGIN 
1F T.f2:1) THEN % SPACE BACKWARD 
IF CT:##rel9824)) LSS INRECOL7).0¢CF] THEN 
BEGIN 1On:*(T+4) DIV 353 
NO PCWATTIOC( S89 INX B98702254523) 509UNIT) eDELY 
UNTIL CrOnts1On"1) LE® O OR NSFED OR ATED 
REcOUNT: 353 
END FLSE GO TO BOMBER % REEL SWITCH NOT ALLOWED 
Et.SE& 
BEGIN TF cloOssT.c9i7a4j) DIV 5) # O THEN & SPACE FORWARD ¥168" 
No UNTIL CXtsREADTAPE) OR ClOD##10D=1)703 
IF Iqn#o THEN 
IF X#5 THEN GO TO BOMBER} % S3DS"ED. LET IT Fall THRU, 
RECOUNTI303 
FNS 


RecOUNT8#¢(McR TNX 17] yNX NOT RECOUNT). CCEI3 
P18); 


12630000 
12630500 
12631000 
12631500 


12632000 
12632002 
12632500 
12633000 
12633500 
12634000 
12634500 
12635000 
12635500 
12636000 
12636500 
12637000 
12637500 
12638500 
12639000 


12639500 


12640000 
12640500 
12641000 
12641500 
12642000 
12642500 
12643000 
12643500 
12644000 
12644500 


12645000 
12645500 
12646000 


12646500 
12647000 
12647500 
12648000 
12648500 
12649000 
12649500 
12650000 


12630250 
12650500 


- 12651000 


12651500 
12652000 
12652500 
12653000 


12653500 
12654000 


4a4n454 


ee 


Ade Aaa eH 


ANA AAO HH AHA HH 


44 


018933 
0492:3 
019333 
0194:3 
12631500 
0195%2 
019731 
0198t14 
020033 
020233 
0206:0 
0206:t3 
020714 
020830 
020930 
021171 
O211%1 
O214t1 
0216:0 
022010 
12634500 
022030 
12629000 
022151 
022211 
0222:3 
0223:2 
0224:0 
0227:0 
022930 
0232:0 
023570 
0235'2 
12640500 
0235%2 
023641 
023632 
12627000 
023632 
0237:0 
023733 
024033 
024310 
024630 
025133 
025212 
12648000 
0252t2 
0252t2 
025511 
026020 
0260:3 
026212 
0263t1 
12650500 
026331 
026612 


END3 
% 
% FIX Up ITNREC*® BUILD To DESC AND QT MESSAGE AS NEXT TO BE WRITTTENe 
% 
P(T:*R INX PCXCH)); 
INRFCrtINRECRAPCXCHIICTCI3 
METPLIE=ZCRECOUNTS+1 A741 e417 at yv422 (2984484) 
NTis=P3 & LEFT AT 12626500 
STREAMCALENTI CIF 24)» CHENTL,C2:1)5 PNCHt=ve22, BsaT718)3 
REGIN NS2elh LyTedeccecdedeeece 3 
CrteCl+PNCH? GO TO PRNT? DSts7 LIT*® PUNCH™S GO TO L13 
PRNTItnSts7 LITMPRINTERS 
Lit O8%ao41 LIT™ BACK UP FILE SPACED #3 
CyiaCI1+C3 GO To FER’ DSte4 LIT*BACK"™s GO TO Los 
FER: D0S!34 LIT" FOR'S 
L23 OS83=4 LIT*WARD"? 
SItt=LOC As DSt?36 DECS Bt=DI3 DI ted 763 
pSt=5 FILLS DItFB3 
CTSeCT+PNcH t GO TO LIN: ONSte5 LIT™ CARD" GO TO L3; 
LIN: p8%s5 LIT™ LINES 
L3: pStei7 LIT*S, >>>>>>>>>>>>>>%; 
BisDyps SypeeRs SpteSp~8s DSsa27 WOS3 
ENDS: 
GO RETURNTRUE: 
INITIALIZE? 
a HANDLES MIS@ELLANEQUS SETUP TASKSs INCLUDING STARTING THE TIMING FOR 
% LOGGING» CHECKING AND REANYING THE INPUT FILE AND SPREANING COMMONe 
% 


Row, CCF It=PC.COMI19*LOD) TNX 13 


$ SET OMIT = NOT RJE 


ViscOMMON, CVF ]3 
IF PC, YNREC*LODI#O THEN 
BEGIN 


$ SET OMIT = NOT RUF 


BEGIN 

IF LABELTABLECV)+(1%85]#@21 THEN % PRINTER CL*EN 

BEGIN 
IF CUNITS=cOMMON,CUNITFJ)<16 THEN 
IF LABELTARLECUNTT]2@21000000606060608 

TINUEVI£6330118] THEN SETNOTINUSECUN]T20)3 

GO TO INITTATES 

END3 


LABEL TABLECVI,(5%1) #203 
ENDS 


PRICPIMIX,@25]1203 
PIE(GETSPACEC91» LOBUFFERAREFAVL 42 &90L8838NL 013% £167" 
ENDS 


$ SFT OMrT = NOT Rude 


ROCTARLECV), C686] aPIMyX$ 
STARTIMING(50V)3 


12654500 


12654900 
12654910 
12654920 
12655000 
12655500 
12656000 
12656500 
12657000 
12657500 
12658000 
12658500 
12659000 
12659500 
12660000 
12660500 
12661000 
12661500 
12662000 
12662500 
12663000 
12663500 
12664000 


12664500 
12664900 
12665000 
12665100 
12665110 
12665120 
12665130 
12665500 
12665750 
12667750 
12668000 
12668250 
12668500 
12669250 
12669500 
12669750 
12670000 
12670250 
12670500 
12670750 
12671000 


12671250 
12671500 


12672000 
12672500 
12673000 


12673500 
12675000 
12675250 


AHHH MANA AAA A CA AH A It FA 


~us ts 


4-4-4 


026693 
12646500 
026633 
026613 
026613 
026633 
0268:0 
026912 
027412 
027510 
027812 
028013 
028310 
0284%]4 
026731 
028930 
028983 
029082 
029182 
0292:0 
0294:0 
029530 
0297:2 
029832 
12657500 
029833 
0299%1 
029931 
0299t1 
029911 
029971 
029984 
029981 
030131 
030441 
0302!2 
0303%2 
0304:0 
0304:0 
030410 
030532 
030610 
030783 
030930 
031210 
031212 
12669750 
O312t2 
031540 
12669250 
031580 
031683 
032030 
12668250 
032030 
032040 
032212 


START 
FpBis 
COPY: 
IF UN 
REGIN 
$ SET OM 


$ SFT OM 


$ POP nM 


END € 


BEGIN 


ENDs 


SETUP 


IMINGCOSUNTTS=COMMON.CUNITFI)3 
PRTC PtmMI Xe 378 

SCOMMONe(COPYFI3 

17*=18 THEN 


MF INns2IF v222 THEN “PUD " ELSE *PRH ie 

1T = NOT RVE 

FIRSTFINSHLARFLTARLEFVI,(6:42)3 

1? = NOT PackrTSs 

TF NOT COMMON, NOTP) THEN BEGIN PCOPY#2COPYS COPYt=0 ENDS 


PFIRSTFIDe= 

1T 

FIDteFIRSTFID: 

SEARCHVAL3=33 

IF FINDFILE THEN GO RETURNFALSES 
LSE. 


ARORTFENI503 
NOCONT: SCC NUMS SCOMMONSCNUME I) OR COPY)#03 
MF IDS=MULTITABLECUNTTI3 
1F LABELTABLECUNITJ.¢1:5)4@21 THEN 
BEGIN ABORTED! =23 

G6 RETURNFALSE3 
END} 


% UNIT WAS ChLeFD WHILE 
% WE WERE SCHEDULFD, 


FINtSLARELTABLELCUNIT]2&(*PC(DUP) 80524781) 
RMCTABLELUNITI,CO8:6]32P1MIX3 
RNYTAPES 
IF SPACETOFILE THEN 
BFGIN 
IF Ts3 THEN rNVALTONUMS 
GO RETURNFALSFES 
END? 


% SET BY READTAPE TF FOT, 


INREC! 


GO RFTURNTRUE} 


STARTANEW 


FIRST 


B@ Be DR 2G 


FILE: 


HANnLES THE END OF A FILE AND FIGURES OUT WHAT TO DO NEXTe BUT 


» THE LOG MUST BE TAKEN CARE OF, COONT USE T BETWEEN HERE AND 


THe TrST AT 12705750,) 


IF ABORTED=2 THEN GO To TAPECL? 


IF SI 


BEGIN 


GNENON THEN 


LOGINFOCL 2] ¢eeP COUP )#PROCTIMELCPIMIXI+CLOCK4#PCRTR YY 
LOGINFOCLIZ)3S1OTIMECPIMIXIJ=CLOTIMELPIMIXIS =LOGINFOC13) 93 
OLNIDLETIME ss SO0LDIQLETIME+LOGINFOL1I2)3 

PROCTIMELPIMIX] $@aPCHuPIMLOGINFOCL213 

INLETIMERS 
LOGINFOCLS]PSJARCPIMTX,7I@CJARCPIMIXe7I2BLOGINFOL14))3 
LOGINFOLL7)%sXCLOCK+PCRTR)3 


12675500 
12675750 
12676000 
12676500 
12677000 
12677500 
12678000 
12679500 
12680000 
12680250 


12680500 
12681000 
12681500 
12682000 
12682500 
12684000 


126845300 
12686000 
12686500 
12687000 
12687300 
12687400 
12687500 
12687600 


12687700 
12688000 
12689000 
12690500 
12691000 
12691500 
12692000 
12692500 


12693000 


12693500 
12694000 
12694400 
12694500 
12694600 
12694610 
12694620 
12694630 
12694640 
12694800 
12695000 
12695500 
12696000 
12696500 
12697000 
12697500 
12698000 
12698500 
12699000 


A MHHHHMH HH HHH FHA HAH 


+4 


Ot tt tt tt 


032342 
032582 
032780 
032881 
032910 
032982 
033231 
033201 
0334%2 
0334%2 
12680250 
03372 
03371%2 
0337%2 
03386:3 
033912 
0341383 
42677000 
0341383 
0346:0 
034613 
034932 
0350!2 
035210 
035331 
0353183 
12687400 
035323 
035673 
035981 
036010 
036130 
036182 
036410 
036412 
12691000 
036482 
12684500 
036412 
036610 
036632 
0366t2 
0366%2 
036612 
036612 
036612 
036642 
036682 
036713 
036810 
036882 
0371183 
037510 
037612 
0378:3 
038010 
038454 


OGINFE DSE *? &DAT 8330] 

LOG INFOS STTarPBESIeTINUCUw Tic aatyetyods 
LOGINFOLZBIPSFPBLRIRTINUIVIL24¢°188¢ 2I&FORMTOGL42247121)3 
TINUCUNIT].C18:12] :203 TINUCVIeC1Bs12) 3203 
SIGNEDONS&LOGINFOL2Z4]+CLOCK+4PC(RTR)3 
LOGINFOC24]:=LOGINFOC29I8=51GNEDON?S 

FPRC 4] :=C aPC OUP) I"SIGNEDONS 
FPRL9O]:2CePCHUPIIM®SIGNE DON: 
LOGSPaceCrLOGINFOrfQ31530)3 
FORGFTSPACECLOGINEGO); 

STGNENONISO3 


3750" 


END} 
% 
% IF NSED OR QTEN+e SKIP THE CHECKS FOR COPIES, 
% 

IF CTERMFLAGS=DSED OR QTENx3) THEN 

If V#22 THEN GO TO PNCHDS ELSE GO TO PRNTDS} 

¥ 
% T 1S SeT IF THe FIRST art FalbS. THIS SHOULD ONLY HAPPEN AT THF END 
% OF a RBACK@UP TAPE. NOTF THAT IF A FILE NUMBER IS SPECIFIED» INITIAL®@ 
% 1ZF ONLY SPACES TO 17S STARTs SO WE MAY CATCH AN INVALID NUMBER 
% HERE, SINCE ONLY ONE FILE IS PRINTED WHEN A NUMBER IS GIVEN, IF WE 
% ARRIVE HERE» IT MUST HAVE BEEN A BAD NUMBER. IF IT IS DESIRED To 
% CONTINUE DoWN THE TAPE AFTER THE SPECIFIED FILE» THIS TEST WILL NEED 
z To RE CHANGED, 
% -~ 

IF tT THEN & FIRST GET FaILeo 

Ip UNI T#18 THEN 
BFGIN 
IF COMMON, CE NUMF 140 THEN TNVALIDNUMS 
60 TO TAPFND:; 
END FLSF GO REMOVEM; 

% 

a eCOPYteCoPY#1) GTR O THEN % MORE COPIES OF FILE RQp, 

EGIN 

IF Vs2> AND PUNCHLCK THEN 
BEGIN 


PNCHLK 3 STREAMCPIMIX, Ts2T3=SpACEC10))93 
BEGIN ASts25 LIT"#PNCH LOCKEDSPRNPBT/DISKe"3 
STtsLOC PIMIXs DSte2 DECS DSIELIT"e"; 
OLssnt"3s nSrF Ibs 
END3 


SPOUTCT)3 


ReEPLYCPIM]XI]teNaBSCT teVOKRVWY (3684286) 2VQTC 3084226) D3 


COMPLEXSLEEPCREPLYECPimMIxX]>O OR DSED)3 
ACCIDENTAL FNTRY AT 1 
Te NOT WHYSLEEPCT) THEN GO TO PNCHLK3 
TF DSEN OR QTED THEN GO STARTANEWFILES 
END} 


IF UNTTst8 THEN % DISK 
BFGIN 
$ SET OMIT = NOT PACKETS 
IF NOT STOG THEN STOG:8SFARCHVALS33 


12701000 
12701500 
12702000 
12702500 
12703000 
12703500 
12704000 
12704500 
12705000 


12705100 
12705110 
12705120 
12705250 
12705500 
12705600 
12705610 
12705620 
12705630 
12705640 
12705650 
12705660 
12705670 
12705680 
12705750 
12706000 
12706250 
12706500 
12706750 
12707000 


12707100 
12707280 
12707500 
12707750 
12708000 
12708250 
12708500 
12708750 
12709000 
12709250 


12709500 
12709750 
12710000 


12710250 
12710500 
12710750 


12711000 
12711250 
12711500 
12712000 


AA AHHH HHA A A HH AH Ot 


444 HH HANH 


a 


038680 
039040 
039233 
039682 
0401382 
040312 
040533 
040733 
040983 
041130 
041270 
041283 
12695500 
041293 
041233 
041233 
041213 
041730 
O4193t 
O41991 
0419381 
041981 
041941 
041991 
041991 
041991 
041931 
041911 
041932 
042033 
042141 
0424:0 
042422 
12706250 
042482 
04242 
O426t1 
042633 
042632 
042910 
0432140 
0435%2 
043682 
0437140 
12708500 
043781 
043882 
O442t2 


044983 
045310 
045510 
42708000 
045510 
0455%3 
045641 
045681 


$ POP OMIT 
PRINTITAGAINS 


END: 


TF ROCTABLELUNTTI,£14%210]44 THEN 
REGIN 


IF SPACETOFITLE THEN GO TO FOF ELSE GO TO CONTINUES 


END Ss 


FyOtef (RSTFID; 


SEARCHVALS253 


TF FINDFILE THEN GO TO EOF ELSE GO TO CONTINUES 


ROCTABLECUNITI,£14£10]2=03 
Tr NOT LOOKFORTAPF THEN GO TO FOF 
ENN ELSE 


ROYTAPES 


& SET OMTT = NOT PACKETS 
IF UNTTs418 THEN 


BEGrN 


IF ST0G 


TF NOMOREFILES THEN 
IF cPCOPYt=PCOPY*;) GTR O THEN 


BEGIN 


THEN BEGIN 


% TAPE 


% THIS 'SNT FIRST REEL 


& CHECK FOR COPIES OF PACKET 


SFARCHVAL$#=35 


FIRSTFID&tsPFyYRSTFIDS 
GO PRINTITAGAIN? 
END ELSE 


ELSE GO CONTINUES 


ENDS 


$ POP OMIT 


FOF: 


% AT THIS POINT» 


% THE OUTPUT BEFORF COING ON. 


STOG#s0 ENDS 


WE ARE THROUGH WITH THIS FILE OR PACKET» 


% TAPE 


CLEAN UP 


® TRY THE NEXT FILE 


% 
PRNTDS! 
PNCHDS! 
IF UN?T#18 THEN 
BEGIN 
TF TERMFLAG OR NOCONT OR ARORTED THEN 
REGIN 
TAPENDS 
REWIND! 
GO To TEST 
END ELSE 
REGIN 
NUMS=NUM413 
RECOUNT3=@777773 
CONTINUES SETUPINREC3 
RETURNFALSF 3 
P¢0)3 


12712500 
12713000 
12713500 
12714000 
12714500 
12715000 


12715400 
12715500 
12716000 
12716500 
12717000 
12717500 


12718000 
12718500 
12719000 


12719500 . 


12720000 
12720500 
12721000 


12721500 
12722000 
12722500 
12723000 
12723500 
12724000 


12724500 
12725000 


12725500 
12725900 
12726000 
12726100 
12726110 
12726120 
12726130 
12728000 
12740000 
12740500 
12741000 
12741500 
12742000 
12742500 
12743000 
12743500 
12744000 


12744500 
12745000 
12745500 
12746000 
12746500 
12747000 


| 


ie ee | 


4-1-4 4 


| 


—a- 


AAN MHA HHA 


4a4 44a 


0458382 
045832 
045832 
045984 
046030 
046210 
12711250 
046230 
0462:0 
046332 
046410 
046632 
046812 
12716000 
046812 
047010 
047210 
12707500 
047220 
047210 
047233 
O473%4 
12721000 
0475t2 
047730 
OATS 
047983 
0480!2 
048130 
12722500 
0481190 
0481%2 
12720500 
048142 
048182 
0481132 
0481%2 
048412 
04861412 
0481%2 
048432 
0481432 
048122 
048241 
04823 
048430 
O48412 
048412. 
048610 
088632 
12742000 
048632 
048730 
048811 
048910 
049010 
049010 


GO RFTURNTOCOMIQS 
END3 


REMOVEMSs 
% DISK = CLOSE THE OPENEN FrlrS ANDs IF NOT QTED» REMOVE THEM, 


TONsmrF SEARCHVAL#23 THEN FIn ELSE NOT O3 
SFARCHVAL!s135 REMOVEITS 
FPBr 4 te¢*PeDUP)I4+CLOCKsPcRTR)E 
IF TERMFLAG#3 THEN % NOT QT#EN 
BEGIN 
TODt=NOT 3 
SEARCHVALt@e73 REMOVETTS 
TEST3 % FOR CONTINUATION FOR AUTOPRINT OR RUF, 
IF AUTQPRINT AND NOT CFORMTOG OR TERMFLAG) AND 
CTWOCV) AND SAVEWORD) #0 
$ SET OMIT = NOT RUF 
THEN 
IF CCOMMONt=SPRINTORPUNCHWAITC™Ve=STA))#0 THEN GO TO STOPTIMES 
FND$ 


TAPECLS 
COMMON! s03 
FORGFTSPACECB)3 
$ SET OMIT = NOT RJE 
SETNOTINUSE CVeFORMTOG)3 
STOPTIMEFS 
STOPTIMING(5s1023)3 
RETURNTRUE? 
Pc1y3 
RETURNTOCOMI9S3 
PcO,RMSe1sSURS0sXCHeCFXsSTF)3 
END OF FIRST PRINTER BACKUP SPECIAL CASES PROCEDURE3 


12748500 


12748900 
12749000 
12749100 
12749110 
12749120 
12749500 
12750000 
12750250 
12750500 
12751000 
12751500 
12752000 
12752500 
12753000 
12753500 
12753750 
12755000 
12755500 
12756000 


12756400 
12756500 
12757000 
12757350 
12757500 
12757750 
12758000 
12758250 
12758500 
12759000 
12759500 
12760000 


a4 
oo 


12744500 
0492140 
12741000 
049280 
049210 
049210 
049210 
049210 
049210 
049510 
049710 
0a499%2 
050084 
050083 
050183 
050410 
0504:0 
050670 
0507!1 
0507%t1 
050830 
051170 
12751000 
051142 
051112 
051241 
0513170 
051380 
051440 
051480 
051510 
051540 
05151 
0515!4 
051812 
12501000 
SIZE= 0519 WORDS 


_" 


A HM H NNW HAH 


AMAA WH 


PRT(621) = 


STACK ¢F 40) 
STACK¢Fe2) 
STACK¢F@4) 


STACK¢F 41) 


STACK¢F 42) 
STACK(F 43) 
STACK (F 44) 


STACK CF 45) 
STACK (F 46) 
STACK ¢F 47) 
STACK CF 410) 
STACK¢F 411) 


STACK (F412) 
STACK¢ F413) 
STACK ¢F 414) 


STACK (F415) 
STACK(F 416) 
STACK ¢F 417) 
STACK ¢F 420) 
STACK¢F 415) 
STACK¢F 416) 
STACK (F420) 
STACK ¢F +421) 
STACK (F422) 
STACK¢(F 423) 


STACK (F417) 


STACK¢ F424) 


STACK ¢F 425) 
STACK(F426) 


PROCEDURF 


PRNPBTSPFCASF2 


Hil 


Ce ee 


% 
z 
: ; 
% ? 
Zz 
VALUE 23 
BEGIN 
REAL. 
RCW 
MSCW 
COMMON 
ARRAY 
INREC 
ARRAY 
FPB 
LOGINFO 
HEADER 
RE Al 
UNTT 
V 
COPY 
MFID 
FIN 


10D 
T 
B 

REAL 
SFARCHVAL 
CURROW 
FIRSTFIO 


SEGNR 
RE AI, 
x 
NUM 
RECOUNT 
BOOLE 
SIGNEDON 
FORMTOG 
ABORTED 
BOOLE 
NOCONT 


ques PROCENURE HANDLES ADNITIONAL THINGS FOR COM19, 


PRNPRTSPECASE2(Z)5 


12800000 


START OF REL SEGMFNTS OISK 


VALUES OF Z ARE 
INTTATLIZE LOGGING, 

WRITE ABORT OR DOSED MESSAGE ANO CONSTRUCT ENDING LABEL, 

HANDLE PARITY ON INPUT FILE. 


REAL Z3 


RCW=+0, MSCW2"2s COMMONS *43 


TNRECS410*)3 


FPBeINREC+1(*], LOGINFOsFPB+10*), HEADERSLOGINFO+I[ *}3 


UNITEHEADER+1» VEUNIT+1» COPY2Vel1s MFID=COPY+1» FIDSMFID+1s 


LODeF(N+1> TLOD+1+ Bate 


SEARCHVAL=B+t»> CURROWSSFARCHVAL4é 1s FIRSTFIDSCURROWS 4» 


SEGNRsFIRSTFID41? 


X=SEARCHVALs NUM*CURROW, RECOUNT=SEGNR3 


AN SIGNEDON=SEGNR+4t* FORMTOQGsSIGNEDON+1*® ABORTEDSFORMTOQG+143 


AN NOCONTSFIRSTFID3 


$ SET OMIT = NOT PACKETS 
BOOLEAN STOGSABORTED+13 


ST0G 
REAL, 
PCOPY 
PrrRSTFID 
SSFET Om? 


PCOPYeSTOG+1» PFIRSTFIDaPCOPY+4153 


T = NOT (RJE AND PACKETS) 


$ SET OMIT = PACKETS 


LABFL 


SLEAPs WHY» EXITTOCOMIYS 


12800100 
128001410 
12800120 
12800330 
12800140 
128001580 
12800500 
12801000 
12801500 


12802000 


12802500 


12803000 


12803500 


12804000 


12804500 
12805000 


12805500 


12806000 


12806500 
12807000 


12807500 


12808000 
12809500 
12812000 
12812500 


T 0000:0 
ADDRESS » 00381 
T 0000:0 
T 000030 
T 000030 
T 0000:0 
T 000030 
T 000030 
T 000030 
T 000030 
T 0000:0 
T 000010 
T 000030 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 000030 
T Q00010 
T 0000:0 
T 000030 
T 000010 
T 0000:0 
T 000010 
T 000080 
T 0000:0 
T 000030 


LABrL STGNIN»s ABORTMSGs PARERR? 
SWITCH SW te 
STGNIN» ABORTMSGe PARERR3 


DEF Ne NSED = TERMSETCPUMIX)#, 
QTED = ¢PRTICPIMIXs@25)#0)#, 
VF = 43°54, 
UNITF = 38°58, 
COPYF = 30888, 
NUMF = 22°88, 
NOTP = 29548, 
COPYO = DiMi#s 


ZO OGIO IOI IOI IOI ORG IOIOI IGG IOIGIOIOR OIE OR HORE ok gOi IO aiOiOK & 


SUBROUTINE ;DOLETYMERS 

REGYN 
STOPLOGCPIMIX+1)3 
PCP{M{X)3 PUMIX?sQ3 
IOLETIME3 
PiMIXteP3 

$ SFT OMIT = NOTCNEWLOGGING) 

STARTLOGCPIMIX)3 

END INLETIMER? 


Fi IOI IK IOI RIO IIOIOR IOI IGIOI IOI OI OIGR IOI IOIGIGIOI OR Gk iO OIOR aig tok 


SUBROUTINE FM3 4% BUILN AND SPOUT FORMS MESSAGE &% 
BEGIN 
STREAMCULeTINUC VJs PiMrXe JNRECe DteTs=SPACE(10))3 
BEGIN HStaLIT*#"3 
STIeLOC Us Sypt=S1+53 nSt=3 CHR 
NSt#20 LIT" FM RQMIPRNPBT/DISKa"$ DS8#2 DEC; 
UseNrs NLFSDr723 OStsryLls Dyrseus 
STt=yNREC3 DSt=5 LIT" FOR "3 
SytsS7+13 OSte7 CHRs nNStabL ITs: 
SpieSy+t? DSte7 CHR? pSts4 LIT” OF 3 
Syt=Sy+13 DStea7 CHRs HStabLlTes"3 
StieSy+1? OSte7 CHR 
NStaLyp Ths 
FND; 


SPOUT(T)3 
REPLYCPIMIX] ts 
NABS(TISVOKAVWY 368A O26IRVOT LS Z02 AOI BIRVEMS24t4ot6y)3 
END FM SUBROUTYN$ 


FoR OR IR OR IOI IOI IO IOI IOI OR IOIOR IO IOI OR Ok RIO ka RIOR RIO gb OR ee kk a eK 
SUBROUTINE BADFM3 ZBUILD AND SPOUT BAD FM MESSAGE % 
BEGrN 

STREAMCAt a TINUCT)»MXSePIM[ Xe T= Tt eSPACEC10))3 

RFGIN DOSte19 LIT*INVALYJO INPUT UNTT 3 
SpieLOC MX? pSts2 DECsDSt#2 LUT MN; 
STtsLOc AS SyteS1453 pSta3 CHR 
DSteL IT Me"s Opeepr7Bs OSHS ILL? 

FND: 


12613000 
12813500 
12814000 
12814500 
12815000 
12815100 
12815200 
12815300 
12815400 
12815500 
12815600 
128415900 
12816000 
12846500 
12817000 
12817500 
128617600 
12638000 
12848500 
12819000 
12819399 
12819500 
12820000 


12820500 
12821000 
12821500 
12822000 
12822500 
12823000 
12823500 
12824000 
12824500 
12825000 
12825500 
12826000 
12826500 
12827000 
12827500 
12828000 
12828500 


12829000 
12829500 
12830000 
12830500 


12831000 
12831500 
12832000 
12832500 
12833000 
12833500 
12834000 
12834500 
12835000 
12835500 


sat st st st At 8 


ee ee 


AAs 


AAA AHHH 


000030 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
000070 
000030 
000030 
0000:0 
000030 
0000:0 
0000190 
0000:0 
0000:0 
00034:0 
0001:0 
0003!2 
0004%2 
0005:0 
0005!2 
000532 
0008:0 
12817500 
0008: 1 
000831 
00081! 
000631 
0009:0 
000930 
001330 
0013:2 
001481 
OO1734 
001631 
001922 
0020!2 
002133 
0022!3 
0023%1 
002333 
12823500 
0024:0 
002531 
002523 
003031 
12822500 
003032 
0030:2 
0030!:2 
0034:0 
0031380 
00342 
OO37%4 
0036!4 
003930 
004030 
12833500 


SPOUTCT)3 
FND BADFM SUBROUTYIN; 


SER RA A i ca he a a oe a ace A de ea i a ee ae ae aK kK ak 


SUBROUTINE WRITERANDEUJECT3 
REGYN 
$ SFT OMIT & NOT RUE 
RFGIN 
PCWATTIOCR INX @210104000000,0,V)eDEL)3 
lf V#22 THEN & %£150= 
1F SEPARATE THEN PCWAITI0C@4000100000»0eVI eDEL) %150" 
ELSE PCWAITIOC@4002000000,0eV) eDFLII%150= 
FND3 


END $3 


FRO ORO OIG OR kG IORI Or IG IOI OR IGIOIR i oR iki RG aR ROKR OI gkko oe 


% 
P¢Z,MSCW,STPFI3 
GO TO SWrPT3 


SIGNINS 


HANDLES FIRST RECORD OF FILE» PICKING UP LOGGING INFO AS WELL AS 
COPTES OR FORM SPECIFICATIONSe NOTE THAT LABEL INFO IS SAVED IN 
LOGARRAY FOR USE AT ABORTMSGs TIMING IS STARTED AT INITAILIZE AND 
STOPPFn ITN REWIND» AT REMOVEM OR AT STOPTIME FOR TAPEr DISK AND THE 
OUTPUT UNIT RESPECTIVELY, LOGARRAY IS USED TO REMOVE THE TIME 
ASSOCTATED WITH A GIVEN BaCKkK UP FILE FROM THE TIMING IN THE FPB AND 
LOg 1T TO THE USFR, THAT 15 DONF YN SYGNOUT. THUSs THE TIME LOGGED 
AT PRNPRT/O+SkK ENG TS OVERHFAD TIME OCURRING DURING SWITCHING FROM 
FILE To FILE, 


BR DR BE FE VR BE DA Be DE FE 


LOGINFo += SAVEARRAYDESC(31»LOGAREAV); %167° 
IF FORMTOGt#INRECLI33 THEN FM3 
IF cOPY LE® O AND NOT COMMON-ECOPYO!] THEN 
cCOPYs=IF CINRECE14] aND NOT @377)=0 THEN INRECDCI4] +1 ELSE O32 
LOG NFOlCOJ:=33 
STREAM(StecyNRecl4liepteCLOgiNrocij1)3 
BEGHN SyseS3 pSt=9 WOSs END? 


LOGINFOr10)%s53 
LOGINFOCiI1J% #23 

LOGINFOLI 2] t="C(CPROCTIMELP yMIXIFCLOCK+PCRIR) DS 
LOGINFOL13]:% LOTIMELCPiMIX); 

IDLETIMERS LOGINFOCI4 J: @JUARECPIMIX97I3 
LOGINFOLI5I]£=0ATEs 
LOGINFOL16)2=XCLOCK+PCRIRYS 
LOGINFOCI9O]s=INREC(15]; £1320 
LOGINFOC ZO] s2"PRINTER"S 
LOGINFOC21 1 s2"packwyP™s 
LOgrNpOr22]s=LOGINFOL27) 3203 
LOGiNFOr24]:e"eLOcK=PCRTR)3 


12836000 
12836500 


12837000 
12837500 
12838000 
12638500 
12839000 
12639500 
12842500 
12843000 
12843500 
12843600 
12843700 
12844000 


12844500 


12845000 
12845500 
12846000 
12846500 
12847000 
128647500 
12847600 
12848000 
12848100 
12848110 
12848120 
12848130 
12848140 
12848150 
12848160 
12848170 
12848;80 
12848190 
12848200 
12848500 
12849000 
12849500 
12850000 
12850500 
12851000 
12851500 


12852000 
12852500 
12853000 
12853500 
12854000 
12854500 
12855000 
128655500 
12856000 
12856500 
12857000 
12857500 


a4 


AAA HAMAD AHH BHAA HAHAH ATH At OH OO TV HH 


AHA AVA WMA AS 


0040t1 
0041:2 
12832500 
0041:3 
0044°3 
0041433 
004133 
004230 
004230 
0042:0 
0042:0 
0044:0 
004423 
004830 
0052:2 
12842500 
0052:2 
12839000 
005410 
005410 
005430 
005470 
005430 
0055!0 
005774 
0057%1 
005771 
0057:1 
005731 
0057381 
0057231 
005711 
OO57?1 
OOS7#1 
0057314 
0057%1 
0057%1 
OOS7I1 
006130 
006430 
0066:0 
007130 
O072At1 
007383 
12851500 
OO74I2 
007583 
007730 
007933 
008131 
0084:0 
0085t1 
0087:30 
008832 
0089%3 
009120 
009331 


LOGrNFOreS)y t= INREC(OV3 
LOGINFOL?67&eINRECI 193 


LOGINFOL AB] tame JNREC 


LOGINFOL?OJ«INRECL2]3 
LOGINFOE 30J]¢INRECL 3]3 


ROCTARLECVI.CA727 © INRECLOIS*FULLPGE"; 


IF FORMTOG THEN 


SLEAPs 


® SAVE LABEL INFO FOR ARORT 


INX NOT 14)3 


% LINES66 OPTION 


REGIN COMPLFEXSLEFPCREPLYIPIMIX] GFQ O OR DSED OR QTED)} 


END; 


ACCINENTAL FNTRY AT O 


IF NOT WHYSLEEPCT) THEN 
M3 GO TO SLEAP ENDS 


RFGIN F 


IF REPLYLCPIMIXI.CCRISVEM THEN 
TF CT&eReEPLYCPIMIX].CFF 1) NE@ 20 AND T NEQ 21 THEN 


RBFGIN 


END £ 


1F T# 
BFGIN 


ENDS 


® ILLEGAL UNIT, 


LABELTABLECTI:=0414;3 


RADEMS 


READYS®READY AND (Tt2NOT TWOCT))5 
RRRMFCH?*RRRMECH AND T3 
SAVEWORDP=SaAVEFWORD AND T3 FM3 GO SLEAP 
$ SET OMIT = NOTCRUF AND nATACOM ) 


LSF 
V THEN 


LABELTABLErT) 
RDCTABLELTY 

MULTITABLECT) 
LABELTABLETLV] 


&’ SWrTCH UNYTS, 
t= LABELTABLErV]3 
t= RDCTABLE(V)3 
t= MULTITABLECV)3 
ts MULTITABLELV) t= RDCTABLELV] tx O3 


FPBL8).C36:6]te( VIET 443 


FORMTOG?=(FORMTOG OR PUNCHLCK AND V®22) AND NOT CDSED OR @TFD)3 
STGNENON?SSsTRUES 
GO ¢XTTTOCOM193 


ABORTMSG! 


Fe FO Ze 3R 


ABORTEN¢ £33 


STRFAMC¢Tt=DSFD OR QTED, 
BEGIN 


ABt 


LENN? 


END3 


0S8ts«8 L, 
Cri2xC te 
Ort=Ole 
N$3=34 

GO TO L 


DISTINGUISH BETWEEN 1 AND 3, 
SO WHY NOT MAKF 


1Tr#") STtaBs 
T3 GO TO ABS 
24} 

LIT" BACK=UP 
END} 


IT DIFFERENT, 


B)3 


DSt=16 WDS D1teBs 


TERMINATED BY OPERATOR “3 


NLt=N14+343 OStst1 LIT* ABORTED "3 


R724" 


ABORTEN=3 IMPLIES ABORT HaS OCCURRED. CURRENTLY* NOTHING ATTEMPTS TO 
BUT ABORTED MUST BE SET HERE FOR TAPE 


12858000 
12858500 
12859000 
12859500 
12860000 
12860100 
12860500 
12861000 
12861500 


12862000 
12862500 


12863000 
12863500 
12864000 
12864500 
12865000 
12865500 
12866000 
12866500 
12867000 
12873000 


12873500 
12874000 
12874500 
12875000 
12875500 
12876000 
12876500 
12877000 


12877500 


12878000 
12878500 
12879000 
12879100 
12879500 
12879600 
12879610 
12879620 
12879630 
12879640 
12880000 
12880500 
12861000 
12881500 
12882000 
12882500 
12883000 
12883500 
12884000 
12884500 
12885000 


Aa ARHO Aa AHH 


AHHH HAW HHS 


a 


4 


Se ee ee ee ee ee ee 


0095%1 
009633 
0098*4 
010181 
010213 
0104t1 
010732 
010723 
0108:1 


011712 
0118:2 
12862500 
0124:0 
0125:2 
012930 
0129%2 
0130%3 
0132:0 
0134:2 
013523 
0136:2 
0138:2 
12864000 
013832 
013933 
014024 
0141%3 
014374 
014483 
0148:0 
015132 
12874000 
015132 
12861500 
0151%2 
0156:0 
015823 
015931 
015914 
0159314 
015934 
0159%1 
015954 
0159%1 
0159%4 
0160:0 
016430 
016430 
016630 
016683 
016730 
017442 
017183 
017383 
0173383 
12881000 


WRITEBANDEJECTS 
IF V#22 AND SYGNENON THEN 
REGIN 
STREAMCSef LOGINFOF {J} 2T+#05B)3 
BEGIN OSe BLT" LABEL # Sr#S3 24¢SyeSp48)3 DSe16CHR3 
SteSy+Bs DSeBCHRS TeSys SfoeS3 DSe+9WDS3 SyeTs 
STe#S14+43 DSeLIT™ "3 DSe7CHR OSeLIT#/"3 SteSJT413 DSe7CHR3 
DSe 12 LyT ae 
FND: 


WRITEBANDE JECTS 
tF NOT SEPARATE THEN PCWATTI0(®4000100000,0.V).DEL)3 %150" 


ENN: 
GO TO FXITTOCOM{93 
PARERR$ 


% BUTLDS ERROR MESSAGE FOR OUTPUT AND ALLOWS OPERATOR TO OK OR DS, 
% T 1S USED TO PASS BACK WHETHER OR NOT TO TERMINATE, 
x 


IF V=22 THEN GO TO WHY3 

STREAMCASSUNIT, Tt=Tt=SPACE(15))3 

BEGIN 22cDSte2 LIT ">>")3SyreLOc AsS]teSya73 
IF SC="B" THEN DStx6 LT * DSK ” ELSE 
NSt=6 LIT ™ TAPE 3 
NSt=26 LIT "PARITY ON PRINTER BACK UP *%3 
2ocNSte? LIT “>>")3 

END STREAMS 


& SET oMYT = NOTCRJF AND NATACOM ) 
PCWAITIOCT&LOLCTFI20°V) eDEL)D 
FORGFTSPACE(T)3 

WHYS 
FILEMESSC™FPARTTY™»0s0,"ERROR %505000)3 
REPLYFCPIMIX] fe=VOTAVNY 362: 4o8 6] 8VOK(3084216)3 
COMPLEXSNOOZE CMIXMAX*REPLYCPIMIX] GE® O OR DSED OR QTED)S 

12861500 ACCIDENTAL FNTRY AT O 

IF NOT WHYSLFEPCVQT&VWYs 36242°6)8V0K(30342926]) THEN GO TO WHYS 
Tt=spSEN OR QTEDS 

FXITTOCOM,{93 
PCOs,RDS sO eXCHsCFXsSTF)3 

FNO OF SECOND GROUP OF PRINTER BACKUP SPECIAL CASES3 


12885500 
12886000 
12866500 
12887000 
12887500 
12886000 
12888500 
12889000 
12889500 


12890000 
12890100 
12890500 


12891000 
12891100 
12891500 
12891600 
12891610 
12891620 
12891630 
12892000 
12892500 
12693000 
12893500 
12894000 
12894500 
12895000 
12895500 


12896000 
12897500 
12898000 
12898500 
12899000 
12899500 
12900000 


12900500 
12901000 
12901500 
12902000 
12902500 


017410 
017530 
017631 
017633 
017824 
0180:3 
018231 
0184ati 
018630 
12887500 
0186%1 
018710 
019080 
12886500 
019010 
019280 
0192:0 
019220 
019230 
019210 
019230 
019230 
019331 
0196814 
049733 
019932 
0200:2 
020470 
0205%0 
12893000 
020511 
020531 
020741 
020810 
020830 
021082 
021410 


44a ata AS 


4oO4 


ee ee ee 


SS 


0222%2 
022513 
0229%2 
0229%2 
0231%2 
12801000 
SIZE= 0234 WORDS 


AaHaAs 


STACK(F40) 
STACK¢F #4) 


STACK(F41) 
STACK (CF 42) 
STACKEF 43) 
STACK(F 44) 


STACK (CF +5) 
STACK¢(F 46) 
STACK ¢(F 47) 
STACK ¢F 410) 
STACK¢F 411) 
STACK¢ F412) 
STACK¢Fs13) 
STACK (F414) 


STACK ¢F 415) 
STACK¢(F 416) 
STACK(F 417) 
STACK(F 420) 


STACK ¢F 415) 
STACK( F416) 
STACK(F 420) 
STACK¢F 421) 
STACK ¢ F422) 
STACK (F423) 


STACKCF 417) 


STACK(F 424) 


STACK(Fs25) 
STACK ¢F 426) 


PROCEDURE cOM193 


13000000 


START OF REL SEGMENTS DYSK 


% 
% €OM19, TOGETHER WITH PRNPRTSPECASE1 AND PRNPBTSPECASE2 WHICH SHARE 
% ITS STACKs ARE THE WORKING PART OF PRINTER BACKSUP, INFORMATION TS 
% PASSED TO COM19 IN COMMON AND LABELTABLE» AS FOLLOWS? 
x COMMON. £4385) LOGICAL UN;T NUMBER OF OUTPUT UNIT, 
% (365)  |NPUT UNTT NUMBER, IF DISKe THE LABFLTABLE ENTRY FOR 
% THE OUTPUT UNIT CONTAINS THE FILE ID, 
% r3038) NUMBER OF COPIES SPECIFIED IN PB MESSAGE, 
% r22%@] yF TAPE, STARTING FILE NUMBER GIVEN IN PB MESSAGE, 
% eines =0 IF ENTIRE PACKET JS TO BE PRINTED» my IF 
% NOT, 
% C2184] ON IF "sO" APPEARED IN PB MESSAGE, 
% FOR RUF» COMMON IS THE ANDRESS oF A TWO WORD ARRAY, THE FIRST WORD 
% CONTAINS THE INFORMATION DESCRIBED ABOVE AND THE SECOND CONTAINS THE 
® FItr IP FOR DISK CWHICH IS IN LABELTABLE FOR NON@RJE FILES), 
% 
BEGIN 
REAL, RCWm4+0, COMMONw 43 
RCW 
COMMON 
ARRAY INRECE J)» FPBLC*#]. LOGINFOL*J],s HEADER *]3 
TNREC 
FPB 
LOGINFO 
HEANER 
REA, UNIT» Vs» COPYs MFID, FIDse [OD> Ts R3 
UNIT 
V 
COPY 
MF TD 
FID 
100 
1 
BR 
RE Al SEARCHVAL» CURROW, FIRSTFIN»® SEGNRS 
SEARCHVAL 
CURROW 
FIRSTFID 
SEGNR 
RE At, XsSEARCHVAL» NUMBCURROW, RECOUNT&SEGNR3 
x 
NUM 
RECOUNT 
BOOLEAN SIGNEDON» FORMTOG, ABORTEDS 
STGNEDON 
FORMTOG 
ABORTED 
BOOLEAN NOCONTeFIRSTFID3 
NOCONT 


$ SET OMIT = NOT PACKETS 
BOOLEAN STQG: 
STOG 
REAL. PCOPYs PFYRSTFID; 
PcoOPy 
PFIRSTFID 


13000100 
1300014190 
13000320 
13000130 
13000440 
13000160 
13000170 
13000180 
13000190 
13000200 
13000210 
13000215 
13000220 
13000230 
13000240 
13000250 
13001000 
13002000 


13003000 


13004000 


13005000 


13006000 


13007000 


13008000 


13009000 
13010000 


13011000 


T 000030 
ADDRESS # 
0000!0 
000030 
000030 
000010 
000030 
000010 
000030 
000030 
000010 
0000!0 
000010 
000030 
000030 
000010 
000030 
000030 
000010 
000010 


Te Neen, Nees ee, Mies Moen, Meee, Mee ee Bee ee ee ee 


T 000020 


T 000030 


T 000080 


T 000030 


T 0000:0 


T 000030 


T 000030 
T 000030 


T 000070 


00389 


Re FQ aR DA aC dQ DE DE a BE ae 3G AA DE VE FA BR FE FE VE DE FR DA BA HE OS BE DA JQ DL De BA BE DE BE FE FE FE WE DE DR OK FE BE BR BQ VE BQ IA FQ DR DR OR FO VE 


THE LOCAL 


LOGINFO 


HEADER 
REAI.S 

UNE T 

Vv 

COPY 


MEIN 
Fro 
Ion, T 
B 
ROOLFANS 


S1GNEDON 


FORMTOG 
ARORTED 


$ SET OMyT = PACKETS 
$ SET OMYT = NOT RUF 


VARIABLES ARF USED AS FOLLOWS? 


ARRAY DESCRIPTOR FOR THE CURRENT RECORD, 

FPB ARRAY, INPUT IS THE FIRST FILES OUTPUT THE 2ND, 
ARRAY IN WHICH THF LOG ENTRY 1S BUILT, THE FIRST TEN 
WORDS ARE THE CONTROL CARD ENTRY’ THE NEXT 105 THE 
PRINTER BACK*#UP ENTRY AND THE LAST 10,5 THE FILE ENTRIES, 
DISK FILE HEADER. 


LOGICAL UNIT NUMBER FOR INPUT, 

LOGICAL UN;T NUMBER FOR OUTPUT, 

NUMBFR OF COPTES OF THIS FILE TO BE PRINTED, IF {IT 18 
NOT SPECIFIFD, yT EQUALS O, 

MULTI*FILE 31D OF INPUT FILE, 

FILE ID OF INPUT FILE. 

TEMPORARY STORAGEs 

ADDRESS OF 90 WORD BUFFER FOR YNPUT, 


ON JF LOGGING ITS INTTIALIZED. THIS SHOULD BE OFF ONLY 
FOR FILES WHICH DO NOT START AT THE BEGINING? E.Gee 

WHEN A STARTING REEF|, IS SPECIFIED ON OISK, 

ON JF FORM IS SPECIFIED OR PNCHLOCK IS SET. 

z1e DISK ABORTED BY H/Le CHECK IN GET TO FIND OUT WHERE, 
=2e TERMINATION DUE To CL OF INPUT TAPE WHILE SCHEDULED. 
=3» TAPE ABORTED BY H/Le FOUND BY RECOUNT MISMATCH, 


THE FOLLOWING APPLY ONLY TO DISK FILES3 
SFARCHVAL THIRD PARAMETFR FOR DIRECTORYSEARCH, IT IS 3 OR 5 DURING 


CURROW 


FIRSTFIO 


SFGNR 


PRINTING® DEPENDING ON WHETHER IT 1S THE FIRST COPY OR 
NOT» AND 13 OR 7 DURING FILE TERMINATION, 

INDEX OF THE ROW CURRENTLY BEING PRINTED, 

FILE 10 OF FIRST REEL» USED FOR MULTIPLE COPJES OF 
MULTI*REEL FILES. 

NUMBER OF NEXT SEGMENT TO READ FROM THE CURRENT ROW, 


a FOLLOWING APPLY ONLY TO TAPES? 


fe 


RECOUNT 


NOCONT 


TEMPORARY STORAGE. 

NUMBER OF CURRENT FYLE ON TAPE. USED FOR COPIES, 

NUMBFER OF RECORDS PRINTED IN THIS FILE. THIS IS CHECKED 
AGAINST THE C#=FIELD OF THE 10 DESCRIPTORS IN THE FILE TO 
SPOT ABORTS, 

TRUE FF CONTINUATION FROM FrLE TO FILE IS NOT ALLOWED, 


THE FOLLOWING APPLY ONLY TO PACKETS? 


PCOPY 


PFIRSTFIO 


STOG 


NUMBER OF COPTES FROM PB MESSAGE* WHICH MAY APPLY TO THE 
ENTIRE PACKET, "COPY" IS SET ONLY FROM LABEL EQUATION, 
FILE 1D OF FIRST FILE IN THE PACKETs USED FOR COPIES OF 
THE PACKET, FIRSTFID APPLIES TO INDIVIDUAL FILES WITHIN 
THE PACKE? AND 15 USED FOR COPIES SPECIFIED VIA LABEL 
FQUATION, 

SET DURING THE FIRST PRINTING OF THE PACKET IF ONE OF 
THE FILES SPECIFIES MULTIPLE COPIES, IT IS USED TO 
RESTORE THE VALUE OF 3 TO SFARCHVAL WHEN THE FILE 1S 
COMPLETED, 


13012000 
13015000 
13017100 
13017110 
130147120 
13017130 
130147140 
130173150 
13017160 
130171470 
13017180 
13047190 
13047200 
13017210 
13017220 
13017230 
13017240 
13017250 
13017260 
13017270 
13017280 
13017290 
13047300 
130417310 
13017320 
13047330 
130417335 
13017340 
13017350 
13017360 
13017370 
13017380 
13017390 
13037400 
13017410 
13017420 
13017430 
13047440 
13017450 
13017460 
13017470 
13047480 
13047490 
13017500 
13017510 
13017520 
13017530 
13047540 
13017550 
13017560 
13017570 
13017580 
13017590 
13017600 
13017610 
13017620 
13017630 


AHH DAM H HHH HHH RA tH AH A A A a I a Ht Hs 


000010 
000010 
000030 
0000:0 
0000:0 
000030 
0000:0 
000020 
000030 
000080 
000030 
000030 
000030 
000030 
0000:0 
0000:0 
000030 
000030 
00000 
000030 
0000:0 
000080 
0000!0 
000030 
0000!0 
0000:0 
000030 
000030 
0000:0 
0000:0 
000010 
000030 
000030 
0000:0 
000010 
000080 
000030 
000030 
00000 
000030 
000030 
000030 
000030 
000030 
000020 
0000!0 
000010 
000080 
0000!0 
000010 
000010 
0000:0 
000010 
000010 
0000:0 
000010 
0000:0 


JE WR IE BE 


LABFL 


THE FOLLOWING APPLIES OWLY TO RyEt 
STA 


TERMINAL UNIT AND BUFFER NUMBER OF THE RJE TERMINAL, 


TRYNEXTs TAPERDR» TAPERD»s TAPECHKs ABORT» NOGETs GOTTEN, 
START» RESTART, MAINLOOPs GOTIT» QUIT» TESTEND3 


DEFINE DSEN = TERMSETCPIMIX)#s 


QTED = CPRTIFPIMTX,@25)#0)83 


DEFINE LINECT m LOGINFOFO7 #3 ¥ ¥750# 
DEF NG WLOOKFORTAPE = PRNPBTSPECASE1(0)#> 


NOMOREREELS PRNPBTSPECASE1¢1)#>» 


QTSPEC = P(CPRNPRTSPECASE1(2)sDEL)#, 
INITIALIZE = PRNPBTSPECASE1(¢3)#>» 
STARTANEWFILE e& PRNPBTSPECASE1(4) #» 
SIGNIN = PRNPBTSPECASE2(0)#> 
ABORTMSG x PRNPBTSPECASE2¢1)#>s 
PARERR = PRNPBTSPECASE2(2)#; 


SOR ICR RIS OIIOIOK RO IGIOR IOI OR IOI OR IOIOIOI EOI IGIGIOI I IORI IOIOIGI OI I BOI GI i ake ak koi feb 


BOO|FAN SUBROUTINE GET$ 


BEGIN 


TRYNEXTS 


TAPERDOR: 
TAPERD? 


TE tNRECL171,(2934] THEN GO TO NOGETS 
1F CINRECS=s(NOT 17) NX INREC),CCF] GEO B,ECF) THEN 
IF UNIT#18 THEN GO TO TAPECHK ELSE 
ELSE % READ NEXT BLOCK 
1F UNJT=18 THEN 
REGIN 
IF SEGNR > HEADERE7]x3 THEN GO TRYNEXT? & END OF FILF 
TF CSEGNR GEQ HFADER(L8)="1) THEN 
BEGIN % END OF ROW 
IF CCURROWS=CURROWSs1) GEQ HEADERE9)],043351]+10 THEN 
TF NOMORFRFEFELS THEN GO TO NOGET?3 
SEGNR*=0$ 
ENDS 


INREC!=90 INX INREC3 
DISKTOCIOD» "Br 90eHEADER[ CURROW]4SEGNR)3 
SEGNRISSEGNRe33 
SLEEPCLIOD]+;0MASK)3 
IF 10D.€28%1) THEN 
\BEGIN PARERR$ 

IF T THEN GO TO NOGET3 % DOSED OR QTED 
ENDS 


IF ABORTED THEN 
IF «MCB INX 16],(6%42] FOV & 
GO ABORT 
ENO ELSE 


% TEST FOR BAD 10 DESC, 
")sN0T O THEN 


BEGIN & TAPE 
Xe=03 
IF CTODt=WAIT10¢B»@2000040 ,UNIT)9,£4321] THEN 
REGIN PARERR} 
IF T THEN 50 TO NOGET? & DSED OR QTED 
FND3 


TF 100,£42!1) OR X THEN 


13017640 
13017650 
13017660 
13017670 
13016000 
13019000 
13020000 
13021000 
13021900 
13022000 
13023000 
13024000 
13025000 
13026000 
13027000 
13028000 
13029000 
13030000 
13031000 
13032000 
13033000 
13034000 
13035000 
13036000 
13037000 
13038000 
13039000 
13040000 
13041000 
13042000 
13043000 
13044000 
13045000 
13046000 
13047000 


13048000 
13049000 
13050000 
13051000 
13052000 
13053000 
13054000 
13055000 


13056000 
13057000 
13058000 
13059000 


13060000 
13061000 
13062000 
13063000 
13064000 
13065000 


13066000 


AA HHH HHH HH HH HAH tc HH tt 


Se 


Se ee ee ee oe 


+ 


0000:0 
000010 
0000:10 
000010 
000010 
000010 
000030 
0000:0 
000010 
000030 
000030 
000010 
000010 
000030 
000030 
000030 
0000:0 
000080 
0000:0 
000010 
000040 
00011#0 
0001:0 
000233 
000630 
0007 %4 
000723 
000980 
000982 
0011%2 
0013180 
0013!2 
001682 
001812 
0019%4 
13043000 
0019T4 
002033 
002311 
0024:2 
002610 
002633 
002830 
002930 
13053000 
002930 
002934 
003333 
0034%1 
13040000 
003444 
003610 
003633 
003910 
004034 
004144 
13063000 
004131 


TAPECHK:? 


ABORTS 
NOGET! 


GOTTEN? 
END: 


% 
KREZE 


BEGIN 
IF (X#=2nNOT X) THEN GO TO TAPERDS 


IF MfpB INX 3) THEN 
JF LOQOKFORTAPE THEN GO TO TAPERDR ELSE GO NOGETS 
END} 


IF (Xt=eMEB INX NOT 03)#490 THEN 
TF (X AND @7775)2#16 THEN 
BEGIN 

INREC.CCRI8=B INX 13 
INRECri7}teM(BjROC 202 208733 
END FLSE GO TO NOGET 


% OLO FORMAT TAPE 


FLSE 
BEGIN 
INREC#=90 (NX INRECS 
IF RECOUNT=@77777 THEN RECOUNTeINRECE17),°CF1 ELSE 
TF CRECOUNTSsRECOUNT INX 1) # YNRECCI7I.°CF] THEN 
REGIN 
ABORTMSG? 
Pco)3 
GO TO GOTTEN: 
END; 
END3 
PENI) 
Pc1)$ 
GETisP; 
START OF CODE LKZLF 


% 
¥ START 15 USEN FOR A NEW FyLe COR NEW PACKET?, RESTART 1S USED FOR 
% A COPY cOR A NEW FILE WITHIN A PACKET), 


START: 


IF cOMMONGO THEN GO TO INITYATES 
IF INITIALIZE THEN 


BE GN 


RESTART: 


MALNLOOP? 


1F GET THEN 


BEGIN 


END ELSE 


TF INRECO17].61211]20 THEN SIGNIN ELSE GO GOTITS 
te UNIT#18 THEN RECOUNTt#&INRECL17),°CF}3 
% BAD FIRST BLOCK» USUALLY EOT, 


BEGIN PC4)5 


END? 


GO TO TESTEND3 


IF STOPSETCPIMIX) THEN STOPM(0O)3 
IF CT&ePRTCPIMIX+@257)#40 OR DSED THEN 


BEGIN 


IF T<O THEN B+ OR = SPECIFIED. 


13067000 
13068000 


13069000 
13070000 
13071000 


13072000 
13073000 
13074000 
13075000 
13076000 
13077000 


13078000 
13079000 
13080000 
13080100 
13081000 
130862000 
13083000 
13084000 
13085000 
13086000 


13087000 


4444-4 


tt tt 


ttt ant a st a st 


~ 


13088000 T 


13089000 
13090000 
13091000 


13091500 
13091600 
13092000 
13092010 
13092020 
13092030 
13093000 
13094000 
13095000 
13096000 
13097000 
13098000 
13099000 
13101000 
13102000 


13103000 
13104000 
13105000 


13106000 
13107000 
13108000 
13109000 
13110000 


Aas AHHH eH HOOD MAS 


aaa 


004232 
0043130 
004433 
004631 
004812 
13067000 
004812 
0051?%1 
0053:0 
005332 
0055%2 
005812 
13074000 
005832 
005832 
006110 
006232 
006531 
0069%2 
007030 
007083 
007130 
007132 
13082000 
0071%2 
13079000 
0071%2 
13060000 
007132 
0074%3 
007230 
13034000 
007234 
O072I1 
OOT2I4 
007284 
O072at) 
OO7294 
007231 
007812 
008034 
0081:0 
008132 
0083:0 
008332 
008631 
008920 
13098000 
008910 
00893 
009084 
13103000 
009031 
009081 
0093190 
0096183 
009784 


RE GIN 


QTSPEC? 
GO TO MAINLOOPS 
FNDS 
ABORTMSG3 % NOSED OR QTED 
GO TO QUIT? 
FND$ 
1F GET THEN VALID REC, WRITE IT & CONTYNUE 
REGIN 
GOTT: 
£ SET oM{IT = NOT RJE 
TF V FQL 22 AND INRECC179,01881) THEN ELSE K206 
BEGIN & £750" 
PCWATTIOCINRECCI7I&CINRECILECTCI&8£2124286)200V) »DELDS 
LINECT#*P(DUP) + 13 & ¥750° 
ENDS *% %750- 
GO TO MAJNLOOPS 
ENDS 
FND; 
QUIT? 
PCOy3 
TESTEND? 
Parr B T=1 IF FIRST GET FAILS» ELSE 0, 


IF STARTANFWFILE THEN GO TO START ELSE GO TO RESTART? 
FN) OF PRINTING BACKUP TAPF AND DISK FILES} 


pe 
wW Wu 
al heel eal 
a> th 
tad 
So 
Oo 
© 


134114000 


13115000 
13116000 
13117000 


13118000 
13119000 
13119100 
13120000 
13127699 
13127990 
13128000 
13128010 
13128020 


13129000 
13130000 


13131000 


13132000 
13133000 
13134000 
13135000 
13136000 
13137000 


4a44 AA a4 


AoOAMAARAG 


+AHaa4S 


009850 
0098%2 


0099t2 
010080 
43111000 
040030 
010043 
01014%1 
13109000 
010431 
010240 
0102t2 
040232 
010282 
010510 
0105%t2 
010970 
011140 
13127990 
011190 
0111%2 
13119000 
O1tire 
13096000 
011132 
01112 
011183 
011193 
011284 
011410 
13001000 


S1ZE= 0115 WORDS 


¢ @ 
& $ SET oM1T = NOTCDATACOM ) 13198999 T 000010 e 
$ SFT OMIT = NOTCDATACOM AND BUF 13299999 T 000030 
REAL PROCENURE ANALYSIS3% 14000000 T 0000t0 
r START OF REL SEGMENT? DISK ADDRESS = 00393 e 
REGINE 14001000 T 0000:0 
REAL ICWeTRCWeINCWeCLoTLeCeT2eSYLLABLE 3% 14002000 T 000030 
@ STACK¢F42) = ICW e 
STACKeFa3) = IRCW 
STACK(F44) = INCW 
e STACKEF45) = CL e 
STACK(F 46) = T1 
STACK¢F47) 2 C 
@ PRT(307) « T? e 
$ SET OMIT = NOTCNEWLOGGING) 14002099 T 0000:0 
LABEL GETOUTSS 14003000 T 000030 
@ COMMENT ANALYSTS EXAMINS THF SYLLABLE WHICH CAUSED THE INTURRUPT ANDS 14004000 T 000030 
FROM THE RELATIVE ADDRESS OF THE SYLLABLE CINCLUNINGS 14005000 T 000010 
VARIENT OPERATOR CONSTDERATIONS) COMPUTES THE LOCATYON+Ce 14006000 T 000030 
@ OF A COPY OF THF DESCRIPTOR ON THE TOP OF THE STACK. % 14007000 T 0000!0 @ 
THF PREVIOUS TWO SYLLABLES ARE FETCHED BY THE STREAMS 14008000 t 000010 
STATEMENT GETSYLLABLES WHICH ALSO ADJUSTS THE C= REGST= 14009000 T 000010 
@ ERS PROPERLY, % 14010000 T 0000!0 @ 
FINALLY THE STACK IS ADJUSTED AS FOLLOWS3% 14011000 T 000030 
NECREASE § BY 4,IF OPDC OR DESCS 14012000 T 0000!0 
@ XCH A AND B REGISTERS*IF CoC OR CDCE 14013000 T 000010 
OTHERWISE LEAVE THE SAME, } 14014000 T 000010 
CHECKSTACKSPACESS ZWF 14014100 T 000010 
@ 14014100 ® 
$ SET OMIT = NOTCNEWLOGGING) 14014199 T 000610 
INCW © PRTCPIMIX+B813% 14015000 T 000630 
@ TF INCW.ECFI<@1777 THEN  & SOMETHING VERY WRONG %602« 14015200 c o007!2 & 
REGIN JARCPIMIX6).fitilets ® SD BIT %6028 14015210 c 000813 
FILEMESSC@"SPE MCP." PATCH %202020.0,602)%KLUGE MSG&DS 14015220 ¢ 001241 
@ ENDS %602« 14045240 ¢ 004433 © 
14045230 
POLISH(C.INCW»10R)32 14016000 T 003510 
@ IRCW «© * [NCW 3% 14017000 T 0015#2 @ 
ICW «+ *¢ (NOT 0) NX INCW)9S 14018000 T 0041682 
CL © CYRCOW JINX 0) & FREWEL3021092)3% 14019000 T 001831 
e STREAM CT14 Os T2©00CLIXe0933 14020000 T 002012 ® 
BEGINS 14021000 T 002231 
ST*CL$ ST#St92 3 CL « SIS DI + LOC T23 DIeDI+63% 14022000 T 002281 
@ NS « 2 CHRE St « SI=33% 14023000 T 00232 @ 
Ip Sc = "/" THEN 14024000 T 002430 
BEGINS 14025000 T 0024:2 
@ SteSt"1$ IF SC ="0" THENS 14026000 T 002412 ® 
BEGIN TALLY#4{3 Ta*TALLY $CL ¢ ST ENDS 14027000 T 002531 
14027000 
@ ENDSS 14028000 T 002610 @ 
14025000 
END GETSYLLABLE 38 5 14029000 T 002630 
e 14021000 e 
POLISH( ,ClotrsT2eengTlot)3% 14030000 T 002631 
1F INGW,C32t1] THENE 14031000 T 002783 
r BEGIN COMMENT PepIT 1N CHARACTER MODE 35 14032000 T 002812 e 
Ip T2 = @4441 THENS 14033000 T 002950 
° BEGIN COMMENT ENTFR CHARACTER MODE3S 14034000 T 002983 ° 
td) @ 


PcmrcrRcW « ¥*¢(NOT O [Nx NCW ¢ PRTI[CP1IM1Xe8] 6% 
CNOT 1 INX INCW)80F3281811)99,0182151I 8% 
101684734 )8OL 18848815) + (NOT ODVINX INCWpe)3 


C + INCW INX 0 "23% 
END ELSE BEGINS 


IF MEMORYC C ¢ tReW.618815)"T2,(3626)),6193) = 4% 
THENE 

BEGIN 

1F T2,C42%6)e @53 THEN BEGINS 


COMMENT CONTROL WORD MEANS CHARACTER MODE RELFASES% 


TLePRTICPIMIXs 9 eMEC#CCNOT LIINX FNCW)), 7182151) ,063381513% 
POLISHOMIT132000)3% 


1F MCT17,£2081) THEN CONTINUITYBIT3% 


PROGRAMRELEASF 3% 
ENDS 


FNDS% 


IF T2 = O THEN GO TO GETOUTS® 
ENN% 


ENN 


FLSEX 


RFGINS 
te T2ef4681] THENS 


FLSES% 


GFTOUT: Ch «© PCCPRIPCPIMIXe1]]eNUPsT2eXCHee) INX 86000003 


END 


REGINA 

C * yOW,(3381533% 

POLISHCICWs CNOT 4)INX INCWe eo ROWS 
PRTCPIMIX»+B8JeINCW «© CNOT ODINX INCW 2o)38 
ENO OPDC DESC PARTS 


REGINE 

C *« INCW JINX 0 #233 

IF CNT1 ¢ T2 AND @77) = 641 THENY 

BEGIN C *#C™1 33 

POLISHCMEMORYCCJ»MEMORY(C+L]»+C(MEMORY[C]]» © »€MEMORYEC+1) 
Joe) 3% 

FND COC CNC PARTS 


ELSE IF NT1 © @31 THEN? 
BEGIN COMMENT THIS {tS A BRANCH3% 


ENN BRANCH PARTS 


FLSE IF NT1 = @35 THEN GO TO GETOUTS COMMENT RETURNSS 
END ALL SYLLABLES BUT OPDC DESC 3% 


WORD MODE INTURRUPT 33% 


POLISHCIRGW & CLE33°33315IRCLOLOS 302 2)eINCWee) 32% 
ANALYSIS « C 3% 
$ SET OMIT = NOTCNEWLOGGING) 


END 


ANALYSIS OF P BIT 3% 


14035000 
14036000 


14037000 
14038000 
14039000 


14040000 
14041000 
14042000 
14043000 
14044000 
14045000 
14046000 
14047000 
14048000 
14049000 


14050000 


14051000 
14052000 


14053000 


14054000 
14055000 
14056000 
14057000 
14058000 
14059000 
14060000 
14061000 


14062000 
14063000 
14064000 
14065000 
14066000 
14067000 
14068000 
14069000 


14070000 
14071000 
14072000 
14073000 


14074000 
14075000 


14076000 


14077000 
14078000 
14078099 
14079000 


Te ee ie Bee be 


Oe ee eee eee ee ee | 


— 


+ 


~ 


ee ee | 


in ne ee ee 


~ 


a4 


QO30%}1 
003133 


0037314 
004010 
004113 
14034000 
004610 
004913 
005010 
005012 
005211 
005211 
005712 
005910 
0061t2 
006210 
14043000 
006210 
14042000 
006210 
0063t1 
14039000 
006331 
14032000 
006311 
006311 
006313 
006412 
006510 
006611 
006810 
oo7iti 
14057000 
007111 
OO71EL 
007113 
007312 
Oo75I1 
007710 
008141 
008210 
14066000 
008210 
008391 
008383 
008630 
14071000 
0086!3 
009084 
14063000 
009081 
14055000 
009084 
009282 
0093114 
0093%1 
14001000 


SIZEs 0094 WORDS 


STACK¢F41) = T 


SAVE INTEGER PROCEOURE ACTUALOVERLAYADDRESSCTYPEs MIX» 


VALUE TYPE, MrX» LOC3 
INTEGER TYPE, MIX» LOCI 
BEGIN INTEGER T = +13 


$ SFT omMtT = NOTCAUXMEM) 
1F TYPE THEN % CODE... 
BEGIN 
$ SFT OMIT = NOTCAUXMEM) 
LOC t= LOC JINX O08 


T $2 JAROMIXSLOC DIV CTS aJAROMIX*28]9410]4L0C MOD T3 


END FLSF & BETTER BE DATA,... 


£ SET oMTT = NOTCAUXMEM) 


LOC); 


TeDALOCIMIXe LOCe lf 33236)+PCDUP)=49+L0C.0 3999) 


$ SET oMIT = NOTCAUXMEM) 
END3 


14105000 


START OF SAVE SEGMENTS BASE 


14406000 
14107000 
14108000 


14108999 
14410000 
14110100 
14110999 
14112000 
14113000 
14114000 


14114999 
14117000 
14417999 
14119000 


Ata HHH Ss A HP 


ans 


000030 
DNRESS «= 
000030 
000030 
000010 


000030 
000010 
0000:2 
000130 
000430 
000231 
000710 


00640 


14410100 


000780 
000710 
001040 
001030 


14108000 


SIZE 0012 WORDS 


STACK(F 41) = 
STACK(Fe2) = 


STACK ¢F 43) 
STACKCF 44) 
STACKCF 45) 
STACK¢F 46) 
STACK¢F 47) 


4 8 -h HN: 


STACK(Fe1) 2 


STACKe F410) = 


PROCEDURE MAKEPRESENTC(C)3 


SAVEBIT 
MINE 


D 
MOTHER 
MOM 
LOC 
SIZE 


DrSKADDR 


DD 


OMT = NOTCAUXMEM) 

THE SEGMENT DICTIONARY 15 CONSTRUCTED BY THES 

COMPILERS AND EACH ENTRY HAS THE FORMAT?IY 

1 FOR TYPE 2 SEGMENTS» s0 OTHERWISE, 

1 FOR INTRINSICS » = O OTHERWISE,% 

1 IF BEING MADE PRESENTs = O OTHERWISE 
CINTERLOCK FOR RE@ENTRANT CODE) 

0 FOR NORMAL SEGMENTS 

3 FOR SEGMENTS OVERLAID TO AUX, MEM, 

2 FOR SEGMENTS TO BE OVERLAID TO 
AUXILIARY MEMORY WHICH HAVEN'T BEEN 

1 FOR COBOL68 FILE TANK, 

1 FOR COBOL68& READ ONLY ARRAY, 

LINK TO PRT FOR 4ST DESCRIPTOR FORY 


+% 


BEGINS 


4% 1) = 
r at i) « 
r 3% 1] = 
( 4: 2) «= 

= 
c 6! ij] = 
( 7%? 1) « 
r 8310) s 
(16315) = 
r33%#15)] «= 
THE 


PRT FOR PROGRAM SEGMENTS IS CONSTRUCTED BY THES 


THIS SFGMENT,% 


SEGMENT SIZE (<1024) FOR ABSENT 


SEGMENTS 


i 


= CORE ADDRESS OF PRESENT SEGMENTS,& 
= 1 FOR NEVER*PRESENT INTRINSICS,2% 


DISK ADDRESS 


OF SEGMENT,% 


= JTNTRINSIC*NUMBER FOR INTRINSICS,2 


COMPILERS IN THE FORMAT $% 


r 085) 
r 634) 


f 7e4t) 


r18t15] 


r33°15) 


EACH PRT 
TO THE SEGMENT DICTIONARY.% 


REAL SAVEBIT> 


REAL, 


MINE GS 


= PROGRAM DESCRIPTOR BITS,% 


= STOPPER BIT WHICH DEFINES THE C€ 78119% 


FIELD,2 


= LINK TO NEXT DESCRIPTOR THAT BELONGS TO 


THIS SEGMENTs IF STOPPER FALSE,% 


= SEGMENT NUMBER, IF STOPPER TRUE. 

= F"REGISTER FIELD USED AT RUN TIME ING 
LABEL AND ACCIDENTIAL DESCRIPTORS,Y 

s SEGMENT NUMBER FOR WORD MODE ANDY 
CHARACTER MODE DESCRIPTORS,% 

= CORE ADDRESS FOR PRESENT SEGMENTS,& 


=s RELATIVE ADDRESS FOR ABSENT SEGMENTS, 


1eE. RELATIVE TO BEGINNING OF SEGMENT,& 


¢R+4) CONTAINS A DESCRIPTOR WHICH POINTSS 


INTEGER DISKADDR = SAVEBITS% 


NEFINE LINKe C€ 7844)#+STOPPEREEL 68 


DEFINE NOTOPEN F(25!4] #32 


ARRAY NAME 


DD 


7% 


VALUE C3 REAL C3% 


DeMOTHER»MOMeLOCeSI7E3% 


14119999 
14125000 
14126000 
14427000 
14428000 
14128100 
14128200 
14128300 
14128400 
14128500 
14428600 
14428700 
14128800 
14129000 
14130000 
14131000 
14132000 
14133000 
14434000 
14435000 
14136000 
14137000 
14138000 
14139000 
14440000 
14141000 
14142000 
14143000 
14144000 
14145000 
14146000 
14147000 
14148000 
14449000 
14450000 
14151000 
14152000 
14153000 
14154000 
14455000 


START OF REL SEGMENTS DISK 


1]#»PROGRAMDESCe(534]#3% 


14156000 
14157000 


14158000 


14159000 


14160000 
14161000 
14162000 


000010 
000010 
0000:0 
000030 
000080 
00000 
0000:0 
0000:0 
000010 
000010 
0000:0 
0000:0 
000030 
0000:0 
0000:0 
0000:0 
0000:0 
000030 
000030 
000030 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
000030 
0000:0 
000030 
000030 
9000:0 
000010 
000030 
0000:0 
0000:0 
0000:0 
000030 
0000:0 
000010 
0000:0 
000030 
DDRESS # 
0000230 
0000:0 


aaa 


AAP HHH AHHH HAHAHA HAHAH A tA NA At ts 


T 0000:0 


T 000030 


000010 
000030 
0000:0 


a4 


00397 


STACK ¢F aii) 


STACK ¢F 412) 


Ay 


PR 


ARRAY AITr*]3 
T 
ARRAY PRIR(*) #% 
TR 
REAL SEGNO#MOTHERs XsMOMPIOD 3% 


STACK(F 44) = SEGNO 


STACK ¢F45) 
STACK(F 413) 


STACK¢F414) = 


STACK¢F415) 
STACK (F416) 
STACK¢F 417) 


STACK¢(F 420) 
STACK¢( F421) 


10 
SP 
ME 
SA 
GM 


I 
J 


: RFAL SPACE3% SPACE FOR SFGMENT NUMBERS CINTRINSICS) RY MIX 
oa REAL MFS»SAGE»GM3 % SPACE FOR NO MEM MESSAGE, 
ce 

REAL TeJ3 ¥101° 


$ SET OMIT = NOTC(NEWLOGGING) 
LABEL EX{Ts ® ALL AVENUES MUST LEAD TO HERE 
LABEL WRAP,AROUND,TESTREADYES 
LABFL OPEN» CLOSE#2 
LABEL CODEJNeINTS 
LABEL DLOOPs NG 
DEFINE REVERSE Sr 2:17) #+READY =li9ty)#ePRESENT 27 294783% 
COMMENT MAKEPRESENT HAS THE FOLLOWING ACTIONS»,DEPENDING ON THE TYPES 
OF DESCRIPTOR CAUSING PRESENCE BIT 2% 
DATA DESCRIPTOR 3% 
IF MOTHER ABSENT THEN GET CORE SPACE AND SETS 
MOTHER PRESENT WITH PROPER CORE ADDRESS& 
THEN TF INITIAL ACCESS*¢ZERO THE SPACE ELSE 
READ 1N FROM DISK AND RETURN DISK SPACES 
THEN SET 1ST MEMORY LINK TO SAVE OR NOT SAVES 
AND SFT 2ND LINK TO ADDRESS OF MOTHERS 
TN ANY EVENT, SET COPY PRESENT WITH CORRECT COREY 
ADDRESS, 2% 
10) DESCRIPTOR! 
PROGRAM DESCRIPTOR! 
3 
SUBROUTINE RUNAROUND? % 
REGIN WHILE NOT CPRTIR(X] « CCLOC+#2) INX PRTIREIX])% 
OR MEMORY),STOPPER DO X © PRIRCIX],LINKSS 
FND RUNAROUND3 


% 
$ SET OMIT = NOTCNEWLOGGING) 
IF ¢M © MEC)),¢121) THENS 
IF n.(6#2)e1 THEN % TYPE 43 INTRINSIC 
BEGIN Xt@fINTRNSCESEGNOeMINE*NFLAG(D) [NX 0])3 
SEGNOMsSEGNO=43 
STREAMCT!@SEGNO AND 36 IferINTABLECPiMIX»SEGNO DIV 41393 


BEGIN D1] teDI+TsDI ssDr+TsSkKtIP 1 DBSOStaSETSENDS&RMARK TYPE 13 BIT 


- IF X?0 THEN SLEEPCEX},°0)3 
$ SET OMIT = NOT MONITOR 

1F CX INX 0961023 THEN 

REGIN PCABSCX) #€XJoaed$ STZEeX INX O03 
$ SET OMYT = NOTCAUXMEM) 


14162500 
14163000 


14164000 


14164100 
14464200 


14164300 


14164399 
14164500 
14165000 
14166000 
14166100 
144166200 
14167000 
14168000 
14169000 
14170000 
14171000 
14172000 
14173000 
14174000 
14175000 
14176000 
14177000 
14178000 
14479000 
14180000 
14181000 
14182000 
14183000 
14184000 
14185000 


14185100 
14185199 
14186000 
14186010 
14186020 
14186030 
144186100 
14186110 


14486120 
14486121 
14186130 
14186140 
14186143 


AAA AHHH HHH HBA 


At 


a 


000030 
0000:0 
000030 


000080 
0000:0 


0000:0 


0000:0 
000030 
000030 
000030 
000030 
0000:0 
0000:0 
000030 
000080 
0000:0 
0000:0 
000030 
000010 
0000:0 
000030 
000030 
0000:0 
000030 
000010 
0000380 
0000:0 
000010 
000130 
0003:0 
000731 
14183000 
0007t2 
000732 
000782 
001484 
001630 
001984 
002032 
002331 
14186110 
002530 
002810 
002830 
002981 
003230 


DISKANDR t= X,(6827]3 
MINE*MINE&SI17F£8!238110183(51246127)3 
1ONt=133 GO TO CODEIN; 

END ELSE BEGIN MEC).CCFJ©INTRNSCOMINE J.CCFI3 


MCC1.C2t1)%e13 
GO EXITS 
END 


FND FLSE 


BEGIN PRTR ¢ PRTI[TPIMIXs*]3; LOC «+ NFLAGC(NI8O(5258193 


12900000 


nO IF LOC,PROGRAMDESC THEN SEGNO « LOC.£184151% 
FLSE IF LOC,STOPPER THEN SEGNO « LOC. LINKS 
FLSE LOC « NFLAGCPRTIR(LOCeLINK))& 
UNTTL SFGNO#OSS 
np « SEGNO JINX PRTIR(4l3s 
IF DOrO),£3%1] AND NOTERMSETCPIMIX) THEN 
COMPLEXSLFEEPCCTERMSETCPIMIX) OR NOT DDL0}.0381}))3 


ACCIDENTAL FNTRY AT 1 


IF TERMSFTCPIMIX) THEN GO INITIATE 
1F CSTZE « (MINE # NH£0)).6182151)<51023 THEN 
REGIN ODLO].,(3%1) © 13% 
TF MINF<O THERE 
TF PRTREX «+ MINE. £C8810)3.6281)] THEN GO AROUNDSS 
IF MINF,C2¢1] THEN? 
BEGIN X « CINTRNSCEMINE JINX 09938 
IF X>O THEN SLEEPC EX] 9"0)3% 
IF (X INX 0)€1023 THEN BEGIN PCABSCX) of X19¢)3% 
SIZE « X INX O38 


£ SFT OMT = NOT MONYTOR 
$ SET OMIT = NOTCAUXMEM) 


CODEIN:$ 


DISKANDR © X,[6!27]3 
FNn ELSE ReGIN LOC + CSIZE « X JINX 0)"23 


DDrOl, CRF 1 « SIZES GO AROUNDS 
ENDS % 


END ELSE IF JARSFP4MIX,10]=0 THEN 


DISKADOR t= DATADDRESSCPIMIXs MINE) 
ELSE DISKANDR ta CODEANDRESSCPIMIXs» MINED 
TOD? mOXMINE SP 224 )4(MINE LSS O)433 
WHILE CLOC*GETSPACECS!ZEs10Ds(MINE<O AND MINE,(61411)466)) 
es 0 pO 
REGIN TF TERMSETCPIMIX) THEN 
REGIN TF MINE.C2%4) THEN 
INTRNSCEMINEI3=NABS¢C #P( DUP) )3 
IF Def6%23"1 THEN 
INTRNSCCOJSBNABSC¥#PCDUP))3 
NDCO],£3%1)8203 GO TO INITIATES 
FND$ 


IFCSPACE?=SPACE+{)25 THEN 
BEGIN STREAMCPIMIXeSIZEeT&srMES))3 
BEGIN SIt=_0c PiMIXxs OSte2 DEC} 
pSieBLIT* NO MEM *3HS%e25 DEC! 


14186148 
14186150 
14186152 
14186160 


14486170 
14186180 
14186190 


14186200 


14187000 
14188000 
14189000 
14190000 
14191000 
14192000 
14193000 
14193100 


14193200 
14194000 
14195000 
14196000 
14197000 
14198000 
14198100 
14198200 
14198300 
14198400 
14198410 
14198499 
14198700 
14198800 


14199000 
14200000 


14201000 


14202000 
14203000 
14203010 
14203020 
1420302} 
14203100 
14203200 
14203300 
14203400 
14203500 
14203600 
14203700 


14204000 
14204100 
14204200 
14204300 


4 44-44 


A Ast AtAM Hea A HAAR 


ee ee ee ee 


AAAs 


003210 
003341 
003630 
0037814 
14186140 
004033 
004372 
0044:0 
14186160 
0044:0 
14186020 
004420 
004722 
004633 
0051:3 
0054232 
0056:2 
0058:0 
006012 


0068:3 
007131 
0073:3 
0076:0 
007633 
008030 
008033 
0082:3 
008533 
0088:2 
006913 
008933 
008933 
009130 
14198300 
009333 
0095%2 
14198800 
0095%2 
14196100 
009782 
009810 
010230 
0105:1 
010910 
011013 
011251 
0113%2 
011533 
011740 
O119tt 
012182 
14203200 
0121%2 
012331 
012510 
0125!2 


NSts5 LIT " WOSe"s 
ENDS 


PCWAITIOCLMES)+9177225) DEL) 3 
END3 


SLEEPCECLOCKI]s»NOT CLOCK)3 
FND3 


IF MES NEG O THEN 
REGIN STREAMC(TSSLMESI)3 
REGIN ni tsD1+33nStalLIT"OK MEMe™ ENDS 


POCWAITTOCC MES] 2@177225),DEL)3 
FND3 


DISKTOCTON«® *LOc™1+ SIZE» DISKADDR)$ X ¢ MINE,C881079% 

SLFEPCETONJ] e LOMASK)}3 
IF 10N,£26:7]) NEQ O THEN 

BEGIN 

IF MINE .C2%t] THEN FNTRNSCE MINE J 8=NABSC¥*¥PCDUP) D3 

pnprel.,c3%i1) ss O03 

GO TO NG 

FNDS 


$ SET OMIT = NOTCSTATISTICS) 
IF 0,£6%2]=21 THEN 
BEGIN M[C].£CF]*LOC+23 
Mic].¢2tijet3 
GO TO INT: 
END? 


IF MINE>0 THEN REGIN RUNAROUNDSS 
; Mic) © ¢¢Lots2) NX D) OR MEMORY3S 
INTS 
IF MINE, £231) THEN’ 
BEGIN MCLOc) © (CH¥PCDUP))80698916)3% 
INTRNSCOCMING INX QO] © =C#PCDUP)I&CLOCe2)°CTCI3% 
END ELSES 


IF (X © PRTR(4),¢1686])40 THEN 
MELOC) © CePCDUPIISXI9S4226I3% 
IF DISKANDR>O THEN MELOC41) t% O & SIZECCTF)}3 
MELOC+1) 8 ¢#PCNUP)) & SEGNOLCTCI) 
TF MINE.C2!1) THEN MCLOC41) © C¥PCDUP)I@MINE(8238210)3% 
IF 0,£682)=1 THEN 
BFGIN MELOC),£C221)«03 GO EXIT3 
FNNDS$ 


onr01.018245] «+ LOC+23% 
FND PROGRAM CODE SEGMENTS& 


FLSE BEGIN 
MECC] © PRTREX] © M OR (C(L0C42)% 
RCMELOC41) «© CPRTROXI] INX 09616233215)% 
& (MINE. G7843x24) (384315) % COBOL68 READ ONLY 
&S1IZEL82 388101953 


14204400 
14204500 


14204600 
14204700 


14205000 
14205100 


14205200 
14205300 
14205400 


14205500 
14205600 


14206000 
14206100 
14206110 
14206120 
14206135 
14206140 
14206145 
14206160 


14206299 
14206310 
14206320 
14206330 
14206340 
14206350 


14207000 
14208000 
14208010 
14209100 
14209200 
14209300 
14209500 


14210000 
14211000 
14212000 
14212010 
14212100 
14212200 
14212300 
14212400 


14213000 
14214000 


14215000 
14216000 
14217000 
14217500 
14218000 


+44 


AHHAMHMH HH ARR TH 4-4 


a ee 


Se ee i | 


012730 
012820 
14204200 
012831 
012983 
14204100 
0129:3 
0134:2 
14203100 
0132:0 
013223 
013410 
14205400 
0135:3 
013711 
14205300 
OV37th 
014083 
O142it 
014312 
014410 
0147:0 
0144683 
014931 
14206120 
0149%14 
014951 
01502 
015333 
0156%2 
015730 
14206320 
015730 
015930 
0162:0 
016210 
0162:3 
0166:0 
016931 
14209200 
016931 
017133 
017530 
047883 
0161:2 
018610 
018781 
019430 
14212300 
019430 
019233 
14207000 
019243 
0193 
01495:2 
0198%14 
019913 


AROUND 


IF MINE,(684} THEN % COBOL68 FILE TANK 
ae PCMCLOC+4 I] >TOPsXCH»sDEL) THFN% BUILW FIR PTR 
BEGIN 
PCEMFLOC+4I] J] +>DUP»s DUP sLOD»XCHe INX#MI CI o FFX.» 
C100026sDIA 32°DIB 2eTRB 16eXCHse)$ 
WHILE CAIT#PRTRECAILTNOXI),PBIT#0 
DO MAKEPRESENTCEPRTIRCAITNDXJ] JNX 093 
IF A17.£68810] < aALTCOJ+2 THEN 
BEGIN PCAIT#000)3 INTFRRUPT(L)3% PHONEY INVALID 
PCDEL* DELO DELI % INDEX ON Alt 
AIT « PRIRCALTNDX]3 


ENQ3 
IF AITEAITCOI).£8810) NE@ 1 THEN *101° 
BEGIN R101 
1 t= 13 Z101= 


WHILE AIT£EII,06210) = 1 DO Tt t= f + 1381018 
FOR J := AIT(O) STEP “1 UNTIL 1 DO Z101° 


AITCJ+41] ¢= AITCJI3 Zi0i-# 

END ELSE I 32 AIT(O] + 13 Z101° 

AITCLO) s= eP( DUP) + 13 ¥1018 

AITCI} t= CL ek £66838810] & MECIEFTFID: %101= 
END; 


$ SET OMrT = NOTCSTATISTICS) 


FND TYPF TWO DATA SEGMENTS3& 


Ip NOT MINE. CO%t] THEN MELOC] C291] «+ 03 
FND ABSENT SEGMENTS 


FLSE BFGIN LOC © SIZF™23% 


TF ON£90]>0 THENG 


IF NOT PRTRCX ¢ ONC0),688109],72917 THEN RUNAROUNDSS 


Mrc) 


FNDS 


* IF DOr01>0 THEN ¢€CSIZE INX D) OR MDB 
ELSE PRTR(NDl9),78810)33% 


IF ONf01,f2°1) THENS 
BFGIN & INTRINSIC 
IF CSTZE&sCDDC0) INX O)"1) NEQ@ 16 THEN SNOT INTRINSIC 17 


BEGIN 


STREAMCSEGNO, T ¢ SIZE AND 30% 


BEGIN 


ENDS 
END: 


ENDS 


I * CINTABLELCPIMIXeSIZE DIV 431932 


Syrsyps SptaSp+Ts SpssSeeTs SKIP 1 SB! 

IF SB THEN$ &% REMEMBER TyPe 13 REFERENCE 

DItsO1l4+Ts OpeeOy4Ts Thad es SeteLOc T3 

SrtxSil"93 pSie2 CHR3 

IF TOGGLE THEN BEGIN DI teTs SKIP 1 DBS DStaSeT3 ENDS 


14218010 
14218025 
14218027 
14218030 
14218035 
14218040 
14218045 
142168050 
14218055 
14216060 
14718065 
14218070 


14218072 
14218074 
14218076 
14218078 
14218080 
14218082 
14218084 


14218086 
14218088 
14218090 


14218099 
14219000 


14220000 
14221000 


14222000 
14223000 
14224000 
14225000 
14226000 
14227000 


14227100 
14227200 
14227210 
14227220 
14227300 
14227400 
14227500 
14227520 
14227540 
14227560 
14227580 
14227600 


14227620 
14227630 
14227700 


AAHH AHH 


Or VWoadoeo 


4-4 


AaaAaaes 


AAAHM AHA AA 


020283 
020382 
020682 
020710 
021083 
02121 
021393 
021810 
022011 
022232 
022333 
022411 
14218055 
022411 
022610 
0226:2 
O227i1 
023110 
023510 
023782 
14218074 
023912 
024112 
024511 
14216027 
024534 
024514 
14215000 
o245i1 
024982 
14195000 
0249t2 
o25itt 
025210 
025610 
025911 
026191 
14222000 
02611 
026210 
0262%2 
026413 
026511 
026632 
026811 
02681 
026933 
027041 
027183 
027221 
14227600 
027334 
14227500 
027382 
14227220 
027382 
14227200 


moL0),6381) «© OF GO FXITS 


END 3% 


TF (MOM%=D,£3%5))#0 AND (MOM AND @33)#@30 THEN 


REGINS 


COMMENT 1/0 NDESCRIPTOR3S% 


TESTREANY! 


OPEN: 


IF JARCPIMIXe2] < O THEN 
BEGIN TERMINATECPIMIX)S 
TERMINALMESSAGEC25)3 
ENDS 


MOMe MEMORYED INX CIF DeREVERSE THEN 2 ELSE NOT 1))2 
INX 03% 

IF NOT MEMORYEMOM).READY THENS 
SLEEPCEMEMORYE MOM) ]p1LOMASK)3% 

IF MEMORY(CMOMJ,PRESENT THENS 
MEMORYECI]*MEMORYLMOM)E 

FLSES 

BEGINS 

IF MFMORYEMOM],NOTOPEN THENS 

BEGIN SAVEOPENCMOM)S TF TERMSFTCPIMIX) THEN GO EXITS 
GO TESTREADY END 


ELSE BEGINS 


COMMENT RFADY AND NOT PRESENT INDICATES REEL*SWITCH OR TERMINATES 


PRTReMEMOM=343% 
LOC*PRTR(15],(25:5)3% 
SIZE*PRTIRE4G],C824I)3% 
IF MCMOM},¢2@7811] THENZ 
IF MCMOM],¢2421) THENS 
BEGIN IF StZe=2 AND NOT PRTRE4)],(281)% 
AND NOT MCMOMJ),(22:1] THENZ 
BEGIN RLASTQCLOC)3% 
PCWALTIOCMECMOM"2) 60eL0C) »DEL) 3% 


PCWATTIOC@100000034000000520eL0C )sDEL DIZ 


TF MCMCMOM"2) JINX 4),04286]21 THENS 
CLOSE: BEGIN LOC#PRTR[13),f28810]3% 
FILECLOSE (MOM @12718333215))3% 
PRTIRC13).C28810] «LOCe1 3% 
GO TO OPENS 
FND33 


END3% 
END ELSES 
BEGIN IF StZps2 OR SIZEe7 OR SIZERB THENS 
BEGIN IF NOT PRTR(4],€2%1) THEN 
MEMEMOM"2) INX 4), [4286] e132 


GO TO CLOSES 
END3% 


END3% 
P(MOMoMPMOM],[2711]+19000)3% 


COM113% 
END3% 


14228000 
14229000 


14230000 
14231000 
14232000 
14233000 
14233100 
14233200 
14233300 


14234000 
14235000 
14236000 
14237000 
14238000 
14239000 
14240000 
14241000 
14242000 
14243000 
14244000 


14245000 
14246000 
14247000 
14248000 
14249000 
14250000 
14251000 
14252000 
14253000 
14254000 
14255000 
14256000 
14257000 
14258000 
14259000 
14260000 
14261000 
14262000 


14263000 
14264000 


14265000 
14266000 
14267000 
14268000 
14269000 


14270000 
14271000 


14272000 
14273000 


+4 


Aas 


AHA Ht 


AAA HAHHAN HHH 


4 4 


0273!2 
027583 
14187000 
027610 
027984 
027933 
0279133 
0281%1 
0282%2 
028381 
14233100 
O283I1 
0286? 
028830 
0289:3 
0292i1 
029313 
0295%4 
0296:2 
029710 
029882 
030133 
14243000 
030231 
030233 
0302:3 
030433 
030631 
030733 
030984 
034131 
031233 
031630 
031731 
0320!0 
0321382 
032531 
032711 
0328%2 
0331:2 
0333:0 
14258000 
033330 
14254000 
0333:0 
14252000 
0333:0 
033631 
03386:0 
034370 
034312 
14266000 
034332 
14265000 
0343%2 
034681 
0346183 
14245000 


ENDS& 
ENDS 


FLSER 
REGINE 
COMMFNT PATA DESCRIPTORS & 
NLOOPs 
1F CMOTHEReMEMORYE MOM © 9,018815)]),0281] THEN GO WRaAP3S 
TF CMOTHFR INX 0) = 6 THEN & I[/0 ERROR FROM OLAY 
BEGIN 
TERMINATECPIMIX & 20[CTFI)3 
GO TO JNITIATES 
FND?3 


If (MOTHER TNX 0) = 5 THEN 3% INTERLOCK FROM OLAY 
BEGIN 
COMPLEXSLEEPCCCMEMOM] INX 0) NEQ 5))3 
ACCIDENTAL FNTRY AT 5 
GO TO nLOOP; 
FINNS 


14193100 


SAVEBIT ¢ MOTHER. ICFIF13 

MEMORY(MOM] « MOTHERRCCLOC *GETSPACECSIZE*MOTHER, (8210) 020% 
SAVEBIT+64)) 42) ¢cTC]&i1p234711]3 

$ SET OMYT = NOTCAUXMEM) 
TF MOTHER, CCFI<3 THEN 
STREAMCLELOC4+20 SeSIZEt1e TeOe WeC MOTHER, (CF )22))3 

REGIN SI « LUC SsSI*SI+6sN1©LOC TIDI#DI+730S¢CHRIZ 
Diels SI*LOc WS DS*WDS3 
SteLs T¢pSe32 WOSs# DS*32 WOS)3 DS*#S WHS3% 
END ZERO SPACES 


FLSE% 
RBFGINZ 
COMMENT READ ARRAY FROM DISK AND RETURN DISK SPACE3% 
& SET oMtT = NOTCSTATISTICS) 
NrSKIOCTOD»*LOC=1,MOTHER, £8210) 5% 
DATADDRESSCP14MIX»s MOTHER) )3 
SLEEPCLIOD) »TOMASK)3 
TF 100,02637) NE@ O THEN 
BEGIN 
NG! FORGETSPACECLOC+2)3 
COMPLEXSLEEPCTERMSETCPIMIX) 3 
ACCIDENTAL ¢NTRY AT 1 
GO TO INITIATES 
END$ 


14279550 


$ SET OMIT = NOTCSTATISTICS) 
MOMeMOMRMOTHERSCTFI3 
END 3% 


MEMORY(LOC).C221) « SAVEBITS3 
MeMORYCLOC+1] « MOM 3% 
$ SET OMIT = NOTCSTATISTICS) 
WRAP 3% 
MEMORYFC) « TF D.r8i19)] & 0 THEN PCMEMOM},0eCDC oDeXCHo TNX) 


14274000 T 


14275000 


14276000 
14277000 
14278000 
14278100 
14279000 
14279350 
14279200 
14279250 
14279350 
14279400 


14279450 
14279500 
14279550 


14279600 
14279650 


14280000 
14281000 
14282000 
14282099 
14283000 
14284000 
14285000 
14286000 
14287000 
14288000 


14289000 
14290000 
14291000 
14291099 
14292000 
14292100 
14292310 
14292120 
14292330 
142924140 
14292150 


14292160 
14292170 


14292199 
14293000 
14295000 


14296000 
14297000 
14297099 
14298000 
14299000 


ee 


~-+ 


Se | 


AAA AAA tH 


a4 


44-4 


4~Aaa4 


034633 
14241000 
034633 
14231000 
034633 
034633 
O347t1 
O34714 
034731 
0351:0 
035231 
035233 
035470 
035412 
14279200 
035432 
035533 
035631 


036330 
0363:2 
14279500 
036332 
036531 
036810 
037133 
037133 
037330 
0377:0 
037631 
037930 
038430 
14285000 
038170 
0381:4 
0381'3 
0381'3 
0381!3 
03840 
0385:2 
038730 
0386314 
03868!3 
039010 


039632 
039710 
14292130 
039710 
039710 
0398:1 
14290000 
039834 
040110 
040310 
0403280 
040310 


FXIT? 


ELSE MEMORY[LMOM]3% 
ENDS 


$ SET OMIT = NOTCNEWLOGGING) 


FND 


MAKEPRESENT 33% 


14300000 
14301000 


14301100 
14301199 
14302000 


T 040733 

T 040933 
14277000 

T 0409:3 

T 040983 

T 040933 
14156000 


S1ZE= O411 WORDS 


PRT(160) = 


PR¥(622) = 


STACK ¢F+0) 
STACK (F42) 
STACK (CF 43) 
STACK(F44) 
STACK¢(F +3) 


STACK (F 45) 
STACK¢(F +6) 


STACK ¢(F 46) 
STACK(F4+7) 
STACK¢(F 415) 
STACK(F 41) 
STACK¢ F410) 


STACK ¢F 411) 


STACK¢F 412) 
STACK ¢ F413) 


STACK¢(F 412) 
STACK (F412) 
STACK(F 411) 


STACK ¢F 414) 


STACK(F 414) 


STACK(Fe1) 


STACK¢F4+16) = JARI 


STACK (F417) 


REAL ANDRS=NT13% 14342000 
ADDRS 
PROCEDURE ZIPPERCA,RsC)3 VALUE A,BeC3 REAL A,B,C! FORWARD? 14342100 
START OF REL SEGMENTS DISK 
7IPPER 
PROCEDURE COM53% 14343000 
START OF REL SEGMENT? DISK 
BEGINS 14344000 
REAL ROW=400% 14345000 
= RCW 
ERTOGH+2 0% 14346000 
= ERTOG 
I at+3e8 14347000 
T at43% 14348000 
= T 
INTEGER Je] is 14349000 
z J 
ARRAY VECTOR#4+50%)eS24+6(¥*1:3% 14350000 
= VECTOR 
= § 
INTEGER Q2S3 14350100 
= Q 
ARRAY FILEBLOCK=47(*)3¢% 14351000 
= FILEBLOCK 
ARRAY TSKA=+413(*]3 14351050 
= TSKA 
INTEGER LINKS LABEL RETURNEMS 14351100 
= LINK 
INTEGER MOTHERs=+8, NEXTMOMs49y MOMMIX2410, CATCHe4113% 14351200 
= MOTHER 
= NEXTMOM 
= MOMM[X 
= CATCH 
REAL ENDALT=MOMMIX» ASMQOMMIX eK=NEXTMOM$ 14351205 
= ENDAIT 
= A 
= K 
RFAL CHAIN=+12sABSEVT#CHAINS 14351210 
= CHAIN 
= ABSEVT 
ReAL MSCW = #13 14351220 
= MSCW 
REAL JARO = TSKA4 73 Z519" 14351230 
$ SET OMyT = NOTCWORKSET) 14351240 
REAL STOPMIXsJAR9413 LABEL STOPLOOP3 14351250 
= STOPMI]X 
$ POP OMIT & WORKSET 14351260 
SURROUTINEG DELINKYT3 14351300 
REGIN Te2MC tl) FNX OF 14351310 
tPF NOT MET), £481) THEN SLEEPCEMETI)2@200000000000000); 14351320 
MOETI.C4&1)2203 143513390 
1FOMCYI,£281] THENSIN CONTROL 14351340 
REGIN METI,CCFI&teMEC 1) FRI; 14351350 
IF (Mf&T) INX 0) NEQ O THEN MEMET) INX O2, 62th leet 14351360 
FLSE MC TIS#ABS(METIISZUNLOCK JT 14351370 


T 0000:0 
T 0000:0 
ADDRESS »# 
T 0000:0 
ADDRESS = 
T 0000:0 
T 000030 
T 0000:0 
T 000030 
T 0000:0 
T 000030 
T 0000:0 
T 000030 
T 0000:0 
T 0000:0 
T 000030 
T 0000:0 
T 000010 
T 0000:0 
T 0000:0 
P 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 000030 
T 0004:0 
T 000330 
T 00073834 
T 001030 
YT 001132 
T 001512 
T 002010 


00411 


00414 


FND ELSES IN WAIT QUEUF 


REGIN T&ieM(T]) JNX OY 
WHILE MCT],CFF] NEQ@ CT INX 0) DO 
TesMrT) CFF I3 
MCTICFFISEMC LICR RIS 
FNN} 


MCT] ,fasijiets$ 
END: 


PRYOR(PIMIX] ¢ #13 
PCCADDRS#SGETSPACE (19601200) +1 9STSe.COMSsRCOWe Oo RDS» Oe XCH eC Xe 
STF)3 
PCPRIMSCWILCTFI1902000000020)3 
P60200000,05020)3 & ZERO FYLEBLOCK THRU JAR9 eae %172" 
& SET OMIT = NOTCWORKSET) 
PcO)3 % STOPMIX 
$ POP OMIT % WORKSET 
MrCFILERLOCKePRICPiMrXe3]) [NX 07°2],(986] © 03% 
MPADDRS Jec#PCDUP) 8069392693 
MECVECTORe JARROWEPIMIX]) INX OM2] e(*PCNUP)I&0L93936)3 
IF VECTOR(0O]«O THENS 
REGIN CATCHePRICPIMIXs@26]3 
FRTOG «+ (VECTORIF11<0) OR CPRTICPIM]X»825)#0)3% 
ENDS 


IF vEecTOR(2).C6!1] THEN % Pc 
BEGIN IF VECTOR(1]<O THEN & DS#*FD TASK 
REGIN WHILE CSePRTGPIMIXsATTINDOX]),PBIT#0 DO % SEARCH AIT FOR 
MAKEPRESENT¢ PRTROWEPIMIX)  FNX ATTNDX)3 % TASK ARRAYS 
MEMORYES INX NOT 43.0281] © 15 % MARK SAVE 
FNDAIT « S073 
FOR Ket STEP 1 UNTIL ENDAIT DO 
RFEGIN TSKA © MEMORYCCNT1«SCEK}]),MOM]3 
IF NT4,¢1%2)]23 THEN IF % DEPENDENT TASK 
CONT? *TSKAL33)541 OR CNT2e2 AND TSKAL4GI#PIMIX)) THEN 
B TASK ARRAY OF A SCHEDULED OR RUNNING OFFSPRING 
BEGIN If NT2=51 THEN 
RFGIN 
SHEFTDIDDLERCO»20eTSKAL4))3 2 ES 
END3 


IF TSKAC31]=2 THEN 
BFEGIN 


% RUNNING 


TERMINATECTSKAL4]&86°CTFI)3 HALTS & DS 
NOPROCESSTOG « NOPROCESSTOG"43 


END3 


COMPLEXSLEEPCCTSKAL3] LSS 0))3 


14292150 ACCIDENTAL FNTRY AT 0 


END3 
ENDS 
ENns te VecTORf21,05%21) THEN SOFT? ¢ SOFTy=13 


14351380 


14351390 
14351400 
14351440 
14351420 
14351430 


14351440 
14351450 


14351500 
14353000 
14353002 
14354000 
14355000 
14355020 
14355030 
14355040 
14356000 
14357000 
14358000 
14358100 
14358150 
14358200 
14358300 


14358310 
14356315 
14358320 
14358325 
14358330 
14358335 
14358340 
14358345 
14358355 
14358360 
14358365 
14358370 
14358373 
14358375 
14358377 


14358360 
14358382 
14358383 
14358384 
14356385 
14358386 
14358389 
14358390 


14358391 


ee ee ee en | 


a4 


AHHAAHHa OH 


HAHHHHHAHHA HH DAH 


at 


«4 


—~_ 


0026:2 
14351350 
002682 
002980 
0032:0 
0034%2 
0038:0 
14351390 
0038:0 
0040%3 
14351310 
0041:0 
004233 
004732 
004830 
0050:0 
005133 
005123. 
0052:0 
005210 
0057 :0 
0059:3 
006431 
0065?1 
0067:1 
007032 
14358150 
0070:2 
00712 
0073:0 
0076:2 
00782 
0082: 1 
0083:1 
008430 
0087:0 
0088:3 
0092%2 
0092:2 
0093!:3 
009431 
0095:3 
14358373 
0095:3 
009633 
0097314 
0099%4 
010012 
143563682 
010032 


0106:0 
14358370 

010630 
14358345 

010831 
14356320 


IF CTSKACPRICPIMIXSTSXJ)ePRIT THEN 

BEGIN YF TSKAL6)41 THEN TSKAL/7)3813 
IFCT#tsTSKATS)) NEQ O THEN BEGIN [#eCPRTICPIMIXs1)] INX O8 
DELINKYITSWHILEC] $=@M£7),08%10}) NEQ O DO 


TF 


BEGIN 


CleTSKAL8I].£CF})#0 THEN 


END3 


BEGIN TtefPRTICPIMyXeTJIINX OSDELINKIT END END? 


% SOFTWARE INTERRUPTS DECLARED 

IF NOT TSKAC8),£4%1) THEN 

SLEEP ¢ LE TSKAL 8) 72 2200000000000000)3 

TSKASBI, £48141) ©« O3 

DO % DETACH SOFTWARE INTERRUPTS 
BEGIN IF CABSEVTePRICPIMIXs1)e0£FF])#0 THEN 

BEGIN WHILE NOT MCABSEVT},£5%1] DO 
ABSFVT «+ MCABSEVTJ.CFFI]3 

IF MCABSEVT]20 THEN 


SLEEP CEMPABSEVT))»@2000000000000000)3 


MEABSEVT] # PCLODeDUPsSSP)$ 
T © CKePRICPIMIXe1))eCFFI3 
A « (PRTEPUMIXeT}] INX OF 
WHILE METI, CFFI#A DO T © MET).CFFY 
METI.CFFIJ « KyCFFI3 
MCABSEVT] «+ PCOUPsLODsSSN)3 
ENDS 


IT « PRTIGPIMTXo1lJe(CF)3 
END UNTIL JT=03 


TSKAL81,(421) © 43 


TSKAL3}2s"145 


END; 


END$ 


JARO 
CHAIN «© ORVECTOREIQIECFTCI&VECTOREI1IC121%9133 VECTOREIOI],CFF] « O38 


£ SET OMIT 


= 
- 


t= VECTORI9I; 


NOTCBREAKOUT) 
IF VECTOR[2]<0 THEN ¥& COBOL 
IF VecTOR(13>0 THEN & NOT DS"ED 
WHILE PRTFP1IMyX%.16)70 DO ASRISCLEAN OUT ayT 
JF VecTOR(1)]>0 THEN & NOT OS#"FD 
FOR MOMMIX%#6 STEP 5 UNTIL 41 DO 
BFGIN Qt=NFLAGCPRICPIMIX»MOMMyXJ)3 & ATT OR OAT ENTRY 
IF @,£231] THEN & PRESENT» GRAB ADDRESS FROM LINK 
Q@ := Q & MrQ@ INX NOT O9CFTCI3 
1F @,€33%3)787 THEN &® AUXILIARY MEMORY IN THE ACT 
DISKRINCQ.CCFIJ, O,£8810))3 
IF VECTOR(C2]<0 THEN MOMMIX8e113 % COBOL HAS NO OaT 
ENDS 


SLEEPCLOLAYMASK)sMOMMTXeTWOCPIUMIX))3 
OLAYMASK «+ NOT MOMMIX AND OLAYMASK3 
MOTHER + DALOCCPIMIX+0),(CFI3 

NEXTMOM $= *¢3 S 82 MALOCROWFPIMIX]3 
WHILE CNEXTMOM g® NEXTMOM#2) <MOTHER DO 


14358392 
14358393 
14358394 
14358395 
14358397 


14356398 
14358400 
14358450 
14358460 
14358550 
143585860 
14358562 
14358564 
14358586 
143585868 
14358590 
14358595 
14358597 
14358598 
14358600 
14358605 
14358610 


14358615 
14358620 


14358625 
14358630 


14358640 
14358650 


14358700 


14358710 
14358800 
14358999 
14360100 
14360200 
14360300 
14360310 
14360320 
14360330 
14360340 
14360350 
14360360 
14360370 
14360360 
14360390 


14360400 
14360500 
14360600 
14360700 
14360800 


SL 


AA AAHRA HH HAHAH HHA HA 


" 


a" 


i ee ee 


aH 


ooo 
to (a fod 
— —. pe 


$ 
i 
; 


Awe 
—-oOo 


012031 
012430 
14358397 
14358394 
012732 
012932 
0131%1 
0133%2 
013630 
0136:0 
0138:%2 
014131 
0145:0 
034682 
014883 
015130 
015333 
0155133 
016230 
016483 
016633 
14358582 
0166133 
016833 
14358580 
017080 
0172!%2 
14358400 
017282 
017430 
14358393 
017480 
14358315 
017420 
017510 
017933 
017983 
0180%3 
018231 
018533 
018683 
018820 
018913 
019012 
019333 
049570 
019782 
019983 
14360330 
020230 
020432 
020630 
020810 
0210:0 


$ SET OMIT = 
$ SFT OMIT = 


£ SET OMIT = 


FORGETUSERDISKCSENEXTMOM],"500)3 

SLEEPCETOGLEJ»STOREMASK)3 

MOTHER #© (CMOMMIX « (NEXTMOM of 
PRTCPIMIXs4],(18:12]),C3686))=PIMIX3% 

NEXTMOM © NEXTMOM AND ©773% 

NOTCAUXMEM) 

NOTCNEBUGGING AND AUXMEM) 

WHILE CTeMC1J>,CcF] # 0 DO’ 
RBFGINA 


IF T > 0 THEN ® YN USE AREA %167= 


IF T,AREAMTXF = P1MIX THEN ® IN USE BY THIS MIX 
TF MOTHER AND CPCT,AREATYPEF® DUP) = CODEAREAV 
OR PCXCH) = SEGDICTAREAV) THEN & GIVE CODE 


MFI] ,AREAMy;XF &= NEXTMOM % TO NEW MOM 
ELSE 
FORGFTSPACFC] INX 2)3 
1 t= T,ARFAFWDLINKFS 
ENDSS 


INTABLEROWLPYMIX] « OF% 
NOTCBREAKOUT) 


$ SET OMIT = NOTCBREAKOUT) 


$ SET OMIT = 
IF 
§ SET OMIT = 


$ POP OMIT 


IF NEXTMOM#O THEN BEGINS 
IF MOTWER THENS 

IF PRTCNEXTMOM,4).£2426])2@77 THENS 

NFOCCNEXTMOM*L DXNDX44) +f 

PRTCNEXTMOMs4) © C*P(DUP)I&80(18818815)% 

FLSE BEGIN MOTHER © NEXTMOM3% 
DO UNTIL (MOTHER «© CPRIECMOTHFRe4] «% 
NFOCCMOTHFR®1LIXNDX41) #3 


167% 
%167= 
£167= 
%167= 


C#P (DUP) &NEXTMOM(1824286)),£2436])2@773% 


ENDS 


FLSE BEGIN’ 
IF CPRT(MOMMIX+4],£2436]=P1M1X) ANDS 


NEXTMOMS@77 THEN NFOCCMOMMIX*1IXNDX41) of 


PRTEMOMM]Xe4) © CePCDUP))&80616216:15)% 
ELSE REGIN® 
nO BEGIN MOTHER «+ MOMMIXS$ 
MOMMIX © PRTIEMOMMIX94),(2426]3% 
FNn UNTIL MOMMY] XSPIMIXSS 


NFOCCMOTHER™£)xNDX4+1] #3 
PRTCMOTHER?4)] «2% 
C*#PCOUP)I&NEXTMOM(2484236)5% 
END END3&% 


NFOLCPIMIX*L)xNDX41) #2 
PRTCPIMIXe4] © CaPCDUP) 9806186218815]; % 
ENN3% 


NOTCAUXMEM) 


VECTORIF2),(8810]# 0 THEN® 


STATISTICS 


FORGE TSPACECDIRECTORYSEARCHCABSC(CVECTORCOJJoIF VECTORL0)<0 


THEN "DISK " ELSE ABSCVECTOR(E1)).13))3 


14360900 
14361000 
14361100 
14361200 
14361300 
14361309 
14361512 
14362000 
14363000 
14364100 
14364200 
14364300 
14364400 
14364500 
14364600 
14364700 
14364800 
14367000 


14367100 
14367199 
14367999 
14370010 
14370020 
14370030 
14370035 
14370040 
14370050 
14370060 
14370065 
14370070 
14370080 


14370090 
14370100 
14370110 
14370115 
14370120 
14370130 
14370140 
14370150 


14370155 
14370160 
14370165 
14370170 


14370180 
14370190 
14370200 


14370299 
14371000 
14371999 
14372000 
14373000 
14373001 


AMMA MANNA HAAAA TAH 


Se ee ee ee ee | 


| 


aa a 


444444 


021231 
021481 
021583 
0215383 
021933 
022120 
022110 
022130 
022410 
022440 
022483 
022642 
022812 
0230180 
023183 
023351 
023540 
023641 
14363000 
023633 
0238640 
023810 
023810 
023911 
0239%2 
024210 
024412 
O24631 
024833 
024983 
025133 
025681 
14370050 
025611 
025633 
025633 
026231 
026430 
026533 
026612 
026812 
14370130 
026983 
027133 
0272!3 
0275341 
14370120 
14370090 
02751 
027731 
028024 
14370010 
026081 
0280381 
028113 
0281%3 
026480 
0287%1 


14358386 


$ SET OMIT = NOTCSTATISTICS) 
IF VecTOR(2),£8:10) = 1 THEN &% COMPJLER ON COMPILE AND GO 
REGINS 
IF fRTOG=O0 THENS 
BEGIN? 
COMPLEXSLEEPCCSCHEDULEIDS#NOT 0) AND 
SHEETFREE)3 
ACCIDENTAL FNTRY AT 4 
LOCKTOGCSHEETMASK)3 


Se (MEGETSPACE(C312200)+2)383078138110)3 
DiSKIOCT»s*(S INX 0° $)530% 
VECTOR(C2),CFF))3 

SLEEPCE TJ + 1OMASK)3 
STREAMCA*OtBe+P¢( ,SCHEDULEIDS))3 
BEGIN S]+B3 

A7CSKIP SBE SKIP DRS TALLY«+TALLY413 

IF SB THEN BEGIN END & ” 


FLSE JUMP OUT)3 
DS+SET3 AeTALLY3 
END STREAM3 


T © P3 S[3) «+ O&€T782 3821013 
$725) © CATCH3 
Sp23] C24: 28 e(CLOCKS4+PCRTRIINIV 603 
DISKLOCTe+(S [NX 074)530 
VECTOR(2],(€FFI)3 
SLEFPCLIT] + 1OMASK)}3 
I ¢ IF $£48) > MIXMAX THEN MIXMAX 
ELSE $f£18]3 
IF SHEETCI),£CF] # O THEN 
BFGIN DISKIOCTs»s#"(S INX 0713030, 
SHEETCLI,CFF))3 
SLEEP CET] 2T0OMASK)}3 
S629] ¢ VECTORGE2),CFFI3 
DISKIOCT+#+¢S INX 07 1)030> 
SHEETCII,CFFI)3 
SLEEPCETJ + 10MASK)3 
END ELSE SHEETOCI) «© VECTOR( 21) ,CFFI3 


SHEETCIIU,£FF) «© VECTOR(C2).CFFI3 
UNLOCKTOGCSHEETMASK33 


FORGETSPACECS INX 093% %165* 
FNS 


FLSE BEGINS 
RETURNEM? 
S*CMECGETSPACE(C310200942))830(8!38210)3 
NISKIOCTs*C€S INX 0°1),30eVECTOR(2),(FF))3 
SLEEPCET I] > 1OMASK)3 
FORGETESPDISKCVECTORI2),(18315])3% 
LINK « Sc4333 
WHILE LINK#O DO 
BEGIN DISKIOCTp*@€S JINX OF1)530eLFNK)3 
SLEEP CET] + 1OMASK)} 


14373099 
14374000 
14375000 
14376000 
14377000 
14378000 
14378400 


14379000 


14380000 
14381000 
14382000 
14383000 
14383100 
14383200 
14363300 
14383400 


14383450 
14383500 
14383600 


14383700 
14383740 
14383750 
14383800 
14383900 
14384000 
14385000 
14386000 
14387000 
14388000 
14389000 
14390000 
14391000 
14392000 
14392500 
14393000 
14394000 


14395000 
14396000 


14396100 
14397000 


14398000 
14396500 
14398600 
14398700 
14398800 
14399000 
14399100 
14399200 
14399300 
14399400 


a ee eee 


VAaaAaws sss 
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40 


ee 


028731 
028734 
028833 
028934 
029030 
0290%2 
029032 


029710 
14379000 
030082 
030310 
030683 
030810 
030932 
031033 
031130 
031210 
14383400 
031282 
034382 
031430 
14383200 
031481 
0317380 
031884 
032113 
032430 
032534 
032633 
032882 
033020 
0331%2 
033482 
033513 
033791 
0339841 
034112 
034233 
034484 
14388000 
034810 
035083 
14396000 
035431 
035513 
14377000 
035583 
035611 
035691 
036030 
036383 
036514 
036633 
036733 
036930 
037280 


$ SET OMIT 
$ SET OMIT 


" FORGETESPDISKCLINK)$ LINK « S(29]73 
FND3 


FORGETSPACECS)3 
ENN 


END ELSES 


IF VECTORE2),(8810) = 0 THEN 
BEGINE 
VECTOR(9OISRVECTORI9], FCF]: 
FOR yet STEP 1 UNTIL vECTORE9) pox 
IF VeECTORG94])] #¢ O THEN 
FORGETUSERDISKCVECTORs 941] e*VECTOR(8))3 
TF VecTOR(C2),(791] THEN VECTORE2),C8210]¢23%FOR TASK LOG 
FND ELSE 


IF VECTORE2),(68%10) 24% 
THEN GO 10 RETURNEMS 

IF VECTOR(0}«<0 THEN 
IF ERTOG # O THENY 

VECTOR(23,78:110] «+ 34% 
J} + PiMyIX34 
COMMENT SUBTRACT CORE REQUIREMENTS FROM CORE WORD) 
CORE, C18t15]¢CORE £18315] = NFOCCPIMIX"1)xNDX42),718295)3 
NOTCAUXMEM) 
NOTCNATACOM ) 
IF CHAIN GTR 0 THEN 
BEGIN St=fMESPACE(5)1785¢883821073 

DISKWAYTC™CS TNX O)*+5e CHAIN)? 

ZIPPERCS£12°Sf£2],S63])3 

FORGETSPACF(S)3 
ENDS 


TE CHAIN # O THEN FORGETESPDI SKCABSCCHAIN))3 
TF VecTOR(2),(381) THEN 
BFGIN 


NTI te TYPEDSPACECSsMAINTBUFFAREAVI3& %167= 


MUNTI=2).([936) t= 0; 

MENT Je O g PIMIX(2084315]; 

MONTi +3 1%=@ VECTORES],£ 182393 

MONT142)%= XCLOCK & VECTORI2I¢ 
(VECTORE11<0 

MUNT14¢3]¢© VECTOR(O)3 

MUNT1+4)%@ VECTORE1)3 

LINKUPCI4sNT1)95 

ENDS 


ed 
ry se 
— 
CD ee 


$ SET OMIT = PACKETS 


BEGINS 


$ SET OMIT 


$ POP OMIT 


STREAMC(TKeVECTORE 2) Ciy]eBeiF VECTOREI1] <0 THEN 2 FLSFR110" 
VECTORE 2] e[BE10] #307 2 QeQeCCNTIe(CXCLOCK DIV 3600) 


~ 
- 


> MOD 60 + (NT1 DIV 60)x100)5 ViaVECTOR 
NOT PACKETS 
eTisTreSPACr(10) 


3 
BEGIN2 


14399500 
14399600 


14399700 
14400000 


14401000 


14402000 
14403000 
14403900 
14404000 
14405000 
14406000 
14406100 
14407000 


14407100 
14407200 
14408000 
14409000 
14410000 
14441000 
14411100 
14411200 
14411309 
14411499 
14411620 
14441640 
14411660 
14411680 
14411700 
144411720 


14411740 
14411800 
14411810 
14411820 
14411830 
14411840 
14411850 
14411860 
14411870 
14411880 
14411890 
14411900 
14411910 


14411999 
14414000 
14415000 
14415100 
14415150 
14415200 
14415250 
14415300 
14416000 


+44 


+ w4 


AAAs 


AHAM HANH AU BHA ta 


AAAHAHAs AUS 


037342 
037581 
14399300 
037533 
037633 
14398000 
037613 
14375000 
037683 
037883 
037984 
038194 
038511 
038683 
039080 
039430 
14403000 
039410 
039533 
039682 
039712 
039833 
040113 
040232 
040242 
040730 
040730 
040730 
0407383 
041210 
O414tt 
04168) 
Oa17t4 
14411640 
Oa1731 
041982 
042082 
042110 
042391 
042612 
042940 
043313 
043482 
043633 
043910 
O441tt 
044211 
14411810 
O442it 
044211 
044533 
044830 
045181 
045141 
045153 
045183 
045484 


= PACKETS 

= NOTCPACKETS) 
STPSVISTISST+13IOSt aL yt” "soStae7cCHRs 
Sye@eSTelsSOSssLiT"/"3p8%=7CHR3 


£ SET oMyT 
$ SET OMIT 


$ POP OMIT 
OSeLTT*at; SreLOc rs DS+2DEC3 
1¢DI3 DreD{72s DSeF ILLS Dley} 


Cl « CI4Bs% 
GO TO F332 
GO TO OK3% 
DSe7 LIT ™ HS"ED "3 
GO 10 X32 
OKIE 
DSe5 LIT " FOd a 
TKODTeDI"2s OS*"2 LIT "T "23 &B END OF TASK 1108 
GO TO X38 
E: OSe11 L1T " SYNTX ERR "3 
xX: DS+ 4 DEC? NHSeLIT tots 


ENDS 


$ SET OMIT = PACKFTS 
$ SET OMIT = NOT RJE OR OMIT 
SPOUTERCT»OsCEQUMESS AND NOTCJAR9,£211))))3 
END} 


SIGNOFF CVFCTORsFILEBLOCK sO) 
FORGETSPACECVECTOR)S 
$ POP OMIT OMIT 
$ SET OMIT = NOTCAUXMEM) 
$ SET OMT = NOTCWORKSFT) 
STOPLOOPS 
IF WKSETSTOPJOBS NE@ O THEN % JOB WAS AUTO*@STOPPED 
TF NOTCJAR9«SYSJOBF) THEN % NOT EOJ FOR "SYSTEM" JOB 


BEGIN 

STNEXTS*1F STNEXT=O THEN STQUEMAX ELSE STNEXT#93 &1368 
STOPMIXt=STQUELSTNFXT IS ¥138 
STQUECSTNEXT]#203 ¥138= 


STFIRST ts (STFIRST41),.04424)3 % POINT TO NEXT CFLL 
IF €STOPMIX GTR 0) AND CSTOPM]X LEQ MYXMAX) THEN 
1F JARROWFSTOPM;X] NEQ O THEN 
BEGIN 
IF STOPSFTCSTOPMIX) THEN % NOT YET STOPPED 
BEGIN 
PRTROWPSTOPM1XJ,CPSF)&e03 
WKSETSTOPJOBSt=WKSETSTOPJOBS AND 
NOT ¢CTWOCSTOPMIX))3 
JARCSTOPMIX29),C381)3203 
GO STOPLOOP? 
END ELSE 


BEGIN REPLYLSTOPMIX]!sVOK3 & WAKE [T UP 
STREAMcUraJARROWECSTOPMIX)] eSTOPMIXe 
DtzOtaeSPACE(10))3 
BEGIN 
SfreJ3 DSteSLIT™ AUTO#OK 3 
2CS1T82ST413 OSte7CHR} OStaLyT*/7)3 
DIeenit1s DSIELIT*e"s SPseLoc STOPMYX3) 


14416999 
14418099 
14418100 
14418110 
14418111 
14419000 
14419500 
14420000 
14421000 
14422000 
14423000 
14424000 
14425000 
14426000 
14426100 
14427000 
14428000 
14429000 
14429100 


14429150 
14430190 
14430400 
14430600 


14430800 
14431000 
144310140 
14431299 
14431400 
14431410 
14431420 
14431425 
14431430 
14431440 
14431450 
14431460 
14431470 
14431480 
14431490 
14431500 
14431502 
14431504 
14431506 
14431508 
14431510 
14431512 
14431514 
14431516 


14431518 
14431520 
14431530 
14431540 
14431550 
14431560 
14431570 


AA AAO AANA HHA HAH 


Se Ree Re ee ee ee ee oe ee ee ee 


44a ti 


045431 
045401 
045431 
045522 
045612 
0465682 
045732 
045882 
045930 
045984 
045932 
046083 
0461410 
046130 
046210 
0463382 
046383 
046542 
046614 
14416000 
046682 
046632 
046612 
046932 
14414000 
046912 
O47131 
O472!4 
O472t1 
Oa7ett 
047214 
O472t1 
Oa73t!1 
047413 
0475814 
O4erti 
048330 
048510 
048833 
049082 
049230 
049232 
049430 
0494%2 
049710 
049810 
0499383 
050233 
0505:0 
14431504 
050530 
050683 
050733 
051081 
051081 
051280 
051332 


NSt=2DECs DSSELIT*e 3 OLteDy"33 OSter yy; 
ENn STREAM STATEMENT? 
SPOUTFRCQsPSEUNOMLXESTOPMyX]54)3 ¥5258 


END; 
END % fF AWAKENING a JOB 


FLSE GO To STOPLOOP 
ELSE GO TO STOPLOOP3 
ENDS & IF JOBS WERE AUTO#STOPPED 


WKSETSWITCHTIME $= CLOCK+PCRTR)3 

$ POP OMIT %& WORKSFT 

$ SET OMIT = NOTCWORKSET) 
WKSETNOSELECT+#(WKSETNOSELECT AND CWKSETSTOPYOBS # 0))3 
TF WKSETSTOPJOBS=®0 THEN 

$ FOP OM1T & WORKSET 

SELECTIONS 
KILLCCMSCWI)3 
END L5COM$% 


14431600 
14431602 


14431610 


14431620 
14431630 
14431640 


14431650 
14431660 
14431970 
14431975 
14431980 
14431990 
14432000 
14434000 
14435000 


051680 
051732 
14431518 
051782 
14431500 
0517%2 
0517%2 
O517%2 
14431430 
051782 
051991 
0519314 
051931 
052313 
052433 
052413 
052632 
0527314 
14344000 
SIZE# 0528 WORDS 


+~a4-4 + wD 4H 


se 


STACK¢Fat) = T 


STACK¢F42) = 


I 


PROCEDURE ZIPPFROW1»W2,USERSTAISVALUE WieW2eUSFERSTAS 


14531000 


START OF REL SEGMENTS DISK 


REAL W1,W2,USERSTA3 


BFGIN REAL TesI3 


T © GETSPACE C12 »sCONTROLCARDAREAVs0)+43% %167* 


MrTeOy,(9263405% 

IF CY*USERCODECPLIMIX))eABSCNOT 0) THEN Ie 03 
STREAM(Ke@14sAclL Wt] 0CeyoBeT)} 

BEGIN 

Srt*#LOC K3 SteSyt73 DSe CHR; 

NSte S LIT "USER="3 SiezlLOc C8 StteSt413 DSte 7 CHR 
DSe 9 LIT “EXECUTE "3 STeaAs SloSy4t3 

NSe 7 CHR3 OSe LIT "ss SpeSyp+1s NSe 7 CHR: 

DSe 6 LIT *SENDo es 937¢08S¢ LIT ™ 93 

ENDS 


IF USFERSTA#O THEN 
BEGIN 
+2305 
TF USERSTA.C1924] THEN ELSE TisTRUSERSTA(9215:9)3 
END 


ELSE 
TeITF PiMixe0 OR USERCONELPIMIXISMCP THEN 31 ELSE 263 


£ SET OMIT = PACKETS 
& SFT OMIT = NOTCPACKETS) 


YF PSEUDOMIXCPIMIX NEQ@ O THEN NYLONZIPPEREPIMIX),£281 78203 


INDEPENDENTRUNNER CPC ,CONTROLCARD) »T&I (224226) 


RPIMIXC1924 PSG TAPSEUHOMIXLPIMIXI [2423 3999),192)3 
IF PSEUDOMIXEPIMIX) NEQ@ O THEN 
SLFEPCCNYLONZ 1PPFREP1M1X))»81000000000000000)3 


$ POP OMYTT 


FND ZIPPER? 


14531100 
14532000 


14533000 
14534000 
14534500 
14535000 
14536000 
14537000 
14537100 
14537200 
145368000 
14539000 
14540000 


14540100 
14540200 
14540300 
14540350 
14540400 


14540500 
14541000 
14541049 
14541089 
14541090 
14541100 
14541110 
14541120 
14541130 
14541131 
14542000 


7 


000030 


ADDRESS = 00429 


T 
T 


Se ieee Mee eee eon ne i 


AA AHHH HS 


000030 
000030 


000010 
000233 
0006:0 
0009384 
0010%3 
001013 
001112 
001331 
0015814 
0016%2 
001832 
14536000 
0016t3 
00149%2 
002020 
002033 
002431 
14540200 
002431 
OO2484 
0029%2 
0029%2 
002932 
003382 
0034%2 
003810 
003910 
OO41%1 
0041431 
14532000 


S1ZE2 0043 WORDS 


STACK¢Fs2) 
STACK(F43) 
STACK¢F 44) 
STACK ¢(F45) 
STACK ¢F 46) 


on nm HN ON 


N + DO wm 


STACK¢F47) = H 


STACK¢F 410) = X 


STACK¢F411) = § 


REAL PROCENURE FUFCAsReL 3 VALUF A»sBelLs REAL AsBeoLi 


RFGINZ 
REAL Jodp,Ro To Z3B 


RFAL H3 
ARRAY X{*j)3% 


INTEGER S$ 


$ SET OMIT = SHARFDISK 


DFFINE RywRBe X12Xk} 


$ POP aMtT 
$ SET OMIT = NOT SHAREDISK 


ae 


REAL, 


Be DE Fe Fe DR FR 9A 


LL? 


DOWNS 


LABEL LL«aFOUND,WHY,BYES$ 
LABEL CHECK»DOWNsROMBOUT?DSD} 


SUBROUTINE THERES 


ON EXTT» X TS THE LAST BYPASS BLOCK READ AND vy IS 
IF THERE 1S TRUE» | +S THE INDEX OF THE ENTRY FOR THE FILE AND» 
FOR SECURTTYCHECK, H IS THE NEGATIVE OF ITS HEADER ADDRESS, 

1F THERE yS FALSE, T IS THE ADDRESS OF THE FIRST BLOCK WHICH 


HAS A VACANT SLOT, 


BEGIN? 
Tr=2=0} 
FOR yteO STEP 3 UNTIL 57 DO 


REGIN IF (X£1) FOV AD = NOT O THEN 
IF ¢(XL1I41] FeV B) = NOT O THEN 


BEGIN P¢(1)3 
HteNABSCXC14+2))5 
GO pOwWNs 

ENDS 


IF CX€1T) €QV @14) = NOT 0 THEN 


1F T=O THEN Ttsu3 
END? 


IF (€Z%=8XC€2),CFF12#0 THEN 
BEGIN DISKWAYT(#R,60-J5827)3 


GO TO LL} 
END? 
Ip TsO THEN TiteJ3 
P(0)}3 
THERE @=P3 
FND32 


£ SET OMIT = NOTCSHAREDISK) 


AtsABS(A)3 
Xts(MCRtH#SPACE(60))1260L83 381440)3 


ITS ADORESS, 


START OF REL SEGMENTS DISK 


14543000 T 900030 
ADDRESS = 00431 
14544000 T 000080 
14545000 TF 000030 
145451400 T 0000:0 
14546000 T 000030 
14546100 T 0000:0 
14546199 T 0000380 
14546200 T 000080 
14546201 T 000010 
14546299 T 000030 
14547000 T 0000:0 
14548000 T 000030 
14548900 T 0000140 
14549000 T 000080 
14549100 T 000130 
19549110 T 000130 
14549120 T 000130 
14549425 T 000410 
14549130 T 0004320 
14549140 T 000130 
14549450 T 0004:0 
14550000 T 000;1:0 
14550500 T 0001:!0 
14551000 T 0004:3 
14551500 T 000330 
14552000 T 000413 
14552500 T 000782 
14552750 T 000831 
14553000 T 001080 
14553500 T 0014022 
14552500 
14554000 T 001082 
14554500 Y 0012%4 
14555000 T 0014383 
14551500 
14555500 T 001730 
14556000 T 001930 
14556500 T 0021%2 
14557000 T 002230 
14556000 
14557500 tT 0022:0 | 
14558000 T 002430 
14558500 T 0024%1 
14559000 T O024%2 
14550000 
14559099 T 002433 
14559200 T 002433 
14559250 T 002811 


IF a OR B),£1!5]40 OR Ax@14 OR Az@144 THEN 
AFG! 
TERMINATE CPIMIXR75016:33215))3 GO DSD3 


ENDS 


$ SFT OMTT = SHARFDISK 
LOCKDIRECTORYS 


£ POP oMyT 
St=SCRAMBLECAPB)3 
CHECK? MYSKWALTC(@ReW600(Jt2S5))3 
YF PiMrX #0 THENS® 
1F THERE THENS 
RBFGIN 
$ SFT oMrT = NOT SHAREDISK 
UNLOCKDTFRECTORY?3 


$ POP oOM?IT OMIT 
HeSECURTTYCHECK (CAs Be USERCODELPIMIX]eHI#73 
Zt=VWYRVOK( 368492678 CIF H THEN O ELSE VRM)£30!42:6)]3 


WHY? STREAMCASSfA)» Bi=JAREPIMIXe*]5 Cl=PiM]Xe UCt=H» 
DteJt=SPAaCE¢10))3 
BEGINS 


NMSe13LIT*#DUP LYBRARY "33 
UCCOS*15LIT*¢TLLEGAL USER) *)3 

SrtA PSpeSpse 1s NSe7CHRIE 

NDSeLIT"/" SSpeSp+ 73s DSe7CHRSE 

OSeL This s 

$1+B PST 4 SP +s DSe7CHRIE 

DSeL iT © 3sSypeSp es DSe7CHRIY 

NStsLiTtses STtshoc Cs DSis2 DEC? DSteLl Te" 
DreDi<38 NSeFILL?F 

END3% 


SPOUTC U3 
REPLYLPIMIX]s=eZ$ 
IF AUTODS THEN 


E747" 


TF He THEN TERMINATE CPIMIXR610CTFI) FLSE REPLYCPIMIX] ¢VRMK747@ 


ELSE 
COMPLEXSLEEPCTERMSETCPYMIX) OR CREPLYFPIMEX) GTR 093 


ACCIDENTAL FNTRY AT O 


tF TERMSETCP1MIX) THEN 


DSp: BFGIN FOR ytemMrb440)3410 STEP =4 UNTIL 11 90 


IF MCiL+#13#0 THEN FORGETUSERDISKCMEL41 ) e PMCL4+9193 
GO TO BOMBOUT: 
FEND3 


IF NOT WHYSLEEPCZ) THEN GO TO WHYS 
YF REPLYCPIMIX}.0£18230}=VRM THEN 
£ SET oMIT = NOTCMATACOM ) 
BEGIN 
TF PCDIRECTORYSEARCHC TA Be? ) + DUP a2 
THEN BEGIN PC(NEL)3 Z ALWAYS TO SPO 
LBMESSC As Bo @7e 258 Oe Os 4 23 END 


4747 


%5898 
¥589" 


14559300 
14559400 
14559500 
14559600 


14559990 
14560000 


14560010 
14562000 
14563000 
14564000 
14567000 
14568000 
14568890 
14569000 


14569010 
14569200 
14569500 
14570000 
14570100 
14571000 
14572000 
14572100 
14573000 
14574000 
14575000 
14576000 
14577000 
14578000 
14578500 
14579000 


14580000 
14581000 
14581500 
14561700 
14581800 
14582000 


14583000 
14583100 
14583200 
14583300 
14583400 


14584000 
14585000 
14585050 
14585200 
14585300 
14585350 
14585360 


444-44 


~4 


AAHHAAHHS 


ee | 


AAs HIND OHH 


owt 4-4 4 


0032%2 
0036: 1 
003633 
003832 
14559400 
0038:2 
0038632 
14560000 
14560000 
004510 
004530 
005210 
005484 
005510 
005730 
005732 
005732 
14569000 
14569000 
006120 
006180 
006333 
006830 
006912 
007230 
007230 
007420 
007730 
007733 
007833 
007934 
008050 
008430 
008222 
008320 
14571000 
0086341 
0084i2 
0086:0 
008683 
009233 
009381 


010033 
0102321 
0108671 
011510 
011532 
14583100 
011582 
011613 
011631 
011881 
011833 
012032 
012183 
14585350 


3@ 32 BR De FQ 


xe Fe BE VO 


SET 


SET 


POP 


SET 


SET 
POP 


SET 


ELSE ITF p23 THEN GO DSD3 
OMIT = NoT naTAcon | E DF 


FNDS 


REPLYFPIMyY X18 e035 
OMYT = SHARFDISK 
LOCKNIRECTORYS 


OMIT 
GO TO CHECK: 


END ELSE FLSE Tt=S3 % SETS UP FOR PIMIX20 


THE FILE 1S NOT THERE, WE SEARCH FOR A VACANCY. IF ONE {1S FOUND 
7 AND T ARE ITS ANDRESS.» IF THERE ISNT ONEr 2 1S THE ANDRESS OF 
THE LAST BLOCK AND T 1S SET TO THE ADDRESS OF THE NEW BLOCK, 


OMIT = NOT SHAREDISK 
DO BEGIN 
IF CZi=T)#I THEN DISKWAITC#Rs600Z)3 
FoR «9 STEP 3 UNTIL 87 DO 
IF (XLT) EQV @14)e NOT O THEN GO TO FOUND} 
FND UNTIL ¢(Tt=X€2],CFF))=0;3 


XC2],0FF Je RYPASS «+ BYPASS=23 

TF BYPASS,(CF] LEQ BYPASS.»{ FF] THEN GO TO BYE3 
OMIT = SHAREDISK 

DISKWASTCRs60072)3 
OMIT 

TIeBYPASS,(CF]3 

X¢C078eO 14s MOVECS9sX1,X1 TNX 193 
OMIT = NOT SHAREDISK 

1is0;3 


2 wWRrte OUT POINTER TO NEW BLOCK 


FOUND ?% 


SET 


PBCOUNT¢PBCOUNTSec( COCA EQV"PRD "JeNOT 0) OR 
(CA FAV™PUO ")sN0T 0)) AND (B,CCF 1993 
XrpleAs Xr pel] eBs XCr+2I1,f CF JeNEXTSLOTS 
OM1tT = NOT SHAREDISK 
NYSKWATTCR1»60,T)3 


UPDATE THE NAME SEGMENT» BUT DONT WRITE [T OUT UNTIL THE New 
HFADER 1S WRITTEN, 


JeCNEXTSLOT@DIRECTORYTOP@3)&80C4454484)+DI]RECTORYTOP4+193 
LrecCTSeNEXTSLOT @J)x24303 
NISKWAITCPR1 07300 5)3 
NEXTSLOT# eXicletds 
MAfTI&sAs XiCleL) seBs 
IF NEXTSLOT#O THEN % GOING To USE EOF RECORD 
1F y=O THEN % WRITE NEW FOF RECORD BEFORE 
REGIN PCX1(28)-X1629])3 & DESTROYING CURRENT ONE 
X17 28) 3201143 %¥ SAVE NAMEs REPLACE WITH "END" FLAG, 
X172978s03 
NEXTSLOT 8 aT +303 
BYPASS. CFF] ¢« J4163 
DISKWATTOCR123005+16)3 


14333490 


14587200 


14588000 
14588090 
14588100 


14588110 
14589000 
14590000 


14590900 
14590910 
14590920 
14590930 
14590940 
14590990 
14591500 
14592000 
14593000 
14594000 
14595000 


14596000 
14598000 
14598090 
14598100 
14598110 
14598200 
14598300 
14598390 
14598500 
14599000 
14599900 
14599910 
14600000 
14600290 
14600500 
14600900 
14600910 
14600920 
14600930 
14601000 
14601500 
14602000 
14602500 
14603000 
14603100 
14603110 
14603200 
14603300 
14603310 
14603320 
14603330 
14603400 


a+ 


444 


AMA st AHt 


AA HHHAH HHA HHA HAA HAHAH Ht 


ELLE 


012533 
14585200 
012533 
012730 
012710 
14588100 
14588100 
013332 
0133%2 
0135:0 
14568000 
013613 
013613 
013683 
013633 
013613 
013613 
0136!3 
013633 
014010 
014110 
014532 
14591500 
014830 
0151:0 
015341 
015331 
0154:2 
015432 
015533 
015932 
015912 
016081 
016031 
016210 
016630 
01712 
017182 
047233 
017283 
017233 
047243 
017213 
017612 
0179514 
018110 
0182:2 
018532 
018614 
018732 
048920 
019083 
019182 
019283 
019432 


BR FR FQ BR OL 


RYE! 


PCOXIL29 Jeers Cf X16 28)),¢)3 % RESTORE CLOBBERER NAME 
IF J416 GEQ BYPASS,ECFI) THEN 
BYBYC™DTRECTORY FULL e%s15)3 


FND ELSE 
RFGIN X1CT2)8eO194s NaC Tp )seOs NEXTSLOTIsT#4 ENDS 
NOW WE CAN WRITE EVERYTHING OUT» NOTE THAT IN ORDER TO MINIMIZE 


THE DAMAGE CAUSED BY AN UNTIMELY HANGs THE MAIN AND CFOR 
SHARENTSK) THE BYPASS pIRECTORIES ARE CORRECT AT ALL TIMES, 


SET OMIT = NOT SHAREDISK 


DISKWALTC(L412"390-T)3 % FILE HEADER 


SET oMrT = NOT SHAREDISK 


NISKWATTCR4s*300N)3 ¥ NAME SEGMENT 


SET oMrT = NOT SHAREDISK 
SET oMIT = SHARED] SK 


UNLOCKDJRECTORY? 


POP oMmrT 


FUR ISTS 


BOMROUTI2Z 


FORGETSPACECR)3 
FND FNTERUSFREILE 3% 


14603600 
14603700 
14603750 


146038600 
14604000 


14604900 
14604940 
14604920 
14604930 
14604940 
14605490 
14607000 
14608490 
14609000 
14609990 
14617990 
14638000 


14618010 
14619000 
14620000 
14621000 
14622000 


a+ 


Se ee ee 


44a4a +444 


0196!1 
019733 
0199!32 
14603750 
14603750 
020630 
14603200 
020630 
14604000 
0213:3 
021313 
021313 
021333 
021383 
02133 
021383 
021533 
021523 
02173814 
021734 
024734 
14618000 
14618000 
022033 
0220383 
O221%2 
022132 
022291 
14544000 


S1ZF2 0224 WORDS 


PROCEOURF COM11% COMMENT ALGOL 1/70 COMMUNICATES 


14623000 


START OF REL SEGMENT? DISK 


BEGIN ¥740° 
REAL CODFan4,s TANK==5, ROWs"6, FiDs7, MIps=8, %740= 
STACK¢Fe4) = CONE 
STACK¢Fe5) = TANK 
STACK(F@6) = ROW 
STACK¢(Fe7) = FID 
STACK¢Fe#10) = MID 
STAa"6s RESULT&"7s5 TIMEOUTe=7 3 ¥740° 
STACK(F#6) w= STA 
STACK¢Fe7) = RESULT 
STACK¢(F#7) = TIMFOUT 
NAME PHYL=*53 % ¥740= 
STACK¢(F*5) = PHYL 
ARRAY WEANER="S(*), FINALE@6[e]3 &¥ 2740" 
STACK¢(F@5) =» HEADER 
STACK¢Fe6) = FINAL 
a REAL Be Te Fs St & %740= 
STACK¢Fs1) «= B 
STACK¢(F 42) = T 
STACK(F 43) = F 
STACK¢Fe4) = S 
; NAME Ab & % SAME STACK LOCATIONS AS BEFORE z740¢ 
STACK¢F45) = A 
REAL INFOse LOCs USAST» I3) g& %740« 
STACK¢F 46) = INFO 
STACKC(F4s7) = LOC 
STACK¢Fs10) = USASY 
STACKEFst1) «= 
ARRAY FPBr*}], FIBC*) 3 & g740= 
STACK¢Fsei2) = FPB 
STACK¢F 413) = FIR 
$ SET OMIT @ NOT DATACOMS740= 
LABEL PARITY» FOF» FOT» RDATAs SELERR» MESSAGE s%7408 
DISKSPACE,OPEN,s CLOSE. READCe GIN» NGoe £740= 
SLEAP » GRABIT>» READSOUGHT » READSOUGHT2>» %740-= 
BACK, SFEKDC>» DCWRITER» WHILOOP, COBOLDCWReFINDBUF »&740= 
PURGELOCK, SPACE» REFILL s READLABFL>sIOREQ, OCBUFRLS+» 
ROTATE, ABN3 x, ¥740- 
£7408 
SWITCH FUNCTION «© OPEN» PARITY, EOFs E0Ts DISKSPACE? 
SEEKDC>s CLOSE» RDATA» SELERR» SPACE, &740= 
REFILL» READLABELs IOREQs ROTATE» READC» 740" 
READSOUGHT»NCBUFRLS»DCWRITER® FINDBUFe COBOLDCWR» 
PURGELOCK 3 & %740= 
%740% 
GO TO FUNCTION [CCODE) 3 & £740= 
3740= 
PARITY:  INFO**PARITY "3 Be"FRRORe "3 & £740= 
GO TO MESSAGE$ % £740= 
FOFS INFO*"FND OF "3 Be"FILE©® "3 & %740 
GO TO MESSAGE} % £740" 
FOT: INFOS"FILE TO"*S BetQ SMALL" S  Teltte "; ¢ ¥740< 
GO TO MESSAGES % £740" 
it % AT PURGFLOCKs. GO To RDATA SHOULD BE TO MESSAGE ON WORD BOUNDY 
RDATAS INFOe"DATA ER"3 Be*RORe FM"S TetTsRpe "3 ¥7408 


14624000 
14624100 


14624200 


14624300 


14624400 


14624450 


14624500 


14624550 


14624600 


14624990 
14627200 
14627300 
14627400 
14628000 
14628100 
14629000 
14630000 
14631000 
14632000 
14632100 
14632200 
14632900 
14633000 
14634000 
14635000 
14636000 
14636100 
14637000 
14639000 
14640000 
14641000 
14641999 
14642000 


T 
A 
Pp 
P 


VO VVDBVIIGIVIVGVVIdIVVvVVVVUVVV VUE 


000030 
NORESS = 90439 

000030 

000030 


000030 


000010 
000080 


000010 


0000%0 
000020 


000030 


0000180 
000010 
000030 
000010 
000010 
000030 
000010 
000030 
0000:0 
000030 
000010 
000030 
0000:0 
0000:0 
000030 
OO14t1 
001431 
001583 
001930 
0020%2 
002310 
002581 
002910 
002930 


GO T A 

SELERR? TNF Oe* PNVAL 
x 

MESSAGE? FPBePRT(P 

] 


IF FIBLS 
STREAM ¢ 


REGIN DS 
IF 
BEG 
ENN 
REG 

wWRITE TU 

"ALTD USE 


" WRI/SEE 
END 


Q¢ 


ps 
FND OF ST 


TERMINATE 
DISKSPACESOPEN?CLOSE: 
$ SFT OMIT = DATACOM 


£3 4 x740= 
O's Be" OPERAT"3 Te FON ONe™S ¢ ¥740" 
£740 
1MIXo3]3 FIBeMCPC,TANKs LOD) ,633215)°3)3 ¥740" 
oC1%1) THEN INFO « =" FNV® OR ME ¥740= 
X © INFO, Be Te % THESE 3 MUST BE THIS ORDER 
Z «¢ Op @ «© TANK#0r & “4740 
Fo« JF TANKsO THEN O ELSE CFPBLFIBC4).013241)1)> 
D «€ CODF « GETSPACE(120220) +2) 93 & %740= 
« LIT "mes Spe LOC X$ & %740= 
SC = 0 THEN & MESSAGES WITH NEW WORDING g7408 
IN 3¢ SIeSt+#43 & CHARS IN INFOs B & T IN STACK 
7C IF SC#%e" THEN DS+CHR ELSE JUMP OUT 2 To L? 93 
L! DSeLrT ™ Ms ¢ ¥740= 
ELSE % UNCHANGED MESSAGES s7408 
IN SpeS14+53 pSe3 CHRIS SteLOC x3 ¥740" 
IF SCa"8" THEN DS © 41 LIT & #740" 
oO" ¢« Z¥740" 
ELSE 1F SCz@30 THEN DS «© 10 LIT & "yNVE %740= 
Rw ¥740" 
FLSE 1F SCsx@®@20 THEN DS « 10 LIT & ¥740" 
kK" g %740¢ 
$ % NEXT, OPTIONALLY ADD <FILE SPECIFIER> *7408 
SleFS XeDIs ONleLOC Zs & %740" 
IF 8 SC#nC THEN &% MFID #4 "0000000" ¥740= 
BEGIN SyeFs SypeSi4is Dlexs & *740= 
DSe7 CHR DSeLIT "/"3 KXeDT3s 8 %740# 
END; ¢ %740« 
DieXs SyeSt+t1$ DOS*7 CHR 23 & ¥7400 
« 2 LIT wees 8 %740= 
REAM3 & x7409 
CP1MIX)3 TERMINALMESSAGECC(C*CODE) 3% 


GO TO INITIATES 


SFEKDCIRFADCIREANDSOUGHT?DCBUFRLS#OCWRITERtFINDBUFSCOBOLDCWR! 
GO INITIATES 


$ POP oMrT 


$ SET oMTT = NOTCDATACOM) 
GO INITYATES a3 


PURGELOCK: SAVEWORD 
GO TO RDA 
SPACE! FYBeM(PC, 


« SAVEWORD OR TWOCROW)3 % RDATA USED TO FOLLOW 
TAS 3 & SPACE NEEDS TO BE ON WORD BOUNDARY 8740 
TANK®LOD) 63391539313 LOCeFIBC15),£2535)93% 


BLASTQCLOC)3% 

FPBeCMEMORY( 511837239468 218ROWL 222181758 
ROW*ABSCROW) 5% 

WHILE CROW*ROWM1)2>0 DO TNFO*WAITIOCFPBs@40eL0C)3% 


GO TO INITIATES ts 
ReFylut FIReMECTANKeP(, TANK, LOD), 633815] )9313% 
CONE*FIBL13]-C10%9 Ii 3% 


LOCe+FIBEt 


91, C3381SJFIBr16).03381513% 


FPBeMEMORYCFIRL16] YNX OF+ROWI] SS 


INFO*FPR. 


Ci8tiS]3s% 


FOR Jey STEP 1 UNTIL CODE 00% 


14642100 
14643000 


14643100 
14644000 
14644400 
14645000 
14645400 
14645600 
14645800 
14646000 
14646200 
14646400 
14646600 
14646800 
14647000 


14647200 
14647400 
14647600 
14648000 
14648200 
14648400 
14648600 
14649000 


14650000 
14650200 
14650400 
14650600 
14650800 


14651000 
14654000 
14655000 


14658000 
14659000 
14660499 
14660500 
14660525 
14660526 
14660999 
14670600 
14671000 
14673000 
14675000 
14676000 
14677000 
14678000 
14679000 
14680000 
14681000 
14682000 
14683000 
14664000 
14685000 
14686000 


wooo vsTdcvTvw BAIaIooVEHHHYo vo wvv7vd 


A Ooon vw 


vo 


Se ee ee ee 


OO31%1 
003530 


003741 
OO37%1 
004142 
004432 
0045%2 
004632 
004933 
005231 
005330 
0053%2 
005410 
005632 
005730 
14646400 
005711 
0058:0 
005833 
0060%4 
0064414 
006232 
00632 
006433 
14647200 
006483 
006610 
006682 
006731 
006884 
14650400 
006831 
006924 
006983 
14646000 
007010 
0071433 
OO7221 
0072:1 
007221 
007233 
007233 
007223 
007331 
007533 
008130 
008531 
0086:0 
008941 
009031 
0095!0 
009582 
00991 
010381 
010410 
010633 
0108%4 


BEGIN TOREQUESTCFLAGCFIBLIDISCINFO+LOC)C33833215) 0% 
FYBCLOIRINFOL3S3t33815] +FPB)3% 
MEMORYC TANK J MEMORY TANK IZ0(232214)80719819511% 
ROL2Z68 2687 IRINFOL33833215)3% 
STREAM( CODE» TeMEMORYCE TANK) » TANK D3 % 
RFGIN ST*eTANKs SITe#ST+83 OS#cODE WOS3% 
Sle#LOC T3 DS#WDS3% 
ENDS 


INFO*MEMORYrINFO+ROWI.018815I5% 
END$% 


GO TO INITTATES 3 
REaDLaRels FLReMECTANKePC TANKeLON),£33215))°313% 
LOCeFIRE15S).C25%513% 
BLASTQCLOC)32% 


PCWAITTOCCFIBE5) »fF4421)xCMETANK#2),£8210)]%1) JINX METANK#21) 


RMOE TANK I£21°2124)]5837700000,L0C),DEL)} 
STREAMCYS20SXtaOoxtszOex2taOrZtaM[TANK@2] )3 


REGIN DI#*LOC X3 DS#e24 LIT *"VOLIHDRIHDRZ2EOFIEOF SE OVI"S 


DIt=LOC xX} 
6CTALLY2=TALLY 413 
S[?2Z3 
IF 4 $C=NC THEN 
JUMP QUT TO A)3 
TALLY eQ3 

Ai 
Yt=TALLyY; 

ENN? 


IF CUSAST#=P)>0 THEN 
USASTTAPECMCTANK™2) CCF JSUSAS] »3+LOCsFIBI5)],(44811)3 
PCWAITPOCEMESIIRIP 23846: 2IRCNOT FIBLCSIICZ2¢4431)» 
@37700000+L0C)DEL)3 
GO TO INITIATE? 3 


TOREQS FPBeMEMORYECIF CINFO*NFLAGCMEMORYEPCTANKs DUP» [MJ INXsPRI.)I)) 


(2281) THEN 2 ELSE NOT 1) INX INFOIJ3S 

TORFOUFSTCFINAL® INFOsFPR) 3% 
MeMORYCTANKJeMEMORYI TANK I QOL 263 262718 OC 98 AFL iss 
GO TO INITIATE3% 

$ SET OMIT = NOTCHATACOM ) 

a 

ROTATE: TANKePC,TANK® LOD) £33415 )5% 
STREAMCTeEMETANKJ oN*ROW*4 se De TANK)3& 
BFGIN Steps SteS1483 DSeN WOS3 SteLOc Ts DSe#WOS FND:% 


IF METANKI),€3853216 THEN 

IF MCTANK],(€24%1] THEN 

TF CLl*PEMCTANK"330145C0C))#0 THEN 
BEGIN 
PHYL «© TANK. INX M3 
FOR LOc «+ ROW"1 STEP "1 UNTIL O DO 


BEGIN 
INFO * NFLAGCPHYLE LOCI); 61982)s0 THEN 1/0 JN#=PROCESS 
1F CReMCINFO INX NOTC2¢+¢CINFO,C1992380)))240 THEN 

BEGIN 


$ SET OMTT = NOTCNATACOM ) 
IF Cle?I"1) $ 0 THEN 


14687000 
14688000 
14689000 
14690000 
14691000 
14692000 
14693000 
14694000 


14695000 
14696000 


14697000 
14698000 
14699000 
14700000 
14701000 
14702000 
14702025 
14702050 
14702100 
14702150 
14702200 
14702250 
14702300 
14702350 
14702400 
14702450 
14702500 


14702550 
14702600 
14703000 
14703100 
14704000 
14705000 
14706000 
14707000 
14708000 
14709000 
14709099 
14709300 
14710000 
14711000 
14712000 


14712100 
14712200 
14712300 
14712350 
14712400 
14712450 
14712500 
14712510 
14712550 
14712600 
14712649 
14712750 


AHHH AAAS 


4+ 


AAHHHAHA RHA HAH HS, 


AHA HHH HH Ht 


tt st tt 


14692000 
0122%1 
012433 

14687000 
012730 
012782 
O131t1 
013233 
0133%2 
0143631 
014210 
014531 
0148:3 
0149140 
014922 
014983 
0150:1 
015130 
O15ie! 
015124 
015142 

14702050 
015133 
015233 
045782 
016140 
0162:0 
016232 
016531 
017030 
017133 
0176:0 
017632 
017642 
017632 
0178:2 
018140 

14742000 
0182:3 
018483 
018633 
019034 
019083 
019210 
019681 
019644 
0196:0 
0202%1 
0202:3 
020213 


LOC 
FND3 


END: 
END? 


GO TO INITIATESS 
ENN COM118% 


« 743 


14712800 
14712850 


14712900 
14712950 


14713000 
14714000 


T 020452 

T 020630 
14712600 

T 020630 
44712500 

T 020810 
14732350 

T 020830 

T 0208:2 
14624000 


SIZE= 0209 WORDS 


& SET OMIT = NOTCH 
PROCEOURE nNISPLAYe 


PRT¢693) = nNYSPLAY 
RBFGIN REAL 
STACK(Fal) = T 
STREA 


Xe (0 
SPOUT 
END32 


ATACOM ) 
X)3 VALUE XI REAL X33 


14715000 
15019000 


START OF REL SEGMENTS DISK 


T3 


MCXtUeJARROWPPAIMYX)sPIMIXsd 
Y eTeSPACE(25) 3% 
BEGIN DS ¢« LIT "*#*3s 
2(St « Je Ste Slot! PS © 7 CHRE J « SypsK 
Ls SI + Syo13% 
TF $C = * “ THENY 
BEGIN Di «+ Dywit GO TO L ENDSE 


pS « Lrt "739% 
Ol + Dl*1i3 nS e« LIT *="*3g 
STeLOC PiMEX$s DSe2DECs PIMIX*DIS Ole D123 
DSeFTLL3 DtePiMIXs’ DSe2LiTms: 3 
St « X3¥ 
Ht 4c4OC( TF SC=te™" THEN JUMP OUT 2 TO HHS 
DS+CHR))3 HH? 
J« Dt} DI « DI+8? ST « USK 
83 S} « Sle13 yF SC = * * THEN GO TO S3% 
St « St4i% J © STS DI « JS DS « LIT "ergy 
Xe DI3 
ENDS 


(XP) INX OF #1T)x84X,£3083}9°13 
CPOXeT))3 


15020000 


15021000 
15022000 
15023000 
15024000 
15025000 
15026000 
15027000 


15028000 
15029000 
15030000 
15030500 
15031000 
15032000 
15033000 
15034000 
15035000 
15036000 
15037000 
15038000 


15039000 
15040000 
15041000 


T 
t 


0000:0 
0000:0 


ADDRESS « 00446 


T 


Aosta sas 


AAA HA HHH 


000020 


0000:0 
0001443 
000431 
000433 
000610 
0006%1 
000633 
15027000 
000731 
0008:0 
000833 
000983 
001033 
0011:0 
001213 
0013%2 
001481 
0015%1 
001632 
001633 
15023000 
001730 
0021:0 
002232 
15020000 


S{ZE# 0023 WORDS 


STACK¢F#4) 
STACK¢F #6) 


STACK¢F #5) 
STACK¢F el) 


STACK¢(F 42) 
STACK ¢Fe3) 


PROCEDURE 


COBOL 


LOty 
Lite 


Lats 
L3%% 


L16:% 
Li7s% 


L5a 


L4:4% 


COM13 3 15060000 
START OF REL SEGMFNT!) DISK 

RE GINS 15061000 
10 INTFRFACE COMMUNICATES 15062000 
RFAL CODE = "4s REEL = 76 3% 15063000 
NAME FLOC = *5 3% 15064000 
ARRAY FIB (*)32% 15065000 
REAL Te COB683 15066000 
LABEL LOslL te L2eb3 eb 4 ol 5S oL6eL7 eLOolLOoL1OeLIdoLi2eLiseLiaolised 45067000 
Li6eLi7ss% 15068000 

SWITCH TYPE © LOsL LoL 2reL3eLdobLoeL6eL7eLBeLOeLiOolLited 15069000 
LIQeLiseLideLiSebLi6eLi7ss& 15070000 

DEFINE INOUTSFIBE13] .Ca7tis#eDIRECeFIBL13),£ 2521) 41% 15071000 
SORTFILESFIRG4SI C721 #eLABELSOMITTEDSFIBC4], C21 IESE 15072000 
COB68 « CFIB «+ ¥*¥CFLOC)).£€ 8:10] = 223 15073000 
qOQ TO TYPErcoDpEI3¢% 15074000 
15075000 

NO UNTIL FALSE3% 15076000 
15077000 

15078000 

15079000 

tNOUT*CODE#33 DIRECe cCODE=23% 15080000 
Ir NOT COB648 THEN 15080900 
IF FIRC5SI,¢4682153 THEN BEGIN? 15081000 
FIRC18),CIB215I3¢FBC181.038:15)33% 15082000 
IF CONF®3 THEN 15082100 
FIRL198I,C381SleFIBL18), C3381 5)4+F 186183 .0321513 ENDS 15083000 
NTt2=FLOC INX 33 15084000 
PCOoSTFsPRTICPIMIX,8],STS)3 15085000 
FYILEOPENCY »NTID3 15086000 
15088000 

15089000 

NO UNTIL FALSES% 15090000 
LOtL72LOtL9OsLiOtLyzsLiesLissLi4sLr1s7% 15091000 
nO UNTIL FALSE3® 15092000 
15093000 

CODE «© JF CCODE*ABSCREELII#20O THEN 6 ELSES 15094000 
CIF CODFe1 THEN 7 ELSES 15095000 

CIF cCONFs2 THEN 10 ELSES 15096000 

CIF CODES4 THEN @92 ELSE XKRUNCH 15097000 

(TF CODE #64 THEN @52 FLSE 90))))3 ZKRUNCH 15097500 

IF CYe*FIB641,£824))#2 AND T4#4 AND T#B8 THEN CODE 03% 15098000 
IF T#4 AND COPE=0 THEN COnE+i10 32% 15099000 
FYILECLOSE¢C FLOC INX 3 )& CODEL18233345))32% 15100000 
TF CODF20 OR CODER10 OR CODPEs®22 THEN FIBC5), £4281) 15101000 
FLSE FIBCS)] .640:2]+(CODE=7)x2a15% 15102000 

IF NOT COR68 THEN 15102900 


1F FIR65)],¢46%2]"3 THEN BEGINS 
F1Br18),£3%15)¢F1R018],618815)3F1B6181,018215)¢0 ENDS 


15103000 
15104000 


T 


0000:0 


ADDRESS # 00447 


T 
T 
T 


AHA HHA AHHH AHA 


AAA AHA THAT HS 


0000:0 
0000:0 
000030 


0000:0 
0000:0 


0000:0 


0000:0 
0000:0 
000010 
000080 
000010 
000010 
0000:0 
0003:1 
001331 
001331 
0044:0 
0014:0 
001410 
0014:0 
002030 
002032 
0023:0 
0025:3 
002632 
15081000 
0031:2 
003233 
0035:0 
0036:0 
0036:0 
003630 
0036:3 
003633 
003732 
0037:2 
004011 
O0042t4 
004434 
O0K6t4 
004910 
005434 
005731 
0059:0 
006233 
006924 
006933 
OOT2t4 
15103000 


007840 
15061000 
S1ZeE=s 0079 WORDS 


15105000 T O0077%2 
151406000 T 


PROCENURE REFLCHANGERCUDS 


START 


PRT(624) = REELCHANGER 


STACK¢F40) 
STacKkeF@2) 


STACK ¢(F +1) 


STACK eFe2) 
STACK ¢F43) 


14582000 


VALUE Us REAL U3 


ae 


THe PURPOSE OF THIS ROUTINE IS TO ALLOW REEL CHANGE FOR 
OUTPUT TAPE FYLES BY OPERATOR REQUEST, THIS ROUTINE IS 

INTTYTATED FROM THE SPO WrTH A KEYBOARD INPUT REQUEST OF 
"Re" FOLLOWED BY A THREE CHARACTER TAPE UNIT IDENTIFIER, 


% 

% 

% 

% 

% 

z IF THE WRITEPARITYREELSWITCH ROUTINE IS RUNNING 
% CONCURRENTLY WHEN THE *Reo*® MESSAGE IS RECEIVED» 
% THEN THIS ROUTINE WILL ABORTe OTHERWISE IT WILL 
z CAI.L WRITEPARTITYREELSWITCH IN ORDER TO AFFECT THE 
% NECESSARY REEL CHANGE, 

% 

% 

% 

% 

B 


a jr PRATER IS USED AS FOLLOWS! 


THE LOGICAL UNIT NUMBER OF THE TAPE UNIT TO SWITCH 


BEGIN 
REAL RCW340» MKSW2"23 


RCW 
MK SW 
Real MyX»TOPLODsT23 
MYX 
TOP 100 
T2 
t 
z THF LOCAL VARTABLES ARE USED AS FOLLOWS: 
% REALS 
z MTX MIX INDEX OF JOB USING TAPE UNIT U 
% TOPIOD LOCATION OF TOP 14/70 DESCRIPTOR IN TANK 
% T?2 TEMPORARY 
: 


LAREL RESETJAR»ERROROUT sFXITS 
$ SFT OMET = NOTCPACKETS) 
DEFINE UNITNO © PSEUDOMIXEMIXI#3 
$ POP omrT 
MIX « RNCTABLELU],(8%6); 
TOPIOD « PRNTABLECU).£F15¢15)3 
IF (MYX=O) OR (TOPIOD&0) OR TERMSETCMIX) THEN GO ERROROUTS 
JAREIMIXS9} © cCH#PCDUP)) & 1718472178 
1F JAREIMIXs9],SYSJOBF = LIBMAINCODE THEN 
BEGIN 
STREAMCAeTINUGU], TeT2eSPACE(4))3 
REGIN 
DS « 23 LIT"#REFEL CHANGE MARKED ON "3 
St « LOC AB St + S1t4#53 NS + 3 CHRS DS @ LITMe™s 
FND3 


SPOUTER(T2eUNITNOs1)3 
G0 EXITS 
ENN 


IF NOTERMSETCMIX) THEN PRTROW( MEX) ¢{£PSF) « 23 
COMPLEXSLEEPCNOTCSTOPSET(CMyX)) AND UNITCUI,CFFI=@77777)3 
ACCIDENTAL FNTRY AT ®77777 


15110000 


OF REL SEGMFNTS DISK 


15110100 
15110200 
15110300 
15110400 
15110500 
151109600 
154110700 
15110800 
15110900 
15411000 
15111100 
1541411200 
15111300 
15111400 
15111500 
15111600 
15411700 
15111800 


15111900 


15112000 
15112100 
15112200 
15112300 
15112400 
15112500 
15112600 
15112700 
15112800 
15112900 
15113000 
15113100 
15113200 
15113300 
15113400 
15113500 
15113700 
15113800 
15113900 
15114000 
15114100 
15114200 


15114300 
15114400 
15114500 


15114600 


15114700. 


T 000080 
ADDRESS = 00450 


0000:0 
000030 
000030 
000010 
000010 
00000 
0000!0 
000080 
000010 
000030 
0000:10 
000010 
0000%0 
000030 
0000:0 
000030 
000030 
0000:0 


AAHHHH HHH HAA AHH 


T 0000:0 


0000!0 
000030 
000010 
000010 
000010 
000010 
000010 
000010 
000010 
0000:0 
000010 
000010 
00021 
000313 
0006:0 
001110 
001310 
001382 
0016383 
001633 
002010 
O02tT1 
15143900 
0021%2 
002310 
0023%2 
15113700 
T O0023%2 
T 002610 


a een Sen Bee Eee ee ee ee ee ee ee 


| 


ZF UNTT_NOT ASSIGNED AT THIS POINT THEN 
% WRT TEPARTTYREEC SAITOH HAS ALREADY BEEN RUN, 


TF ROCTABLECU),£8%6)20 OR TERMSETCMIX) THEN GO RESETJAR? 
TOeNFLAGCMCTOPIODIISTINUP URL 3339533 
PCWRITEPARITYREFLSWITCHCT201) DEL) 3 
RESETJARI 
IF NOTERMSFETCMIX) THEN JARECMIX29] © CHPCDUPI) & Of1t4a73133 
- GO EXIT 
ERROROUT? 
STREAM(T«T2+SPACE(3))3 
pS « 21 LIT"#REEL CHANGE ABORTEDe"3 
SPOUTEROCT2,UNTTNOo 123 
EXyTS 
KILLOPMKSW)3 
END REEL CHANGER} 


15114800 
15414900 


15115000 
15115100 
15415200 
15415300 
15115400 
15115500 
15115600 
15115700 
15445800 
15115900 
15116000 
15116100 
15116200 


003681 
003614 


0036%14 
0040%t14 
O0043%4 
004412 
004432 
004912 
0051:0 
005110 
005333 
0057:0 
0058:2 
0058:2 
005931 
15111700 
S1ZeE= 0060 WORDS 


AAHANM ARMA HAA 


PRT(695) = 


STACK CF #5) 


STACK(F 42) 
STACK¢Fe2) 


CONQUER 


R- 


VALUE ¢eNebeS 
REAL 

INTEGER G3 
BEGIN 


FNDi& 


BOOLEAN PROCEDURE CONQUERCC Nolo SoG) 


ee 


15168000 


START OF REL SEGMENTS DISK 


9G} 
CoNeoL? ARRAY SEC¥333 


ARRAY BaC(¥)3% 


REAL TsJsTt% 


LAREL X3&% 
IF G THEN 
tr Nxi, > 512 THEN GO TO Xé% 
IF €T «© GETSPACFONXL2283)) = 0 THEN 
BEGIN IF NOT G THEN PCOsRTN)3 
Xs IF NOT N THEN 
REGIN G*CONQUER(CeN@N DIV 2ebLeN INX Se4)? 
GeCONQUERCS [NX NeNoloSe4)3 
P({sRTNDS 
PcXtT)3% 
FND33 


T « GFTSPACE(Le20193% 
ENDS % 


Roe fhCT+211R8L6823871038C618933815I18% 
N © Nw1s5% 
FOR y « O STEP 4 UNTIL N DOB 
BEGIN Sr]) «+ Bss 
Boe L INX B33 
ENDS 


CONQUER] 13 


15168400 
15169000 
15169700 
15170000 


15171000 


15172000 
15172500 
15173000 
15174000 
15175000 
15475900 
15176000 
15177000 
15177800 
15178000 
15179000 


15180000 
15181000 


15182000 
15183000 
15184000 
15185000 
15186000 
15187000 


15187500 
15188000 


T 


000030 


ADORESS # 00452 


AAA 


_" 


AHA AAA HAH HH 


ee ee ee 


000080 
0000:0 
000010 
0000:0 


0000:0 


0000:0 
000030 
000033 
000330 
000533 
000733 
000881 
0012:3 
0016:0 
0016!2 
001633 
15176000 
001633 
0018%2 
15175000 
001832 
002133 
002310 
0024:0 
002532 
0027%0 
15165000 
002931 
003050 
15170000 


S1ZE2= 0031 WORDS 


PRT(626) = 


STACK ¢F42) 
STACK¢F 43) 
STACK ¢F 44) 


PRTGAMES 


NX 
INDEX 
DATA 


$ POP oMyT 


BOOLFAN PROCEDURE PRTGAMESCBUFFeMIX)$ VALUE BUFF aMIX3 REAL BUFF sMIX3 15400000 
START OF REL SEGMENTS DISK 

COMMENT PRTGAMFS IS THE BUSINESS FND OF "IN* OR "OT MESSAGES 15401000 
BEGIN REAL NXstTNDEXeDATAS 15402000 
& SET oMrT = NOTCPACKETS) 15402499 
DEFINE UNT TNO = PSEUDOMIXCMIXI#3 15402500 
15402504 

LABFL ECHs X3335 15403000 
STREAMCBUFE »GeMI Xe 63eF e¢BUFFKOeDeLDATAIs ILeL INDEX] )3% ZA44e 15404000 
BEGIN SIeBUFF: 15405000 
Lt IF Sc#e" * THEN BEGIN Sl*SI+13 GO L ENDS 15406000 
GerF Sc#™ " THEN Je Sc¥%e" THEN TRE SC#!a® THEN ¥B4Ke 15406100 
BEGIN TALLY*TALLY+12 SteSTe1 END)3 ¥844= 15406200 

acTF Sc#" " THEN TF Sc#™e" THEN TF Sc#%at THEN 15407000 
BEGIN TAULYeTALLY+13 SteSfet END)3 15408000 
TeTALLY3 DleDI+8!) DleDI]@~s SJTeSpu]Ts DSe! CHR} 15409000 

F¢ 15410000 

Ms IF 5SC=" " THEN BEGIN SI*+SI#13 GO M ENDS 15411000 
IF SC#"=" THEN BEGIN EstDleDIw120SeLIT"9"3 JUMP OUT END? 15412000 
SteSt4+13 15413000 

N3 TF SC=" " THEN BEGIN St*S1413 GO N ENDS TALLY©O3 15414000 
BcrF SC2"0" THEN BEGIN TALLY*+TALLY4#1$ SteSI+1 END 15445000 

FLSE JUMP OUT)$ If Sc#" “ THEN TF SC#"e" THEN GO F3 15416000 

T+TALLY$ DteDs SteSyeys DSer OCT)3 15417000 

ENDS IF M]X#63 THEN BEGIN & NOT ABSOLUTE CORE ADDRESS 2844= 15418000 
IF CINDEX AND NOT ®1070707)#0 THEN GO ECH3 ¥84G4e 15418500 
tF JARROWrMIX]=0 THEN GO ECH?3 15419000 
TF ONX@ INDEX. CASS ZIRINNDEXL G28 393 ZIRINDEX( 393332 3IRINDEX[ 3882924 15420000 
})$20 THEN GO ECH3 15421000 

re CPRTROWEMEXI INX NX)>MCEPRTICMIX*#10],MOM"3],°CF] THEN GO ECH3 15422000 
TF BUFF <O THEN 15423000 
IF PEPRTCMIXeNX]sTOPsXCHsDEL) THEN PRICMIXeNXJ@DATA ELSE 15424000 

GO ECH ELSF 15425000 

BEGINE STREAM( Je JARROWLMIX] oMIXe INDEX eRe CPRTICMIX NX] ]_ 15426000 

De DATAs BUFF,£15815)]"4)3 15427000 

BEGIN Sted; StleSf+13 OSeLIT" "3% SWF 15428000 

DSe7 CHR DOSeLIT#/"3 StoeSt+isZ ZWF 15428100 

DSe7CHR$ DSeLIT*#"s SpeLOC MIX DSe2DEC}3 15429000 

MIiXeDt3 Dlepi72s DSeF ILLS DIeMIX3 15429500 

NSe3L1TtRews Sl*S1443 DSe4 CHR DeDIs DleDT 43 15430000 

DSe3 FILLE DLeDs DSeLyT%="3 ST*eRI 15431000 

IF SB THEN & DESCRIPTORITYPE OCTAL 15432000 

16(NS«3 RESET? 3C1F SB THEN DS*SET ELSE DS+ 15433000 

RESETS SKIP $B)) ELSE 15434000 

0S+8 DEC 15435000 


T 


000030 


ADDRESS = 90454 


44 


v4.84 


AAA HoH HOD 


000080 
000050 


000010 
0000:0 
000080 
0000t0 
000110 
0003:3 
0004:0 
15406000 
000510 
000730 
15406200 
000733 
0009t2 
15408000 
00141084 
004234 
001283 
15411000 
001333 
15412000 
0015%2 
0015%3 
15444000 
001730 
15445000 
00186?1 
0020:2 
0022414 
15405000 
002313 
002533 
0027381 
003031 
003232 
0037%2. 
003831 
004233 
004233 
004784 
O0a9t4 
005041 
00si44 
0052t2 
0053%2 
0055!4 
0056%2 
0057340 
005833 
0060!0 


DSeLIT%e%3 NLeDs DleDret1s DSe*7 FILLS 15436000 T Q06081 

ENDS 15437000 T 0061!2 
15428000 

SPOUTER(CDATA INX MCBUFF.C15215]"2)sUNITNO01)3 15437100 T 006133 

FNDS & 844e 15438000 P 006532 
15426000 

FND FLSFE BEGIN % ABSOLUTE CORE ADDRESS OUTPUT REQUIRED ¥844= 15438010 ¢ 0065%2 
15448000 

TF ¢TNDEX AND NOT ®707070707)#0 THEN GO ECH ELSE x844m 15438020 c 0066!0 

BEGIN &% %B44= 15438030 C 006712 

NXe@ INDEX, 645% 328 INDEX(498 398378 INDEX 3923323) Zh44e 15438040 c 0068t0 

RINDEXL 368978378 INDEX(3322183)3% ZH44= 15438050 C 0070!0 

STREAMCINDEX#ReNXepDeDATAGBUFF,(C15815]"1 935% 84h" 15438060 c O073t1 

BEGIN DSe«15 LIT” CORE LOCATION "3 STeLOC INDEX3% #844" 15438070 Cc 0076#0 

SleS1+33 DSe5 CHRS DeNIt DieD1953 DS*4 FILLE 15438080 C 007832 

DleDs DSeLITS"3 STeR3Z K844~ 15438090 c 007933 

16(0Se3 RESFTs 3CIF SB THEN DSeSET ELSE ¥B440 15438105 c 008033 

DSeRESET? SKIP SB))3 ®644= 15438120 C 0082!2 

DSeLIT%e"3S HleDs DleDp41s DSet(S FILL: ¥844~ 15438430 c 0086332 

ENDS YB44= 15438140 c 008433 
15438070 

SPOUTCDATA INX MPBUFF,C15!153"2))3% 644m 15438150 c 008530 

END & ZO44m 15438160 ¢ 008832 
15438030 

FND$ GO X3 % ZB44= 15438170 c 008882 
154838010 

ECH: PRTIGAMES€]3 15439000 T 0090:0 

xX? FND3 15440000 T 009033 
15402000 


S1ZF2 0092 WORDS 


@ 
$ SET OMIT = NOTCDCLOG AND DATACOM ) 15440999 T 000010 e 
PROCFNURE WHATMCP(BUFFI3 REAL BUFFS % FORMATS WM MFSSAGF 15500000 T 000020 
START OF REL SEGMENTS DISK ADDRESS = 00458 
PRT(627) = WHATMCP @ 
BFGIN REAL X3 15501000 T 0000:0 
STACK(Fai) 2 X 
DEFINE BUFFSIZE236#3 % INCREASE THIS WITH MORE OPTIONS 15501100 T 0000:0 ¢@ 
Xte¢ BUFF S=SPACFCRUFFSIZE430))+BUFFSIZE3 15501200 T 000010 
DISKWALTC#X,30,MCPNAMESEG)3 15501300 T 000414 
STRFAM(MI,t #MARKLEVEL*PL #sPATCHLEVEL *LL 1 #LOCALEVEL 15501500 T 000681 @ 
+Nt2X42042xSYSNOsAt=BUFF)3 15501600 T o0078] 
BFGIN DSeLIT" 3 SfeNS SfeSp+1$ OSe7 CHRS DSeLIT*/"3 15502000 T 0009!2 
St+S]44? DSe7 CHRS DS*6 LIT" MARK "3 15502100 T 001131 a 
StreLOC ML} IF SC GEq © ™ THENS 15502200 T 001283 
BCIF TOGGLE THEN [IF §C="0" THEN SltsSI4+1 ELSE NSt#CHR 15502300 T 0013t2 
ELSE DSt=CHR)$ DStalLT","3 15502400 T 0015314 @ 
STt=L0c PL$ IF SC GEQ ™ ™ THENS 15502500 T 001612 
6CIF TOGGLE THEN {F SCa"0" THEN SIteSI41 FLSE DSt=CHR 15502600 T 001791 
ELSE DSteCHR)# DSts2cHR3 15502700 T 003980 e 
StieLOC LL? TF SC GEQ ™ ™ THEN 15502800 T 002010 
BCIF TOGGLE THEN TF SC="0" THEN S]t#S$141 ELSE DSt=CHR 15502900 T 002033 
ELSE DS:eCHRD3 15503000 T O0p2t2 6 
pS ¢ 40 LIT ™ INCLUDES "3% 15504000 T 002304 
$ SET oMIT = NOTCAUTODUMP) 15504999 T 0024%3 
0S « 9 LIT "AUTODUMPs "3 15505000 fT 0024!3 e 
$ POP OMIT 15505001 T 002684 
$ SET OMIT = NOTCAUXMEM) 15505499 T 002631 
$ SET OMIT © NOTCBREAKOUT) 15505999 T 002611 s 
$ SET OMIT = NOTCR6500L0Ap) 15506499 T 002631 
$8 SET OMIT © NOTCCHECKLINK OR DEBUGGING) 15506999 T 0026%1 
$ SET OMIT = NOTCDATACOM) 15507499 T 002631 @ 
$ SET OMIT = NOTCNCLOG AND DATACOM) 15507999 T 002631 
£ SET OMrT = NOTcHcSPO AND DATACOM) 15508499 TT 002631 
$ SET OMIT = NOTCDFBUGGING) 15508999 T 002614 @ 
£ SET oMIT = NOTCNFX) 15509499 T 002621 
$ SET oMTT = NOTCDISKLOG) 15509999 T 002614 
$ SET OMIT = NOTCDOKBNODFX) 15510499 T 002631 e 
$ SET GMyT = NOTCDUMP OR DEBUGGING) 15510999 T 002631 
NS « 5 LYT "DUMP," 15511000 T 002631 
$ POP OMIT 15511001 T 002781 e 
$ SET OMIT = NOTCMON]TOR) 15511499 T O02734 
$ SET OMIT = NOTCNEWLOGGING) 15511999 T 002734 
$ SET OMTT = NOTCPACKETS) 15512499 T 002711 e 
pS « 8 LIT *PACKETS,"3 15512500 T 002731 
$ POP @eMrT 15512501 T 0028t2 
$ SET OMIT & NOTCRJE AND pATACOM) 15512999 T 002882 8 
$ SET OMIT = NOTCSAVERESULTS) 15513499 T 002882 
$ SET OMIT = NOTCSEPTICTANK) 15513999 T 002882 
$ SFT OMIT = NOTCSHAREDISK) 15514499 T 002812 6 
$ SET OMrT = NOTCSTATISTICS) 15514999 T 002882 
$ SET OMIT = NOTCWORKSET) 15515499 T 002832 
DS « B LIT PWORKSET,"3 15515500 T 002832 e 
$ POP OMIT 15515501 T 002983 
$ SET OMIT = NOTCWORKSFTMON] TOR) 15515999 fT 002983 
oS « 15 LrT "WORKSETMON] TORS MS 15516000 T 002933 @ 
$ POP oMyT 15516001 T 003240 
Dto« Dred 15523000 T 003230 e 
@ 


Ae DY? 

Ste A$ Die AS 

aa Sc#r,* THEN 
Dre nis 93 

NS+ LIT ee" 

FND3 


IF M€3).01%1)] THEN & CM HAS BEEN DONE 
BEGIN OFSKWALT(&X%. 3020) 
STREAM(N#X4104+5*XSYSNO* RUFF 3 
BFGIN SY*BUFFS SleS14163 
Lt IF SC NEQ "e* THEN BEGIN SIeS 1473 GO L? ENDS 


BUFF eSIT3 DleRBUFE3 
OS«18 LIT"*NEXT MCP WILL BE "3 
STeNs SyeSl¢ 13 OSe7 CHR DSeL ITs "3 
St*#Sy41s DS¢7 CHR DSeLITMo"3 

ENDs FNDS 


END WHATMCPS3 


15524000 
15525000 
15526000 
15527000 
15528000 
15530000 


15531000 
15531100 
15531200 
15531300 
15531400 


15531500 
15531600 
15531700 
155316800 
15531900 


15533000 


AHA HHA HHH 


Asta 


T 


003241 
0032!2 
003310 
003342 
003383 
0034181 
15502000 
0034%2 
0036380 
003810 
004032 
004430 
15531400 
004230 
0042%2 
004530 
0046%1 
O047IY 
15531300 
15531100 
004782 
15501000 


S1ZE= 0050 WORDS 


STACK Fei) 
STACK¢F 42) 
STACK ¢F 43) 
STACK ¢F 44) 
STACK¢(F +5) 


PROCEDURE WHATINTRNSICCRUFF)$ VALUE BUFFS REAL BUFFS 


BEGIN 
REAL, SIZE sLOCs | NTWORDoWI oy 
SIZE 
Loc 
INTWORD 
WI 


I 
LABEL EXIT 
IF INTSIZES0O THEN 


BEGIN H 

STREAMCBUFF)$ OS¢14 LIT "NO INTRINSICSo"3 
GO EXIT? 

ENDS 


COMMENT. MAKE Wy INTRINSIC PRESENT? 
S{Zp t= CINTWORDt=INTRNSCrINTRNSCLO))) 
LOC t= SPACECS1ZE)3 
$ SET OMET = NOTCAUXMEM) 

DISKWATTC*LOCeSIZE®INTWORD,( 6827193 
DISKWATTC#C1tsSPACE(30))230,0)3 
STREAMCX2=141345XSYSNO,LOK2 sLOCeBUFF)3 

REGIN 

SpisLOKs SypeeSy+83 

1OCS %eSy4i3 

7CIF SCste™ THEN JUMP OUT 2 TO L13 


TF Scev@" THEN SypssSy4+4 ELSE NSteCHR) 93 


Lit Sypt=X#DOSite3uyTe 83 
SrteS 413 OSt27 CHRIOSsaLTTrs™s 
SrtsSt4+i13 OS8s7 CHRSDSsaoLI Tes 
FND STREAMS 


FORGETSPACECLOC)# FORGETSPACECI)$ 
FXIT! 
END WHATINTRNSIC! 


15534000 


START OF REL SEGMFNTS DISK 


15535000 
15536000 


15537000 
15539000 
15540000 
15541000 
15542000 
15543000 


15544000 
15545000 
15546000 
15547000 
15548000 
15549000 
15550000 
15551000 
15552000 
15552100 
15552200 
15552300 
15552400 
15552500 
15552600 
15552700 


15552800 
15554000 
15555000 


T 


ADDRESS # 00460 


T 
T 


Se ie Ben ioe ee ee ee ee ee ee ee 


+a4-4 


000030 


000010 
000010 


000030 
000030 
000210 
0002t2 
0005t2 
000610 
15540000 
000610 
000610 
000831 
001012 
001082 
001242 
001680 
001833 
001883 
001981 
001983 
002141 
002310 
002410 
0025:0 
002670 
15551000 
0026!1 
002733 
0027383 
15535000 


S1ZE= 0028 WORDS 


PRT(630) «= 


STACK ¢F 41) 
STACK ¢F +2) 
STACK¢(F 43) 


STACK¢F 44) 


STACK¢(F +5) 
STACK(F +6) 


PROCEQNURFE COREPRINT(4)3 


COREPRINT 


=z LINK 
= SIZE 
= OD 


COMMENT $ THIS PROCEDURE COMPUTFS AND TYPES THE AMOUNTS OF SAVE 
AND OVERLAYABLE CORE 1N USE FOR A GIVEN MIX OR ALL MYXES3 


COMMENT 3 


VALUE Q3 REAL 


15600000 


START OF REL SEGMENTS DISK 


Q.f184] = 1 IF ALL MIXES DESIRED 


Q,(0919] = REMOTE TU/BU3 


BEGIN REAL LINK»SIZE9D3% 


ARRAY 


INTEG 


LABEL 


CL¥); 


FR AeN3 


NXT3 


C «© CMESPACECMIXMAX44)3) & CMIXMAX41) (893881013 
FOR A «+ O STEP 1 UNTIL MIXMAX DO CLA) © 03% 
CcOl],fFFJ] « A « MSTART3% 


WHILE A#0 


nO 


% STEP THROUGH MEMORY LINKS 


BFGIN TF CLINK © MPA}).C1%4] THEN GO TO NXT3 


NXT3 
END? 


S1ZE « LINK,& 


CF) = A$ 


IF LINK.C2%1] THEN STZE «© O 8 SEIZE ([CTFJ3% SAVE 


CrLINK.£9%6]) 
Ae LINK.CCF) 


* (#PCDUP)) + SIZE3% 
3% 


A + 13 WHILE CAtA+1) $ MIXMAX DO% 
BFGIN IF @,£131] OR Q.fCF} = A THEN IF CELA] # O THEN 
BEGINS STREAM(NeNeCLAI CFF I eDeCSIZEII3% 


EFNDSS 


BEGIN S] 


« LOC N3 DS « 8 DEC? ENDSS 


STREAM(NeNe CCA], F CFI sDeLLINK] 3% 


PEGIN SI 


JOBMESS¢ 
FNDSS 


«¢ LOC Ns DS «+ 8 DECS ENDS 
AeQeMsSAVER"sSIZEe™ OLAYE"o LINK 3% 


TF @,01213 THENS nO TOTAL 


BFGIN 


ENDS 


PCcroi)s 
FOR aei STEP 


N« P3} N « N, 


1 UNTIL MEXMAX DO PCCLCAIJsADDIIS 
[Fr] + N,CCFI3S 


STREAMC Ne D*DeSPACE(4))3% 
BEGIN SI] « LOC N3 DS « 48 LIT “TOTAL MEM IN USE= «3 
DS « 5 pecs pS « LIT Me™} 


DI « DY 
END STREAM 


= 63 DS « 4 FILLS 


SPOUTCD & 0£92929))3% 


FORGETSPACECC INX O)3 
END COREPRINTS 


15600050 
15600100 
15600120 
15600140 
15600300 


15600400 
15600500 


15600600 
15600800 
15600950 
15601000 
156011450 
15601200 
15601400 
156015900 
15601600 
15602200 
15602300 


15602400 
15602500 
15602600 
15602620 


15602640 
15602660 


15602680 
15602690 


15602700 


15603900 
15604000 
15604100 
15604200 
15604250 
15604275 
15604300 
15604400 
15604500 


15604600 
15604700 


15604800 
15604900 


1 


000030 


ADDRESS # 00461 


+44 


Se ie Mies Moe Bee Mee Ben Be ee 


= aA Hott 


re 


44 


0000130 
000020 
000030 
000010 
000010 


000080 
0000180 


0000:0 
0000380 
0006!1 
001012 
0013%2 
004413 
001782 
001981 
002413 
0024%1 
0025%2 
15601200 
0026:0 
0029h1 
0033:0 
003583 
15602620 
0036%2 
003883 
15602660 
0039%2 
004452 
15602600 
004142 
15602500 
004430 
004413 
004513 
005080 
0052t3 
005533 
0058t2 
005941 
005913 
15604275 
006030 
006211 
15604000 
006231 
006333 
15600300 


SIZE= 0064 WORDS 


PRT(631) = 


STACK¢F 41) 
STACK ¢(F 42) 
STACK¢(F 43) 
STACK¢(F 44) 


STACK¢F45) 


$ SET OMIT = NO 
PROCENURF LOGCOM 


LOGCOMMENT 


BEGIN 
REAL 
a | 
=z J 
ze K 
= L 
ARRAY 
2 LOG 


END3 


TCAUXMEM) 15604999 

MENT (Q0)3 VALUE @% REAL Q@3 15610000 

START OF REL SEGMENTS DISK 

15611000 

TedeKeL3s 15612000 
LOGC*]3 15613000 
L « SPACE(72)3 15614000 
STREAM (Q!peL+5)3 15615000 
BFGIN Sf] ¢« Q3 15616000 
L3 IF Sc#"e" THEN BEGIN DS ¢« CHR$ GO TO L3 END? 15647000 
5(<DS « 8 LIT * #)3 DI «+ DI#32! Q + DY3 15618000 

END3 15619000 
1 « P,633215)3 LOG © CMEL)) & ClbL44)68:3831013 15620000 
LOGf3] © y «© yeb753 % NUMBER OF WORDS IN COMMENT 15621000 
WHILE CJ8exXCLOCK+PCRTR)) GE@ WITCHINGHOUR DO MIDNIGHT) 15622000 
LOGl2] « pnaTE,£18:3013 15623000 
LOGLiJ «+ J3 15624000 
LOGO] « 993 15625000 
LOGSPACEC£LOGI0]1,3+9)3 154626000 
FORGETSPACECLOG)3 15627000 
15628000 


T 
T 


T 


T 


Ast tt Ot 


AAAs 


000010 
000010 


ADDRESS = 00464 


000010 
000030 


000030 


000010 
0003%2 
O005%4 
000532 
15617000 
0006%2 
000813 
15616000 
000930 
001391 
0016:0 
15622000 
002312 
002531 
0026%2 
002733 
002932 
0030:%2 
15611000 


SIZE& 0031 WORDS 


REAL PROCENURE KEYSNSCANCKTReMIX)# REAL KTRsMyX3 


PRT(632) = KEYINSCAN 


BEGIN 


RFAL TYPEx41,» 


STACK¢Fe1) = TYPE 
STACK¢F42) = TBLADDR 


a@ be Be DE DG DO 2a 


Lt 
Li? 


TBLADDRS 


SCANS INPUT BUFFER FROM SPO 
RETURNS ERROR FLAG IN MIXef1931 oor 
MIX CL81LI2FLAG FOR EMPTY BUFFER (GROUP MARK ONLY) 
MIX,C281)2FLAG FOR NO NFO AFTER MIX INDEX 
MIX,C3817SFLAG FOR Q@MARK (CC) INPUT AS FIRST CHARACTER 
KTR 1S INITIALLY THE ADDRESS OF SPO JNPUT BUFFER 
KTR 3S ASSIGNED NEXT CHARACTER LOCATION AFTER SCAN 
% TYPE,CCF) 1S ASSIGNED TABLE LOCATION CMIXMSG OR INFOMSG) 
% TYPE,£1%5] 1S ASSIGNED PROCEDURE NUMBER 
% TYPE.£6%6) 1S ASSIGNED MyXCODE 
STREAMCMIX2 263% 


BEGIN 
SyteBUFFS 


BUFFS2KTR 2:33 % SCAN INPUT BUFFER 


16034900 


START OF REL SEGMENTS DISK 


DrtsRUFF? Dissdyrys OStsLyT*<"3 ¥ BACKSPACE CHARACTER 
Be 60CIF SCa%e" THEN & END OF :NPUT STRING 


BEGIN 
NSte CHR} 
END? 


JUMP OUT 2 TO L3 


IF SC=s"<" THEN ® BACK SPACE CHARACTER 


BEGIN 
Hrtsdl-13 
END 


IF SC NEG DC THEN DI taDIwy3 


ELSE DSteCHR))3 ¥ END OF BACKSPACE CHECK 


StTtsRUFFS OI 


t=LOC MIXS & CHECK FOR MIX INDEX 


Ie Scs* “ THEN 


BEGIN 
SrisStet3 
END? 


G9 TO Ly 


Ip SCate"* THEN &2 EMPTY BUFFER 


BEGIN 


SKIP DBs DSteSET# GO TO XXIT3 B MIX.CASLISEMPTY BUFFER FLAG 


END: 


Ir S¢ LSS "0" THEN GO To XXIT3 & NO MIX [NDEX. 
Ip $C GTR "9" THEN % QUESTION MARK» SET MIX,76341) 


BEGIN 


SpteStets SKIP 3DBi OSssSETS GO TO XXITE & MIX,£381]20MARK FLAG 


END; 


SrtaSteis TF SC LSS "0" THEN GO TO ONES 
IF SC LEQ "9" THEN 


BEGIN 
SypisSteus 
END 


ELSE 
BFGIN 


DSte20CT3 


SET MMIX"E63 


16035000 
16035100 


16035200 
16035300 
16035400 
16035500 
16035600 
16035700 
16035800 
16035900 
16036000 
16036100 
16036200 
16036300 
16036400 
16036500 
16036600 
16036700 
16036800 
16036900 


16037000 
16037100 
16037200 
16037300 


16037400 
16037500 
16037600 
16037700 
16037800 
16037900 


16038000 
16038100 
16038200 
16038300 


16038400 
16038500 
16038600 
16038700 
16038800 


16038900 
16039000 
16039100 
16039200 
16039300 


16039400 
16039500 


T 


a 


Se ee ee ee ee ee ee ee 


Ass Ct tt 


aa44-4 


a4 


0000:0 


ADDRESS = 00466 


00000 
000030 


000040 
000030 
000030 
000030 
000010 
000080 
000010 
0000!0 
000010 
0000180 
0000180 
000183 
000483 
000210 
000330 
000430 
000430 
000520 
16036700 
000530 
0005%2 
000532 
0006!2 
16037100 
000612 
000712 
0008610 
0008:2 
0008%2 
000920 
16037700 
000930 
0009%2 
000982 
0010814 
16038100 
001031 
004170 
001172 
0041412 
00142%2 
16038600 
001242 
0013%2 
001430 
001430 
001482 
16039100 
001432 
0014453 


ONFE 


L2? IF 


IF 


SyeeSrets pSts0CT; 


FNDS 
Sc=" " THEN & SCAN TO NEXT VISIBLE CHARACTER 
BEGIN 

SyteSt+13 GO TO Las 

ENDS 


Scz"e" THEN % NO TNFORMATION AFTER MIX INDEX 

REGIN 

nyssLOc MyXs SKIP 2DRs DSteSETS & MIX, C2ILIJZERROR FLAG 
FND$ 


XX7T!? OrtsBUFFS DNyresNyeBs OSteBLIT*rNV KBD 3 
BUFF t=Stt % SAVE LOCATION OF NEXIF CHARACTER IN BUFFER 
End STREAM; 


IF PefKTRisSTOefMIXI+SND).°183320 THEN % NOT QMARKsEMPTY OR FRROR 
BEGIN 
TRLADDRISSTYPES=SPACECKEYMSGSZ)3 
DrSKWAITC@#TYPE eKEYMSGSZ,MESSAGE TABLE(2],122:3261)3 
STREAMCTBRLIe TYPE, BUFF E2kKTR 3: TOG&$s(MIX NEQ 63993 


NEXT? 
MIX: 


NOMI X$ 


OKs 


Lt 


XT: 


BEGIN 
Srt=TBBLs SptaSl+q3 OLt=BUFFS Di tapyee23 
Crt=Cr+T0Gs GO TO NOMIXx3 


1F SC GE@ 1 THEN GO TO OK ELSE % MIX SPECIFIED 


BEGIN x BUT THIS +S NOT 
S]teS[4+83 GO To MyX3 % A MIX MESSAGE, 
END; 

1F SC GTR 3 THEN Z MIX NOT SPECIFIED 
BEGIN % BUT THIS 1S A 
SytwSp483 GO TO NOMyX$ % MIX MESSAGE, 
ENDS 


SprtsS74i13 OF sep t723 

1F SCaxe" THEN &% END OF TABLE 
BEGIN 
TBBLIsTALLY$’ GO To xT3 
ENDS 

IF 2 Sc#Dc THEN % NOT MATCHING ENTRY 

BEGIN 

Spt!eS[45? GO TO NEXT 

END3 


TOGtSN13 DIFsLOC TBBLE SIteSy+23 OSt=2 OCTs & SWITCH VALUF 
Syt=Sye4s DY FeLOC TBBLs DStex2CHR3 x PROCED & MIXCODE 
S1texT0G3 
IF SCw" * THEN 

BEGIN 

SrtaS]41? GO TO L3 

END) 


BUFF S573 
END STREAM STATEMENT? 


16039600 
16039700 


16039800 
16039900 
16040000 
16040100 


16040200 
16040300 
16040400 
16040500 


16040600 
16040700 
16040800 


16040900 
16041000 
16041100 
16041110 
16041200 
16041300 
16041400 
16041500 
16041550 
16041600 
16041650 
16041700 


16041750 
16041800 
16041850 
16041900 


16042000 
16042100 
16042200 
16042300 
16042400 


16042450 
16042500 
16042550 
16042600 


16042650 
16042700 
16042800 
16042900 
16043000 
16043100 
16043200 


16043300 
16043400 


AAA AHA 4S 


AHH A HAH Ht HH 


AHA HH Ht Ot HHS 


—-4 


16039500 
001531 
001533 
001533 
001614 

16039900 
001681 
001633 
001633 
0017382 

16040300 
001782 
001941 
004912 

16036300 
001983 
002133 
002231 
002533 
002883 
003033 
003083 
0031433 
003232 
003342 
003312 
003410 

16041600 
003410 
003432 
003432 
003510 
- 46041800 
003540 
003532 
003630 
003630 
003632 

16042200 
003632 
003710 
003730 
0037%2 

16042500 
003732 
003812 
003914 
003982 
004030 
004030 
004012 

16043000 
004082 
004013 

16041300 


Pe rKTRI+STD, .TYPE»STD} 
FORGETSPACECTRLANDR)$ 
END & IF NOT QMARK» EMPTY OR FRROR 


FLSE & OMARK» EMPTY OR ERROR 
IF M1X,03%1) THEN & OMARK 
BEGIN My]X!t=633 

TYPES sVCCRO10471237891)3 
ENN 


ELSE TYPE? #03 
FND PROCEDURE KE YINSCANS 


16043500 
16043550 
16043600 


16043620 
16043640 
16043660 
16043680 
16043700 


16043750 
16043600 


a4 


AAaAaS 


T 
T 


004130 
0042:0 
0042:3 
16041000 
0042!3 
004213 
004430 
0045:2 
O047:1 
16043660 
OOa7IY 
0048:2 
16035000 


StZFa 0049 WORDS 


PRT¢633) = 


STACK eF41) 


STACK ¢F 42) 
STACKCF 43) 
STACK (Fea) 
STACK (CF 45) 
STACK(F 46) 
STACK OCF 47) 


PROCENURE KEYINOCBeKTRX)3 VALUE BeKTRXS REAL BeKTRX3 
KEY INO 
BEGIN 


INTEGER 2ZSTA3 
ZZSTA 


uc 


REAL BUFF» KTRe TYPEs MIX» Ap Ie Je KB 
BUFF 
KTR 
TYPE 
MIX 
A 
I 


fan An wea: 


STACK¢Fsi0) = J 
STACK¢Fei11) = K 


STACK ¢F 46) 
STACK¢(F42) 


REAL U = A} 
z U 
| ARRAY RUFA = RUFFE*)3 
a BUFA 


LABEL NSMse CUTYs FORGET, ERROR» FXIT 
p AX otk 2QT e0U WY eRY »DS TF RM »O0P 
fd pot o CM SV °CL » BK oT! »PR RO tT 
eW] aRX1T eRC 


SWITCH St= ERROR 
» Ax eIkL afl »QT 2OU eWy eRY eDS ®DS 
eTF #RM » DF aDD » DD »DD ST 9 CM SV 
»BK #RXITT RY @RX1T oRXIT oTY a PR oRO es RO 
eWT eRXIT pRE 


SUBROUTINE SPOITS MCBUFFe2,5aB AND &7570000000000; 


BUFF teKTRX 6158153 
MIX teKTRX.C 986 73 
TYPE tmKTRX.C 9t7 13 
KTR teKTRX.715833)3 
ZZ2STa *mO & CMEBUFF R21 r9I9I973 
GO To SF*TYPFI3 | 
AX! 
! te BUFFS 
GO To RXIT3 
rhe 
IF CresANVILETYPES2eKTR)) GTR PSEUDOMAXT THEN % ILe2e ULe3 
Ir 1 LSS 70 THEN GO TO FRRORS 
TYPE t= 23 & IL 
IF I GTR PSEUDOMAXT THEN BUFF t=]3 
GO To RXIT? 


TF 


e CL 
otT 


16044000 


START OF REL SEGMENTS DISK 


16045000 
16046000 
16047000 


16048000 


16048100 
16049000 


16950000 
16051000 
16052000 
16053000 
16054000 
16055000 
16056000 
16057000 
16058000 
16059000 
16060000 
16061000 
16062000 
16063000 
16064000 
16065000 
16066000 
16067000 
16068000 
16069000 
16070000 
16071000 
16072000 
16073000 
16074000 
16075000 
16076000 
16077000 
16078000 
16079000 
16080000 
16081000 
16082000 
16083000 
16084000 
16085000 
16086000 


T 


ADDRESS = 00468 


~~ 


| 


Ato HAHAH HH HAHAH RH Ht A A ot st 


0000:0 


000030 
000010 
0000:0 


0000!0 


00000 
000010 


000030 
000030 
0000:0 
000010 
000010 
000080 
000030 
000030 
000030 
000080 
000010 
0000:0 
000010 
000020 
0000%0 
000030 
000010 
000010 
0000:0 
000030 
000030 
000580 
000510 
0008t2a 
000983 
001110 
001211 
0015381 
003341 
0033+1 
003420 
003412 
0034%2 
0037340 
003833 
0039%2 
004182 


OU: 


Xx 


WY8 


ns 


STREAMCASa"LP® 3» BestMT@, ceet*DPKM, Dre" CPH, KTRIE 
BFGIN : 
Sy t= KTR} 
Dy te LOC A’ DI ts Dr+63 
TaLLYt=13 TF Stee" THEN GO TO XT3 
TALLY%s23 JF 2 SC#DC THFN GO TO XT} 
TALLY#s3% SytsSy"os Hyt=Dre14s JF 2 SCepC THEN GO TO XT; 
TaALLY%aa?s SpTtaS]2s OL taDr+63 IF 2 SC#DC THEN GO TO XT3 
TALLY4353 StteSte23 Drt=D1+63 IF 2 SCEDC THEN GO TO XT3 
TALLY!?20: 

T: A a TALLY? 
END3 


IFC rteP) = O THEN GO TO ERROR; 
G9 To RXxyTs 


IF MrX LSS 63 THEN GO TO RXITS & <«MIX> WY 
SPOTT: 
AtsO0y 
FOR ti21 STEP 4 UNTIL MIXMAX DO 

IF *fJARROWLI]1 NE® O THEN 

TF REPLY£C1I LSS O THEN REPLYLAS SL )2sVwy3 

IF A#O0 THEN GO TO FORGETS 
MEBUFFed]tsFLAGCe* NULL "yi 
GO To FRROR} 


IF MrX263 THEN & "DS A/BY 

BFGIN 

NAMETDCJsKTRIS NAMEIDCK,KTRIS NAMEIDCKeKTR)3 

FOR MIXisq STEP 1 UNTIL MEXMAK DO 

IF *CJARROWCMIX]] NEQ O THEN 
IF ¢J FQV ABSCJAREM7X0071))S(NOT 0) THEN 
IF CK FAV ABSCJAREMIX®1)222NOT O THEN 

BEGIN 
TARCNTEMYXISSTABCNTCMIXI] 443 
go TO NSM} 
FND? 


GO TO FRRORS x NOT FOUNN 
ENDS € IF MIX NOT GIVEN 


IF JARROWF MIX] NEQ O THEN 
BEGIN 


DSME JAREMIXe6), CISL] IsCCTYPrs9) OR CTYPE#20))3 % DSeBoSHe9sCLa20 


TFs 


RMt 


TERMINATECMEX&CIF Bef 9t9) GTR O THEN 61 FLSE 3)€CTFI)3 
HALTS 

NOPROCESSTOG!= NOPROCESSTOG™{3 

GO TO FORGETS 

ENDS 


GO To FRROR} 
IF TyPeeii THEN SPOIT# & Speit 


CHANGEFACTORCKTRe TYPES10)3 &¥ TRa,O0,SFaq] 
GO To EXITS 


16087000 
16088000 
16089000 
16090000 
16091000 
16092000 
16093000 
16094000 
16095000 
16096000 
16097000 
16098000 
16099000 


16100000 
16101000 
16102000 
16403000 
16104000 
16405000 
16106000 
16107000 
16108000 
16109000 
16109500 
16110000 
16111000 
16112000 
16413000 
16114000 
16115000 
16116000 
16117000 
16118000 
16118100 
16118200 
16118300 
16118400 


a tt Ht Ht 


Se ee ee eee ee ee ee 


16119000 T 
16120000 T 


16121000 
16122000 
16123000 
16124000 
16125000 
16126000 
16127000 
16128000 


16129000 
16130000 
16131000 
16132000 
16133000 
16134000 


|. 


| 


004210 
004230 
0044140 
004410 
004484 
004413 
004533 
000643 
0048%4 
004983 
005431 
00512 
0051433 
16089000 
005210 
0053t2 
005810 
005830 
005984 
006010 
006033 
0062:0 
006331 
0069841 
0070!2 
00730 
007510 
007530 
007533 
007631 
0079314 
008010 
0081714 
008431 
008731 
008713 
009430 
00912 
16118100 
009333 
009431 
16113000 
009434 
0095! 
009533 
010074 
010640 
010412 
010583 
010611 
16122000 
010644 
010633 
010633 
010910 
011082 
011110 


TYPEtSTYPERALIE98973 
GO To RX1T$ 
pPs 
$ SFT OMTT = NOTCDFBUGGING OR NUMP) 
STREAMCAtS"LP"™, KTR &¢ Bie" MTH)3 
BEGIN 
St te KTR} 
Or t= LOC AS OT t= Dy + 68 TALLY?213 
Je 2 SC2NC THEN GO TO XT3 
DOr t= DT + 223 Sy t= Sy = 23 TALLY%=93 
IF 2 SC#DC THEN GO TO XT3 
TALLY?203 
XTt A Se TALLY? KTR te ST? 
END STREAM STATEMENTS 


IF CatePCCKTRI+STD)2=9 THEN GO TO ERROR} 


IF Az! THEN 
$ SET oM1T = DFBUGGING %763= 
GO TO ERRORS x763 
$ POP oMIT %763" 
§ SET OMIT = NOT DEBUGGING %7639 
OUMPCORE CKTRABUFF (1523381513 
$ POP OMIT 
GO To FXIT3 
nos 


£ SFT OMIT = NOTCNERUGGING) 
GO TO FORGETS 
ST3 
IF “REPLYCMIX] = CVWYRVOK(C3624216)) OR JARROWEMIX]*O THEN GO ERROR? 
$ SET OMIT = NOTCWORKSET) 
IF JARCMIXs93,0321] THEN GO TO ERRORS & ALREADY ST#ED 
$ POP OMIT & WORKSET 
IF NOTERMSETCMIX) THEN PRTROWLMIX],CPSFI3=23 
GO To FORGETS 
CM 
CHANGEMCPCKTR)$ 
GO To EXITS 
SVi3t 
SAVE THFUNITCKTR)$ 
GO FORGETS 
QTs 
te MIX LSS 63 THEN % MIX TNDEX SPECIFIED 
CUTY: TF JAREMIXs91.SYSJOBF = PRNPBTCODE THEN 
BEGIN 
REPLYCMIX]%=a TYPES 
STREAMCAt=0, Bs20 $ KTR) 
BEGIN 
SytaKkTR3 
IF SC="4" THEN TALLY3=2 ELSE 
IF Sce*~" THEN TALLY##3 ELSE GO XT3 
Be! StteS!+i3 IF Sce™ " THEN GO TO B23 
BtxTALLY? TALLY ?#03 
6CIF SC LSS "Om THEN JUMP OUTS S]EtsSleg3 TALLY eTALLY41)3 
KTRtsTALLYS DissL0C as SItsS]"KTR$ DStzKTR OCT3 
XT? END STREAM STATEMENTS 


NT2:=P3 


16135000 
16136000 
16137000 
16138000 
16139000 
16140000 
16141000 
16142000 
16143000 
16144000 
16145000 
16146000 
16147000 
16148000 


16149000 
16150000 
16150099 
161450100 
16150101 
16150999 
16154000 
16154004 
16155000 
16156000 
16157000 
16161000 
164162000 
16163000 
16163100 
16163200 
16163300 
16164000 
16166000 
16167000 
16168000 
16169000 
16170000 
16171000 
16172000 
16173000 
16176000 
16178000 
16180000 
16181000 
16187000 
16188000 
16189000 
16190000 
16191000 
16492000 
16193000 
16194000 
16195000 
16196000 


16197000 


AA HH HAH HHS 


Se ioe Hoes ioe, en ee ee ee ee a ee ee eee eee sists 


oe | 


011130 
011233 
011321 
011371 
011341 
011483 
011433 
011530 
011533 
011692 
O11731 
011830 
011831 
0116:3 
16140000 
011940 
0121°0 
012183 
0121%3 
0122%1 
0122%1 
012281 
012410 
012410 
012730 
012720 
012730 
0127%2 
012752 
013133 
013433 
013430 
013430 
0138%2 
013930 
0139320 
013933 
014031 
0140%1 
014180 
01444:2 
0141432 
01424 
0144%3 
0145%1 
014632 
014830 
0148:0 
014604 
014984 
0150322 
015142 
015230 
01540 
015582 
16188000 
015533 


NT1tsP3 
PRTEMIXe®25)2 =5RNTIC9$ 24224 BNT2L1 2468233 
GO TO FORGET: 

FN 


FLSF GO TO EFRROR3 2 NOT PRNPBT 
cle &’ MUST FOLLOW QT 
IF CrsesuUNITINGTYNUs KTR)) LSS 646 THEN & UNIT J] MTX 
Ir CMIXS=RNCTARBLETII],£8:6]) Ne@ O THEN 
BEGIN 
TARBCNTCMIXIJS=TABCNTCMI XI] 413 
tF TYPes4 THEN GO TO QT ELSE GO TO OSM? 
FND: 


$ SET OMIT = NOTCSHAREDISK) 
1F TyPes4 OR ct GTR 29) THEN GO TO ERRORS & QT OR PSEUDO UNTT 
LABELTARBLELT] te PCDUPsLOD,SSP)3 % MARK IT NOT IN USE 
MIX$2633 
GO To RY3 
BK! 
$ SET oMIT = NOTCDATACOM AND DCSPO) 
BrGIN 
Ip (Crt= MESSAGEHOLDER.( CF) NE® 0 THEN 
Ip (Jts MELJJOFFJ) NE@ O THEN 
BFGIN 
NO BEGIN 
At=sMEJUy3 


IF ¢A,f485)=0 AND MyX263) OR (A,CAt5S]SMIX AND MIX NFQ 63) 


&$ SFT OMIT = NOTCDATACOM AND DCSPO) 
THEN 
REGIN 
MCTJ9= PCDUPsLON)&8AC18118845])3 
NUMESSt= NUMESS"13 
FORGETSPACE(J4193 
END £LSE Ite; 


END UNTIL (Jie A,r] )=08 


MESSAGFHOLDER,CFFIJ8= [3 
END3 


ENDS 


MIX8e633 
GO To FORGET: 
RY: 
IF CrteFORMESSCKTReTYPE=<VFM)) LSS 0 THEN GO TO FORGETS 
IF 1 GTR 34 THEN GO TO FRROR ELSF GO TO RX]T?3 
TI! 
TIME USENCBUFF UL» MIX)3 
GO To FXIT3 
PRi 
SPOT? 
CHANGEPRIORITYCKTReM]X)$ 
G0 To EXITS 
RO . 
CHANGE OPTIONCKTRs TYPE 228); % RO=98,S0829 
GO To FXIT3 


16198000 
16199000 
16200000 
16201000 


16202000 
16203000 
16204000 
16205000 
16206000 
16206100 
16206200 
16206300 


16207000 
16215000 
16216000 
16217000 
16218000 
16219000 
16220000 
16223000 
16224000 
16225000 
16226000 
16227000 
16228000 
16229000 
16230000 
16232000 
16233000 
16234000 
16235000 
16236000 
16237000 


16238000 


16239000 
16240000 


16241000 


16241500 
16242000 
16243000 
16244000 
16245000 
16246000 
16247000 
16248000 
16249000 
16250000 
16251000 
16252000 
16253000 
16254000 
16255000 


Aas 


AHA Ha 


AAA HHA NAA HAHAHA 


—+~ aa + 


AA HnW HHA 


015621 
015633 
0160:2 
016130 
16180000 
016130 
016130 
016130 
016331 
016523 
016631 
0169132 
O171il 
16206000 
0171481 
0171%1 
0173:3 
0147582 
017631 
017623 
0176383 
017633 
017613 
017612 
018132 
018210 
0182:0 
018332 
018732 
01487:2 
018831 
0188:3 
019130 
019231 
019332 
16233000 
019443 
16227000 
019730 
019831 
16226000 
019831 
16223000 
019841 
0199:0 
019932 
019982 
020282 
020481 
020414 
020533 
020634 
020681 
020730 
020830 
02082 
020832 
021030 


tT: 
IF NOT JAR(M7X29),0481) THEN GO FRRORS 
JAREMIXs9}e¢C#PCOUP)) & 17594781)3 
GO FORGET: 
WI 
WHATINTRNSICCBUFFO1)3 
GO To FRRORs 
RC! 
Ue UNTTINCTINU,KTR)3 
1FU > 45 THEN GO ERROR} 
IF CreROCTABLECU),£C8%6])=0 OR 
PRNTABLECUJ,£15!215]20 OR NOT PRNTABLECU],€C1!1) THEN GO ERRORS 
INDEPENDENTRUNNERCPC, «REEL CHANGER) 2Ue 204)3 
GO FORGFT: 
RXrT? 
REPLYCMIX] t= TyPea17188:33215)3 
IF 1 NE® BUFF THEN 


BFGIN 
FORGETS 
STREAMCTIisBUFF7123 OSts LIT tes 
FRROR! 
SPOUTCCBUFF&1) JINX CO8Z7STAC9#89!29]))3 
END: 
FXIT! 


TF CMP X>OIANDOMEXSMIXMAX) THEN TABCNTCMIX Je TABCNTCMIXI]"13 
END PROCEDURE KFYINO; 


¥113- 


16256000 
16257000 
16258000 
16259000 
16260000 
16261000 
16262000 
16263000 
16263100 
16263200 
16263300 
16263350 
16263600 
16263700 
16343000 
16343100 
16343200 
16343300 
16343400 
16343500 
16343600 
16343700 
16343800 


16343900 
16343950 
16344000 


021012 
021082 
021232 
0215!2 
0216380 
021640 
021781 
0217983 
021783 
021912 
022033 
022233 
022633 
022810 
022812 
022832 
023084 
023110 
023112 
023112 
0233:2 
023312 
023613 
16343300 
023613 
023613 
024214 
16046000 
SIZEm 0243 WORDS 


tt tt at st tt tt 


40-4 


PRT¢634) = KEYIN 


STACK¢F41) = ZZS 
STACK¢Fe2) = BUF 
STACK¢Fse3) = KTR 
STACK¢F44) = TYP 
STACK¢Fse5) = MEX 
STACK¢(F 46) = A 
STACKeFs7) 2 1 
STACKeF410) 2 J 
STACK¢ F411) = K 


STACKeFs2) a BUF 


PROCEDURE KEYIN(CBsKTRX)# VALUE BeKTRX3 REAL Bs KTRX3 


1 


BEGIN 
INTEGER Z7STAS 
TA 
REAL BUFF» KTR» TYPEs MIX» Ay To Jp 
F 
E 


ARRAY BUFA = RUFFIe]3 


A 
LABEL FORGET» ERROR» EXIT 
BO otI »SS BS SC »Va 
»TR oWT »WM 2 CC »OL, » PB 
SI eLR »OT IN FE 20C 
3 
SWITcH Sts ERROR 
»B0 all ely elf SS 
»SC »VQ RR oCA OCA 
CC = 6O0L = 62©PB O4RN.) oLD 
2OT » IN sFE 20C SQ 
3 
SUBROUTINE SPOITS MCBUFF*2ytsB AND 
BUFF %#KTRX,C15%15453 
MIX teKTRX,¢ 936 J3 
TYPE sekKTRX,¢ 937 J3 
KTR tekKTRX,£15333)3 
Z7ZSTA teO & CMEBUFFRW2II (9892973 
GO To SrTYPF)3 
RO: 
$ SET OMIT = NOT¢OCSPO AND DaTACcOM) 
Lit 
$ SET OMIT = NOTCOCSPO AND DaTacOM) 
GO To FXYT3 
S83 


$ SET OMIT & NOTCOCSPO AND DaTAacom) 
GO To EXIT3 
BS} 
8 SET OMIT = NOTCDCSPO AND DATACOM) 
GO FXIT3 


Ki 
*RR CA eDT 
»RN oLD RD 
*SQ »CS +shS 
»5S 8S ,.S8S 
*DT WD TR 
»RD »RD »ED 
»CS HS WK 
©75700000000003 


eWD 
oED 
WK 


oBS 
eWT 
e5l 


»BS 
eWM 
eLR 


16345000 


START OF REL SEGMFNT? DISK 


16346000 
16347000 
163468000 


16349000 


16350000 


16351000 
16352000 
16353000 
16354000 
16355000 
16356000 
16357000 
16358000 
16359000 
16360000 
16361000 
16362000 
16363000 
16364000 
16365000 
16366000 
16367000 
16368000 
16369000 
16370000 
16371000 
16372000 
16373000 
16374000 
16375000 
16376000 
16377000 
16378000 
16379000 
16380000 
16386000 
16387000 
16390000 
16391000 
16392000 
16394000 
16395000 
16396000 
16406000 


T 000030 
ADDRESS a 


0000:0 
000080 
000080 


2 


000080 


—~ 


000080 


000010 
000030 
0000!0 
000030 
000040 
000010 
000020 
000010 
000080 
000030 
000010 
000010 
000030 
000030 
000030 
0000:0 
000010 
0000!0 
000030 
000030 
000010 
000530 
000530 
000882 
000933 
001140 
001241 
OO015t1 
003533 
003583 
0035383 
003543 
003533 
003611 
0036! 
003641 
003683 
003683 
003683 


AA MAAN A TH tA A At A HA tt Ht 


00477 


$C3 
§ SFT OMIT = NOTCNCSPO ANN DATACOM) 
GO To FYYTs 
RRs 
& SET OMTT = NOTCDATACOM) 
VQs 
$ SET OMIT = NOTCDCSPO AND DATACOM) 
GO To FEXIT3 
CA3 
$ SET OMIT = NOTCAUXMEM) 
GO To FRROR! & SPOUT AUX MerSSAGE OR ERROR MESSAGE 
nts 
SETDATECKTR)3 
GO TO EXIT? 
WO: 
GIMENATFECBUFF@101)3 
GO To FXYIT3 
TR 
SETIMEEKTR)S 
GO To EX]T3 
wie 
TIMEOUT (BUFF@1)3 
GO To EXIT3 
WMt 
FORGFTSPACECBUFF@1)3 
WHATMCPCBUFF)3 
BUFF esRUFF413 8 FAKE OUT ERROR 
GO To FRROR? & SPOUT MESSAGE 
cC: 
AtsmMrBUFF@3), (CF J*BUFFs ¥ WOS IN MESSAGE 
STREAMCRUFFs BLieA>Be KTReaCkTRtxSPACE(A42)42))3 
BEGIN 
SyiePUFFS 
BLCEZ6COSte2LIT" "23 DLtskTRI$ 
IF SC NES "%e* THEN 
REGIN 
NStscHR?} 
Ls fF SC NEQ@ fe THEN 
BEGIN 
IF SC NEQ @14 THEN pS#cHR ELSE SrteS]ol3 
GO TO L3 
FND3 


END} 


DSt#cHR}3 
ENDS 


MEKTR*4I, (986) 8e08 
IF ARSCB) GTR 1 THEN 
ERO ERENORNURUNNE RG. | sCONTEURCAROD HRIRESO Lee TCIRZESI ALPERT SNe 
192) 
ELSE INDEPENDENTRUNNERCP( ,CONTROLCARD) e KTR&256 2142863019293 
GO To FORGET; 
OL? 
OUTPUTLABELCKTR) S$ 
GO To EXITS 


16407000 
16408000 


16410000 
16411000 
16412000 
16656000 
16457000 
16485000 
16486000 
16487000 
16489000 
16490000 
16491000 
16492000 
16493000 
16494000 
16495000 
16496000 
16497000 
16498000 
16499000 
16500000 
16501000 
16502000 
16503000 
16503100 
16503200 
16504000 
16505000 
16505100 
16506000 
16507000 
16508000 
16508100 
16509000 
16510000 
16511000 
16512000 
16513000 
16514000 
16515000 
16516000 


16517000 


16518000 
16519000 


16520000 
16521000 
16522000 
16522100 
16523000 
16524000 
16525000 
16526000 
16527000 


a at a sss as a a an as at ast st 


414 4 


ey 


003781 
003751 


003731 
003783 
00373 
003783 
003733 
003783 
003881 
003831 
003631 
003883 
003683 
0039!2 
004010 
004010 
0041382 
004240 
004270 
004283 


004381 


004334 
004412 
004580 
0045:0 
0046314 
004730 
O048t: 
0048t3 
004833 
0051393 
005632 
005682 
005633 
005813 
005981 
005931 
005932 
006010 
006010 
006141 
006182 
16543000 
006112 
16530000 
006112 
006413 
16507000 
006230 
006551 
006611 
0069%2 
0069383 
0072t3 
007381 
0073381 
007480 


PBE 

: PRINTBACKUPCKTR& RL 62989)3 
G9 TO FXITS 

RN? 
SPOTT? 
RUNTHEDFCKCKTROS 
GO To FxXYIT3 

LD! 
STARTLOADNCKTR)3 
GO To FXIT3 

RD: 
NECKREMOVERCKTR)3 
GO TO EXIT3 


a 
e 


FXTERNALENDCKTR)3 
GO TO FXIT3 
ST: 
$ SET OMyT = NOTCSTATISTICS) 
GO To FRRORS & SFOUT MESSAGE 
LR: 
$ SET aoMtT = NOoT¢enclOG AND DaTACcOM) 
GO To FORGETS 
IN: 
KTRt="KTR3 
OT: 
$ SET OMIT & NOTCBREAKOUT) 
IF PRTGAMESCKTRsMIX) THEN GO ERROR FLSE 
te KTR LSS O THEN GO FORGET ELSE GO EXITS 
FES 
Jts GETSPACE(352920)+23 
STREAMCKTR&Dt2J42)3 
BFGIN 
SristTR}$ 
AcO3cIF SC NFQ %"e™ THEN DSt=CHR ELSE JUMP OUT 2 TO LL))3 
LLt DStslr1Te"s HyteDr1s KTREsOT3 
END) 


yt= P yNX OF 
MeJ]:= cred) Div 53 
STREAMENATEs Ated+1)3 
BEGIN 
SrtwlOC DATE? NSi=8 OCTS 
ENND3 


LINKYUP(199J)3 
GO To FORGET? 
oc: 
LOGCOMMFNTCKTR)3 
GO TO FORGET? 
SQ: 
STREAMCTYPES=O% JNFOL SE" STOPOKN'» NFO 212895676 30000000000, 
KTR)3 
BEGIN 
SpeeKTRs DpsteLOc INFOGs Denese TaALLytey3 
IF 4 SCeNc THEN GO TO EXxT3 
StrreSpras TALLY: sTaLlLy+43 
tF 2 Stepc THEN GO TO EXT3 


16528000 
16529000 


16530000 
16531000 
16532000 
16533000 
16534000 
16535000 
16536000 
16537000 
16538000 
16539000 
16540000 
16541000 
16542000 
16543000 
16544000 
16545000 
16576000 
16577000 
16578000 
16580000 
16580600 
16580800 
16581000 
16582000 
16588000 
16589000 
16590000 
16591000 
16592000 
16593000 
16594000 
16595000 
16596000 
16597000 


16598000 
16599000 
16600000 
16601000 
16602000 
16603000 


16604000 
16605000 
16606000 
16607000 
16608000 
16609000 
16609100 
16609200 
16409300 
16609400 
16609500 
16609600 
16609700 


a as a st a tt st Ht 


A444 


i eer 


007412 
O074s2 
007611 
007683 
007633 
007830 
007833 
007914 
007991 
008010 
008012 
008042 
008131 
008153 
008133 
008212 
008310 
008330 
008310 
008332 
008382 
008382 
008430 
008410 
008510 
004530 
008510 
008610 
008812 
008812 
009083 
009232 
009232 
009233 
009532 
009612 
16593000 
009633 
009733 
010084 
010153 
010183 
010214 
16601000 
0102t2 


° 040382 


010430 
010440 
010483 
0105014 
0105%4 
0106%2 
010720 
010730 
010810 
010883 
010981 


SrzeSp"23s TALLY? =TaALby 
1F 4 SCEDC THEN GO TO 
TALLYtaTALLY443 

EXT: TyPEteaTALLyY3 

END} 


+23 
EXT: 


IF PeMEPC.DISKSQUASH) ]*eTOP) THEN IF PCP.EFFY AND P»DUP)#0 THEN 
P¢.O01SKSQUASHsSTD) ELSE GO To ERROR ELSE IF PCXCH)#8 THEN 
BEGIN 

INNDEPENDENTRUNNERCP( DI SKSQUASH) #KTR128)3 

GO TO FXITs 
END FLSF GO TO FRRORS 


69 TO FORGET3 


WSt 

$ SFT OMT = NOT SEPTICTANK 
cS: 

$ SET OMT = NOT SEPTICTANK 


GO TO FXIT3 
WKs & WORKSET REQUESTS 
$ SET OMIT = NOTCWORKSET) 
WKSETVALUESCKTRX)$ GO TO EXxIT$ 
$ POP oMIT %& WORKSEY 


FORGET: 

STREAMCTt=BUFF*4 23) pnSt= Lr? wet; 
FRRORS 

SPOUTCCRUFF™1) TNX CORZZSTALIEII9I) D3 
FX 1T3 


TF OMI X>OVANDOCMIXSMIXMAX) THEN TABCNTCMIXJeTARCNTCMIX J "13 
END PROCEDURE KEYINYS 


Z1139 


16609800 
16609900 


16610000 
16610400 
16640200 


16610300 
16640400 
16610500 
16610600 
16610700 
16610800 


16610900 
16611000 
16611990 
16613000 
16613990 
16615000 
16615100 
16615110 
16645200 
16615210 
16689000 
16689100 
16689200 
16689300 
16689400 
16689450 
16689500 


011010 
0110182 
O111!14 
011182 
011113 
16609300 
011280 
011592 
011933 
012001 
012182 
012210 
16610500 
012280 
012212 
012212 
012212 
012202 
012212 
012330 
0123140 
012340 
o124ti 
012481 
0124+ 
012611 
012681 
012932 
042942 
013510 
16347000 
SIZE* 0136 WORDS 


+~a 44-4 


ie 


eee ee ee 


PRT(635) = 


STACK(F40) 
STACK¢Fe#2) 
STACK¢F41) 
STACK¢F 42) 
STACK ¢F 43) 
STACK(F 44) 
STACK¢F 45) 
STACK(F +6) 


STACK ¢(F +7) 


PROCEDURE KEYIN2CKTRX)3 


STACK¢F 410) = J 


STACK¢F 411) 
STACK(F 412) 
STACK(F 413) 
STACK(F 414) 
STACK¢F 415) 
STACK(F 416) 
STACK(F 417) 


STACK(F 420) 


PRT(160) = NTI 


STACK(F 46) = INT2 


STACK(F410) = INT3 


STACK¢(F4¢i7) = INT4 


KEYIN2 
RFEGIN 
REAL 
= RCW 
a MSCW 
INTEGER 
zx ZZSTA 
. REAL 
s BUFF 
= KTR 
a TYPE 
= MIX 
s A 
= | 
=z K 
= 8B 
=z R 
= Ri 
= R2 
= R3 
= R4 
REAL 
= UNY TNO 
INTEGER 
ARRAY 


STACK(F 42) = BUFA 


STACKCF 416) # UT 


$ SET OMIT = NOT SHARENDISK 


RCW 


REAL MSCWs#23 


ZZSTA = RCW + 


BUFF 
KTR 
TYPE 
MIX 
A 

I 

J 


aa 


UNIT TNO 


INT 
INT2 
INT3 
INTA 
BUFA 


UT 


5 


ZZSTA + 
RUFF + 
KTR + 
TYPE + 
MIX + 
A + 
1 + 
J + 
K + 
B + 
R + 
R4 + 
R?2 + 
R3 + 
k4 + 
NT4 

A 

J 

R4 
BUFFC*) 
R3(*] 


£ SET OMYT = SHARFENDISK 


NEF INE 


) 


= AVTABLES 


VALUE KTRX3 REAL KTRX3 


03 


13 


13 


we 


3 


START OF REL SEGMF 


16690000 
NTS DISK 


16690500 
16691000 
16691500 
16691550 
16692000 
16692500 
16693000 
16693500 
16694000 
16694500 
16695000 
16695500 
16696000 
16696100 
16696200 
16696300 
16696400 
16696500 
16696600 
16696650 
16696700 
16696800 
16696900 
16697000 
16697100 
16697200 
16697300 


16697600 
16697700 


16697800 


4-41-14 


000030 
000010 
000020 
000030 
0000:0 
000040 
000030 
000010 
0000:0 
000050 
000010 
000030 
000010 
000030 
000010 
000030 
000050 
0000:0 
000030 
0000:0 
000080 
000080 
000030 
000010 
000030 
000030 
000010 
0000180 


000030 
000030 


$ POP OMyT 
REAL 


STACK¢F 45) = HN 
STACK¢F 44) = HN? 

REAL. 
STACK(F47) x SEG 
STACK¢F410) = ADR 
STACK¢Fel1) = LOCN 
STACK¢(CF 414) = HALTED 

NAME 
STACK¢ F416) = SeGaDdrcT 


LABEL 


HNG = MYX , 
HNO = TYPE ; 
SEG = Te 
ADR = Je 
LOCN # Ke 


HALTED R13 
SFGDICT = R33 
RRs PGAe FERGIT»® FORGET» ERROR» EXYT 
eWU »WP ,WR MX ,4TS otF eo LC LS »efX .4PD 


®SM »¢PO -»PG ee AU MS oLN eo CD eCU SY »SbL 
»eRW eC] CT XD »Mt eRS 2HD RA oEI 


; 


SWITCH S t= FRROR 


»WU »pWP pWR oMX ,4TS 0 TS »TS oTS plF ob 
eL§ 9 FX ePD 0 SM »PO eo PO »PG 2 AU oMS oLN 
CO »CD otD etl ,S¥Y SL »RW -CI eCT CT 
CT 06XD »XD oMC 4RS sHD RA oEI 


SUBROUTINE SPOIT? MUCBUFF*2)%2B AND @75700000000003 


PO. 
PCO; 
RUFF 
MIX 
TYPE 
KTR 
ZZSTA 
B 


0, Or 0, O, Os Os Op Os 0)3 
O, 0» 0, 0, 0)3 


taKTRX Ci521513 

t=KTRX.F 996 73 

teKTRX,[ 2:7 3 
rekKTRX,£15233]3 

=O & (MERUFF"2])193919)5 
te MCBUFF@113 


$ SET OMIT = NOTCPACKETS) 
IF MyX#63 THEN UNI TNOSEPSEUDOMIXEMIXIS 
$ POP OMYT 
STREAMCRi®BUFF TIS DS#sBLIT™ INV KBD “3 
GO To SrTYPEy3 


wu: 


$ SFT omtT = NOTCNCSPO AND DATACOM) 


WP: 


$ SET OMIT = NOTCOCSPO AND DaTACOM) 


RR: 


$ SET OMIT = NOTCNCSPO AND DATACOM) 
60 TO EXITS 


WRs 


%139" 


%1398 


697900 
69 


16 
16698000 


16698100 
16698200 
16698210 
16698220 
16698230 
16698240 


16698500 
16699000 
16699500 
16700000 
16700500 
16701000 
16701500 
16702000 
16702500 
16703000 
16703500 
16704000 
16704500 
16705000 
16705500 
16706000 
16706500 
16707000 
16707500 
16708000 
16708500 
16710000 
16710100 
16710500 
16711000 
16711500 
16712000 
16712500 
16713000 
16713499 
16713500 
16713501 
16744000 
16714500 
16715000 
16715500 
16719500 
16720000 
16721500 
16722000 
16737000 
16737500 


a4 


+ + o 


NAH HAHN HHH HAA HA HATA HA tA Ht te HS 


0000:0 
000030 


000010 
000010 
000030 
000080 
000010 
000070 


000030 
000080 
000010 
000010 
000010 
000030 
000080 
0000480 
000010 
000080 
000010 
0000:0 
000030 
000080 
000040 
000010 
000080 
000010 
000030 
000030 
000510 
00050 
0007%2 
000910 
0010114 
001132 
001283 
001430 
0017180 
0019140 
001910 
002141 
OO21h1 
002410 
004412 
004432 
004482 
004482 
004412 
0044%2 
004432 
004530 


S$ SET OMIT = NOTcCHCSPO ANN D¢CLOG AND DATACOM) 
MX? 


MIXPRINTCZ7ZSTAD3 
GO To FORGETS 


TS: 


SHEETOTODLERCKTRs TYPE *MIX)3 % TSeS» PSe6, ES=7>» 


MIX%2633 
GO To EXIT3 


1833 GO TO PD; 


T!=23; GC TO PN 


LS: 


ri=43 60 TO PN 


KTRts *KTRS$ ytsy3 


PO? 


PRINTDTRECTORY(KTReI)3 
GO To FXIT3 


SMt 


$ SET OMIT = NOTCOCSPO AND DaATACOM) 
GO To FXIT3 


PO: 


TYPOPCKTReTYPES16)3 % TO#15» P0s16 


GO TO EXIT3 


PG? 


STREAMCY?=KTRI3 


Lat 


PGA: 


Le 


LL& 


BraGINn 


Sytey3 

Ir Sc NEQ et THEN 
RE GIN 
Sy'=Stats nltepntr+13s gO TO LA; 
END 


FLSF DSteabL[Tteeee"S 
FNNS 


STREAMCY22#0»5 KTR$ AteAteSPACE(12)+193 


BEGIN 

Sr1rt=xKTR3 

Ie Sce™" ™* THEN 
BEGIN 
SytsSt+t3 GO TO Ls 
ENDS 


Ie Scste"™ THEN TALLY ¢2 1 ELSF 
te Sc="0" THEN TALLY t= 1 ELSF 
BEGIN 
NStsx3cHR3 
tF SCer@" THEN 
BEGIN 
DS?scCHR3 
IF SCs* " THEN 
BEGIN 
StteSt+1; GO To LL 
FND: 


Sctr Sc GE@ O THEN nS!=cHR ELSE JUMP 


OUT 3 


XS28 


16738000 
16739000 
16739500 
16740000 
16740500 
16741000 
16741250 
16741500 
16742000 
16742500 
16743000 
16743500 
16744000 
16744500 
16745000 
16745500 
16746000 
16746500 
16747000 
16747500 
16748000 
16749000 
16749500 
16750000 
16750500 
16751000 
16751500 
16752000 
16752500 
16753000 
16753500 
16754000 
16754500 


16755000 
16755500 


16756000 
16756500 
16757000 
16757500 
16758000 
16758500 
16759000 


16759500 
16760000 
16760500 
16761000 
16761500 
16762000 
16762500 
16763000 
16763500 
16764000 
16764500 


16765000 


AHA H AHHH HHH HHH AA HH A ts tt 


4a4nA4H4H4H4 AH 


ee ee | 


4 


004530 
004510 
004530 
004533 
0046T4 
004681 
004732 
004831 
004833 
004833 
005010 
005010 
0051%14 
005181 
0052%2 
0052%2 
O054t!i 
0054%1 
0055?1 
005533 
005513 
0055:3 
005631 
005634 
005733 
005831 
005844 
005910 
0059140 
0059!4 
005933 
005933 
006032 
16753500 
0060t2 
0064:2 
16752000 
00613°3 
006513 
0065:3 
0066:0 
006652 
0066t2 
0067:0 
16758000 
0067:0 
0068:0 
0069:0 
006910 
006934 
006933 
006933 
0070!:0 
007042 
007082 
0071:0 
16763500 
007110 


ENND3 


NSseLPT%eMs KTRI=ST3 
ENDS 


Ye= TALLY? 
FND STREAM STATEMENTS 


IF PceCKTRIsSTD) THEN 
BFGIN 
FORGFTSPACECA#1)23 GO TO FORGET; 
END? 


AtswAgAr (583321573 
TAPEPURGECA)3 
GO To PCA} 
AU: 
$ SET OMIT = NOTCAUXMEM) 
GO To FORGET? 
MS: 
$ SET OMYT = NOT MONTITOR 
GO TO FORGET; 
LN¢ 
STREAMCASSORKTR)3 
BEGIN STtsKTR3 DIt=LOc As Ol texD1 +63 
DS?22 CHR$ 
END3 


IF Crt*P),[3636)=@37 THEN 
LOgOUTCO) FLSE 
$ SET OMIT = NOTCHISKLOG) 
IF te"ML" THEN TNDEPENDENTRUNNER( PC, LOGOUTMAINT) 200128) FLSE 
GO To FRROR} 
GO TO FORGETS 
co: 
TABLFOFCONTFNTSCKTR» TYPE=23)3 % CD=2ie PP=22» PC#23 
GO To FORGETS 
cus 
COREPRINTCCIF MIX263 THEN #0 ELSE MIXIRZZSTALII9291793 
G60 To FORGET? 
SY: 
$8 SET oMtT = NOTCSTATISTICS) 
GO To FCRGETS3 
SLi 
$ SET OMIT = NOTCSTATYSTICS) 
GO To FORGET 
RW: 
SPOIT3 
REWINDANDLOCKCKTRY3 
GO To EX]}T3 
CI? 
$ SET oMIT = NOTCBREAKOUT) 
CHANGEINTRINSICFILECKTR)3 
GO To EXITS 
cy: 
TIMFRELAXERCKTR»TYPEsMIX)# & CTS29, XT#300 TLhe3l 
GO TO EXITS 


16765500 


16766000 
16766500 


16767000 
16767500 


16768000 
16768500 
16769000 
16769500 


16770000 
16770500 
16771000 
16771500 
16772000 
16773000 
16773500 
16774000 
16779500 
16780000 
16780500 
16781000 
16781500 
16782000 


16782500 
16783000 
16783500 
16784500 
16785000 
16785500 
16786000 
16786500 
16787000 
16787500 
16788000 
16788500 
16789000 
16789500 
16792000 
16792500 
16793000 
16795500 
16796000 
16796500 
16797000 
16797500 
16798000 
16798500 
16801500 
16802000 
16802500 
16803000 
16803500 


4-4 


SS ee ee | 


Att tt st 


A AMM HH HMA At tH HH ts 


007350 
16762000 
007330 
007333 
16760500 
007333 
0074:0 
16756500 
00744 
007483 
0075%1 
007710 
16768500 
007710 
0078t3 
0079%2 
008010 
008010 
008010 
008012 
0080382 
00802 
008110 
00840 
008211 
008310 
00831414 
16781000 
0083t2 
008530 
008631 
008611 
008911 
008981 
0091410 
009130 
009232 
009310 
009310 
0097%0 
0097%2 
0097132 
0097382 
009810 
009610 
009810 
009832 
0098I2 
010030 
0100183 
010131 
010131 
010131 
010210 
010282 
0102%2 
010313 


i 


D3 
IF TyPe233 THEN KTR,CCFI8203 & XHN2320 MRe33 
NKBUSTINESSCP¢1skKTR) 3 
GO To EXIT3 
MCs 
NAMETOCT ®KTR)S NAMEIDCUeKTRIS NAMEIDC Us KTR) 3 
IF J.f626)a%e* THEN GO TO FRROR} 
IF CAtMNTRECTORYSEARCH(CT2%J24)) GEO 64 THEN 
BEGIN 
Ip J NFQ@ "OTSK " THEN 
IF CKteDIRECTORYSEARCH CI. "NI SK ",5)) NEQ@ O THEN 
BEGIN 
PCDIRECTORYSEARCHC@].J214),0FL)3 
FORGETSPACECA)3 
FORGETSPACE(K)3 
LEMESS CTs e390 29e0e 00193 
GO FERGIT3 
END 


ELSE 
BFGIN 
MrA TNX 4)8=C*PCDUP)9&201246221817884781)3 
AST=ARFUF CHL "DISK Men INX 0719618833815)3 
FORGETSPACECDIRECTORYSFARCH( I ede8) 3 
FND ELSE MEA INX 4) 2 eC ePC(DUP)8201'4622)81(884731)3 


HE ANFRUNLOCKC]»*O7SK treads 
LRMF SSCL» JeS4eTo "NI SK *,00133 
END 


ELSE LRMESSCIloJe,"9-7F Ast THEN 45 FLSE 15900001)3 
FERGIT?: 

FORGE TSPACECRUFE™@1 3 

GO To FXIT$ 
RS: 
$ SET OMIT = NOTCRRFAKOUT) 

a0 To FXIT3 
HD: 

STREAMCFULS94 ,ERRTOGP FOOSE ULI TP =@2564000000000000sCKXI80, 

KiskTR)3 
BFGIN 
Syt=xKk$ GO TO Li? 
LOt yr Secs" " THEN BEGIN SIseS]413 GO TO LO ENDS CytsCKX3 


L1: CXtecr 3 GO TO LO3 
IF SCa"™e" THEN GO FXT? 
DrizLOc FULITS TALLY?=s13 
IF 2 SCwe0C THEN % AN FU SPECIFIED 
BEGIN 
CXtsCy3 GO TO LO; 
IF SC GEQ O THEN IF SCe12 THEN 
BEGIN 
SyTtsSr+i3 DypsexLOC E£u3 
IF SC GE@ O THEN YF SC<42 THEN 
TALLY&#2 ELSE GO TO ERR} 
SrtimSpri1s CXtsTALLys 
NStsCX OCT$ GO EXT3 


16804000 
16804500 


16805000 
16805500 
16806000 
16806500 
16807000 
16807500 
16808000 
16808500 
16809000 
16809500 
16810000 
16810500 
16811000 
16811500 
16812000 
16812500 


16613000 
16813500 
16814000 
16815000 
16815500 
16816000 


16816500 
16817000 
16817500 


16816000 
16819300 
16819400 
16819500 
16820000 
16820500 
16822000 
16823000 
16823100 
16823200 
16823300 
16823400 
16823500 


16823600 
16823700 
16823800 
16823900 


16824000 


16824100 
16824200 
16824300 


16824400 


16824500 
16824600 
16824700 
168248600 


AA HHA TH HH HAHAHAHA 


4aast as 


4444 


AA HAA HHA 


a ee eee 


010481 
010414 
010613 
040733 
010811 
0108391 
011191 
011380 
0115%2 
011680 
011633 
011982 
012010 
012183 
012212 
012331 
0125153 
012830 
16809500 
012810 
012830 
012882 
013203 
013681 
013810 
16843500 
014431 
014630 
044831 
16808000 
014881 
015412 
0154!:2 
015533 
015611 
015684 
01561 
015633 
015633 
015812 
015980 
015910 
0159!2 
16823500 
016033 
016131 
016230 
0162t2 
016310 
016310 
0163%2 
046482 
016432 
016540 
0166!0 
016683 
016724 


FADS 


FND 3 


FRR: ERRTOG?t#TALLY3 


EXT3 
ENDE 


IF P THEN GO TO 
IF CHN1t=P4+1)>0 THEN IF HNt LE@ NEUP.CFF) THEN 


HN2$=HN { 
BEGIN 


HNG ts { 
HN2t=NEUP, FFF I]3 


ENDS 


SET oMyT 


FOR ¢tsHNi STEP 1 


ERROR} 


NOT SHAREDISK 


FLSF GO TO FRROR FLSE 


UNTIL HN2 DO 


IF NOT CNT2#eUCYJ),EUNP THEN %& NOT A DUMMY EU 


REGIN 


INT4t=CTNTIS=NT2,STARTWRD) MOD 303 


INT22=30"(KS=(NT2 AND NUMENTM)4¢R4) MOD 304K} 


JteNT1 DIV 304USERDISKBOTTOMS 
FIXARRAYCUT»R»A)} 


$ SET OMIT 


FOR NTissKe2 STEP @=4 UNTIL RA DO INT3teJ+UTONTIJ.£3°19F3 
STREAMCAI=y"1,B3S TF Url}).SPEED=1 THEN *F" ELSE "SH, 
CISUCTI].C 38210 1 +DtsJeFsS FULT], 61220)» 


BEGIN 


ENDS 


NOT SHAREDISK 
DISKWAITC™ReAs J)? J8203 


FisAsteSPACE(10))3 


STtsLOc A3 


DSte4 LIT* EU 3 DSts2 DEC 


AtsDIl3 NTt=Ol=23 OStery LL: Dp teas 
OSteLyT*c"3 SypsaSte7s HSteCHR3 


DS:z10 
Ate2DI3 
DSt#14 
At=xDI3 
OSt=2=14 


L1T")» 
NpesDfo 


NO, 
33 


AVa"s DSts3 pecs 
DSts2 FILL Dy teas 


LiT%s TOTAL AV=s"3 DSt#6 DECI 


DytsDJo= 


LyT* SE 


63 
GS, 


DS?s5 FILLS Dyrisad 
MAX AVeE"™s DSt=6 DEC 


AtsDI3 DTt=D1-63 OSt#=5 FILLS Opten3 
DS:=6 LIT" SEGSen$ 


FORGETSPACECR)} 
SPOUTCARZZSTALIS9I9I)3 
FND3 % FLSE TF HNISHN2 THEN GO TO ERROR? 


£ SET OMrT @ NOT SHAREDISK 


RA 


HNiSeKTRX,£986)3 & SET wMIX® BACK TO ORIGINAL VALUE 


GO To FORGETS 


IF MyXsP2MIX THEN 


BFGIN 


HALTS HALTED 


ENDS 


t= TRUE; 


SEGDICT te PRTICM]X.4)3 


16824900 
16825000 


16825100 
16825200 
16825300 


16825400 
16825500 
16825600 
16825700 
16825800 
16825900 
16826000 


16826100 
16826500 
16826600 
16826700 
16826800 
16826900 
16827000 
16827100 
16827200 
16827900 
16828000 
16828100 
16828200 
16828300 
16828400 
16828500 
16828600 
16828700 
16828800 
16828900 
16829000 
168297100 
16829200 
16829300 
16829400 
16829500 


16829550 
16829600 
16829700 


16829800 
16830100 
16830200 
16850300 
16850700 
16850800 
16850900 
16651000 


16851100 


a4 


AHN AAR AHA HANA AHA AAA OHHH HH 


a+ 


“+ 


016810 
16824300 
016840 
16824000 
016810 
016831 
016831 
16823300 
016882 
016981 
017212 
017313 
017610 
017613 
017810 
16825700 
017830 
017810 
0179140 
018033 
016191 
018342 
018734 
0189:0 
019384 
O193'14 
019512 
020211 
020681 
020910 
02112 
024112 
021213 
021313 
0214:3 
021682 
021782 
021942 
022082 
022233 
022313 
022433 
16828400 
022530 
022533 
022810 
16826700 
023081 
023011 
023112 
023210 
023230 
0232:3 
023341 
023412 
16850800 
023412 


@ 
1F Pe MrLOCNS=PRICMIX+8),CCFJ]» TOPs XCH» DEL ) THEN SEGtxADRIa0 16851200 T 023610 
ELSE 16851300 T 024010 6 
DO BEGIN 16851400 T 024381 
IF PCMELOCNI, TOP> XCHe Op INX» .ADR» STD) THEN & OVERLAID RCN 16851500 T 024133 
BEGIN 16851600 T 024434 @ 
TF NOT MELOCN1.0£3321) THEN % NOT TYPE 13 INTRINSIC 16851700 T 020493 
REGIN 16851800 T 024612 
SEGtSADR$ % SEGNO IN RCW 16851900 T 024730 q 
Rts03 ® ADJUST FOR SUBSTRACTION BELOW 16852000 T 024733 
ADRE=MrPMrPLOCN],MOM).(CF)$ & REL.ADR.IN MSCW 16852100 T 024832 
END 16852200 T 025183 a 
16851800 
ELSE SEG t= ce4)3 16852300 T 025133 
END 16852400 T 025331 e 
16851600 
ELSE 16852500 T 02531 
BEGIN & PRESENT RCW» CHECK THE LINKS 16852600 T 0253? a 
R$=0} 16852700 T 025333 
WHILE cCSEGt=MCR],6°CF}]) LSS ADR DO 16852800 T 025412 
IF SEG GTR R THEN RtaSeG ELSE PUNTCCPUNTERE25)))3 16852900 T O25732 @ 
SEGizIF MfR),AREATYPEFSCODFAREAV THEN MCR41},°CF) ELSE OF} ¥ 16853000 P 026182 
TE PCPRTROWEMIX]»®OsINX»DUP) GTR R AND PCXCH) LSS MER]<fCF) THEN 16853100 T 026711 
Ru te "PRT oF 16853200 T 0269!2 e 
RigR+2} 16853300 T O272!2 
PNDS 16853400 T 027333 
16852600 6 
IF PRTCMIXe8},°CF] NE@ LOCN OR MELOCN@=1],MSFF THEN & MARKED 16853500 T 027333 
Do LOCNt=MCLOCN).+MOM UNTIL NOT MELOCN),MSFF$ & GET LAST MSCW 16853600 T 027830 
LOCNI=MCLOCN),MOM$ & POTNT LOCN TO NEXT RCWeJUST IN CASE, 16853700 T 028283 e 
END 16853800 T 028433 
16851400 
UNTIL, 16853900 T 028433 e 
CIF SEG NEQ@ O THEN IF SEG = (71) THEN O 16854000 TY 0284:3 
FLSE CSFGDICTELO] LSS SEG OR NOT SEGDICTLSEG]ePBIT) 16854100 T 0287:0 
FLSE PCMPR=2).(3t12]» DUP) NEQ@ @700 AND PC(XCH) NEQ @1500) 16854200 T 028911 e 
OR LOCN«O 16854300 T 029433 
ADR t= ADRER} 16854400 T 029633 
STREAMCMIX» WAMtSLJAREMIX+O]]» Tte0s SEGe ADR» 16854600 T 0298:0 e 
SYLIEMEPRTIEMIX*©B81) 671082)» TOGLIECRG NEQ@ O)e R4e 16854700 T 0300%4 
TOG2tS(SEG LEO 0)» pt=BUFF@1)3 16854800 T 030332 
BrGIN 16854900 T 030534 e 
DStaLIT™ "3 16855000 T 030534 
STHENAMS OCSTESS14+13 DSLE7CHRS DSHSLIT"/™)$ DISEDIALS 16855100 T 030513 
nSteaeLiT" 2%; SyislOc MyX3 DStz20EC} 16855200 T 030733 6 
TOGICSI$SLOC R4% SltaSfels DStaL1T™ 3 DSte7CHREGUMP OUT TO xxIT)3 16855300 T 030833 
TOG2CDS#S14L1T" NOT AVATLABLE™S JUMP OUT TO XXIT)3 16855400 T 031181 
OSte5LyT" Segets SttebLOe SEGS DSt=4DEC3 16855500 T 0314:2 e 
TtaDTs Dit=eD7 "43 OSte3FyLLs Otel} 16855600 T 0316:0 
OSteSLIT" ADR=*$ DSteGDECs 16855700 T 034730 
TreNt$ DtseDe4$ DSte3FTLLs Dytel3 16855800 T 0318! & 
DStetyThse: SpesSp+73 DSISCHR3 16855900 T 034934 
XX1TS DSteLy Tens 16856000 T 032084 
END STREAM STATEMENTS 16856100 T 032083 8 
16854900 
IF HALTED THEN NOPROCESST0G t= NOPROCESSTOG “45 16856200 T 032120 
GO To ERRORS 16856300 T 032340 e 
an %139= 16866400 c 032510 
$ SET OMyT = NOTCBREAKOUT) %139= 16866405 Cc 032530 ® 
] 


GO To FORGETS 

FORGET! 
STREAM(TIt=BUFF@y)s DSte LyT tet} 

$ SET OMIT = NOTCPACKETS) 

UNIT TNO##03 

$ POP OMIT 

FRROR!S 
SPOUTERCCBUFFT1) INX ZZSTAsUNITNO®141)3 

FXTT! 
TF OMYX>O)ANDOCMEXSMEXMAXITHEN TABCNTEMIXJ]¢TABCNTCMIXI@13 
KILL ¢CMSCWJ)3 
ENN PROCEDURE KFYIN23 


%139" 


Zii3- 


16866530 
16902500 
16902600 
16902649 
16902650 
16902651 
16902700 
16902800 
16902900 
16902950 
16903000 
16903100 


032570 
032512 
0325%2 
0328180 
032610 
0328:3 
0328:3 
0326:3 
03311 
0331431 
033732 
0338: 4 
16691000 
SIZE 0339 WORDS 


AA VARHAa AHO 


STACK(F +0) 
STACK(Fe2) 
STACK ¢F 42) 
STACK(F43) 
STACK(F44) 
STACK¢F 45) 
STACK(F 46) 
STACK CF 47) 
STACK(F47) 
STACK(F 47) 
STACK eF 410) 


STACK ¢Fe11) 
STACK ¢F4i1) 


STACK¢(F 412) 
STACK (F412) 


STACK (F413) 


REAL PROCENURE KEYINCR)} VALUF BS RFAL BE 


STACK¢F43) = BUFA 


STACKe F414) 


¥ THIS PROCENURE FUNCTIONS AS A DRIVER FOR AUXTLIARY PROCEDURES 
¥ MKEYINOM,MKEYING* AND "KEYIN2*, PROCEDURES *KEYINO® AND "KEYING® 
% ARE CALLFD DIRECTI,Ys» AND PROCEDURE "KEYIND* 1S CALLED AS AN 
% INDEPENDENT RUNNER. 
BEGIN 
REAL RCW = + 03 
RCW 
REAL MSCWs=?; 
MSCW 
INTEGER ZZSTA = RCW’ + 23 
ZZSTA 
REAL BUFF = Z7STA + te 
BUFF 
KTR = BUFF + le 
KTR 
TYPE = KTR * 1» 
TYPE 
MYX = TYPF + je 
MIX 
A = MIX + 1» MIXCODE = A» KTRX = Ap 
A 
MLXCODE 
KTRX 
I =z A + 1» 
I 
J = J + 1» RYJEOK = Jp 
J 
RJEOK 
K z J + 1+ PROCEN = K3 
K 
PROCEN 
NAME ADDR = k + 13 ARRAY BUFA = BUFFE*]3 
ADDR 
INTEGER T =z ANNR + 43 


T 


S$ SFT oMrT = NOTCPACKETS) 
DEFINE UNTTNO = PSEUDOMI XE MIX) #3 
$B POP gMyT 


LABEL STARTs CHECK» SWITCHTTs FORGET*® ERRORe TBLERR» 


LABEL RESTART3 


P(Bs Os Os Op Op Os Oo Os Ov 023 & NOTE P(BIBZZSTA 


P«O>s! & T 
START! 

IF ABS¢B) GTR 4 THEN BUFFS=R.0FF] ELSE 
BEGIN 
BUFF t= GETSPACE(60eKEYINBUFFAREAV,0)433 & 

$ SET oMIT = NOTCDCSPO AND DATACOM) 

MrBUFF INX NOT 2),(986] %e OF 
PcWAITIOCBUFFR1(2424781)20025)0 DEL) 
ENDS 


EXIT: 


x801° 


x801° 


z601= 


%167= 


6904000 


{ 
START OF REL SEGMENTS DISK 


16904500 
16905000 
16905500 
16906000 
16906500 
16907000 


16907250 
16907500 
16908000 
16908500 
16909000 
16909500 


16910000 


16910500 
16911000 


16911500 


16912000 


16912100 


16912500 
16912999 
16943000 
16943001 
16913500 
16914000 
16914100 
16914500 
16947500 
16947600 
16918000 
16948500 
16919000 
16919500 
16920000 
16921000 
16921500 
16922000 


AHHH APH 


— 


hor) 


244 tO tO tt 


DoR 


000070 
ESS = 00494 
000030 
0000:0 
0000:0 
0000:0 
0000:0 
000030 


000010 
000030 
000080 
0000:0 
0000:0 
000010 


0000:0 


000080 
000080 


000030 


000010 


0000:0 


0000'0 
0000:0 
000030 
000070 
0000:0 
000080 
000030 
000030 
000030 
000283 
000340 
0003!0 
0005%3 
0006%1 
0008%2 
000832 
00120 
001432 
16919000 


& SET OMIT = NOTCMCSPO AND DATACOM) 
RESTART? weors 
-MEBUFF@2)%20RZ2ZSTALIS989)3 


KTR t= BUFFS 
TYPE ¢ KFYINSCANCKTRoM]X)3 %801= 
TF ¢PROCENe TYPE, £125)])81 AND CCIeTYPE,CCFI)28 OR [VCC ¥801- 

OR 1233 OR 1834) OR ¢PROCFD=0 AND 121) THEN ELSE % SSpCCr0Ce FEA AX 
BEGIN ¥801« 
STRFEAMCKTReJ2)3 ¥801= 
BEGIN StT#KTR3 ¥801= 
Bc6OC TF Seca?" THEN #801" 
BEGIN Lt Stle#SI4l3 Z801° 
63¢S{eST4l3 IF ScH"""™ THEN JUMP OUTS £801° 
IF Sc="e" THEN JUMP OUT 3 TO YFCH)s 
St«St443 x801= 
IF Sce ew THEN GO TO L3 £801" 
END} x801¢ 
IF Scate" THEN JUMP OUT 2 TO YECHS ¥801= 
IF Sc#"3" THEN Z801= 
REGIN #801" 
TeSI3  TALLYe13 e801" 
DIle*ls ODS*LIT "ers x80i= 
Xt SyeSyr+ts Te Scats"” THEN GO TO X33 JeSI3 %801" 
JUMP OUT 2 TO YECH3 x601= 
ENDS SYeSI+1))3 x801° 
YECH! KTR*TALLY3 ¥801= 
END STREAMS ¥801" 
I*P3; JF P THEN z801i= 
STREAMCTs TeTeGFTSPACE(6220°0)+43)3 %801= 
BEGIN %801= 
Slel3 %801* 
BCOOCIF Scste" THEN JUMP OUT 2 TO L ELSE DS*CHR))3 LiDSeLyITte"3 
END STREAMS x801" 
END cHECK FOR KFYIN RECYCLF3 78018 
IF PROCFD=7 THEN GO TO TBLERR? %801° 
KTR t= KTR g@ RUFFL15933%15)3 


RJEOK t= (MIXCODET=TYPE.6616)) GEQ@ 43 
MIXCODF t= CMIXCONE xCMIX NEQ@ 63)) AND 33 % ACTUAL MIX CODE 


TYPE t= TYPE.CCFI3 
IF TyPrsO OR MIX,€1%2)#0 THEN &* EMPTY OR ERROR 
BFGIN 
If MIX,C1%1] THEN ® EMPTY BUFFER 
BEGIN 
KEFYINtsTRUES GO TO FORGET! 
END 


ELSE GO TO ERROR} % TYPeeO OR MIX,(294] 
END} 


& SET OMIT = NOTCMCSPO AND NATACOM) 
CHECK! 


TF MyXcODF=1 OR MIXCODE&2 THEN & MYX INDEX REQUYRED 


16922499 
16925100 
16925500 
16926000 
16926010 
16926020 
16926022 
16926030 
16926040 
16926050 
16926060 
16926070 
16926080 
16926090 
16926100 
16926110 
16926120 


16926125 
16926130 
16926140 
16926150 
16926152 
16926154 
16926160 
16926170 


16926180 
16926190 


16926200 
16926210 
16926220 
16926230 
16926240 
16926250 


16926270 


16926500 
16927000 
16927500 
16928000 
16928500 
16929000 
16929500 
16930000 
16930500 
16931000 
16933500 


16934000 
16934500 


16935000 
16946600 
16947000 


2iehe eke ewe eke hekeke keh. i kek. | 


AOagaanan oo OOo onraaano 


io] 


ee rr i) 


44 


0014492 
0014!%2 
001412 
001782 
001834 
004983 
002333 
0029380 
002982 
003033 
003130 
003230 
003231 
0033!83 
0035%2 
003533 
003632 
16926070 
00362 
003733 
00361 
0036%1 
003833 
003912 
004033 
004112 
16926140 
0042%1 
0042:2 
16926050 
004233 
0043s 
004633 
0046:3 
0047:0 
0050?1 
16926220 
0050:2 
16926030 
005032 
0051193 
0053!2 
005533 
0058:0 
005931 
006122 
006210 
0062:3 
006331 
006412 
16930500 
006442 
006432 
16929500 
006432 
0064:2 
0064:2 


BEGIN 
TF MIX GTR MPXMAX THEN GO TO FRRORS 


TF JARGMIXe¥* 720 THEN GO TO ERROR? & JOB MUST BE RUNNING 
Te MIXCONF=1 THEN % JOB SHOULD BE WAITING FOR THIS [INPUT 


BFGIN 
JIsREPLYCMIXI]3 
WHILE uy LSS 0 NO 
BEGIN 
IF JeC42t61=TYPF THEN GO TO SWITCHIT3 
Jseed,r6?36)3 & SHIFT RIGHT 
END} 


IF TYPE=VWY THEN & "WY, NOT WAITING FOR IT 
RFGIN 
MEPRUFFeLIterLAgcnmmWyY NOT*aMIX(614226))3 
MPRUFF J $20&8(@1437)(1937%11)3 
END3 


GO TO FRROR; 
FNDS & IF MY]XCODE = 1 OR 92 


SWITCHIT? 
TABCNTCMIXISSTARCNTCM]X]4143 
$ SET OMYT = NOTCPACKETS) 
tr PSEUDOMIXrMYXJ#40 THEN 
REGIN 
STREAMCBUFF. J © J «© SPACE(16)) 3 & 
REGIN SI*BUFFS 0S620 LIT "+4OPERATOR KEYED IN? 


x7120 
%712= 


2(50C1F SCemet THEN JUMP OUT 2 TO AXETS DS*+CHR))32712= 


AXET! DSeLIT te" 3 
END 3 % 
SPOUTERCU+UNTINO ®64)3 & 
FND 3 & 
$ POP OMIT 


END’ % IF MIX INDEX REQUIRED 


KTRX t= KTR & MIXE984296) Q@ TYPES 2t41t7)3 
IF PROCFN=2 THEN 
BFGIN 
IF JOBNUM 2 JOBNUMAX"10 THEN % BED 1S GETTING FULL 
BEGIN % LETS IGNORE THIS MESSAGE 
MEBUFF PL] @@FLAGC "WATT. oe %)3 
GO TO ERRORS 
END? 


MPBUFF*1] %# As % PASS VALUE TO PROCEQURE 
TNOEPENDENTRUNNERCNT{9SPC, KEYIN2) oKTRX0140)3 
END 


ELSF IF PROCEDs1 THEN KEYINICBeKTRX) ELSE KFYINOCB,KTRX)3 
GO To EXITS 
TBLERRS 
STREAMCKTR»BtsBUFF@1)3 
BFGIN 
SrisekTRe STteS1723 OSteLIT es OSSS2cHR3 


%712= 
%712= 


z712" 
z712° 


x801- 
%801= 
xB801= 
%801° 
7601 


16947500 
16948000 
16948500 
16949000 
16949500 
16950000 
16950500 
16951000 
16951500 
16952000 
16952500 


16953000 
16953500 
16954000 
16954500 
16955000 


16955500 
16955600 


16955800 
16956000 
16956019 
16956020 
16956030 


- 16956040 


16956050 
16956060 
16956070 
16956080 


16956090 
16956100 


16956121 
16956500 


16957500 
16958000 
16958500 
16958600 
16958610 
16958620 
16958630 
16958640 


16959000 
16959500 
16960000 


16960500 
16961000 
16961500 
16962000 
16962500 
16963000 


At AAs HAHAHA HSS 


4-4 


DUD UU 4-4-4 


vv 


(eoeoneheone lh bm.) -—a- 


a4-~ 


AHA Ha 


006631 
0066!3 
0068!0 
0069%2 
007014 
0070:3 
007423 
0073140 
0073!0 
0074!3 
0076%1 
16951000 
0076!3 
007732 
0078:0 
008 ,i2 
008420 
16953500 
0064:0 
008610 
16949500 
008630 
008610 
008981 
O089!4 
0090%4 
0090:3 
009333 
009623 
009931 
009933 
16956050 
0100:0 
0101732 
16956030 
0101%2 
010132 
16947500 
0101!2 
040431 
0105:0 
0105%2 
010633 
010731 
010933 
011230 
16958610 
011290 
011430 
011593 
16958500 
011583 
0120:0 
0120:2 
0120!t2 
012230 
0122:0 


DOSts21L1T" NOT COMPILED IN MCPe"3 
ENDS 


FRROR? 
SPOUTC (BUFF@1) INX CORZZSTALI9II929))93 
KEYIN % TRUE; 
G0 To FXYT 
FORGET! 
STREAMCT?sRUFFIEeBUFFR1)S DStaL] Te" 
' SPOUTCRUFF INX ¢O&ZZSTAL9I989)))3 
FXITS 
1F T>O THEN & ANOTHER MESSAGE 
BEGIN 
BUFF eT} Te03 
GO RESTART} 
END$ 


IF ARS(B) LEQ@ { THEN 
BEGIN 


¢801 
£801 
2801" 
ZB01= 
x6018 


IF CKEYBOARDCOUNTER? wKCYBOARDCOUNTER®@1) GTR O THEN GO TO STARTS 


KFYROARDCOUNTERS=03 
END 


IF B THEN KILLCPMSCHI)3 
END PROCEDURE KEYIN3 


16963500 
16964000 


16964500 
16965000 
16965500 
16966000 
16966500 
16967000 
16967500 
16968000 
16968100 
16968110 
16968420 
16968730 
16968140 


16968500 
16969000 
16969500 
16970000 
16970500 


16971000 
16971500 


a4 


MONON N09D AAR AAAS 


4AAo4-44 


a4 


012331 
0126%1 
16962500 
0126:2 
0126%2 
032983 
0430382 
013130 
013130 
013382 
013631 
013631 
043730 
0137%2 
013930 
013932 
16968110 
043972 
0140:2 
014130 
014331 
014480 
16969000 
014430 
0145%2 
16906500 


SIZE= 0146 WORDS 


REAL LBMSGCONTROLS 


PRT¢636) = |,RMSGC 


ONTROL 


PROCEDURF LRMESSCFNsSNoTlot2ere UNI TNOX)5 


BR DR Be BA FA DR DE FA Fe dQ 


16995000 
17000000 


START OF REL SEGMENTS DySK 


VALUE FNsSNolteT2sEeUNTTNO,X3 
REAL FNeSNoltsT2eEr UNIT TNO, XS 
FORO RIGO IG OIG OIG IO OI RR RRR IGOR ORO RGIOIOIOIR IG IOI OR RIOR HOO HOR aoiakok 


PARAMETERS 

1! 12 E FORM OF MESSAGE 
LSS 0 0 « FN/SN [1 
L§S 0 GTR 0 0 e FN/SN NOT 11012) 
LSS 0 GTR O NEQ@ O « FN/SN NOT T1CT2)° € 
GTR 0 0 0 FN/SN 11 
GTR 0 0 NEQ@ 0 FN/SN Ife E 
GTR O GTR O FN/SN JT1 12 
52. 0R 54 FN/SN I1 12/E 


ENOTES yF 11 


% 


IS NerTHER 52 NOR 54 THEN It AND JY2 ARE INDICES [NTO TaBL 


ELSE 12 AND € ARE MFID AND FID, 


SEM eH ate ete ah a ate ap RR ake Rae he af ae af ade ate ake ate i age aie tee ic ake hc take ke eee 


STACK(F41) = T 
STACK(F42) = A 
STACK(F43) =x COUN 


RFGIN 
ReaL Te 


T 


A» COUNTS 


LBMSGCONTROL, FFF] %= COUNT t= LBMSGCONTROL,EFF] + 13 


IF NOT ¢LBMSGCONTROL,£22¢)) THEN 


% ITS NOT IN CORE == 


TF COUNT > 4 THEN BEGIN 
SLEEPCLLBMSGCONTROLJ, &1000000000000000)3 
% WAT = SOMEONE FLSE IS GETTING {T 


END ELSE BEGIN 


% GET JT YOURSELF 


t= MESSAGETABLEC4),(824073 
LBMSGCONTROL = cGETSPACECAs220342) & LBMSGCONTROLUFTFI3 


DISKWAITC@CLBMSGCONTROL,FCFJ)» As MESSAGE TABLEL4),[(22126)])3 

LBEMSGCONTROL, (2:1) %=2 13 &% MARK PRESENT 

MELBMSGCONTROL*@1) t= PC,,LBMSGCONTROL) & ACCTFIJS BLINK WO 2 

MELBMSGCONTROL@2) s= C*PCDUP)) & @200(2:35313)3% LINK WORD 1 


A 
$VOID 
ENS 
STREAM 
CA te 


[FN], 


1 t= 11<0, TBL1 &= LBMSGCONTROL JINX ABSCI1)» Ee 


L fe 11 < O AND 12 # 0, J t= 71852 OR J1254, 
B te TF PCOUP) THEN (12) ELSE CLBMSGCONTROL INX 12)» 
T t® SPACE(10))3 
BEGIN [COSteLIT",%)3 HSt=aLyT™ 3 SItsas | 
IF SCe%e" THEN BEGIN nSraLIiT*a"3 STs*Sr+83 END 


T 12 


FLSE BEGIN ST8eSt413 DS!27CHRS ENDS OSteLIT*/ 43 


IF Sca"+" THEN BEGIN pStsLiT*="3 Srs2S7483 END 


ELSE BEGIN S!iteSy493 OSte7CHRI END? 


DStsLIT™ 3 LCDSteaLIT*NOT *)3 Slaw TBLi1? 
63cSytsSy47s 7CIF Scere THEN JUMP OUT 2 TO Lt FLSE DSteCHR))3 


17000200 
17000400 
17000405 
17000410 
17000420 
17000430 
17000440 
17000450 
17000460 
17000470 
17000480 
17000490 
17000500 
17000510 
17000520 
17000530 
17000600 
170008600 


17000900 
17001000 
17001300 


- 17001400 


17001500 
17001600 


17002000 
17002600 
17002800 
17003000 
17003050 
17003190 
17003130 
17003150 


17003200 
17003250 
17003300 
17003400 
17003450 
17003500 
17003550 


17903600 
17003700 
17003750 


17003800 
17003850 


T 
T 


000030 
0000:0 


ADDRESS # 00499 


i er 


AAMAS 


“ttt st a 


000030 
000030 
000030 
0000:0 
0000:0 
000030 
000030 
0000:0 
000010 
000030 
000080 
000080 
0000:0 
000030 
000080 
000010 
000030 
000030 


000030 
000332 
0004%2 
000634 
000733 
000733 
17001300 
001080 
0014122 
001431 
001481 
004710 
001833 
002181 
002412 
17001600 
0024t2 
0024:3 
002730 
0030%2 
003213 
003581 
0037381 
17003550 
003832 
17003600 
003933 
17003700 
0044120 
17003750 
004133 
004410 


Lis Sypseps 
JCYF SCs"+" THEN BEGIN DStSLIT*="3 SyseS1+8% END 


FLSE BEGIN SI##Sl413 DS#e7CHR ENDS DStsLyITtss3 
TF SCa™+" THEN BEGIN OSteLIT*="3 Spse2S[+8s END 
FLSE BEGIN SIt2S]+14 OSte7CHR ENDS JUMP OUT TO 1,3)3 


LenSteLyTye 3 

63cSTisSy4ys 7CIF SCewew THEN JUMP OUT 2 TO L2 ELSE DSteCHR))3 
L2!: LenSteLrT* "3 STtaLoc fs SytsS14+53 

IF SC NEQ "0" THEN BEGIN DSte2LIT%> "3 DOSte3CHRe ENDS 


L33 OStaLy Tes 
ENns &STREAM 


SPOUTERETRUNITNOPIEIS9D SUNT TINO,X)3 
LBMSGCONTROL. FFF &* LBMSGCONTROL.EIFFI = 93 
ENDS XLIBMSG 


17003900 
17003950 


17004000 
17004050 
17004100 
17004150 
17004200 
17004250 
17004300 


17004600 
17005200 


17005400 
17005600 
17007000 


004710 
004781 
17003950 
004910 
17004000 
0050!%1 
17004050 
0051%2 
17004100 
005310 
005431 
005731 
005930 
17004300 
006081 
0060383 
17003500 
006410 
006311 
006532 
17000600 


SIZE# 0066 WORDS 


PROCENURE STOPM¢(NCS)3 VALUF NeS$3 REAL NCS3 


17900000 
17900500 


START OF REL SEGMENTS DySK 


BFGIN 

INTEGER PROTY3 
STACK¢CFe1) = PROTY 

REAL B? 
STACK(F 42) = B 

LABEL AROUNN,OUTITS 

$ SET OMIT = NOTCWORKSET) 
REAI Ne AUTOSTOPS 


STACK¢(F43) = N 
STACK¢F 44) 2 AUTOSTOFP 
AUTOSTOP t= ¢(WKSETSTOPJOBS AND TWOCPIM1X)) NEQ O3 
JARFPIMIX+9O) £389 19e9% F MARK TT STOPPED 
WKSETSWITCHTIME te CLOCK + PcRTR)3 
& POP oMI7 % WORKSET 
PROTY tm PRYORCPIMIX)2 & SAVE THE PRIORITY LEVEL 
PRYOR(PIMIX)%2@47773 
IF NOTFRMSETCPIMIX) THEN PRTROWPPIMIX] ,CPSFII=03 
IF JARCPIMIX,9], C181] THEN 
BEGIN 
COMPLEXSLEFPCCTERMSETCPIMIX) OR JARCPIMIX09],(181]20))3 


15114700 ACCIDENTAL FNTRY AT O 
GO OUTIT3 
ENO? 
AROUND! 
STREAMCJUISJARROWEPIMIX]» PyMyXe 
$ SET OMIT = NOTCWORKSET) 
AUTOSTOP, 
£ POP oMIT % WORKSET 
RP $2 B te SPACEC10)93 
BEGIN 
$ SET OMIT = NOTCWORKSET) 
AUTOSTOP(HOSteiILIT*#AUTO*STOP *3 JUMP OUT TO Li1)3 
$ POP OMIT % WORKSET 
NStxt3LITVe#FOPRTR ST-rp 3 
Lis Speeds 2CST&=xS1+13 OSt=7CHR? HNSt=aLItTs")3 
Nrsenyr1s OStebLyTh="3 SpteLOc PiMIXs pSte2neEec3 
DSteLIT"™e"s HLisDI733 DSteF TUL 
END STREAM STATEMENTS 
SPOUTC(B)} 
IF AUTODS THEN REPLYCPIMyXJeVOK FLSE 
PEG] 
KREPLYCPIMIX]s= eVWY & VOKL36:4236)3 
COMPLEYSLEEPCCTERMSETCP1M7X) OR REPLYLPYM1X) GFE 0993 
17906250 ACCIDENTAL FNTRY AT O 


ENDS 


IF NOTERMSETCPYMIX) THEN & MUST BE "WY" OR "OK" 
BEGIN 
$ SET OMIT = NOTCWORKSET) 
Ip AUTOSTOP THEN 
1F REPLYCPIMIXIJ&VWY THEN GO AROUND ELSE ELSE 
£ FOP OMyT & WORKSFT 


£747" 
2747= 


“747@ 


17901000 
17901500 


17902000 
17902500 


17903000 
17903500 


17904000 


17904500 


17904600 
17905000 
17905500 
17906000 
17906100 
17906150 
17906200 
17906250 


17906300 
17906350 


17906500 
17907000 
17907500 
17908000 
17908500 
17909000 
17909500 
17910000 
17910500 
17911000 
17911500 
17912000 
17912500 
17913000 
17913500 


17914000 
17914100 
17914200 
17944500 
17945000 


17915100 


17915500 
17916000 
17916500 
17917000 
179147500 
17918000 


T 000030 
T 000010 


ANORESS & 00502 
T 000080 
T 000080 


T 000080 
000010 


000030 
000080 


+44 


000030 
00031? 
000632 
000611 
000881 
000934 
001082 
001510 
001682 
001730 


Ansa 


002533 
002631 
17906200 
002631 
002631 
002731 
002731 
0027:2 
0027%2 
003030 
003080 
003030 
003330 
003320 
003530 
003613 
003830 
003930 
17909500 
003981 
004082 
004310 
0043382 
004630 


44 


Soe Men Nien Nee Neen ee ee Be ee ee ee 


AHO 


005333 
17944200 
005313 
005531 
005533 
005533 
005610 
0058:0 


Aas 


Te NOT WHYSLEEPCVWY&VOKP36%4236)) THEN GO AROUNDS 
REPLYFPiMyX] e203 

OUT;T? 
PRYORIP{My]X}texPROTY3 

$ SET oMyIT = WORKSET 

$ SET oMIT = NOTCWORKSET) 
JARCPIMIX,9],030117%=03 % MARK IT RUNNING 
OLAYTIMELPIMYTX]&= C#PCDUP)) x 0,803 
% SFT THE OLAY TIME BACK NOW TO PREVENT THIS 
% JOR FROM BEING IMMEDIATELY ST*ED AGAIN 
END 


3 - 
FOR NtsO STEP 1 UNTIL STQUFMAX DO 
IF STQUEEN] = P1MIX THEN STQUFCEN] te O08 & REMOVE FROM QUEUE 
WKSETSWYTCHT IME ta CLOCK4sP¢RTR)I3 
WKSETSTOPJOBS22WKSETSTOPJOBS AND NOTCTWOCPIMIX))3 
$ POP oMyT & WORKSET 
IF NcS THEN GO TO INITIATES 
END PROCEDURE STOPM$ 


¥138= 


17948500 
17939000 
17919100 
17919500 
17920000 
17921500 
17922000 
17922500 
17923500 
17924000 
17924500 


17925000 
17925500 
17926000 
17926100 
17926500 
17927000 
17927500 
17928000 


00586:0 
006013 
006210 
006230 
006321 
0063!1 
006331 
006631 
0068:1 
006831 
006834 
17916000 
006834 
0068631 
007030 
0075:0 
007613 
007932 
007912 
008033 
17901000 
SIZFE2 0081 WORDS 


AA Ft 


ee ee i) 


PRT(637) «= 


PRT¢(640) = 


STACK ¢Fal) 


STACK EF e2) 
STACK ¢F 43) 


STACK ¢F 44) 


17915000 


PROCEDURE TYSKTASKS$ 


TISKTASK 


FORWARD; 


PROCEDURE FILEHOLD(AsBeTOGsLOCe HOLD) 3 


FILEHOLD 


VALUE LOCsHOLDS 
REAL, AeBeTOGeLOCeHOLD3 


BEGIN 


REAL, SZY»sT3 


$ SET omMIT = NOT SHAREDISK 
ARRAY HOLDLIST¢e¥*13 


z HOLOLIST 


LABEL SLEPE3 
DEFINE DSENaTERMSETCPIMIX)#3 
IF WOLD THEN 
BEGrN 


TF TOG 


£ SET omtT = NOT SHAREDISK 


$ POP 


SLEPE! 


ACCIDENTAL 


OMIT s 


END 


IF MCLOC+4),(3%1] THEN 


oMIT = 
ELSE 


IF (SZ*e CY? sHOLDER,£FF1)+1) GTR HOLDMAX THEN 


THEN TOG*TOG#4 
BFGIN & MAKE AN ENTRY 


ELSE 


IN THE HOLDL IST 


BYBYC"HOLD LIST OVERFLOWe%s2419)3 


HOLOLIST#=€M¢SPaCE(SZ911&S5Z68:38:10)3 


tf Y#O THEN 


DISKWAITC@#CHOLOLIST INX OJ eYeHOLDER,CCFI)3 
HOLDER CFF I&2SZ3 

HOLOLISTCY J] teLOc CFF IRC TOGICCTFIRSYSNO[2246:2)3 
DrSKWAITCHOLDLIST 


NOT SHAREDISK 


INX OsSZsHOLDER.CCFI)3 


FORGETSPACECHOLNLIST)3 


NOT SHARENDISK 


BFGIN MrLOc4d)] C3314] 3543 
DISKWAITCLOC. ©Cr).730,LOC.LFFI)3 


FND3 


OMIT = SHAREDISK 
UNLOCKNIRECTORY3 


OMyT 


tf PaMyX#0 THEN 
BEGIN Ti mVWYSCVIF XA, £321))6 368422635 


IF TOGO THEN 
FILEMeESS("# 


REPLYCPIMIX]¢e"T3 
COMPLEXSLEEPCREPLYLP1MIX]20 OR DSED OR T0G)} 


FNTRY AT TOG 
IF NOT WHYSLEEPCT) THEN GO TO SLEPES 


es Aspet 


IN USE%2000,0)3 


17928500 


START OF REL SEGMENTS DISK 


18000000 


START OF REL SEGMENTS DISK 


18001000 
18002000 
18003000 
18004000 


18004490 
18005000 


18006000 
18007000 
18008000 


— 18009000 


18010000 
18011000 
18011490 
18012000 
18043000 


18014000 
18014100 
16015000 
16016000 
18017000 
18018000 
18018490 
18019000 
18019500 


18020000 
18020490 
18021000 
18021500 
18022000 
18022500 


18022990 
18023000 


18023010 
18024000 
18025000 
18026000 
18027000 
18028000 
16029000 


18030000 


T 


000030 


ADDRESS = 00505 


T 


000030 


ADDRESS = 900505 


a 4a 


SS . . ) 


AHHH HH HHH HAH 


Se 44 


+ 


000010 
000030 
0000:0 
0000:0 


000040 
0000:0 


000010 
000030 
000010 
000191 
00013 
000430 
000412 
0004t2 
000781 
18013000 
18043000 
00148! 
0018180 
001883 
002270 
002311 
002612 
002930 
0029:0 
003010 
16011000 
0030:0 
003210 
003230 
003212 
003681 
003833 
18021500 
003813 
003833 
(18023000 
18023000 
0042tt 
004211 
004310 
004631 
004730 
005010 
0051%2 


0059%1 


FND ELSE 


WHILE NOT TOG 90 ¥815@ 
BF GIN LBMESSCABS(A) + Rx 4520,"MCP%5051)3 
COMPLEXSLEEPECCLOCK ANO @17777)20 OR TO0G)3 %815= 
ACCIDENTAL ENTRY AT TOG 
SLEEPCECLOCK]s,NOT CLOCK )3 %815= 
END 


18029000 


$ SET OMIT = SHARFOLISK 
LOCKDIRECTORY3 


$ POP oMrIT 

TOG?tsTRUES 

ITF PCCPIMTX NEQ O AND HSED)eDUP) 
THEN FILFHOLDCAsBeTOGeLOca2)3 

PeRTN)$ & 4 ON TOP OF STACK IF DOSED 

END3 - 


$ SET OM?1T = NOT SHARENISK 
IF ¢SZtsHOLpFR, (FF ])20 THEN 
$ SET OMT = NOT SHAREDISK 
ELSF 
BEGIN 1F HOLDe? THEN DISKWAYTC@LOC, LCF ]s"30+LOC EFF I)3 
HOLOLIST&e MC SPACE (S7)13&8S7258138810)3 
NYSKWATTC@CHOLDLIST NX 0),SZ+HOLDER, (CF I)3 
1F TOG THEN FOR Ttx0 STEP 3 UNTIL SZ"3 DO 
& SET OMIT = NOTCSHAREDISK) 
IF HOLDLISTCTI.C FF IerTOGI.6CF) THEN 
YF ¢SZteS7~"1) # T THEN 
BEGIN 
MOVECSZ=T,CHOLDLISTCT+1I)}e¢CHOLDLISTITII)3 
Ts2S7} 
ENDS 


HOLDER, (CFF ]isY¥3=5873 
IF SZ#0 THEN 
REGIN 
FOR ¥+O STEP 1 UNTIL SZ#1 DO 
IF HOLOLISTLYI].£CFIFLOC,LCFF] THEN 
BEGIN 
£ SET OMIT = NOTCSHAREDISK) 
MCHOLDLASTFY) CFF J)«13 
yixS7} 
END3 


DYSKWATTCHOLODLYIST INX O»sSZeHOLDER,(CFI)3 
ENDS 


$ SET OMIT = NOT SHAREDISK 
IF SZzY THEN 
REGIN 
MrLOced] Catt) tnds 
IF HOLD=2 THEN NISKWATTCLOC, CCF ]e*30sLOC.CFFI)3 
$ SET OMyYT # NOT SHAREDISK 
END: 


18031000 


18031400 
18031500 
18032000 


18032010 
18032500 


18032990 
18033000 


18033010 
16033500 
18034000 
18035000 
18037000 
18045000 


18045490 
18046000 
18046490 
18047000 
18047500 
18048000 
18049000 
18050000 
18051000 
18053000 
18054000 
18055000 
18056000 
18057000 
18058000 


18059000 
18060000 
18061000 
18062000 
18063000 
18064000 
18065000 
18068000 
18069000 
18070000 


16071000 
18072000 


18072490 
18073000 
18074000 
16075000 
18075500 
18075990 
18077500 


a+ +40 


awa 


et a ae at st a 8 


4a ts 


4-4 


Se 


006082 
18025000 
0060%2 
0065:0 
006722 


007333 
007532 
18031500 
007830 
007810 
16033000 
18033000 
008432 
00842 
0085%2 
008884 
0091314 
0091:2 
18009000 
009132 
009132 
OO93t] 
009331 
009313 
010010 
010333 
010632 
OL1ii2 
0111°2 
011352 
0115383 
0116%1 
0119814 
012080 
18055000 
0120!2 
012231 
012320 
0123%2 
042783 
012933 
013084 
013031 
013232 
0133%1 
18064000 
013393 
013614 
18061000 
013631 
013694 
013780 
0137%2 
014083 
014482 
044422 


18074000 

FORGETSPACECHOLDLIST)3 18078000 T O444t2 

ENDS 18079000 T 0345%2 
18047500 

END3 % OF FILEHOLDER 18080000 T 014532 
16003000 


SIZE® 0146 WORDS 


ZCOMMENT THE DISK FILE HEANER CONTAINS THE FOLLOWING INFORMATION? 


*HOO],(0815) 
z 215815) 
x 030312) 
z 0f 4226) 
HO1),06318) 
% 025323) 


zB L847) 
¥Hr21,10948) 
ze fst) 
Bg) 
z 0f6%42) 


BHI3),09%1) 
% of 3310) 
% 0192818) 
% £30898) 
BHO4I,0 481) 
fotd) 
01304) 
0f4t2) 
(699) 
20739) 
1834) 
1982) 


of1529] 
ef 1284) 
0f1615) 
02135) 
22615) 
of 3125) 
2f 3686) 


of 4289) 
24382) 
ofa5ty) 
£4682) 
BHE57.£0148) 
% of984) 
% 

SHE7) 

£H(8) 

SHOEI], 61th) 
of221] 
of391) 
of4'4) 
of589] 
C691) 


BR BR DR BE DE BR FE DQ FE SR DE DA DA DA DL DE DL BA PE FR FQ PE DE DA AE DE DR DA DQ 


ae 2@ VE BG VC 


RECORD LENGTH 

RECORD/BLOCK 

SEGMENTS/RLOCK 

CREATION DATE FOR LOGGING CWHEN ON OYSK) 
CREATION TIME FOR LOGGING CWHEN ON DISK) 
NUMBER OF LOGSCAL RECORDS PER ROW CWHEN IN CORE) 
2©0 FREE FILE 

=O SOLE USFR, PUBLIC OR PRIVATE FILE 

mi SECURITY FILE 

PRIMARY USER"S CODE 

es] NEW FILE HEADER FORMAT 

SAVE FACTOR CBINARY) 

DATE OF LAST ACCESS CBINARY) 

CREATION DATE CBINARY) 

s{ FILE JS BEING LOADED OR NAME IS BEING CHANGED 
x1 FILE 1S OPENED BY AN EXCLUSIVE USER 
=! A PROGRAM IS WAITING TO USE THE FILE 
SYSTEM NUMBER OF EXCLUSIVE USER 

USED BY AUTOPRINT TO MARK A PBD FILE 

USFD TO MARK PSEUDO DECKS THAT WERE CREATED ON 
USED TO MARK SPECTAL COMPILERS 

=2 FILE JS DATA 

=3 FILE 18 PROGRAM 

=0 DON*"T KNOW IF DATA OR PROGRAM 

FILE ACCESSED BIT 

SYSTEM FILE TOGGLES 

OPEN COUNT 2 FOR SYSTEM O (A) 

OPEN COUNT 2 FOR SYSTEM 1 (8B) 

OPFN COUNT 9 FOR SYSTEM 2 (C€) 

OPEN COUNT 2 FOR SYSTEM 3 (D) 

2G TYPE +S UNKNOWN 


21 BASIC 
z?2 ALGOL 
x3 COBOL 
e4 FORTRAN 
5 TSPOL 
26 YALGOL 
27 SEQ 

s& DATA 

a9 LOCK 


USED TO MARK FJLES WHICH CANT BE MOVED 
SENSITIVE DATA * ZEROING BITS 

COLD START FILE 

NOT USED 

z0 SOLE USER FILE 

wi PRIVATE FILE 

©12 IF Hr6é)eio THEN INFO FILE ELSE PUBLIC FILE 
NUMBER OF LOGICAL RECORDS CEOF POINTER) 

NUMBER OF SEGMENTS PER ROW 


TOGGLE 1 FOR SYSTEM O CA) 
TOGGLE 1 FOR SYSTEM 1 (B) 
TOGGLE 1 FOR SYSTEM 2 (C¢) 
TOGGLE 1 FOR SYSTEM 3 (D) 
TOGGLE 2 FOR SYSTEM 0 (A) 
TOGGLE 2 FOR SYSTEM 1 (B) 


18081000 
18083000 
18084000 
18085000 
18086000 
18087000 
18088000 
18089000 
18090000 
18091000 
18092000 
18093000 
18094000 
18095000 
16096000 
18097000 
18098000 
18099000 
18100000 
18101000 
18102000 
18103000 
18104000 
18105000 
186106000 
18107000 
18108000 
18109000 
18110000 
18411000 
16112000 
18413000 
18444000 
18415000 
161146000 
18117000 
18118000 
164119000 
18120000 
18121000 
18122000 
18123000 
18123100 
18124000 
18124100 
18124200 
18125000 
18126000 
18427000 
18128000 
18129000 
18130000 
18131000 
18132000 
18433000 
18134000 
18135000 


AHA AHHH HHH HHH A A tA HA a A AA A a ot tt to 


000030 
000080 
000030 
000030 
0000:0 
000030 
000010 
0000:0 
000030 
0000:0 
000030 
000030 
0000:0 
0000:0 
0000:0 
000010 
000010 
000030 
000010 
000030 
000080 
000080 
000030 
000030 
0000180 
000030 
0000:0 
000030 
0000:0 
000030 
0000:0 
0000:0 
000010 
000010 
000080 
000030 
000030 
000010 
000030 
000030 
000010 
000010 
0000:0 
000010 
0000:0 
000050 
0000:0 
000030 
000010 
000040 
000030 
000030 
000030 
000030 
000030 
0000:0 
000010 


ae DR DE FE DR 2Q BE FE BA VR FE FA BE DE AT DA FQ 3G FQ aC 


0f29314) 
of 4325) 


HELO)" WE29) 


TORGLF 1 
0 
0 
{ 
{ 


END COMMENT? 


TOGGLE 2 FOR SYSTEM 2 (C) 

TOGGLE 2 FOR SYSTEM 3 (D) 

OPEN COUNT 4 FOR SYSTEM O (A) 

OPFN COUNT y FOR SYSTEM 1 (BD 

OPEN COUNT 3 FOR SYSTEM 2 (0) 

OPEN COUNT ¢ FOR SYSTEM 3 (DD 

NOT USED 

MAXIMUM NUMBER OF ROWS 

DISK ADDRESSES OF ROWS (O IF NOT ASSIGNED) 


THE OPFN COUNTS AND TOGGLES ARE USED IN THE FOLLOWING MANNER? 


TOGGLE 2 OPEN COUNT 4 OPEN COUNT 2 
) INPUT ONLY INPUT 
1 COUTPUT) NOT USED INPUT 
0 SHARED INPUT 
1 PROTECT . INPUT 


REAt, PROCEDURE DIRECTORYSFARCHCAsBs OPIN) 3 


VALUE 


OPTN= 6 
OPTNs 
OPTN= 
OPTN= 
OPTN= 
OPTN=s 
OPTN= 
OPTNE& 
OPTNs 
OPTNs 


OWNA US WN 


OPTN=40 
OPTN#11 
OPTN=12 
OPTN=43 
OPTNs14 
OPTNS15 
OPTN=164 
OPTN=17 
OPTN2 48 
OPTN#19 


OPTN=20 
OPTN=24 
OPTN=322 
OPTN>512 
OPTN< 0 


18136000 
18137000 
18138000 
18139000 
18340000 
18141000 
18142000 
164143000 
18144000 
186145000 
16146000 
18147000 
18148000 
18149000 
18350000 
18151000 
16152000 
18152100 
181453000 
18154000 
18155000 


START OF REL SEGMENT’ DISK 


AeBeOPTNS REAL AvsBsOPTNSE 
OPENS FOR SHARED USE 
OPENS FOR INPUT 
OPENS FOR OUTPUT 
OPENS FOR WRITELOCK 
OPENS FOR EXCLUSIVE USE 
RETURNS FILE HEADFR CUNCHANGED) 
ReMOVeES FYLE FROM DISK UNCONDITIONALLY 
ReMOVES FILE FROM DISK AS SOON AS IT YS NOT IN USE 
REMOVES FILE HEADER ONLY 
HEADEFRUNLOCK==WRITES HEADER POINTED TO BY (F"4),.°CF] 
BACK OUT ON ¢Fm4a), CFF J*® TURNS OFF INTERLOCK & DOES 
FORGETSPACECF R44). 
CLOSF SHARED 
CLOSE INPUT 
CLOSE OUTPUT 
CLOSE WRITELOCK 
CLOSE FXCLUSTVE 
LOGS THE FILE AND RESETS ITS CREATION DATE AND TIME 
MAKES THE FILE NOT A SYSTEM FILE 
MAKES THE FILE A SYSTEM FILE 
WILL INTERLOCK SYSTEM FILES 
RETURNS FILE HEADER CUNCHANGED AND LOCKED,«e. IT IS UP TO 
THE CALLING ROUTINE TO CLEAN UP) 
CLOSF A FILE GIVEN JUST THE DySk ADDRESS OF JTS HEADER 
A CONTAINS THE OISK ADDRESS 
B CONTAINS THE OPTN NUMBER OF THE DESIRED CLOSE 
OPENS PROTECT 
CLOSE PROTECT 
FILECLOSE@"ADDRFSS OF HEADER IN OPTN, CCF) 
CLOSe OPTyON@=430 74S YN OPTN, CFF] 
RETURNS AN AREA OF USER DISK AND UPDATES CORE copy. 
OF FILE HEADER@=ADDRESS OF HFADER IS IN OPTN,CCF jo= 
NUMBER OF THe ROW TO BE FILLED 18 IN OPTN. CFF) 
1S {nN OPTN,CCF] 


18156000 
18157000 
18458000 
18159000 
18160000 
18161000 
18162000 
18163000 
18164000 
18465000 
18466000 
184167000 
18168000 
16169000 
18170000 
18171000 
18172000 
18173000 
18174000 
18175000 
18176000 
18477000 
18178000 
18178100 
18179000 
18179019 
18179020 
18179100 
18179200 
18180000 
18481000 


18182000 


16183000 
18488000 
18185000 


0000380 
000030 
000010 
000010 
000030 
000010 
000030 
0000:0 
0000:0 
0000!0 
000010 
000030 
000080 
000030 
000010 
000030 
000010 
000030 
000080 
000010 
000010 
DORESS «# 
0000:90 
000010 
0000180 
00000 
0000!0 
000030 
0000:0 
000010 
000010 
000030 
000080 
00000 
000030 
0000380 
000030 
0000t0 
000030 
000030 
000020 
0000:0 
000010 
0000340 
000030 
000010 
000010 
000010 
000010 
0000t0 
000080 
000010 
900020 
000030 
000010 
000030 
000030 
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00510 


% A.f1t1] DIRECTORYSEARCH WILL FORGET THE MEMORY SPACE 18186000 T 000010 
% OcCUPTED BY THE FYLE HEADER 48187000 T 0000:0 
z A.(€9%1) 1S DOYALED INTO FHE4].61%1)] WHEN OPTN24 18188000 T 000010 
% A.€3%11 IF A CONFLICT OCCURSs AN “IF" WILL BE ENABLED, IF THE 181389000 T 0000:0 
% OPERATOR ENTERS AN "IF", DIRECTORYSEARCH WILL RETURN A 18190000 T 000030 
% VALUE OF 4, CURRENTLYe THIS 1S USED ONLY BY LIBMAIN, 168191000 Tf 000010 
% B.fity) DIRECTORYSEARCH WILL RETURN A VALVE OF 1 IF THE 18192000 7 oo000t0 
z FILE 3S JN USE 16493000 T 000030 
% Boot) WILL NOT UPDATE DATE oF LAST ACCESS 18194000 T 000030 
4 B,r3tq) WILL SET FILE ACCESSED BIT FOR CLOSE 18195000 T 0000!0 
BEGIN 18196000 T 000010 
REAL OLDONE S43 18197000 T 000080 
STACK(F#4) a OLDONE 
REAL TEMPsleTeoTOGoUeKeNoFk oX3 18198000 T 000010 
STACK(F 42) 2 TEMP 
STACK(F43) = I 
STACK(F 44) = T 
STACK(F45) = TOG 
STACK(F46) = J 
STACK¢Fse7) = K 
STACK¢ F410) = N 
STACK¢F411) = F 
STACK¢F412) = X 
INTEGER Solio l29133 18199000 T 000030 
STACK¢Fe13) = § 
STACKeFsi4) = 11 
STACK¢(F415) = 12 
STACK(F416) = 13 
REAL UNITNO3 186199100 T 000030 
STACK¢(Fs417) = UNTTNO 
ARRAY FHL *]sNBr *)3 18200000 T 000010 
STACK¢F 420) = FH 
STACK¢F421) = NB 
$ SET oMIT = NOT SHAREDISK 18200490 T 000030 
DEFINE DSEN=TERMSETCPIMIX) &3 18201000 T 9000:0 
& SET oMIT = SHAREDISK 18201490 rT 000010 
DEFINE UNLOCKHDR = EXIT#} 18201500 T 900010 
$ POP OMIT 18201510 T 900030 
LARFL LbLeF XT» CHECK es LWS; 18202000 TY 000080 
LABFL OPENSHARFD,OPENINPUT,OPENOUTPUT -OPENWRITELOCKs 18203000 T 000010 
ORENEXCLUSIVE > L6eL7eL Bel XI TeLWRITEs FOUND, 18204000 Y 000010 
THUSCLOSEs LW, BOMB, GETAROWSEXs 482905000 T 000030 
CLOSESHARED sCLOSEINPUTeCLOSEQUTPUT »sCLOSEWRITELOCKs 18206000 T 000010 
CLOSEXCLUSIVEs+ZERPUNSYSsSYSe 18207000 T 000030 
SEE ®LOCKSYS*DONTWAIT*®NOF ILE s COMPLETE ®LEAVELKD» UNUSED} 18208000 T 000010 
$ SET oMIT = NOTCOISKIOG) 18209000 T 0000180 
LABEL OPENPROTECT*CLOSEPROTECTS 18210300 T 000030 
SWITCH QO*OPENSHARED*OPENINPUT* OPENOUTPUTSOPENWRITELOCKs 18211000 YF 0000:0 
OPENEXCLUSIVESEXIT#L6eL7oLOeEXITe 18212000 T 000010 
CLOSFSHARED* CLOSE INPUT » 18213000 T 000010 
CLOSFOUTPUTscLOSEWRITELOCKeCLOSEXCLUSIVE 18214000 T 000030 
$ SET OMIT = NOTCHISKLOG) 16215000 T 000030 
£ SET OMIT = NISKLOG 18217000 T 000030 
eEXIT 16218000 T 000010 
$ POP oMyT 1621800% TF 0000:0 
eUNSYSsSYS 48219000 T 000030 
»LOCKSYS»LEAVELKD p UNUSED» OPENPROTECTeCLOSEPROTECT 18220000 T 000010 


} 
Fei ORI ORI IRR ROR OIG IR OR GIGI IO di kok kk a tO tote 


REAL SURROUTINEG SEARCH? 
BFGYN 
$ SET oMrT = NOT SHAREDISK 
St=zSCRAMBLE(AsB)3 
DISKWAIT(C@Nom600S)3 
LL: FOR Xt2#0 STEP 3 UNTIL 57 Do 
IF (NBEX] Eav A,£6842}) = NOT 0 THEN 
IF (NBEX+1] FQV B,£6!:42)) = NOT O THEN GO TO FOUND) 
IF (CStsNBI21],CFFJ)#0 THEN 
BEGIN DISKWAITC"N*600S)3 
40 TO LL3 
FNn ELSE 


$ SET OMTT = NOT SHARFNISK 
GO TO FXT3 
FOUNDS JecKeNBrX+2) CCR IPNIRECTORYTOP 04), p44s4yx2}3 
J «(kK AND NOT 15)4DIRECTORYTOP+19; 
K « K#DIRECTORYTOP+43 
EXT; SEARCH « S3 
END?: 


(Freer TTS TTT ISTIC TLC TT Te TCT TTT TLIC TT TTL TTT 
SURROUTING HEANER3 
BEGIN 
NISKWATTC™F 230 
£ SET oMrT = NOT SHARENISK 
okI3 
$ SET omIT = NOT SHAREDISK 
TEMPter eK CTF IRI(8238240)3 
END; 


FePereerrererrrerercerrcerrererererrrerererrre £2 22 2 
SUBROUTINE REMOVERS 
BEGIN NB[X]«@143 
DISKWATT(CN2"6098)3 
$ SET OMIT = NOT SHAREDISK 
NISKWATTCeNe *3000)3 
NRC LTJ©@14; NBCIT+i]«NEXTSLOTS NEXTSLOT«K3 
NISKWATTCNs730-4)3 
$ SET OMIT = NOT SHAREDISK 
END: 


TORINO IGISIO IORI IGOR IORI, OIRO RR ICIUI IOI EHO IO 
SUBROUTINE HOLDS 
BEGIN 
$ SET OM]T = NOT SHAREDISK 
rE A,C121) THEN GO DONTWAIT? 
$ POP OMIT OMIT 
FILEHOLDCAsBe TOG» TEMPs1)3 
IF P THEN &@ O OR 4 18 LEFT ON TOP OF STACK IN FILEHOLD 
REGIN TEMP8=33 Assets GO EXITS END & DS*ED IN FILEHOLD 


FLSE 
1F P4MyX40 THEN 
IF REPLYCPIMIXIEVIF THEN 
BFGIN 


% CANT BE CALLED FROM OTHER SUBROUTINES, 


18221000 
18222000 


18223000 
18224000 
182724490 
18275000 
18226000 
18227000 
18227500 
18228000 
18228500 
18229000 
18229500 
18230000 


18230490 
18231000 
182932000 
18233000 
18234000 
18235000 
18236000 


18237000 
18238000 
16239000 
18240000 
18240090 
18240200 
18240490 
18241000 
18242000 


18243000 
18244000 
18245000 
18245500 
18245990 
18247500 
18248000 
18248500 
18248990 
18250000 


18251000 
18252000 
18253000 
18253490 
16254000 
18254010 
18255000 
18255100 
18255200 


18255300 
18256000 
18258000 
18259000 
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Se ee 


a4 


000030 
0000130 
0000180 
000110 
0001380 
000,:0 
0008:!0 
000983 
001110 
001333 
002081 
002241 
O024d81 
002433 
18229000 
002433 
002413 
002443 
O029t! 
003193 
003382 
003410 
18224000 
0034t1 
003411 
003530 
003530 
0035183 
003533 
0036%2 
003612 
0038643 
18239000 
003930 
003930 
003910 
004034 
0041133 
004413 
004332 
004731 
0048183 
0048t3 
18245000 
004910 
004910 
004910 
004930 
004910 
0050%2 
0050%2 
0052:3 
005233 
18255200 
0055%t2 
0055!2 
005683 
005611 


@ 
e FILEHOLDCA®Bs TOG» TEMP,2)3 18260000 T 005813 
DONTWATTS 18260500 T 006130 
TEMPt=e13 % IN USE 182761000 T 006110 
eo 60 TO FXIT3 18262000 T 006133 
ENDS 18263000 T 006211 
18259000 
@ tr SFARCHeU THEN 18264000 T 006211 
BEGIN FILFHOLD(AsBsT0G»TEMP.0)3 18265000 T 0063!2 
NOF TLE? TEMPt=O3 Atszeys GO EXITS 18266000 T 006611 
] ENDS 18269000 T 006812 
18265000 
HEADERS 18270000 T 006812 
® END: % OF HOLD 18271000 T 007080 
18253000 
Fa OGIO IOI IGIOIO RRO ORR ROI GIO ROR OIOK IOIO HOI ig iO Oy ok 18272000 T OO070%]1 
e $ SFT OMT = NOTCPACKETS) 18272199 T OO7081 
tf OPTN,£CF) LSS 512 THEN 18272200 fT oO70N 
BEGIN UN] TNOBSOPTN, (982113 OPTNESOPTN [NX OF ENDS 18272300 YT 007612 
@ 18272300 
$ POP qaMrT 18272301 T 007982 
$ SET OMT = SHARENISK 18272990 T 007912 
e LOCKDIRECTORYS 18273000 T OO079%2 
18273000 
18273000 
@ $ POP oMIT 18273010 T 0086180 
IF OPTN&20 THEN 18273020 T 008610 
RFGIN OPTNt=R.UCFI3 18273030 T 008633 
e@ PISKWAITTC@CE8=SPACE(30))s=30- (Kia, fCFI))3 18273040 T 008882 
FHt=rMCF}}&8307 88388 40)3 18273050 T 009334 
TEMP t= F & K CCTFY ¥155= 18273055 ¢ 0095382 
& 60 @LOPTN]3 18273060 T 009633 
ENDS 18273070 T 0410983 
18273030 
@ 1fF OPTN=9 THEN 18274000 T 070984 
BEGIN 18275000 T 011080 
NDESKWATTC™CNS SSPACE(C 30) +7300 (KS 20LDONE,LFFI))3 18276000 T 011082 
@ FHIEPMEF t=CTEMPs@OLDONE),CCFIIJI&3008238810)3 18276500 T 011531 
At=NABSCA)3 18277000 T 0119180 
FHE4It=C#PCDUP) &MCN+GIC 3238173 18277500 T 012080 
] GO TO CLOSEXCLUSIVES 18278000 T 012333 
ENDS 18279000 T 012680 
18275000 
@ NRt=CMrNSeSPACE(60)1)&60(8138:10)3 18280000 T 032610 
IF SEARCH®O THEN 18281000 T 013003 
BEGIN 18282000 T 013112 
& At=03 18283000 T 013210 
GO TO EXITS 18284000 T 013233 
END? 18285000 Tt 013311 
®@ 18282000 
$ SET OMIT = NOT SHAREDISK 18285099 T 013381 
$ SET OMIT © SHARFDISK 18285999 T 0133¢1 
& FHie (MCF ts lTYPENSPACEC3OsDISKHEADERAREAV)I1&83076238:10)3 & ¥167= 18286000 P 013381 
$ POP OMIT 18286001 T 043712 
HEADERS 18287000 T 0137t2 
@ 1F OPTN<O THEN GO GETAROWS 18288000 T 043980 
IF OPTN2512 THEN GO TO QLOPTN,CFFI410}3 18289000 T 014014 
e $ SFT OMIT = SHAREDISK 18289999 T 015510 
@ 


IF OPTN LSS 5 OR OPTN=17 OR OPTN&7 THEN 


$ POP oMyT 
SFT OMYT = NOT SHAREODISK 
CHECK! 
RFEGIN 
Tr Fut 43.9481) AND OPTN LSS 5 THEN 
BEGIN % TRYING TO OPEN WHILE FILE IS BEING BLANKED 
SET OMT = NOT SHAREDISK 


60 NOFILES 
FND3 


SFT OMTT = SHARENISK 
IF NOT OPTN OR OPTN=&7 THEN 
POP OMIT 
SFT OM1TT = NOT SHAREDISK 
IF FHL4)],71224)]40 THEN 
RFGIN 4 tT 1S A SYSTEM FILE 
TEMPss23 % SySTeM FILE 
SET oMrT = NOT SHAREDISK 
GO TO EXIT} 
END3 


SEEt 
IF CFHC4),0282] AND CNOT TOG OR 2))40 THEN 
RFGIN 
HOLD 
GO CHECK; 
FND3 


FND? 


GO TO QfOPTN]S 
OPENSHARED® 
IF FHE9I.F524)=0 THEN 
IF FHE9I,.£194)40 OR FHL9I,6 9820320 THEN 
RFGIN 
SET OMyT & NOTCSHAREDISK) 
SET OMIT = SHARFDISK 
FHEOT FC 9tSItePCHUP) C985] +13 
FHEOT Citi iter3 
POP OMIT 
GO TO LWRITES 
ENDS 


HOLD$ 
GO TO OPENSHARED3 
OPENINPUTS 
SET OMIT = NOTCSHARFDISK) 
SET OMIT = SHAREDISK 
FHO4],6168572eP COUP) £16853 413 
POP OMyT 
GO TO LWRITES3 
OPENOUTPUT! 
IF FHO9),¢5224)20 THEN 
REGIN 
SET OMIT = NOTCSHAREDISK) 
SET OMIT = SHAREDISK 


18290000 
18290004 
18290099 
18291000 
18292000 
18292100 
18292200 
18292300 
18292600 
18292700 


18292999 
16293000 
18293001 
18293099 
18293200 
18294000 
18295000 
16295490 
18296000 
18297000 


18298000 
18299000 
18300000 
18301000 
18302000 
18303000 


18305000 


18306000 
18307000 
18308000 
18309000 
18310000 
18310999 
18314099 
18314100 
18314200 
18314201 
18315000 
18316000 


18317000 
18318000 
18319000 
18319999 
18321099 
18321100 
18321101 
18322000 
18323000 
18324000 
18325000 
18325999 
18327099 


Se ee ee ee ee ee 


AN HH AHH HH 


AnH tt 


0155130 
0157%3 
015733 
015713 
0158%1 
015801 
016081 
016033 
0146083 
016484 
18292200 
0164394 
016181 
0162:3 
016283 
016283 
0164383 
016501 
016610 
016640 
0166%2 
18294000 
016612 
0166:2 
016931 
046983 
01714140 
017182 
18300000 
017192 
18292000 
017182 
018410 
016430 
0148532 
018941 
0189%3 
0189383 
018933 
0193%]4 
019543 
019583 
019641 
183140000 
019681 
019730 
049712 
019732 
019712 
0197%2 
020130 
020110 
O20 %2 
0201%2 
020330 
020332 
020312 


FHIO], CStidsadys 
$ POP OMIT 
GO TO LWRYTE3 


FND;: 


HOLDS 
GO TO OPENOUTPUT3 
OPE NWRITELOCK? 
JF FHE9I,F1%8I=0 THEN 
BEGIN 
$ SET OMIT = NOTCSHAREDISK) 
£ SET OMIT = SHARFDISK 
FHE9O).C9tS]beP(puP),£985)413 
$ POP OMyT 
60 TO LWRITE? 
END? 


HOLDS 
GO TO OPENWRITELOCK} 
OPFNEXCLUSIVES 
te FHI9),f5%'24)80 THEN 
IF FROE4].616820)]20 THEN 
REGIN 
COMPLETFt FHC4S] BC PCOUPSLODDIIBSYSNOC4S A622 2847s LRALCL 823033 
GO TO LWRITE$ 
FNDS 


HOLD} 
GO TO OPENEXCLUSI VES 
OPENPROTECT?: 
SET oMrT = NOT SHAREDISK 
SET OMIT = SHARFDISK 
GO TO OPENFXCLUSIVE3 
$ POP OMyT 
CLOSESHARED? 
$ SFT OMLT = NOTCSHAREDISK) 
& SET OMIT = SHAREDISK 
IF CIl#eFHE9),(9%5)°1)20 THEN 
FHOEO] F184 58203 
FHEII. 98S )8ay3 
$ POP OMIT 
GO TO CLOSE 
CLOSEYTNPUT! 
$ SET OMYET = NOTCSHAREDISK) 
$ SET OMIT = SHAREDISK 
FHC4SI,£160578sPCDUP).(1695)"13 
£ POP OMIT 
FHE4).£681)8203 
qO TO LWS3 
CLOSEOQUTPUT: 
£ SET OMIT = NOTCSHAREDISK) 
S$ SET OMIT = SHARFOISK 
FHEO9O], 6594 ]9203 
£ POP OMIT 
60 TO cLOSE3 
CLOSFWRITELOCKS 
$ SET OMIT = NOTCSHAREDISK) 


wm 


18327100 
16327101 
18328000 
18329000 


18330000 
18331000 
18332000 
18333000 
18334000 
18334999 
18336099 
18336100 
18336101 
18337000 
18338000 


18339000 
18340000 
18341000 
18342000 
18343000 
18344000 
18345000 
18346000 
18347000 


18348000 
18349000 
18349100 
18349149 
18349799 
18349800 
18349604 
18350000 
18350999 
18357099 
18357100 
18357200 
18357300 
18357301 
18358000 
18359000 
18359999 
18361099 
18361100 
18361101 
18361200 
18362000 
18363000 
18363999 
18365099 
18365100 
18365101 
18366000 
18367000 
18367999 


i | 


ee 


AA AANA 


oe ee ee ee ee en er ee ee ee ee 


020312 
0206180 
020630 
02062 
18325000 
020682 
0208:0 
0208382 
020812 
021080 
021082 
021082 
021082 
021410 
021430 
0214:2 
18334000 
021442 
021680 
021682 
0216%2 
021830 
0220:0 
0220:2 
0225:0 
0225:2 
18344000 
022532 
0227:0 
0227%2 
0227:2 
0227%2 
0227:2 
022830 
0226:0 
022810 
022830 
022630 
0230%2 
023342 
0236:0 
023610 
023612 
02362 
0236:2 
0236382 
0240:0 
0240380 
O0242t2 
024310 
024330 
024310 
024310 
024512 
024512 
024610 
024610 


rw 


ow 


SET OMIT = SHARFDISK 
FHI9],6985)%=P 
FOP OMYT 
G0 TO LW3 
CLOSEXCLUSIVES 
FHC4J.C6182]¢03 
GO 70 cLOSF3 
CLOSEPROTECT! 
SET oMTT = NOT SHAREDISK 
SET OMYT = SHARFDISK 
GO TO cCLOSEXCLUSIVES 
POP OMIT 
SET OMIT = NOT SHAREDISK 
SYSs 


CDUP) ,f9s5Jey5 


te FHEOI,F1%t8)20 THEN 
REGIN 
SET OMET = NOTCSHAREDISK) 
SET OMIT = SHARFDISK 
FHC4] ,Ci2si.iezi3 
POP omyT 
GO TO LWRITES 
ENDS 


HOLD: 
ao TO SYS3 
UNSYS! 
SET OMIT NOTCSHAREDISK) 
SET OMIT SHARENISK 
FHEA],£128118=03 
POP OMIT 
GO TO LW 
LOcKSYS3 
OPTNi24$3 
GO SEES 
SET OMIT = NOTCSHAREDI SK) 
SET OMFT = NOT CHISKLOG) 
GETAROW: 
IF FHC 1T2te20PTN,CFFJI=20 THEN 
BEGIN 
SET OMtT = NOTCDTSKLOG) 
TF CFHET2)¢aGETUSERDISKCFH(8I18371'4622)))20 THEN 
BEGIN 
SET OMIT = SHAREDISK 
UNLOCKDYRECTORY3 


now 


SET OMtT = NOT SHAREDISK 
L17*GETUSERDISKCFHLSI)3 
SET OMIT = SHAREDISK 
LOCKpIRECTORY3 


POP OMYT 
IF SEARCH®O THEN 
BEGIN FORGFTUSERDISKCI1LeFHL8))3 
TEMP$203 Ate*43 
GO TO EXIT3 


18369099 
18369100 
18369101 
18370000 
18371000 
18372000 
18373000 
18374000 
18374001 
18374599 
18374600 
18374604 
18374999 
18388000 
18389000 
18390000 
18390999 
18392099 
18392100 
16392104 
18393000 
18394000 


18395000 
18396000 
18397000 
18397999 
18399099 
18399400 
18399404 
18400000 
18401000 
18402000 
18403000 
18403999 
18411000 
18421000 
18422000 
18423000 
18424000 
18425100 
184295150 
18425175 
18425200 


18425225 
18425300 
18425390 
18425400 


18425410 
18425500 
18425600 
186425700 
18425800 


AAHHH HHA a 


HHA BPH AHA AANA 


4444 


4A 


024630 
0240610 
0249:2 
024982 
025010 
025010 
025212 
0253:0 
0253:0 
0253:0 
025310 
025312 
0253%2 
0253:2 
0253:2 
0255:0 
025582 
02552 
0255t2 
025810 
0258:0 
0258:2 
18390000 
02582 
026010 
026032 
0260:2 
026032 
026032 
0263:%0 
026310 
026332 
026312 
026431 
026433 
026483 
0264t3 
026433 
026613 
026734 
026714 
0271%0 
027132 
0271:2 
18425200 
18425200 
0275:0 
027530 
027730 
027730 
18425400 
18425400 
0283!2 
028332 
0285!2 
028731 
0289:0 


END} 


HEADERS 
FHEIT2) ters 
ENDS 


FND} 
FOR [2%=FH(97.(43851)49 STEP =41 UNTIL 10 DO 


MFOPTN INX [2@]tsrHri2)3 
GO TO LW 


CLOSE? 


L7%¢% 


L6te% 


TF ReC32L) THEN FHE4I.£11211] © 13 
IF OPTN GTR 541 THEN 
REGIN 
IF CFHTO] EQV MrOPTN])#NOT O THEN 
IF CyetaCCCrisecCcClLArerFHl7]44) NiVv €139eFH(0)9,030842)) 
X136¢4286)9%30)4¢12 MOD 13,£30912]) 
xCIF Cla98#13,01%44))0 THEN 30 ELSE 129) DIV 30) 
OTV CLI3seMrOPTNI),(42%6])x13.030812) 
#CCCCEL DIV 30) MOD 13,042861)x30 
+11 MOD 30413.01214]"1) NIV 13,01414])"1) 
sMCOPTN4+7] THEN GO TO LW3 
FHEOJt=MLOPINI3 
FHE4JieC*P(DUP)) OR (CMLOPTN+4)] AND 1693 
FHL 7]3=MLOPTN+7]3 
ENN: 


GO TO LW 


IF NOT CFHL4] AND @1400777777770000)4NOT O OR 
FHC9],£1428)#0 THEN 

RFGIN 
HOLD} 
GO TO L73 

ENDS 


IF FHE41,.04382] NEQ@ O THEN % TEST FILE SENSITIVE 
BEGIN 


STREAMCAsBeTheTt=TYPENSPACECLOsCONTROLCARDAREAV)+42)3% %167 


BEGIN 
OSt=10LIT*"Cc REMOVE 3 STtaLOc AS STieSl+13 OSt=e7CHR3 
DSt=LIT"/"s SrssLOc Bs SyteSyot? DSIS7CHRS 
DStS6LIT*S END eS 

FND: 


FHE4), £4382] 3013 
INDEPENDENTRUNNERCP CO. sCONTROLCARD) so T&CIF UNITNO NEQ O 


THEN UNITNO ELSE 31)9£284286)81(88473435192)3 


IF UNTTNO232 AND UNI TNOS63 THEN PSEUDOCOPY+PSEFUDOCOPY413 
MPT*4),(6926) 3203 


$ SET OMTT = NOTCSHAREDISK) 


GO COMPLETE? 
END3 


$ SET OMYT = PACKETS 


18425900 


18426000 
18426100 
18426200 


18427000 


18428000 
18429000 
16430000 
18431000 
18431050 
18431100 
18431200 
18431300 
18431400 
18431500 
18431600 
16431700 
18431800 
18431900 
18432000 
18432100 
18432150 
18432200 
18432300 


18432400 
18432500 
18432600 
18433000 
18434000 
16435000 
18436000 
18437000 


18436000 
18438100 
18436110 
16438120 
184386130 
18438140 
18438150 
18438155 
18438160 


18438170 
18438180 
18438190 
18438195 
18438200 
16438202 
18438210 
18438220 


18439000 


a4 


+ 


AHA HA HAH tt 


Se ee 


AAA AOAWs4A 


~ 


0291:0 
18425600 
0294:0 
0292:0 
029331 
18425150 
029374 
184293000 
0293!1 
029834 
0301:0 
0301%2 
030132 
030531 
030630 
0306!2 
0309%0 
03122 
031482 
0320:0 
03222 
0325:4 
032913 
0332:3 
033433 
0338:2 
0341:0 
18431200 
0341:0 
034182 
0341:2 
0343%2 
034531 
0345:3 
0347:0 
034930 
18434000 
0349:0 
034930 
035032 
035130 
0354383 
035413 
035730 
0358611 
0359%1 
18436130 
0359%2 
036230 
036330 
036731 
0370:%3 
0374610 
037410 
037432 
18438110 
037432 


LBMESSCABS(A)®ABS(B).72090,UNTTNOoLIBMSG)3 


$ SET OMIT = NOTCHYSKLOG) 


EX3 


83 


PRCOUNTSSPBCOUNT™(((¢A, £6242) EQV "PBD "“)YzNOT 0) OR 
CCA,CE842] FQV “PUD ")=NOT 0)) AND B,C CFJ2#1)93 

REMOVERS 

tF OPTN#8 THEN 

FOR | « 1 STEP 1 UNTYL FHE9) NOs 

Te FHE941)#0 THEN FORGETUSERDISKCFHCI1+9) -FHL 813% 

GO TO LW3 


LWRrTrFs 


LW3 


LWS: 


TF NOT B,6281) THEN 

STREAMC Aer DATE] *Bel FHL 3] I] °ce0)3 

RFGIN SI*#AsDITeLOC CénSe8 OcTsSleLOc CeSyeSI453 
NT+BsDTeDI+230Se3 CHR} 

END} 


IF FHE4),£3%1) OR TOG THEN FILEHOLDCAsBsTOGeTEMP20)3 
IF OPTN<6 OR OPTN>8 THEN 

DISKWAITCFs™300K)5 

FHL9]$#C(*P(DUP)) AND 343 


EXIT#3 


1F A,f1%1) OR TEMP<64 AND TEMP>0 THEN FORGETSPACE(F)3 


$ SET OMIT = SHAREDISK 


UNLOCKDIRECTORY? 


$ POP OMYT 


LEAVELKp& 


UNUSFN! 


FND$ 


IF N NEQ O THEN FORGFTSPACE CN) 
DIRECTORYSEARCH*TEMP3 


% OF NTRECTORYSFARCH 


18439125 
18440000 
18442000 
18443000 
18444000 
18444500 


18445000 


18446000 
18447000 
18453500 
18454000 
18455000 
18456000 
16457000 
18458000 


18459000 
18460000 
18460500 
16461000 
18462000 
18463000 
18465000 
18465990 
18466000 


18466010 
18466100 
18466101 
18466200 
18467000 
18468000 


0374%k2 
037733 
0377%3 
038032 
038532 
038730 
0387:3 
0392214 
039980 
039932 
039932 
0400102 
040212 
040313 
040412 
18456000 
040433 
040433 
040930 
041083 
041233 
041433 
041443 
041910 
041920 
18466000 
18466000 
0422:2 
0422t2 
042212 
042310 
042530 
042533 
18196000 
S1Ze= 0428 WORDS 


me tte st ttt 


AA AHHH 


4Aaawada4 


PRT(641) = 


PRT¢642) = 


STACK¢(Fe4) 
STACK(F #5) 
STACK¢Fr6) 
STACK(F #7) 


STACK ¢F#10) 


STACK¢F#4) 
STACK¢F #5) 
STACK¢(F #6) 


STACK¢Fe4) 
STACK (F #5) 
STACK(F=6) 


STACK¢Fe7) 


STACK ¢(Fe4) 
STACK(F#5) 
STACK ¢F=6) 


STACK ¢F +0) 
STACK¢F 41) 
STACK ¢F42) 
STACK EF 43) 


STACK EF 44) 
STACK(F 44) 
STACK¢(F 45) 
STACK (F 46) 


PROCFOURE FICKTHFLOCK’ FORWARD} 
START OF REL SEGME 
PICKTHELOCK 
PROCEDURF FVENTANDINTERRUPTS FORWARDS 
START OF REL SEGME 
FVENTANDINTERRUPT 
PROCEDURE COMMUNICATE13 
START OF REL SEGME 
BEGIN REAL R4s7GeR5e"5eR6E"6eR7x77,R8e733 


= RB 
INTEGER [4e"4eJSe5e 76206} 
= 14 
= 15 
s ]6 
ARRAY A4zm4Ce] se AS52757 %),A62"67 *)3 
zx AG 
= AS 
= AG 
ARRAY A7="75%]3 
=z AZ? 
NAME N4Gs@aepNSu75,N6a"63 
as NG 
z N5 
az N6 
LABEL COsC1eC2eC3r Cos Cop COe C7 oe CBeCIe C1 OeCiieCi2eC139Ci4eC1500i be 
CIT C18 C19 eC200 C21 sC226C239C245,C25 C263 
LABEL C27+C28C290C30°C319C323 
LABEL C330C342C352C3600372C38sC399 CHS sCH7 es CHB C49, 
C3IOASCIORACHIA, 
INTT®ACO® ACL ®AC2SAC3#ACHe ACIP CHANGFNAME 3} 
$ SET OMyT = NOT SHAREDISK 
SWITCH ACSRACOPACT»AC2rAC ZAC Hs ACSS 
SWITCH C¥sCO, NTT» INT To aNr Te Cae INI To INITeINETo TINY Te ING Te INIT. 
INTTOENIToINITOINITsCiSsCiGsINITeINIToINITo INIT, 
INTTOINIToOINIT@INITs INTTOINI To INIT INIT® INIT 9 C30» 
C3qeC32°C33°INIT#INIToINITOINITOINITOINITOINITe 
INTToO INI ToINIT#OINITeC45*INITo INI Te INI Te C493 
; REAL RCWR+0e To Jo T? 
z RCW 
= | 
z J 
= T 
ARRAY Ar¥*3sFIBeAlC*]-FPBr*],-H(*%]3 
a A 
= FYB 
a FPB 
3s H 
BOOLEAN SUBROUTINE DELAYOK3 
% CHECKS FOR TIMFOUT» DS» OR CONDITION SATISFIED FOR COMMUNICATE 31, 


BEGIN 
DELAYOK !t% CLOCK+PCRTR)>14 OR TERMSETCPIMIX) OR 
C1 t= NOTCMCA6) AND R5)#€NOT(09)3 
END3 


nN 
°o 
Oo 


NTS OTSK 


18500000 
NT$ DISK 
18500100 


18500200 


18500300 


18500400 
18500500 


18500600 
18500700 
185008600 
18500900 
18501000 
18501100 
18501200 
18501700 
16501800 
18501900 
18502000 
18502100 
18502200 
18502300 


18502400 


18503000 
18503100 
18503200 
18503300 
16503400 
16503500 


T 000030 
ADDRESS e 


T 000030 
ADDRESS # 


T 0000:0 
ADDRESS ® 
T 0000:0 


T 000030 


T 000030 


T 0000:0 
T 000030 


000030 
000030 
000010 
000030 
0000:0 
0000:0 
0000:0 
000030 
0000:0 
000030 
0000:0 
0000:!0 
0000:0 
000030 


ee eee 


T 000030 


000030 
0001320 
000110 
000130 
0004310 
000733 


AMAA 


00525 


00525 


00525 


: 


INY 
% 
cO: 
z 
c4s 
$ 
$ 


$ 


GO TO CFPRTCP1IMIXs,9I)3 
T? GO TO INITIATES 
COBOL INVALID FOU 
TERMYNATECPIMIX)3 TERMINALMESSAGE(28)}3 
GrFNERALIZEOD 7yP 
IF ¢1#A4,68%401)#0 THEN BEGIN 
SFT OMTT = PACKETS 
SET OMIT = NOTCPACKETS) 
Me T&sTYPFNSPACE (1 +5»CONTROLCARDAREAV )42)"4],CAREAMIXF I] &eOs% 41678 
POP goM1T 
TE NOT A4,£281) THEN MAKFPRESENTCNFLAGCNOT 3 JINX CROWI))3 
IF ¢JeUSFRCODELPIMIXJI=NOT(70) THEN JoO3 
STREAMCCe JS oAbo lie lel 36t6] ol eQeOeT)3 
BEGIN S{tsAgs S]t=S]ay3 
Ls S]teSte1s IF Scs" " THEN GO TO LF Qt=SI3 D223 
TF SCs@14 THEN DStsLIT" " ELSE DSte2LIT™ 3 DItsT3 
DSteBLIT*CC USFRaws STtsLOC C3 STteSleys DSt27 CHR} 
DSt=s LIT3" 3 STtsAgs 
T1ICOSt$s32WDOSs OSta32WOS)3 DSse= 7: wOS3 
SET OMIT = NOTCPACKETS) 
OS%e8 LIT%e"3 
POP OMIT 
TALLY$s123183TALLYS 
NLpesQsSrtaLoc TsSytESTs73S NSE SCHRI 
END STREAM; 


JelF USERCODELPIMIX]=MCP THEN 31 ELSE 263 

SET OMIT = NOTCPACKETS) 

IF PSFUNOMIXEPIMIX] NEQ O THEN NYLONZIPPEREPIMIX] £201) 2203 
POP OMIT 

INDEPFENDENTRUNNERCPC  CONTROLCARD) os T&PIMIX(1824216) 
SET OMYT = NOTCDATACOM AND RJE ) 

&8J0324325},192)3 

SET OMIT = NOTCPACKETS) 

IF PSFUDOMIXPFPiMIX] NEQ@ O THEN 

SLEEPCENYLONZIPPERCPIM:X) 7» @1000000000000000)3 

POP OMyT : 

FND ELSE 


BEGIN FIBeN4(NOT 2)3 
FPRePRTCPIMIX,3]3 
le TF FIBL4S],¢122:1) THEN FIBC4),c13811] 
ELSE CFIBC4),€13811]"1)xETRLNG; 
TeFPRL1433604335)3 
If Tz#10 OR Te12 OR Te43 OR T#26 THEN 
REGIN 
IF FIBE5),¢4231] THEN GO TO CHANGENAMES 
HeFIR(C14)3 
SET OMLT = DATACOM AND RJE 


H(6)]:=03 
POP QOM]T 

HESI]22USERCONELCPIMIXI$ 
SET OMIT = NOTCNATACOM AND RJE ) 

HC6OJe¢CHePC NUP) 83 284236)}3 
RESET OMIT 


18503600 
18504000 
18505000 
18540000 
186510100 
18520000 
18520100 
18520200 
18520500 
18520600 
18520700 
18520800 
18520900 
18521000 
18521100 
18521200 
18521300 
18521400 
18521500 
18521600 
18521700 
18521800 
18521900 
18522000 
18522100 
18522200 


18522300 
16522400 
16522500 
18522600 
18522700 
185226800 
18523100 
18523200 
186523300 
18523400 
18523500 
16523600 


16523700 
18523800 
18523900 
18524000 
18524100 
18524200 
18524300 
18524400 
18524500 
18524600 
18524700 
18524800 
18524900 
18525000 
18525300 
18525400 


AHHH HHH HHH DHA HH A 


ADH A HHH AHH 


AAH AM H HH HAH 


18503200 
0008: 
000810 
003631 
003633 
0036:3 
0038i1 
0036:%4 
0040:3 
004033 
004033 
004710 
0047:0 
0050:2 
005333 
005632 
0057:t0 
005812 
00602 
0062+2 
0063?%1 
0065:0 
0065:0 
006631 
006634 
006633 
0067?3 
18521100 
006830 
007413 
0071383 
0075:3 
0075:3 
0076:3 
007633 
007930 
007910 
008030 
008231 
0082114 
18520100 
008231 
008533 
O087%4 
008910 
009233 
009433 
009832 
009930 
0400133 
010133 
010183 
010320 
0103:0 
010482 
010432 
0107:0 


THEN 
TLECLOSE(N4,£33215))3 
F (CTeDTRECTORYSEARCHCFPBLI JeFPBELI+1124)) 
LS5S 64 
THEN GO TO INITIATES 
Het Me T))&3008238310)3 
NOTCSHARENISK) 
HES) s2#uSERCODELPIMIX IS 
NOTCPACKETS) 
HLOJeC#PCDUP) 837 2842%6)3 


) 
F 
CHANGF NAME? I 


$ SFT OMIT 


$ SET OMIT 


$ POP OMIT 
ENTERCONTROLDECK(H)3 
PODIRECTORYSEARCHC*FPBEITJ>FPBE14+1I58)oDELDS 
JeHf2)3 % SAVED LASTCDNUM 
FORGETSPACECH)S 
END ELSE 


BEGIN FILECLOSE(¢(N4,033%15))86718233215))3 
ENTERCONTROLDECK(CH)3 
JeH(2]3 % SAVED LASTCDNUM 
FOR Te10 STEP £1 UNTIL 29 NO HrTJ«O3 
r FILECLOSECN4, £33215))3 
ENDS 


IF RUNUMBER LE® O THEN 
BEGIN 
STREAMCASLJAREPIMIX20)])2 BeH*USERCODELPIMIX], 
FeH#MCP AND H#0, PIMIXs Je Te T#SPACE(10)93 
BEGIN SteA3 OSeLrTV#"s 
2CST*SI413 pSe7 CHRS DSeLIT™/")3 DieDIM43 
FCOSt*LOC Bs SyeSte13 D1*D1+13 DSe7 CHR): 
Ste*lLOc PIMIX}3 DSeLIT"=s"3 AeDy3 
DS+2 nEc# DSe14 LIT™ ZIPPED DECK #*3 
SleLOc Js OS¢4 DEC! DSeLITMe"}3 
DleDl"53 OSe3 FILLS NpeAt PSeFYLLI 
ENDS 


SPOUTCT)3 
ENDS 


END3 
FNDS 
GO TO INITIATES 
% DrSPLAY (COBOL) 


C15% DrSPLAYCA4 INX 129% GO TO INITJATES 
COBOL ACCEPT 


% 
C161 DrSPLAYCAG INX 2)3 


£747" 
IF AUTODS THEN TERMINATE CPIMIX861°ICTFJ) ELSE “747 
BEGIN REPLYCPIMIX) $@=VWYRVAXL3624286)3 Tate 
COMPLEXSLEEPCCTERMSETCP4MrX) OR REPLYLPIMIX] GTR O))3 
18032000 ACCIDENTAL FNTRY AT O 
FNDS L747" 


If TERMSETCPIMEX) THEN GO INITIATES 
te NOT WHYSLEEPCVWY&VAX76 36242861) THEN GO TO C163 


18525500 
18525600 
186525700 
18525750 
18525800 
18525900 
18526000 
18526300 
18526400 
18526500 
18526600 
18526700 
18526800 
18527000 
16527100 
18527200 


18527300 
16527400 
18527500 
186527600 
18527700 
18527800 


16527900 
18528000 
16528100 
18528200 
18528300 
18528400 
18528500 
18528600 
18528700 
18528800 
18528900 
18529000 


18529100 
18529200 


18529300 
18529400 


18529500 
18530000 
18530100 
18540000 
18540100 
18540120 
185401440 
16540200 


18540220 


18540300 
18540400 


A tt st tt 


4444445 


AAR HAHAH GH 


i- 


-~ 


AQNMO V4aeaa a 


i] 


as 


012532 
18525600 
012532 
012733 
0128:3 
012933 
013432 
013533 
18527300 
0135383 
0136:2 
013710 
013931 
044534 
014610 
0147:33 
044932 
015032 
0152:3 
015313 
0454:3 
18526300 
0155:0 
0156314 
18528000 
015631 
18524300 
015614 
186523700 
015631 
015633 
015633 
015833 
0458:3 
0160%1 
016273 
016533 


017233 
16540140 

017213 

017581 


Leet YUAN Mae (18S L 5d RePLYfPIM]X] «O35 
STRFAMC(TsSeAd [NX 2)3 

BEGIN S]+T3 

Lt IF SC#"X* THEN BEGIN SIe#S1t+43 GO TO L ENDS 


SteSt+1) 2¢05¢40 CHR)3 
END3 


FORGETSPACECT@1)2% GO TO INITIATES 


4 DIRFCTORYSEARCH AND UN@=FILL FILE ID FOR NORMAL STATE PROGRAMS 
C3083 COMMENT SFARCHES DISK DIRECTORY AND RETURNS DATA IN ARRAY, 


r0) +S USER=TYPe OR NOT@PRESENT FLAG 

1) 1S MULTI@FILE 10 

(2) 18 FILE 10 

IF NOT PRESENTe £3] => (5] ARE =] 

IF INVALID USER, [£3] => (5] ARE 0 

IF PRIMARY® SECONDARY, OR TERTIARY USER? 
£3) 18 RECORD LENGTH 

4) 3S BLOCK LENGTH 

(53 1S END OF FYLe POYNTER 

[6] 1S OPEN COUNT 


IF ARRAY 
[7] = 
(8) = 
(9) = 


SIZE 1S GREATER THAN 93 

FILETYPE CFROM HEADER) 

HEADER®F37 CCREATION/ACCESS DATE sSAVE FACTOR) 
HEADERr1} € LOGGING DATES) 


IF ARRAY SIZE 7S GREATER THAN 108 
f70l= SYSTEM NUMBER ¢(SHAREDISK) 

NOT@=PRESENT FLAG [IS 1 

INVALID USER FLAG 1S 9) 


PRIMARY USER FLAG IS 7 CLMe INPUT» AND OUTPUT ByTS) 


SECONDARY USER FLAG JS 3 CINPUT AND OUTPUT BITS) 


TeERTTARY USER FLAG 1S 2 (INPUT BIT ONLY) 
3 
Te A4,68%10) <7 THEN BEGIN TERMINATECPUMIX)S% 
TERMINALMESSAGE(7)$ ENDS 


IF NOT AG,(2t41 THEN MAKEPRESENTCNFLAGCNOT 3 INX CRCOW)))32 


PcUMEAG INX NOT 1] ] eDUP,DUPrLODeXCHsCCXs,JeSTOsIORIFE 
FyB ¢ NSCNOT 213 FPB «© PRTILPEM]X93]3 
I ¢ TF FIBC4],012:1) THEN FIB64).013%11)2% 
ELSE (FIBLC415013941]"1)xETRUNGS 
Aali) « FPBEIJ$ A4ED2) « FPBLy 4133 
IF PCFPBE1I4+32.04325)]s DUP HUP )#410 ZRANDOM 


OR CPCXCH) OR 12813 OR PCXCH) #26 THEN SSERIALS UPDATE ePROTECT 


IF CCTIEDIRECTORYSEARCH(A4G(1]eA4(2]25) ) NEQ O 
AND MeT+#4).71224) FQL O ) THEN 


%207 
2207" 


BEGIN IF CA4fO] ¢ SECURTTYCHECKCA4(11,A462] ->USERCODELPIMIX)»T))#0 


AND MCT44],(61224]&0 
THEN BEGIN A403) © METI, £1914)3% 
AGTA) © MET]¢£15295)3 AMCS) © MET47373% 
$ SET OMIT = SHAREDISK 
AMSCOIE=EMCT4+4),CLOISI4+MET4$9),6985)5 
£ POP OMIT . 
& SET OMIT = NOTCSHAREDISK) 
IF A4,€8810} GTR 9 THEN 
REGIN A4C7]:2MCT44),(03686)3 ASCBI&eMET+3)3 
A4GO]sBMELT 4133 


18540500 
18540600 
18540700 
18540800 


16540900 
18541000 


18541100 
18550000 
16550100 
18550200 
18550300 
18550400 
48550500 
18550600 
18850700 
18550800 
18550900 
18551000 
18551100 
18551200 
18551300 
18551400 
18551500 
18551600 
18551700 
18551800 
18551900 
18552000 
18552100 
18552200 
18552300 
18552400 
18552500 


18552600 
16552700 
18552800 
18552900 
18553000 
16553100 
18553200 
18553300 
18553400 
18553410 
18553500 
18553600 
18553700 
18553800 
18553900 
16554000 
18554100 
18554200 
18554600 
18554700 
18554800 


4444-44 


4+ 


ABH H HHH HHH HHA oo et HA a at st YH 


AA HAH HHA HH HO VARA AHS 


0177%2 
048084 
018290 
0182:4 
18540800 
018311 
018431 
18540700 
0184:2 
018631 
016631 
048730 
048710 
018710 
018730 
018710 
0167!0 
018710 
018780 
0187140 
018730 
0187:0 
018710 
018720 
018710 
048720 
0187180 
018730 
048730 
018730 
018730 
0487:0 
018730 
048730 
018933 
18552400 
019032 
019420 
019733 
020170 
020233 
0206:2 
0210:0 
021281 
021540 
021820 
022130 
022483 
022734 
023140 
023630 
023610 
024141 
O241ti 
024131 
024233 
024833 


FND3 


IF A4,(8810] GTR 10 THEN A4L1OI] tBSYSNO$ 
FND ELSE AALS] teAal( Al tzad4(5] 2 zaal6)t=03 


FORGETSPACECT)3 
GO TO C308 
END FLSE 60 C30A ELSE 


BFGIN 
Tt3"13 
IF CTSSFINDINPUTCAGEL 1] °AGL2)¢FPBCI42],0Ci817I)5 
FPBLI4+2],0618330)] -FPBE14+3),0115]20A403)) INX 0, 
T202020))=#NABSC1) THEN GO TO C304 ELSE 
IF T GE@ O THEN 
BEGIN 
AGcO1te4s AdLZ)s=CTsBRDCTABLECTI),£1491013 
A4ch tay .l24t1773 AALS) ¢=1,04197)3 
A4CO)2STINULT).£30818)3 IF T<16 THEN 
A466)8®(*PCDUP) SPRNTABLECTIC£12230318]3 GO c30B3 
END FLSE 


RFEGIN 
A4pO1ts53 A4T3I,C1IS]t=ABSCT)3 GO C308 
ENDS 


ENDS 
CIOAt AALOLEFASL 3) eAd Lal sspndcS]teagl(oliznts 


If NOT Jef2ti) THEN PCEME UJ] +PRL)3% 
GO TO INITIATF3% 
% ALGOL "DPELAY™ FUNCTION =" WAIT WITH TIMEOUT 
C312 Te A6G.fCFI<5142 THEN % CAUGHT SOMEONE REING SNEAKY 
BrFGIN TERMINATECPIMIX)3 
TERMINALMESSAGEC17)3 
ENNS 


T4ts60xy44+CLOCK+PCRTR)3 

IF NOT DFLAYOK THEN COMPLE XSLFEPCDELAYOK)$ 
ACCIDENTAL FNTRY AT DELAYOK 

16t2173 

GO TO INITIATE? 


18540200 


e323% 
$ SET OMIT = NOTCMATACOM ) 
GO TO TNITYATFS 
C3383 STREAMCR4s Ae (R4#0) pJeJARROW(PYMIXIoPIMIXo% 
TeTeSPACE(10))3% 
BFGIN DS#qO LIT * PAUSE # O33 
ACDlepr"1s Syeloc R43 SyeSte#2s DSe6 CHR); 
DS+5 LIT * FOR™S Steds SteSte13 ODSe7 CHRIS 
DSeLIT "/™3 SyeSI413 DS#7 CHRS DSeLIT "“H"3% 
St#LOc PIMIXMS DS#? DECS DSeLIT "e™s DleDl"33 OSeFILLES 
ENDI® 


SPOUTCTIIZ 
Te NOTERMSFTCPIMIX) THEN PRTROWLPIMIX).CPSF]te23 


18554900 


18555000 
16555100 


18555200 
18555300 
18555400 


18555500 
18555600 
18555700 
18555800 
18555900 
18556000 
18556100 
18556200 
18556300 
18556400 
16556500 
18556600 


18556700 
18556800 
18556900 


18557000 


18557100 
18557200 
18557300 
18557400 
18558990 
18559000 
18559100 
18559200 
18559300 


18559400 
186559500 


18559600 
18559700 
18560000 
18560100 
18565600 
18570000 
16570100 
18570200 
18570300 
16570400 
18570500 
18570600 
18570700 


18570800 
18570900 


4-4 


ie ce Mi eee ee te Re ee ee ee ee ee ee ee ee ee 


44 


AAHAHA HA 


4-4 


025131 
18554700 
025191 
02542 
18553700 
0259114 
0260:0 
026082 
18553500 
0260:2 
0261:0 
026230 
026443 
0268:3 
0271!1 
02722 
027330 
027633 
028034 
0283:0 
028633 
18556100 
028633 
028714 
029113 
18556700 
029433 
18555500 
0291323 
029731 
O02971t1 
030010 
030032 
030032 
0302:2 
0303:3 
0304:2 
18559100 


030412 


030613 


031430 
031433 
031511 
03151 
031531 
03162 
031980 
0321%2 
032330 
032433 
0326'2 
032830 
0329%2 
18570200 
032933 
033130 


GO TO INITIATF2% DONWT KEFP COMMUNICATE AROUND NEEDLESSLY 
c45ii IF R& THEN & COBOL68 FXIT PROGRAM/ EXIT PROGRAM RETURN HERE 
BEGIN IF AS.PBIT THEN % IF THERE 1S A TASK ARRAY 
1F A5C6]21 THEN & TYPE = CALLED 
BEGIN A5(7] « 43 
COMPLEXSLEEPCA5(7),(4684) 
OR cTERMSETCPAMIX)))3 
18559500 ACCIDENTAL FNTRY AT 1 

AS «+ 13 

FND ELSE AS « 0 


ELSE AS « O08 
GO T0 INITIATES 
END; 


% DETACH TASK ARRAY: nS OR €S JOB RUNNING OR SCHEDULED 
IF N5€6}322 THEN GO TO INITIATES 
TF N5033=4 THEN SHEETDFODLER(O+200N5(4))3 
IF N5(3)s2 THEN 
BEGIN TERMINATECNSC4SI&61LECTFI3 HALTS 
NOPROCESSTOG « NOPROCESSTOG"13 
END? 


GO TO TNITIATES 
cages 
S$ SET OMIT = NOT SHAREDISK 
GO INITIATES 
FN OF COMMUNICATES3 


18571200 
18580000 


18580100 
18580200 
18580300 
18580400 
18580410 


18580500 
18580600 


18580700 
18580800 
18580900 


16581000 
18581100 
18581200 
18581300 
18581400 
18581500 
18581600 


18581700 
18590000 
18590100 
18593300 
18599000 


AHHA aH 


Se ee ee | 


033532 
0336:0 
033631 
033723 
033934 
034110 
034130 


034613 
034932 
18580300 
035030 
035250 
0352%2 
18580100 
0352:2 
03522 
035570 
035930 
0360%2 
0363%2 
036433 
16581400 
036413 
036531 
036531 
036531 
03662 
18500100 


S1ZEs 0367 WORDS 


PROCENURE COMMUNTCATEO: 


18700000 


START OF REL SEGMENTS DISK 


BEGIN REAL, R4z"qgseR5="5e R696 0R7 x87 sROB2283 


STACK¢Fe4) = R4 
STACK(F2®5) = RS 
STACK¢F#6) a Rb 
STACK¢(Fe7) = R7 
STACK(F@10) = RB 
STACK(F"4) = 14 
STACK¢F*"5) = 15 
STACK(F #6) = 16 
STACK¢ Fed) = AA 
STACK¢F*5) = AS 
STACK(F"6) = A6 
STACKC(F#7) = A7 
STACKCF*?4) = NA 
STACK(Fe5) = N5 
STACK(F*6) = N6 
STACK(F41) = I 
STACK¢F42) = J 
STACK¢(F43) 3 T 
STACK¢F 44) = AIT 
STACK(F44) = AITL 
STACK¢(F44) = A 
STACK¢F45) = ADDR 
INYTé 
% 
ci! 


INTEGER TO="4oT5="°5516=963 


ARRAY A4z=4ce],AS="5pe),A6z™65 *13 


ARRAY A7z7L"]3 


NaMe N4s"*4eN5z75,N65063 


LABEL C05o619C62 003504 ,C6DpCO oC COCO C10 C11 CLA eCi3dsCi4eCiSelibs 


C17 0C18 2019+ C2060 91 0 C22,C239C 2K» CP5 eC 263 
LABEL C27eC282C295C30eC319C323 
LABEL ©C332C034 2063520365037 .C38eC39 9 CHS, CA7 CHB C49, 
C2IASCRIAL INI T®©USsD es TDoPRe [OTe TMRe IT TeADS WD 
LABEL PEe TEs PAS 
DFFINE CNeDIFFCOM#S 
SWITCH StaPAsPEsTEe [Te USsp ee ThePRe LOTsTMRe ADs WD. 
SWITCH CisINIToCi eo INIT sC3sINIToINITsC6eC7TeoCOeoINITpINIT» 
INITOCLI2Q*INITsINITs INIT INI TeCi7eINITe INIT eC20, 
C29 C22°IN Te INT eCo5sC26eINITe INIT» C29e INIT» 
INTTsINITeINITOINIT/ INIT oS INI To INI Te C38sC390INIT, 
INI Te INITOINITe INIT» INI To INIT eC47eC4BsINITS 
REAL, ToeJeT3 


ARRAY AITr£F*I]$ REAL ATTLSALT? ARRAY ABAITI#I3 


NAME ADDR} 


GO TO CEPRTCPiMyxX,9I)33 

GO TO INITIATE? 

TYME INTRINSIC 

IF ¢14%s14) GEO (=5) AND 14 LEQ 6 THEN 
BEGIN GO TO Stl4+4+5)3 

PAt 


$ SET OMIT = NOTCPACKETS) 


1F €JtSPSEUDOMIXCP1MIX]) GEQ@ 32 THEN 
14tePACKETACTE 11-3213 


$ POP OMIT 


GO TO INITIATE? 
Pri 


4145 


¥145= 


%145° 
2145 
#145= 
2145-= 
%145« 
%145« 
2145= 
¥145- 
%145= 


18700100 


18700200 


18700300 


18700400 
18700500 


18700600 
18700700 
18700800 
18700900 
18701000 
18701010 
18701100 
18701200 
18701300 
18701400 
18701500 
18701600 
18701700 
18701800 


18701900 


18702000 


18702200 
18702300 
18770000 
18710100 
18740200 
18710240 
18710242 
18710244 
18710246 
18710248 
18710249 
187140250 


T 000030 
ADDRESS # 
T 0000:0 


T 0000:0 


T 000010 


T 000080 
T 0000;70 


000030 
000070 
000010 
000030 
0000:0 
000010 
000010 
0000:0 
0000:0 
000030 
0000:0 
000030 
0000:0 
0000:0 


AA AHA ABA HA aH 


T 000030 


000030 


— 


000030 
002630 
0028!2 
0028!2 
003110 
003980 
003980 
003930 
004012 
0043%0 
0043:0 
0043%2 


oe eRe ie le iim: me: a me | 


00538 


$ 


Lad 


SFT om 


POP OMIT 


TF: 
SET OMIT 


POP oMyT 


IT! 


Ust 
Ne 

Tht 
PRt 


1oTs 


TMR3! 
An: 
Wnt 
ENDS 


Ir 14 
50 TO 
Re TUR 
ARTN¢ 


C3At% Terar 


IF NO 
J 
FoR | 


IF 
Nato] 
GO TO 
WHEN 
1460 
WHILE 


GO TO 
FyLL 


IF NOT A5,0281] THEN MAKEPRESENTCNFLAGCNOT O INX [€74))93 


TeMEA 
PetMe 


= NOTCPACKETS) 

F €1?:sPSFUDOM] 
REGIN 
T422PACKETERRLI=32]3 
PACKETERREI™32):2TRUE3 
ENDS 


XEPiM1X]) GEG 32 THEN 


GO TO INITIATES 


= NOTCPACKETS) 
IF CLtsPSEUDOMIXEPYM1X)) GEO 32 THEN 
T4sSPaACKETERR(1#32]3 


GO TO INITIATES 
T4eJARECPIMIXe9) C521)3 
JAREPIMEXs9]eCeP(DUP)) & 26434682)3 
GO INITIATES 
R4tSUSERCODELPIMIX]$3 GO TO INITIATES 
L4epATFES GO TO INITLATES 
T4exXCLOCK+PCRTR)I§ GO TO INITIATE? 
T4eJARCPIMIXe#3]+PROCTIMEFEPIMIXIJ4+CLOCK4+PCRTR)? 
GO TO INITIATES 
T4erOTYMELPIMIXJ+JARCPIMIXs4I3 
WHILE f4<0 nO p4er4eCLOcK+PCRTR)3 
GO TO INITIATES 
I4ePCRTR)3$ GO TO INITIATES 
T4*ACTDATES GO TO INITIATES 
T4e¢WEEKDAYS GO TO INITIATE? 


= ("6) THEN [4¢P1iMIX3 

INITIATES 
N SPreCIri¢ ARRAY 
N4¢0}51)3 % REMOVE 1 DIM ARRAY 
TLIFCFy3 % REMOVE FROM AIT 
TCATT#PRTCP4MIX,6))-2%1) THEN MAKEPRESENTC(T)3 
+ AITCOJ3 T © Na,Ecry3 
+1 STEP 1 UNTIL J=1 00 

IF AITCI1,.018%245)“T THEN 


BEGIN MOVECJmIelCAITCI+1I)sCAITCIIJI)93$ ved ENDS 


Jz0 OR AITCJI,CFF IST THEN AITO] « *PCDUP) = 43 
«03 
INITIATES 


KXIT4+PORTRI+CLOCKS 

NOTERMSETCPIMIX) AND CLOCK+PCRTR) LSS 14 00 
SLEEPCRFCLOCK]eNOT CLOCK)3 

INITIATES 


3 INX NOT O33. JeMCAS INX NOT 1)3 
AS UNX NOT 1} ]+10R)3 


%145= 
¥145% 
1450 
41456 
%145= 
21456 


#145 
%145= 
2145 
Z145= 
%145= 
145" 
¥145« 
¥145« 


27530 


%753- 


Ip CNT2¢(NTLe*CT4 INX PRI CPIMlX04))0),018815] >NT3¢A5,£8310)] THEN 


Ta*cTF JARCPIMIX#10]#0 THEN JARCPIMIXs(NTLONTI,CCE)) 


NT2eNT33 


18710252 
18710254 
18710256 
18710258 
18710260 
18710262 


18710264 
18710266 
18710268 
18710270 
18710272 
18710274 
18710276 
18730278 
18710300 
18710400 
18710500 
18710600 
18710700 
18710800 
{87140900 
18711000 
18711100 
16711200 
18741300 
18711400 
187141500 
18711600 
18711700 


18741790 
18711800 
18720000 
18720400 
18720200 
18720300 
148720400 
18720500 
18720600 
18720700 


18720800 
18720900 
18721000 
18730000 
18730100 
18730200 
18730300 
18730400 
18740000 
187401400 
18740200 
18740300 
18740400 
18740500 
18740600 


AoaIooa 


AVAA AHHH HAHAH HON AM DAMN DAO 


en ee ee 


Aa AHH a HH 


004382 
004322 
004510 
0045t2 
00487382 
0050!2 
18710256 
005082 
0050t2 
005130 
005120 
005140 
0052!2 
005530 
0055:0 
005542 
005712 
006032 
006110 
006212 
006313 
006512 
0068!3 
006911 
0071%2 
007510 
007532 
007633 
007810 
007984 
18710200 
00793834 
008182 
008230 
008210 
0083!0 
0084:%14 
008733 
0090!0 
O0094% 4 
009533 
18720700 
010032 
040532 
010681 
010633 
019613 
010940 
011292 
041483 
011531 
019581 
011833 
012313 
012533 
013430 
0132%4 


DrV CNT3*JARCPIM]X*#8))4+,0)]4+NT1 MOD NTQ3 
ELSE DALOCFPIMIX NTL, £C3386)4P(DUP) "1 )4NT1,(3939])3 
NTSKWAITC™AS, CCF] oNT2014)3 
MrA5 TNX NOT Ole*PC,7)3 
Ip NOT C#PC.J))eC2%1] THEN PCEMEAS INX NOT 1)),PRL)3 
GO TO INITIATES 
% PLAIN ZIP 
cB: ZIPPERCRSeR4e0)3 
GO TO INITIATES 
% BREAKOUT 
e123 
$ SET OMTT = NOTCRREAKOUT) 
GO TO INITIATES 
% COBOL 170 ERROR 
C172 = ASeeAS3 ASPRIGCPIMIXe3]3 LTe"1/0 ERR" 
Ire A5(5],£1!1) THEN 
BEGIN 122 "INVALIO™3 gis" USER™$ R6t=1 END ELSE 


STREAMCR4»NeC JI) BEGIN StelOc R43 DleDT41s OSe7 NECS 
N1*Or*73 OSeS FILL} 
ENN$ 


FrLEMESSCYRROCLIA7TT Ao JeALCToASL4OI CiStiL J sACTei)» 
IF R4eCR4e216 OR R4si7 OR R4e82) THEN RB ELSE Op 
IF R4 THEN R? FLSE 020)3 
GO TO INITIATES 
% TaPE SWAP FOR TAPE SORT 
C203 SLEFPCEN4£ 3S) )+1TOMASK)3 SLEFEPCCN4L4I) 5 1OMASK)3 
FOR y*3 STEP 1 UNTIL 4 nO 
BFGIN NSTT),£33815)¢N4(7]3 


MENSCI] UNX NOT 1) ¢¢C*P COUP) )8N5¢6396148324)80N50311533133315) 


END$ 


AeN4(O0T8 ALS), C39t4)¢23 Ac16)¢03 ALIBIeNABS(#PC OUP) )3 
NT4eAC10),0C3815]8 AC103,£3215 +03 
AeN57033 ACS3¢03 ACLIGI*NFLAGONS5S£3I))3 ALISBI*ABSC#PCOUP))3 
Ari0),€3%15)«NT43 
GO TO INITIATES 
% SORT STORAGE ASSIGNMENT 
C218 AelMEGETSPACECRE+R59 2019471] 8R5(8338310)3 
ArOJ«CRS INX ARRECH838t10)3 
NaCOlea3 
If NOT CONQUEFRCOPR5™1eR6941 INX Avd) THEN 
BFGIN FORGETSPACECA)3 
C21A% STREAMCPIMIXs TeR5ExR6,Ae¢7eSPACE (7) )3 
BEGIN DS#LIT "4#"*3 Ste LO PIMIX3 
DS*2 DFC? DS* 13 LIT * NO SORT MEME"? 
DS*5 DFC?! DS*9 LIT * WOS ROD} 
END} 


$ SET OMIT = PACKETS 
& SET OMIT = NOT PACKETS 
SPOUTERCT»020)8 & JOR MESSAGE PAGE ONLY 
STREAMCPIMIX, AeleSPace¢6))s & SIMULATE OPERATORS REPLY 
REGIN DS*#20 LIT "eOPERATOR KEYED INE %3 
SI*LOC PIMIX? DS#2 pEC3 
pS«26 LIT * OU HK l,,, TRY DISK SORTee*; 


%713* 
Z713= 
S713 
Z713- 
Z713= 
2743 
£713- 


18740700 
18740800 
18740900 
18741000 
18741100 
16741200 
18750000 
18750100 
18750200 
18760000 
18760100 
18760200 
18760500 
18770000 
18770100 
18770200 
18770300 


18770400 
18770500 
18770600 


18770700 
18770800 
18770900 
18771000 
18780000 
18780100 
18780200 
18780300 
18780400 
187680500 


18760600 
18780700 
18780800 
18780900 
18781000 
18790000 
18790100 
18790200 
18790300 
18790400 
18790500 
18790600 
18790700 
18790800 
18790900 
18791000 


18791099 
18791609 
18791610 
18791620 
18791630 
18791640 
18791650 


ee ee 


a 


ee ee ee ee ee. 


Oona aann 


013483 
013833 
014410 
0146¢1 
014910 
015310 
015312 
015342 
015413 
015511 
O155t 
0155%1 
015531 
015593 
015583 
015931 
016081 
18770300 
016310 
016813 
016911 
187704800 
016932 
016942 
016912 
018191 
018133 
018113 
018533 
018710 
019010 
0195814 
18780300 
019831 
020432 
020812 
021412 
021730 
021732 
021782 
022183 
022433 
022513 
022930 
023012 
023431 
0235:0 
O237t1 
023910 
18790700 
023911 
023931 
023981 
0240t2 
024312 
O246t1 
024613 


Ler irert DSe«2 FILLS 
END’ % OF STREAM 


SPOUTER(1s00)3 % MESSAGE PAGE ONLY 
Jel’ %® ASSUME "OU DK® 1S OPERATORS RESPONSE 


$ FOP OMYT 


C22ts 


C2533 


z 
C2633 


coor 


GO TO cel; 
END3 


GO TO INITIATE 

SORT STORAGE RETURN 

TeN4r0) INX 43 

DO FORGETSPACECME II) UNTIL CleMO1),.0188151])203 
FORGETSPACECNGSO))? N4lOJ]<03 

GO TO INITIATES 

Re TURN OLD COPY OF OWN ARRAY 

ARTNCA5»R4); 
MrAS.CFFIJ*AePRICPIMIXe17IRPC AS LONI L18218315)3 
IF A,€221) THEN MOA.CCFI“1),(CF IAS. CFF I} 

GO TO INITIATE? 

INVALTD ARGUMENTS TO Al.gOL INTRINSICS 

Ip ¢} « R4)20 THEN 

STREAMCA ¢R4, TeleSPACE¢10))3 

BEGIN OSeLIT "Hts & 


CI*CIlT+as 
GO LOG3 GO ROOTS GO LOG$ GO FXP$ GO SIN3 
DS*3 LIT "COS"; GO EXIT: 

LOG! NSe2 LIT MLN; GO EXIT3 

RooTte NSe4 LyT *SQRT*3 GO EXIT3 

EXP: OS¢3 LIT "EXP"; GO EXIT3 


SyNt OS*3 LyT "SEN"; 
ExtT: OS*#8 LIT * ARGMNT "3 SyeLOC AS SyeST+73) & 

IF SC2@3 THEN pnSe5 LIT "> 1586" FLSE 

IF SC<@? THEN pSe5 LIT wNEGTV" ELSE nSe4 LIT "ZERONM; 

DSe2 LIT * "3 ¢ 5 
END3 

IF I = (#7) THEN % COBOL [INVALID INDEX 

BEGIN 
RG « R53 R5 « R63 
ERRORFIXERCA)$ 
ENN} 


% INVALID INDEX CHECK 


TERMINATECPIMIX)3 TERMPNALMESSAGEC™])3 


BW 


¥740« 
ZWF 
ZWF 
%WF 
ZWF 
SWE 
ZWF 
XWE 
¥7408 
%740" 
“740 
7406 


ZWF 


COMMENT THIS COMMUNICATE PROVIDES FOR DS#ING AN OBJECT PROGRAM 


AND/OR SPOUTING A MESSAGE ABOUT A PROGRAM, 
R4 1S USED To SPECIFY THE MESSAGE REQUIRED, 
R5 SET TO TRUE SPECIFIES PimIX 18 To BE DS*ED, 


T 1S THE ADDRESS OF THE MESSAGECWHICH ENDS WITH A Mery), 


REMAINING VARIABLES MAY BE USED AS DES]RED3 


T «+ SPACE(12)3 
IF R4 < 2 THEN 


BEGIN: % 2971 
STREAMCJIT)$ 
BEGIN % 292 
OS «© 9 LIT MeOFC ERRs3 
Joe py} 


18791670 
18791680 
18791681 
18791700 
18791800 


18791900 
18800000 
18800100 
18800200 
18800300 
18800400 
18810000 
18810100 
18810200 
18810300 
18810400 
18820000 
18820100 
18820200 
18820300 
18820700 
18820800 
18820900 
18821000 
18821100 
18821200 
18821300 
18821400 
18821410 
18821420 
18821430 
18621500 


18821600 
18821700 
18821800 
18821900 
18822000 


18822100 
18830000 
16830100 
18830200 
18830300 
18830400 
18830500 
18830600 
15830700 
18830800 
18830900 
18831000 
18831100 
18831200 


an 


AMON O PHARM AMAA DVD HHS HSH OOOO 


ee 


AHHH HAHAH 


18791630 
025180 
025211 
025380 
025380 
025312 

18790500 
025382 
025480 
025430 
0255%4 
025933 
026111 
026133 
026133 
026331 
026712 
027381 
027383 
027383 
027501 
0278383 
O279tt 
027983 
028130 
028210 
0282:3 
028353 
0284:3 
028532 
O287%4 
028930 
0294:2 
029230 

18820300 
029231 
0293%1 
029333 
029521 
029610 

18821700 
029610 
0297%3 
029820 
029850 
029810 
0296:0 
029840 
029830 
030014 
030130 
0301°2 
030233 
0302:3 
030434 


ENN? 
Jo« P$3 
IF R4eq TH 
BEGIN 
STREA 


END 
FLSE 


REGIN 
STREA 


ENDS 
END? 
1F R453 TH 


BEGIN 
SSTRE 


% 29"2 
EN 
} %¥ 29"3 
MOCT1¢(CR6<0)sRO*ABRS(RO) oJ)3 
BEGIN % 29"4 


DS*17 LIT “ARRAY DIMENSION] *3TiCDSe 1 LIT Mors yy 
S} « LOc R63 

DS « B nECs J eDI3 

D1 « D783 

DS « T FILLS DI « Js 

oS « 2 LIT ” «3 


END? % 29—4q 
%¥ 2973 

; %¥ 295 

MCR6ed)93 

BEGIN % 2976 


nS «15 LIT "NO, mnISK ROWS= "3 
ST + LOC R63 

DS « 8 NEC3 Joe¢ O13 

OF « DlT"83 

OS « 7 FILLS DI « J3 

os « 2 LIT " 3 


END % 2976 
% 2975 
% 2971 
EN 
AMCT)3 
BEGIN 
0S « 18 LIT "SEXP ARGMNT >15626%§ & x740° 
ENDS 


END3 
tr R4 2 4 
FND33 


IF R5 THEN 
BFGTN 
TERM] 
TERM] 
END 


ELSF 


SPOUTCT)3 


GO TO INITIATES 


THEN STREAM(T)3 BEGIN 
NS8237 LIT*@ILLEGAL PERFORM © RETURN OR RELEASFIe "3 


% 297 
NATECPIMIX)3 
NALMESSAGEC™T)3 

% 2997 


2 RETURN STORAGE AND AUXTLIARY MEMORY FOR CODE OR DATA SFGMFNT 


Tr A4.f1811 T 


HEN % CONDE SFGMENT 


16631300 


18831400 
18831500 
18831600 
18831700 
18631800 
18831900 
18832000 
18832100 
18832200 
18832300 
18832400 
18832500 


18832600 


18832700 
18832800 
18832900 
18833000 
18833100 
18833200 
18833300 
18833400 
18833500 
18833600 
18833700 


18633600 
16833900 


18834000 
18834100 
18834200 
18834300 
18834400 
18834500 


18834600 


18834700 
18834800 
18834900 


18835000 
18835100 
18835200 
18835300 
18835400 


18835500 
18835600 
18835700 
18840000 
18840100 


Se 


Se ee 


4 - 


aA V4 HH 


— 


1-4 


AAAs 4H 


030412 
18831000 
030433 
0305%t4 
0306:0 
0306182 
0308:2 
0308:2 
031291 
0312%2 
031330 
O31311 
0313:3 
031481 
18831800 
0314:2 
18831600 
031432 
031432 
031530 
031610 
031680 
031831 
0318:2 
031930 
031931 
031933 
032031 
18833000 
032032 
18832800 
032012 
18830800 
032032 
032111 
032133 
0322t2 
032232 
032510 
18834300 
0325381 
16834100 
032531 
032731 
033231 
18834700 
0332:2 
03323 
033331 
033410 
033510 
168635100 
033510 
033510 
033643 
033731 
033830 


18580410 


ACCIDENTAL 


$ SFT 
$ SET 


& POP 
$ SET 


£ SET 


C3983 


c47ik 


% MEMO 
C48: ¢ 


BFGIN A # PRTCPIMyXee]s T © NFLAGCAM & C(1#09058521))3 
nO (F 7,584) THEN + © TefFFI] ELSE 
1F T.66%1) THEN 7 © T.f7811) ELSE 
T © NFLAGCALT,.£7%11))) 


UNTIL #03 
ADDR «© | INX AL4);3 
IF ADDR(OJ,¢321] THEN 
COMPLE XSLEEPCCNOT ADDRIO},£3213))3 
FNTRY AT 1 
AGORLO],¢3%82) «+ 23 
COMMENT TURN OFF AUXILIARY MEMORY FLAG» AND TYRN 
ON THe "DO NOT TOUCH” FLAG FOR 
REsENTRANT PRESENCE@BIT PROTECTIONS 
1F NOT STORFDY THEN SLEEPCETOGLEJ» STOREMASK)3 
LOCKTOGCSTOREMASK)3 


TF CT © €T « ADDRF9)),CFFI)>1023 THEN & PRESENT 
BEGIN J « Mrde1)3 PCOLAYCI"2)+ DEL) END 


OMTT = NOTCAUXMEM) 
OMIT = AUXMEM 

OMyT 

OMrT = NOTCAUXMEM) 


ANORCO],7324)403 
COMMFNT 311 #05 NOT BEING MASSAGED BY PRESENCE RIT 


432 @25 ASSIGN AUXILIARY MEMORY NEXT OVERLAYS 


UNLOCKTOGCSTOREMASK)3 


GO TO INITIATE 
END’ % OF CONE SEGMENTS 


IF NOT STORENY THEN SLEFPCETORGLE]» STOREMASK)3 
LOCKTOGCSTOREMASK)3 


IF ¢T * NELAGCMEJ © AS,fFFIIJ)).C2¢1) THEN 
BEGIN MrJJef323)¢72 MARK AS "READ@ONLY"%, ALREADY WRITTEN 
MET INX NOT OO} ¢ ¢*#PCOUP)) & CCI1*PCDUP).CFFIJ2 OR L)°CTFI3 
AITL © MET INX NOT 4).072133 
PCOLAYCT.CCFI"2))3 
OMIT = NOTCDFRUGGING) 
PCNEL) 
END FLSE AITLeC€CleT.rCFJ)21)3 


TF 1>511 THEN DISKRINCT, T.C8t10]98 
MrJ} © FLAGCTROC284286)RArTLOEcTCI)3 
UNLOCKTOGCSTORFMASK)3 


GO TO INITIATE 

% BASIC ARRAY RETURN 
ARTNCN4(015R5)3 

GO TO C3A3 


% RETURN RS DIM ARRAY 
%® TO REMOVE FROM AIT 


PRTCPIMIXs8] © FLAGCREISZOONE ONLY AT END OF JNTERRUPTFR INTRIN 


PcB INX PRTC PIMIXs TSX] .DUP,»LODs OsFFXeXCHeSTD)3 
GO TO INITIATES 
Ry DUMP OR TRACE FROM THE INTRINSICS 


18840200 
18840300 
18840400 
18840500 
18840600 
18840700 
18840800 
18840900 


18841000 
18841100 
18841200 
18841300 
18841400 
18841500 


18841600 
18641700 


18641800 
18842200 
18842300 
18842400 
18842500 
18843400 
18843500 
18843600 
18843700 


18843800 
18843900 


18844000 
18844100 


18844200 
18844300 
18844400 
18844500 
18844600 
18844700 
18845100 
18845200 


18845300 
18845400 
18845500 


18845600 
18850000 
18850100 
18850200 
18869000 
18860100 
18860200 
18870000 
18870400 


SL  _ 


AANHH HAH OH HH 


4-1 


ee ee ee ie i ee ne 


| 


0339370 
034311 
034533 
034833 
035030 
035211 
035313 
035472 


036110 
036233 
036233 
036233 
036283 
036533 
18841500 
036981 
037133 
16641700 
037513 
0375133 
0375133 
037533 
037533 
037533 
037712 
0377%t2 
037712 
18843700 
036130 
038132 
18840200 
038132 
038432 
18844100 
038610 
0391%2 
039413 
0399382 
040231 
040410 
040430 
040414 
18844300 
040710 
040983 
044310 
18645500 
041612 
0417140 
041730 
041880 
041882 
042140 
042410 
042412 
Oa2ate2 


$ SET oMyT = NOTCDUMP OR DEBUGGING) 
IF $4 NEQ O THEN 
$ SET OMIT = NOTCDEBUGGING) OR OMIT 
ELSE DUMPNOW(RS)3 
& POP OMIT 
GO INITIATE3S 
FND OF COMMUNICATEO3 


18870200 
16870300 
18870400 
18870700 
18870800 
18870900 
18872000 


042432 
042432 
042533 
0425:3 
043010 
043010 
043082 
18700100 
SIZF= 0431 WORDS 


Se Meee Nee Bee Bee Bee fon | 


SAVF PROCFDURE COM23 


PRT(643) = c-0OM2 
REGIN 
REAL ROs"4$ ARRAY A5S="5(¥]3 
STACK(F #4) = R4 
STACK¢F"5) = AS 
SLFFPCTMPAS)I,R4)3 
GO TO RETURN} 
FND COM93 


% SLFEP FUNCTION 


a721% 


19300000 


START OF SAVE SEGMENTS BASE 


CALGOL WATT) 
x721« 


x721" 
%721= 
x721= 


19301000 
19302000 


19303000 
19304000 
19305000 


¢ 09000:0 

ADDRESS # 00652 

c 000030 

¢ 090030 

c 0000:0 

¢ 000231 

¢ 000233 
19301000 


StZEs 0003 WORDS 


@ 
e PROCEDURE SHORTCOMMLINICATE3 19500000 r 0000:0 
START OF REL SEGMENTS DISK ADDRESS = 00553 
BEGIN REAL R4e@4,R5n"5pRO286,R[ 297 RB22bsRIB=9$ % ¢SHM) 19501000 T 060030 
@ STACK(F#4) = R4 . 
STACKCF®5) = R5 
STACK(F*6) = RE 
@ STACK(F*7) = R7 
STACK¢F@10) = RA 
STACK¢(F@11) = RO 
8 INTEGER [42%4,152°59 162-63 19502000 T 0000:0 
STACK¢«F*4) = 34 
STACKEF*5) = 15 
e@ STACK(FR6) a 16 
ARRAY Adsn4ce}sA5a"574#),A6E"6r*]3 19503000 T 000010 
STACK¢Fe4) = AA 
@ STACK¢F®5) 2 AS 
STACK¢(F=6) w A6 
ARRAY A7Tsm7[#]$ 19504000 T 0000:0 
@ STACK(F"7) = AT 
NAME N4e*4sN5e*5sN65%63 19505000 T 0000:0 
STACK¢F#4) = NA 
) STACK(CF=5) = N5 
STACKCF#6) = N6 
LABEL CO%C1+C26C30C40C5oCHrCT CB rCF CLO eCh I rCL20CIIsCL4 C15, 19506000 T 0000:0 
@ C169 C170 C18 9619 C20 C21 2 C22 9C230C24 eC 2500260027 C28 19507000 T 0000:0 
C299 C30sC31 + C329C339 CIM OCIS CIO PCI A C3BeCIIP C400 C41 COD C430 C44 19508000 T 0000:0 
2CH6eSLe TH 19508010 T 0000:0 
e SWITCH CEsSLoTWeC2sTWoSleC So TWoTWeTWrCOeC1OsCileTWeC130Ci 4s 19511000 T 0000:0 
SL eSLeTWrC1BeCL 9s TNs THe THO C230 C249 TWe THe C272 C2Be 19512000 T 0000:0 
TWoSlieSboSbsShsC34rC35eC36eC37eTWeTWeC40eC41> 19513000 fT 000010 
@ COPeCA3e CAO eSLoChbe THe TWe SLI 195143010 T 0000:0 
DEFINE CNeDIFFCOM#S 19515000 T 000010 
LABEL ACO>AC),AC2+AC3pAC4H, ACS? 19517000 T 0000:0 
@ SWrTCH AC © ACOrACT®AC22AC3rACKPACSS 19518000 T 000030 
REAL TeJeTeROWS403 19519000 T 0000:0 
STACK¢F41) = ! 
@ STACK¢(F 42) = J 
STACK¢(F43) = T 
STACKEF40) 2 RCH 
e@ ARRAY AITr#]} REAL ATTLSATT? ARRAY AmALTre)3 19520000 T 0000:0 
STACKCF44) = AIT 
STACKCF 44) = AITL 
e@ STACK(F44) = A 
ARRAY FIBSAITC*JeFPBC x) *HE*]3LABEL CHANGENAMES 19521000 T 0000:0 
STACKEF44) = FIB 
& STACK(F45) = FPB 
STACK¢F46) = H 
NAME ADDRS 19522000 T 000030 
®@ STACK¢Fse7) = ADDR 
DFFINE BITS=cTF SR THEN OSeSET ELSE DSeRESETS SKIP SB)#3 19523000 T 0000:0 
CHECKSTACKSPACESS ZWF 19525000 T 000030 
@ 19525000 
IF PCPRTICPIMIX+9}20UP) < O THEN 19525100 T 000610 
BEGIN PCDELI3 TERMYNATECPIiMIX)&’ TERMINALMESSAGEC 81) ENDS 19525200 T 000733 
® 19525200 
GO TO cLPy3 19526000 T 001010 
e SLi: Pe.,cOMMUNICATE1)3% GO DYFFCOMS 19526100 T 003533 
 ) 


TWs PC ,cOMMUNJCATEO)$ GO DIFFCOM3 


% SLFEP 
C2: P¢,COM2)% GO TO CN 
% ReFTURN SPECIFIC ARRAY 
% EodJ 
c5s P¢,COM5)5 GO TO CN3 
% FrLoL WITH INQUIRY 
C93 

$ SET OMIT = NOTCDATACOM) 
% BLOCK EXIT 
C19: P¢,aSRIi GO TO CN 
% ALGOL 170 FUNCTIONS 


cis: 
TF R4s0 THEN FILEOPENC Oe AS CCF I)3 
TF R426 THEN 
REGIN FILECLOSECNFLAG(AS))3 GO TO INITIATE ENDS 


1F R424 THEN 
BEGIN 
te A564} THEN & FILE 1S IN NIRECTORY 
FORGFTSPACE (CDT RECTORYSEARCH( RS oR7 (ASS LCF J ISROCCTFI)) 
BEGIN 
IF ¢(T&=R9,71885)) GTR O THEN & EU SPECIFIED 
TtscIF T GTR 720 THEN O ELSE #T) ELSE 
IF ¢T8seR9,61632)) GTR O THEN & SPEED SPECIFIED 
Tixc1F T GTR » THEN O ELSE T) ELSE 
Tts0% % NO SPEED OR EU SPECIFIED 
ASTROJI=PETUSERD1SK( A578) -T)3 
END3s 
GO TO INITIATE 
FND$ 
PC.COMt1)3 GO TO DIFFCOM; 
% COBOL 1/0 FUNCTIONS 
ci3: P¢,c0OM13)s GO TO CNS 
z INVERT OVERLAYABLE STATUS 


Ci4s) If NOT N4¢0),062%1) THEN MAKEPRESENTCIN4SC OJ) INX 093 
MrNArO] INX NOT 1) ePCDUPsLODIRPCOUPSLNGI(23231)3 
GO TO INITIATES 

% FRROR = INQUIRY WRITE 

cise 

S$ SET OMIT = NOTCHDATACOM) 
GO TO INITIATES 


% PRINT BACK*UP 

c198 P¢e,cOM19)$3 GO TO CN} 

+ 4 LOAD CONTROL 

c2383 Pe,cOM23)3 GO TO CN3 

z Rr TURN ONE ROW OF A DISK FILE 


C24tt Tesaae(R5]5 AgcR5)]:703 
$ SET OMIT ® SHAREDISK 
FORGETUSERDISKCT»A4(8))$ 
$ POP OMIT | 
$ SET OMIT = NOTCSHAREDISK) 
GO TO INITIATES 
¥ COBOL DATACOM | INTERROGATE 
c27st 


R721" 


¢SHM) 
CSHM) 
(SHM) 
(SHM) 


a 32 32 3e 


(SHM) 
(SHM) 
¢SHM) 


c 
nm 
nm 


¢(SHM) 
(SHM) 
(SHM) 
¢SHM) 


(SHM) 
CSHM) 
CSHM) 


BR Be DA FA TA DA FA 2e TT DR TA VQ 


CSHM) 
CSHM) 


aq 2e 


% ¢(SHM) 


CSHM). 


19526200 
19541100 
19542000 


19543000 


19552000 
19553000 
19559000 
19560000 
19561000 
19565000 
19566000 
19567000 
19568000 
19569000 
19570000 
19571000 


19572000 
19573000 
19574000 
19575000 
19576000 
19576100 
19576200 
19576300 
19576400 
19576500 
19576600 
19576700 


19577000 
19577100 


19578000 
19579000 
19580000 
19561000 
19582000 
19583000 
19584000 
19584200 
19584300 
19584400 
19584700 
19585000 
19586000 
19587000 
19588000 


19589000 


19590000 
19591000 
19592000 
19592001 
19593000 
19595000 
19601000 
19602000 


AA HHH HH AHA AHH DAS 


Oe 


4-4 


ee ee ee ee ee ee ee 


0036!2 
0037°%4 
0037%4 
0038:0 
0038:0 
0038:0 
003833 
0038:3 
0038:3 
0038:3 
003833 
003932 
0039%2 
003932 
00422 
0043%1 
19571000 
00452 
0046! 
004633 
OO47i1 
005130 
0051%2 
0053314 
00563 
0059:0 
0062314 
0063!2 
006533 
19576000 
006513 
006631 
19573000 
006631 
006710 
0067:0 
006733 
006733 
0070:2 
OO74!1 
007433 
007433 
007433 
0074:3 
007531 
007531 
0076:0 
0076:0 
007613 
OO0F6t3 
OO7T931 
O0079t1 
008032 
008082 
008082 
0081410 
0081410 


$ SFT 
% 
c2833 

$ SET 


C3438 


C3533 
C3628 
$ SET 
$ POP 


$ SET 
C3733 


§ SFT 
$ SET 


$ POP 


C4033 


$ SET 
$ SET 


OMTT = NOTCHATACOM ) 
GO INITIATES 
ALGOL. NATACOM {| JNTERROGATE 


OMTT = NOTCDATACOM ) 
GO INITIATES 

IF ¢TeR4) > O THEN STREAMCR4sT#TeSPACE(17))3 
BFGIN ST*R4$ DSe17 WOS ENDS 


TERMINATE CPIMIX) 3% 
TE RMINALMESSAGE(™T)3% 
1F R4,718:4]=21 THEN PC, LIBRARYZERO) 
ELSE PC, LIBRARYCOPY)3 
GO TO CN3 
% TYPE 19 NATACOM 1/0 INTERFACE 
OMyYT = DATACOM 
GO TO INITJATES 
OMIT 
OM1T = NOTCHATACOM ) 


ATT#JARROWCPIMIX]3 

1F ATTOOJ CFF ISO THEN aAITC9OI] CRF ISGETESPDISK3 

wee MCSPACE(5)1385£6:36:10)3 

H(t TeRS0HL2]¢R43 

OMIT = NOTCNATACOM ) 

OMTT = DATACOM 

H{3)+«0}3 

oMrT 

NISKWAITCH INX Os5eAalTTr9J,CFFI)3 

FORGETSPACECH)3 

G0 TO INITLATES 

te R5,£8810)=1023 THEN 

BFGIN MCRS,Ccrplit=PRNTARLFERS,CEFII3GO INITIATES END ELSE 


Ip RS.CCFIS0 THEN 

BFGIN LINKUPCR6-R5°2R5,rFFI)3 
SLEFPCEMERS) 1 2@1000000000000000)3 GO RETURN} 

END FLSE 


tr R5,615215)80 THEN 
BFGIN 
OMIT = NOTCDATACOM ) 
OMTT = DATACOM 
MCR5]8e03 


£ POP oM{T 


cata 
Chae 


GO INITIATES 
END FLSE 


te RS.CFFI=@77777 THEN 
BrGIN MERSI]%eM0p310S3 GO INITIATE? END ELSE 


BEGIN INDFPENDENTRUNNERCPC eDKBUSINESS)oR59128)3 SLEEPCEMER5)1.1)93 
GO RETURN? 
ENDS 


TORFQUESTCR7 »ROoFLAGCRS))$ GO INITIATES 
Pe, TISKTASK)$ GO TO CN; 


19603000 
19637000 
19638000 
19639000 
19640000 
19668000 
19680200 
19680300 


19680400 
19680500 
19681000 
19681100 
19682000 
19683000 
19683499 
19683500 
196863501 
19684000 
19685010 
19685015 
19685020 
19685025 
19685030 
19685035 
19685050 
19685055 
19685060 
19685065 
19685070 
19685075 
19685340 
19685350 


19685360 
19685370 
19685380 
19685390 


19685400 
19685410 
19685419 
19685429 
19685430 
19685431 
19685440 
19685450 


19685452 
19685456 


19685460 
19685470 
19685480 


19685550 
19685560 


AA NH AHH Ht to ot st st Ht SH 


444-4 


t4 AAA aa 


414-4 


008170 
0081:0 
00814 %2 
008132 
00812 
00861%t2 
0082%2 
0086733 
19680300 
00882 
008981 
009031 
009310 
009333 
0094%1 
009530 
009530 
0095%2 
009512 
009532 
009582 
009710 
O104%4 
040510 
0107%2 
010782 
0107%2 
0108613 
0108383 
OL11it2 
011232 
011330 
011431 
19685350 
011680 
0141933 
012251 
0124!3 
19685370 
012433 
012631 
012883 
012813 
0128133 
013081 
013031 
013083 
19685410 
013033 
0132%2 
19685456 
013582 
014081 
014083 
19685460 
0140183 
044330 


c43%3 H « PRTGPUMrXeTSX] 


% SET TASK en 
133 


; 
Hei) » JARLCPIMTX,0)3 Hr2) « JARIPIMIX,» 
Hr3j « 93 Hr4] « PIMIX3 H[6] « 23 


GO 10 INITIATES 
C4azi Pe, PICKTHELOCK)$ GO TO CN; 
C463! Pe, FVENTANDINTERRUPT)$ GO TO CNS 
END OF SHORT COMMUNICATE3S 


2 ATTACH» DETACHs CAUSE STMTS 


19685570 
19685580 
19685585 
19685590 
19685595 
19685596 
19686000 


014333 
014532 
014922 
0153%1 
015333 
01543 
0155!3 
19501000 
SIZE® 0156 WORDS 


ee 


PROCEDURE TISKTASK} 


19687000 


START OF REL SEGMENTS 01SK 


% A COBOL OR ALGOL PROGRAM WHICH EITHER CONTAINS OR IS INVOKED BY A 

% PROCESS» CALL» OR RUN/EXECUTE STATEMENT» OR MANIPULATES LOCKS (COBOL) 
% OR EVENTS CALGOL)» WILL BE FLAGGED IN SEGMENT O CWORD 2 £3%4)21) OF 

x 17S CONF FILE AS HAVING A TASK ARRAY, 

% THE FORMAT OF THE TASK ARRAY (MYSELF AT PRTCTSX7) 1S AS FOLLOWS 
TSKA(O1 TASKVALUE! PROVIDED FOR USER 

TSKAC1) = 7 CHR MFIN OF CODE FILE 


TSKAL 2) = 7 CHR FID OF CODE FILE 
TSKAC3) = STATUS! 12SCHEDULED 
PaACTIVE 
"1eTERMINATED (DOSED OR EO) 
"22INITIATION ATTEMPTED BUT FAILED 
TSKA[ 4] = STACKNO? MIX INDEX IF RUNNING 
SCHEDULE*ID (tF SCHEDULED 
TSKA[5) =HEAD OF LIST OF LOCK#ITEMS IN CONTROL OR QUFUED 
TSKAL6]) = TYPE! OSASYNCHRONOUS DEPENDENT CPROCESS) 
1=SYNCHRONOUS DEPENDENT (CALL) 
22 INDEPENDENT CRUN/EXECUTE) 
TSKA(7] = CALL STATES OF INITIAL 


1= EX TT PROGRAM/ 
EXIT PROGRAM RETURN HERE 
2sCONTINUED OR RECALLED 
TSKALB] * oritq)st1 TRF JUST EXECUTED INTERRUPTER INTRINSC 
AND SFINTQ {S NON*EMPTY 
62%q)s1 IFF SFINTQ 1S NON@EMPTY 
r3tqjet TIFF INTERRUPTER INTRINSIC 1S RUNNING 
(4%4] © SFINT® [NTERLOCK BIT ¢€ON TO START) 
CFF) = ABSOLUTE ADDRESS OF OLD IRCW 
rcF) s HEAD OF LIST OF DECLARED INTERRUPTS 
SEGMENT 0 FOR TPC PROGRAM FILES! 


§r21.07°11 21 IF THERE ARE DECLARED INTERRUPTS 
Sr27y.03841 =i FOR AN IPC PROGRAM FILE 

CEITHER INVOKING OR INVOKED) 
Sr21,f494) =1 FOR AN INVOKED IPC PROGRAM FILE 


NOTE: S€2).f 23] = JAR(2],.°523]. JARC2).(6%1]=1 INDICATES To CoMs 
THAT THIS JOB MAY HaVE DEPENDENT TASK DESCENDENTS TO BE DS#ED 
NR ES"ED AND LOCK QUEUES TO BE CLEANFD UP WHEN IT TERMINATES, 


gr8) NUMBER OF TASK PARAMETERS TO BE RECEIVED 
( = N BELOW), 
79] DISK ADDRESS OF PARAMETER DESCRIPTION SEG 
FORMAT OF FNTRY IN PARAMETER DESCRIPTION SEGMENT? 
CREGINNING IN WORD 1) 
118215) & TYPE = O TASK ARRAY = NAME 
1 FVENT/LOCK = NAME 
2 PRT cELL = NAME 
3. PRT CELL e VALUE 
4 ¢SAVE) ARRAY » NAME 
5S ARRay = VALUE 


CONLY 1°DIMENSTONAL ARRAYS CAN BF PASSED AS TASK PARAMETERS), 
c8:10) ' SIZE = S1Ze OF ARRAY FOR TYPES 4& AND 5S» ELSE 0 
£33215) % LOCATION@=PRT LOCATION FOR TYPES Od, FOR TYPE St 
PRELATIVE DISK ADDRESS OF TYPE#2 SEGMENT 
TYSTASK MAKFS A TEST FOR AGREEMENT BETWEEN THE TASK PARAMETERS 
SPECTFIFD IN THF PARAMETER DESCRIPTION SEGMENT AND THOSE SPECIFIFD BY 
THE F= CELLS (SEE BELOW). LACK OF AGREEMENT EITHER DS*ES THE PARENT 


19687100 
19687120 
19687440 
19687150 
19687200 
19687300 
19687400 
19687500 
19687600 
19687610 
19687650 
19687680 
19687700 
19687750 
19687780 
19687800 
19687840 
19687850 
19687860 
19687870 
19687872 
19687874 
19687876 
19687878 
19687880 
19687882 
19687883 
19687884 
19687885 
19687886 
19687887 
19687888 
19687689 
19687890 
19687892 
19687894 
19687896 
19687898 
19687900 
19687910 
19687920 
19687925 
19687930 
19687935 
19687940 
19687945 
19687950 
19687985 
19687957 
19687960 
19687965 
19687970 
19687975 
19687977 
19687980 


0000:0 
DDRESS «s 
000050 
000030 
000030 
000010 
000030 
000030 
000030 
0000:0 
000050 
000010 
000040 
000010 
000030 
000030 
000010 
0000:0 
000030 
0000:0 
0000580 
000030 
0000:0 
000030 
0000:0 
0000:0 
0000:0 
000010 


000010 
000030 
0000:0 
0000:0 
000030 
0000:0 
0000:0 
0000;:0 
0000:0 
000030 
0000:0 
000030 
0000!:0 
000010 
000030 


00559 


000030 


0000;0 
000030 
000010 
000010 
000030 
00000 
000030 
0000'0 
0000:0 
000010 
000030 


T 
A 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 000030 
T 
T 
T 
T 
T 
T 
T 
T 
v 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
tT 
T 
T 
T 
T 
T 
T 000030 


STACK ¢F<4) 
STACKEF #5) 


STACK ¢(Fe6) 


STACK ¢F 41) 


STACK ¢F42) 
STACK ¢Fs43) 
STACK ¢(F 44) 
STACK¢F 45) 
STACK¢F 46) 


STACK¢F#7) 


Huo na 


STACK¢Fs7) = T 


STACK ¢F 410) 
STACK¢F411) 
STACK (F412) 
STACK(CF 413) 
STACK (F414) 
STACK¢F 415) 


STACKEF 416) 
STACKOF $17) 
STACK ¢F 420) 
STACK ¢F 421) 
STACK¢F 422) 
STACK¢F 423) 
STACK EF 424) 
STACK¢F 425) 
STACK (F426) 
STACK ¢F 427) 
STACK¢F 430) 
STACK (F431) 
STACK ¢F 432) 


uHUuU nH a 


Bueananhnhuwpuruweupua 


Z OR CAUSES A Ty BE RETURNED CIN T CAS PROG 
: Nerne in Mey MeCSEL OCS ChaUee yee ASE OF A COBOL PROGRAM WHICH 
& TISKTASK COPIES THE CODF F{Le» FILLING NAME AND VALUE PARAMETERS INTO 
% THE NEW PRT AND WRITING OUT VALUE ARRAYS AS TYPE"2 SEGMENTS, THE JOB 
% IS ENTERED IN THE SCHEDULE AND THE SCHEDULEKID IS ENTERED IN THE 
% TASK ARRAY, THE NEW SHEFT FNTRY 1S FLAGGED A GO JOB CAS FROM A 
% COMPyLE*AND"GO), 
BEGIN 
REAL, MF IDs"4sFIN=e"5, % FILE ID OF CODE FILE TO BE INVOKED 
MFID 
FIO 
% MFID«eO IF ON EXCEPTION CLAUSE 1S PRESENT 
% FIDK<O IF CALL OR CONTINUE STATEMENT 
Nz=63 % NUMBER OF Fe PARAMS BETWEEN F7 AND MKSCW 
N 
% THERE WILL BE A PAIR OF Fe CELLS FOR 
% EACH TASK PARAMETER, FC®1) CONTAINS 
% THE NAME OR VALUE OF THE PARAMETER, 
% Fo@CT+1)) CONTAINS THe TYPE 
x CAS IN SEGMENT 0), 
4 CTSKA 1S THE FIRST TASK PARAMETER) 
% N<O TF CONTINUE STATEMENT 
ARRAY NAME PARNM: 
PARM 
ARRAY SC¥#¥)oRO*ISHE*) DI] Wreds 
cS) 
R 
H 
) 
W 
2 TSKAS@70¥*13 % TASK ARRAY DFSCRIPTOR FOR PROCESS» CALL 
SKA 
x INTEGER = TASK ARRAY LENGTH FOR RUN 
REA! TeTisT@eT3eT42ONEXCEPTIONsCALLEDORCONTe 
T4 
T? 
T3 
T4 
ONEXCEPTION 
CALLENORCONT 
VARRAYs TO0De T0N1 »NReSRsHADDResPRIRLOC oPRTISZeERR»SZ051 oCR,PRITSS 
VARRAY 
10D 
1004 
NR 
SR 
HADDR 
PRTRLOC 
PRTSZ 
FRR 
$Z 
Si 
CR 
PRTS 


LABFL LisERROR,NEXTROW,LA,XYTS 
INTEGER PANDR+ADDRS 


19687982 
19687984 


19687990 
19687995 
19687997 
19687996 
19687999 
19688000 
19688050 


Aaa st 


19688060 
19686070 
19689000 


4-4-4 


19689010 
19689020 
19689030 
19689040 
19689050 
19689060 
19689070 
19691000 


4 AAMAS 


19692000 


19692100 T 


19692200 T 
19693000 T 


19694000 T 


19695000 T 
19696000 T 


000010 
000030 


0000:0 
0000:0 
0000730 
0000:0 
000010 
0000:0 
0000:0 


0000:0 
000030 
0000:0 


0000:0 
0000:0 
0000:0 
000010 
0009010 
00000 
0000:0 
0000:0 


0000:0 


000010 


0000:0 
0000:0 


0000:0 


000010 
000030 


STACK ¢F 433) 
STACK ¢F 434) 


STACK ¢F 435) 
STACK¢(F 436) 
STACK ¢F 437) 
STACK eF 440) 
STACK¢Fs41) 


Btn 


PADOR 
ADDR 
REAL COMMON+FeESTPROC+ESTIO*# STKSZS %110° 
COMMON 


F 
ESTPROC 
FST1O 
STKSZ 


NEF yNE CONTINUED = VARRAY#s, SAVEBIT = 100183 
ONEXCEPTION «+ MFID<O$ MFID « ABSCMFID) 
CALLEDORCONT «¢ FIDeO: FID « ABSCFID)3 
CONTINUED «» NeO? N « ABSCN)3 
PARM « EN]3 


IF CALLEDORCONT THEN ® CALL OR CONTINUE STATEMENT 


BEGIN TF CONTINUED THEN IF TSKAC3}#2 OR TSKAL7I]#1 THEN 
RFGIN FRR # 13 TERMINATFCPIMIX&9B8{CTFI)3 GO XYT3 
ENDS 


IF TSKAC3]=2 THEN IF TSKAL7]#®1 THEN 
BEGIN TSKAL7T] «© 23 GO XYT3 
END ELSE ELSE TSKAC7)] «+ 03 


END: 


IF CTteDTRECTORYSEARCHCMFID»eF1D23)) GEO 64 THEN 
REGTN IF SECURITYCHECKCMFIDsFID*eUSERCODELPIMIX]eT)#O THEN 
U3 RFGIN ERR « 13 
1F T GEQ 64 THEN FORGETSPACF(T)S 
GO ERRORS 
FN? 


tF MeT INX 43,£982743 THEN GO Lis & NOT EXECUTABLE CODE 
END ELSF GO 143 


IF TSKA.PBIT THEN IF TSKAL3]24 THEN GO L13 
S « [MEGETSPACE( 30+2,0)423)830[8838210)3 
% READ SEGMENT ZERO INTO S 
DESKWATTC*S. CCR I e30*eMET INX 10])3 
IF S{B8)4N THEN 
FORGETSPACE(CS);3 
GO Lt} 


L2% BEGIN 
ENDS 


We CMPGETSPACECT3N DIV 2415200342178 T3L838810)3 
% READ +Pc PARAMETER DESCRIPTION SEGMENT INTO W 
DISKWATTC@W.ECRI+T3I*ADDR © MET INX €4040¢T208¢9)) 
DIV ¢SRemMCT INX 83)))] + (T2 MOD SR))3 
FOR T1 « 9 STEP 2 UNTIL N 90 
TF PARMCNOTCTi*4) J#HETL DIV 2).0FF) THEN 
BEGIN FORGETSPACECW)3 
gO L2s 
END; 


% READ PRT INTO R 
R « CMrGETSPACE(S731,2.0)423)788(3)78838910)3 
DISKWAYTCPR, (CR JeSE3}sPADDR © MET {NX (€104(¢¢PRTS*Sf2),96CF)) 

DYV SR) + cPRTS MON SR))3 


19696100 


19696500 
19696600 
19696700 
19696800 
19697000 
19697200 
19697300 
19697400 
19697500 


19697600 
19697700 
19697800 


19697900 


19698000 
19699000 
19700000 
19700500 
19701000 
19702000 


19703000 
19704000 


197044100 
19705000 
19706000 
19707000 
19708000 
19709000 
19710000 
19711000 


19711100 
19711200 
19711300 
19711400 
19743000 
19744000 
19714100 
19714200 
19714300 


19718000 
19719000 
19720000 
19721000 


AAAs Ha 


44-1 


+ 


Se | 


Aone se Sate HA HSH 


0000:0 


0000:0 
0000:0 
0010:2 
0012:3 
001570 
0015*3 
001650 
0019%2 
0022:2 
19697400 
0022:2 
002510 
002731 
19697700 
0029%2 
19697300 
002932 
003143 
003432 
0035%3 
003713 
0038314 
19700000 
0038!1 
O041t4 
19699000 
004134 
004474 
0048!0 
004610 
005112 
0052%2 
005440 
005412 
19709000 
005412 
005933 
0059'3 
006231 
006651 
0069%0 
oo7r2s2 
0074:0 
O07T4!2 
19714100 
007633 
007683 
008130 
008383 


FOR T1 + 2? STEP_2 UNTIL N pO 19722000 YT 0088:2 
Te PARMECNOTCT1°4)]=5 THEN % PASS*BY*VALUE ARRAY 19723000 T 0090:0 
BEGIN PARMPNOT(TI*1)] «© WETt DIV 23,CCF)3 & RELATIVE DISK LOCA® 19724000 T 009211 
VARRAY « VARRAY4al3 Z TION OF TYPF#2 SFG 19725000 T 009631 
FND FLSE 19726000 T 009732 
197248000 
BEGIN Rew(T! DIV 2),0CF1] « *CPARMENOTCT1*°2)313% PLACE NAME 19727000 T 009732 
PaRMrNOT(T1™4)] «© *@777773 %@ OR VALUE IN PRT 19728000 T 0402:0 
END; 19729000 T 010482 
19727000 
® RUILD HEADER FOR NEW CODE Frbr IN H 19730000 T 010683 
H « CMPGETSPACEC30+2,0)4+2))830[8338830]3 19731000 T 040683 
MOVEC309T INX Oo fWI1)3 19732000 T 01102 
Hf2] «© HES] © HL6) « 0; 19733000 T 011283 
Ta © MET INX 93.043%5)] 913 19733400 T 011610 
WHILE MET INX (104NR)]#¥0 AND NRST4 DO NR « NRoi3 & NR = # ROWS 19733600 T 011930 
T4 © NR+94 19734000 T 012610 
HE 4),f16820) « 0; 19735000 7 O127%1 
Hf9) «+ NR3 19735050 T 012933 
FOR Ti © 10 STEP 1 UNTIL T& DO HET1] + GETUSERDISKCSR)} 19736000 T 01341:0 
HADOR «© GETFSPDISK; 19737000 T 013631 
NISKTOCTOMeH INX 0°1,30sHADNR) 3 19738000 T 0143731 
F « ST15)3 3 SAVE LABEL EQUATION ENTRIES 4110" 19738100 ¢ 044030 
ESTPROC t=S(16]3 % SAVE ESTIMATED PROCESSOR TIME £1108 19738110 c 044130 
ESTJ]O%e Sfi17)3 % SAVE ESTIMATED 1/0 TIME %110# 19738120 ¢ 0142:0 
COMMON « §71933 % SAVE COMMON VALUE £110" 19738200 c 014310 
STKSZiz 812113 % SAVE STACK SIZE %110° 19738210 c¢ 0444:0 
CR « SE7I,LFFI3 % SAVE CORE REQ, 19739000 T 0445:0 
PRTRLOC « PRTS DIv SRB % ROW PRT 3S LOCATED IN 19740000 T 014682 
PADDR e«(PRTS MOD SR)}3 ® WHICH SEGMENT IN ROW 19741000 T 044733 
PRTSZ «€(€563]429) piv 3093 Z NUMBER OF SEGMENTS IT OccuPI¢FsS 19742000 T 014930 
SLFFPCrIONI» TOMASK)3 19743000 r 0151480 
$1 « SR#43 % NO, OF SEGS/ROW @ 1 19744000 T 0152:2 
FOR T1 $m 10 STEP 1 UNTIL T& DO & COPY CODE FILE CHANGFING?110# 19746000 P 0453%3 
REGIN ¥ PRT & PASS#=BY"VALUE SEGMENT 19747000 P 035510 
FOR T3 t= 0 STEP 4 UNTIL S41 DO & COPY ROW %i71° 19748000 P 045510 
REGIN : ¥110- 19749000 P 015630 
DESKWAITTO™S,(CFI],30eMCT INX T1}4T3)3 & READ SEGMENT 21402 19750000 P 0456:0 
TECTI=10) THEN TFCT320) THEN S£2),(312) « 35 & INVOKED 19750100 c 016030 
DISKWATTC S,fCr),30eHntT1) #733 8 WRITE IT BACKE110# 19751000 P 016510 
END; %1100 19752000 P 016733 
19749000 
TFCTI*1O)=PRTRLOC THEN x PRT 1S IN THIS ROW £110- 19753000 P 017010 
DISKWAITCR, FCF JesPRTSZ2x30eHET4]+PADOR)S & WRITE OUT PRT 19754000 P 047434 
IF VARRAY > 0 THEN & LOOK FOR TYPE=2 SEGMENTS IN THYS ROW 19755000 c 0175:0 
FOR T2:22 STEP 2 UNTIL N DO $110# 19756000 C 01475:3 
TF CTI*{OSCPARMLNOT¢(T2™,) 3DIV SR) THEN %110= 19757000 c 0177:0 
Z WE HAVE A TYPE=2 SEGMENT IN THIS ROW 110 19758000 P 048081 
BEGIN & MOVE SFGMENT TO CODE FILE ROW 110 19759000 P 016011 
SZtecW(T2 DV 23,(8%4101429) pV 303 110" 19760000 ¢c 0480:3 
DtePARM[NOT(T2"2))3 ¥110" 19761000 ¢ 048383 
ANDDRtsCPARMCNOTCT2"1))M0D SR)E #1108 19762000 P 0186:!0 
VARRAYSSVARRAY(4 $3 #1108 19763000 P 048883 
WHILE DePBITsO DO 2110" 19764000 P 019010 
MAKEPRESENT¢(CET) INXC(NOT 1))8 % ADDRESS OF D S110« 19768000 ¢ 019230 
SAVEFBIT%=Mrn TNX CNOT 1)),C23193 £1102 19766000 P 0194:0 
P¢MED INX CNOT 0)))3 "1108 19766100 ¢ 019710 


MED INX CNOT 191, L221] 8at3 
NISKWAITCO.ECCRI*®SZxX30°HCTII+ADDRY} 
MCD INX CNOT O5])88PCXCH)3 

MCD INX CNOT 19), C224] teSAVEBIT? 
FNDS 


FND$3 


FORGETSPACECR)§ FORGETSPACECT)E FORGETSPACECW)3 


% RUILN SHFFT SKELETON IN 5§ 
STREAMCSIIBEGIN 30¢nS « 8B LIT "O*)3 ENDS 


S120) « CR} 
S625] © HADDR3 
SrO] « MFINS 
Sril « Fins 
$f?) ¢ SC186) «© PRYOR(CPIMIX]3 
% WRITE OUT NUMMY CONTROL CARN FOR LOGGING ROUTINE 


STREAMCX*#SL24]¢USFRCODELPIMIX]® MFIDs FID» TefHl2)] 23 


BFGIN SI*LOC Xs DS*9 LyT "CC USER =%3 


SleSi4+1# DSe7 CHRE OSe9 LIT "SEXECUTE 3 
2CSTeSt+13 OS? CHRE DSeLIT "/")3 OleDim13 


DSe6 LIT "SEND we "3 OSe26 LIT * 83 
FND STREAM3 


HO] «+ O03 
Hoi] « 103 
$'6) © GETESPDISK & 10 CCTFIs 
DISKWATTCH. CCF ]9i19S(6] INX OD 
$ SET oMrTT = NOT PacKETS 
% PUT DUMMY CONTROL CARD IN PACKET PAGE ALSO 


1F ¢T#PSEVUDOMTXCPaMIxX]) GE@ 32 THEN & ITS A PACKET JOB 


REGIN 


¥110# 
¥110° 


110° 
%110° 
%110= 


%110- 
71109 


*722= 
%722° 
%722= 
27225 
x722" 


%1102 
%110= 
%110- 
%110- 


STREAMCAe( JARLPIMYX,0O) ) p>MePIMIXsBelCH( 2] JeTI«T1#SPACE(10))3 


BEGIN 
DS#3 LITM>>>"3 S1eBs 0S+¢30 CHRS DSe14 CHR 


%110- 
X722= 


DSe13 LIT", INVOKED BY "3 SI¢AS SteSfeis DSe7 CHRIDSeLITI/™3 


SyeSt413 DS«7? CHRs DSeLITs"3s SteLOC Ms DS#2 DECI 


NSe+LIT LEFTARROWS DreDI-33 DSeFILL3 
END; 


SPOUTERCT12T» O93 
END; 


$ POP OMYyT 
SLFFEPCrTOGLE ]»SHEETMASK)$ LOCKTOGCSHEFTMASK)3 


STRFAMCACO1BSP( eSCHENULEIONS) 33 
BFGIN SleB3 
47¢SKIP SBS SKIP DBF TALLY*TALLY+413 
IF SB THEN BFGIN END ELSE JUMP OUT)3 


OS*SET? AeTALLY?3 
END STREAM; 


Tt « P3 Sr31 © 0871823821013 
§(23]2=08&¢ 


%110- 
110° 
*110= 


%110= 
Z110% 


£1108 


%110= 


19766200 
19766300 
19766400 
19766500 
19766600 


19766700 


19766800 
19767700 
19767750 


19767760 
19767800 
19767900 
19768000 
19768050 
19768100 
19768200 
19768300 
19768400 
19768480 
19768500 
19768550 


19768600 
19768650 
19768700 
19768750 
19768760 
19768762 
19768764 
19768766 
19768768 
19768770 
19768772 
19768774 
19768776 
19768778 
19768780 


19768782 
19768764 


19768786 
19768600 


19768900 
19768950 
19769000 
19770000 


19771000 
19772000 


19773000 
19774000 


4-40 


4D D UU DH te 


an 


4~A+454 +40 


| 


[owes Kelsi s ele leleKel i i 


0199:0 
020233 
0206:0 
020812 
021291 
19759000 
0214:2 
19747000 
021633 
021982 
0219:2 
19767750 
022282 
022353 
022530 
022681 
022712 
023040 
023010 
023310 
023413 
023613 
023812 
024320 
19768300 
024391 
024412 
024513 
024733 
025082 
025032 
025082 
025210 
025212 
025710 
025730 
025812 
026413 
026391 
026411 
19768770 
026412 
026513 
19768766 
026533 
026533 
19768800 
027033 
027210 
027201 
027311 
19770000 
027413 
0275t1 
19768950 
027582 
027831 


18840900 


£ SET OMyT 
&$ POP OMIT 
$ SFT OMIT 
$ SET OMIT 
$ SFT OM]T 


tF 
$£ POP oMyT 


r 


NOT PACKETS 
IF CT*PSFUDOMTXEPYMIXI)I40 THEN T 


FLSE 


NOT pATACOM 
26)(2!42:6} 
NOT naTAcOM 
RCCCLOCKSPCRTR)) O1V 60)724:24:24)3 
NOT PACKETS 
GFQ 32 THEN PACKETACTrT@32J}¢PACKETACT(T=32)413 


Sp24]ssUSFRCODELPIMIX)3 

Sri2)t=#5123 

Sri5) ¢ Fs % PUT LABFL EQUATION ENTRIFS IN SHEET 
STI6]t=FSTPROCS 

STI7J¢aESTIO3 

Sfi9] «© COMMON; & ANH COMMON 

Sr2i)teSTKSZ3 

HADDR + GETESPNISK$ 

IF SHEETCOJ.£CFI#0 THEN 


BEGIN 


NISKWATTC™HeLCEI2308T? « SHEFTLO],.CFFIDS 
H(29 1 « HADDR3 
NDTSKWAITCHe [CK I1,300T2)5 


FND ELSE SHEETFOT « HADDRS 


SHEFTCOJ.CFFIJ © HADDRS 
S629] « 03 
NTSKWATTCS. PCE] *+30-+HANDR)? 


UNLOCKTOGC¢SHEETMASK)s: FORGFETSPACECS)$ FORGETSPACECH)3 


FRRORS3 


TF TSKA.PRIT THEN 


REGIN 


ENDS 


TSKAF3] « 1°3XERR3 
1F NOT ERR THEN TSKALa) « Tis & SCHEDULE#1D 


%110° 
K1108 


¥110° 
%110° 
Z110° 
110° 
¥110" 
T1108 
%110° 
%¥110=8 
110° 
¥110- 
%1108 
s110° 
%¥110" 
%110" 
2110" 
¥110" 


% STATUS! SCHEDULED OR FRROR 


1F FRR AND NOT ONEXCEPTION THEN TERMINATECPYMIX894(CTF]) ELSE 


PARM(NOTCN+1)] © ERRS 


% ON EXCEPTION BRANCH IN COBOL 


% PLACE BOOLEAN IN WORD BELOW MKSCW FOR 


PCNTRECTORYSEARCHCNARSCMF IN) »F1D013) eDELISSCLOSE>FORGET HEADER 
1F NOT ERR THEN SELECTYONS 
XYT#? fF CALLEDORCONT AND NOT ERR THEN COMPLEXSLEEP(CTSKAL7) AND 4) 


ENO TISKTASK3 


OR (TERMSETCP1IMIX)))3 


ACCIDENTAL ENTRY AT 1 


%410 


19774050 
19774100 


19774150 
19774200 
19774250 
19774450 
19774500 
19774650 
19774700 
19774750 
19774800 
19774850 
19775000 
19775100 
19776000 
19776010 
19776100 
19776110 
19777000 
19778000 
19779000 
19780000 
19781000 
19782000 


19783000 
19784000 
19785000 
19786000 


19787000 
19788000 
19791000 
19792000 
19793000 


19796000 
19797000 
19798000 
19799000 
19799050 
19799060 
19799070 


19800000 


AAs HS 


oe i | 


T 


AAA AHAHGOO DEVDAIANANAANAQAANA AAO 


0279:0 
027930 
028130 
0281:3 
028133 
026433 
026230 
026230 
028531 
0265!1 
O29L 31 
029134 
029233 
0294:0 
029591 
0296:2 
029733 
029910 
030031 
0301!1 
0302:3 
0306:3 
030680 
0310:0 
19779000 
031133 
031313 
031510 
031720 
19786000 
0322%2 
0322!2 
0324:0 
0326!3 
032930 
19791000 
032910 
033133 
033432 
033482 
0336414 
033812 
0340!0 


034733 
19688000 


SIZEs 0348 WORDS 


STACK¢F #4) 


STACK ¢F el) 
STACK ¢F 42) 
STACK ¢(F +3) 
STACK (CF 44) 
STACK (F45) 
STACK ¢F+6) 


STACK EF 47) 


st 
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PROCEDURE PICKTHFLOCK; 


19900000 


START OF REL SEGMENT) DISK 


REGIN COMMENT THIS PROCEDURE HANDLES LOCKING/UNLOCKING OF 
LOCK*={TFMS FOR TASKING, IT ALSO HANDLES THE MAINTENANCE 
OF A WATT QUEUE AND PASSING CONTROL OF THE LOCK TO THE 
FIRST PROCESS IN THE WAIT QUEUE, AFTER IT HAS BEEN 
RELEASED BY ANOTHER PROCESS, THE HEAD OF THE QUEUE 15 
THE LOCK=ITEM OF THE PROCESS CURRENTLY IN CONTROL AND 
ENTRIES ARE MADE AT THE END OF THE QUEUE, LOCK*=ITEMS 
ARE IN THE PRT AND HAVE THE FOLLOWING FORMAT? 
rit} )eie MEANS LOCKENCLOCK BIT,ORIGINAL ONLY) 
r234)s1>5 IN CONTROLCCONTROL BIT) 
r3t1J=1» ORIGINAL LOCK*1TEMCORIGINAL BIT) 
20» A COPY 
r4ty)= QUEUE INTFRLOGKCORIGINAL ONLY) 
c8%1O1=MiX tNDFX OF PROGRAM IN CONTROLCORIGINAL) 
sRELATIVE PRT ADDRESS USED TO LINK ALL LOCK#ITEMS 
IN CONTROL OR JN WATT QUEUES( COPY) 
ri8%y;5}sPOINTER TO NEXT PROCESS IN WAIT QUEUE, ELSE 0 
r33%157sPOINTER TO HEAD OF QUEUECORIGINAL) 
=POINTER TO ORIGINAL LOCK#®{TEM(COPY) 
"LOCKPTR" 1S THE PARAMETER PASSED AND HAS THE FORMAT? 
r1%4j%0»+ MEANS LOCKs ELSE UNLOCK 
r2tyji. “ TeST LOCK BIT, LOCK TF UNLOCKED AND 
RETURN A O+ ELSE RETURN 1 
r33ti5]sRELATIVE PRT ADDRESS OF LOCK@] TEM? 
REAL LOCKPTRE*ASZPARAMETER 
LOCKPTR 
REAL Q@,ReSoTeU,V3 


=< cH ODDO 


ARRAY Aat*]3 


> 


DEFINE DSFDSTERMSFETCPIMIX) 4» IMASKe#@200000000000000#3 
SUBROUTINE UINKIT3 
BEGIN rR eVisArS$) =O THEN ArSytsxLOCKPTR INX 0 
FLSE BEGIN WHILE PRTGPaMrXeVy,f8410)] NEQ@ O DO 
VisPRICPYMIX,V).,(68210]3 
PRICPIMIX9V}.CB810):aLOCKPTR INX O}3 
END; 


ENDS 


QterPRTECPIMIXeLOCKPTR [NX 0}] INX O83 

ReNFLAG(M[UeQ])3 

Selp R,€321] THEN Q@ ELSE CR INX 093 B3ADDR OF ORIGINAL 

AtePRTLPIMIXeTSXIS&RTASK ARRAY 

IF NOT MfSJ,f421) THEN SLEEPCEMCSJ]*IMASK)3 

MeS4,f421)3=03 

IF LOCKPTR,62!1) THEN &TEST & LOCK 

BEGIN YF NOT MrS},0191) THEN SUNLOCKED 

BEGIN MESI]PsNABSCMCSIIBULCTCIRPIMIX(8838:10)33 

McU]t=(Mru] OR MROLCTFI3 


19900010 
19900020 
19900030 
19900040 
19900050 
19900060 
19900070 
19900080 
19900090 
19900100 
19900110 
19900120 
199001330 
19900140 
19900150 
19900360 
19900170 
19900180 
19900190 
19900200 
19900210 
19900220 
19900230 
19900240 
19900250 


19900260 


19900270 


19900280 
19900290 
19900300 
19900310 
19900320 
19900330 
19900340 


19900360 


19900370 
19900380 
19900390 
19900395 
19900400 
199004410 
19900420 
19900430 
19900440 
19900450 


T 


0000:0 


ADDRESS # 00571 
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—_ 


Aaa 4 


~ 


re .. . .  . 


000030 
0000!0 
0000:0 
000010 
000020 
000030 
0000!0 
000030 
000030 
0000:0 
000010 
000030 
0000:0 
0000!0 
000080 
000010 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
000010 
000030 
000030 


0000:0 


000080 


000010 
000030 
000110 
000333 
000733 
0010%1 
001333 
19900310 
001383 
19900300 
001410 
O018?4 
0020!2 
002333 
002581 
0029%2 
003231 
003310 
003581 
003933 


IF U#S THEN BEGIN 
ENDS 


LOCKPTR38=03 
FND ELSE LOCKPTRs=13 


MESyt2#C#P(OUP)) OR [MASK3 
PCXrT)3 
END; 


IF LOcKPTR GTR 0 THENSLOCK 
tF NOT MEUJ,£2:1) THENSNOT {N CONTROL 
REGIN IF NOT MES],£121) THEN 
REGIN MCSJt#NaBSCMIS] RUCCTCIRPIM]XC8!238310)3 
MCUJs=CC*PCHNUP)) OR M)ROCCTFI3 
IF WAS THEN REGIN MfUJ.0£8810)+¢03 
LINKITS 
ENDS 


FNI) ELSE 


REGIN 

Tt=M(—S] NX O3 

WHILE MCTJ.C FF] NE@ 0 pO TiaMCTI. CFF I 
MET) CFR ]&su3 

MCUJ,CFF)%203 

TF UtS THEN BEGIN MrU),(8:10]«03 LINKIT ENDS 


MCSJ%*C(*PCDUP)) OR MASK} 
COMPLEXSLEEPCDSED OR M({U],£2211)3 
19799070 ACCIMENTAL FNTRY AT 1 
JF MCUJ,£6231) THEN 
MESJ#¢C#PCNUP)I&P1M1X(8838810)) OR YMASK3 
PC(XIT)3 
ENDS 


ENO ELSE ELSE SUNLOCK 


BEGIN tr MFSI),cC191] THENSLOCKED 
REGIN MCT&#MCS] TNX 03,0281)'8038TURN OFF CONTROL 
IF T#S THEN 
BEGIN 
AtePRTICV$SM(S].f8#1015TSXI3 
Riea(5]3 
IF T NEQ CEPRTCVsRI] JINX 0) THEN 
BEGIN 
WHILE MCSJ,(CF} NE@® CCPRTCV»RI] INX 0) DO 
BEGIN UtsR3 
Rs=PRTCvsR),68910)3 
END3 


PRTICVeUI,CA&LO] s#PRICVeRI, C8210] 3 2DELINK 
ENp ELSE ACS] t=MCT],£8810)3 


END3 


19900455 
19900460 
19900465 


19900470 
19900480 


19900490 
19900500 
19900510 


19900520 
19900530 
19900540 
19900550 
19900560 
19900565 
19900570 
19900575 


19900580 


19900590 
19900600 
19900610 
19900620 
19900630 
19900650 


Se ee ee ee ee ee ee | 


— 
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19900660 T 
19900670 T 


19900675 
19900680 
19900690 
19900700 


19900710 


19900720 
19900730 
19900735 
19900740 
19900745 
19900750 
19900755 
19900758 
19900760 
19900770 
19900760 
19900790 


19900800 
19900805 


19900810 
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004310 
004730 
004830 
19900455 
004830 
004813 
19900440 
005183 
0054380 
005431 
19900430 
005401 
005510 
0057%1 
0059%2 
006410 
006683 
007083 
007230 
19990565 
007240 
19900550 
0072140 
007410 
007610 
0084140 
008311 
0085t2 
19900650 
009130 
009391 


010131 
010233 
010612 
010613 
19900590 
010633 
19900540 
010980 
011140 
0116180 
011683 
0117341 
012082 
012142 
012332 
012410 
012713 
0126:2 
0130!2 
19900770 
013130 
O135%4 
19900758 
013831 
19900740 


END: 


MCS](CCFI8ecTseMCTI, CFF IS 
IF T NEQ O THEN 
BEGIN MCTJeC*PCHUP)) OR M3 


ELSE MESJtsABS(MES])3 
ENDS 


END3 


MESJts¢#PCDUP)Y) OR IMASK3 


PCXIT) END 


19900815 
19900820 
19900830 


19900840 
19900850 


19900855 


19900860 
19900870 


+444 
oo0°0 
re eh 
FRrw 
~ 
fd 
os 


19900730 
T 014910 
19900720 
T 0149140 
T O15191 
19900010 
SIZES 0153 WORDS 


STACK(Fe4) 
STACK¢eF#5) 
STACK¢F=6) 


STACK ¢F 41) 
STACK¢(F 42) 
STACK(F 43) 
STACK¢CF44) 
STACK¢F45) 
STACK(CF 46) 
STACK¢F 47) 
STACK¢(F 46) 


STACK ¢F +410) 
STACKEF 411) 


STACK (F412) 
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PROCEDURE EVENTANDINTERRUPTS 


BEGIN 


REAL TYPF=™4s 


TYPE 
RELINT 


ABSEVT 


SFINTQ 
TSKA 


BIGGER 


19900900 


START OF REL SEGMENT? NISK 


B TYPE? L2ATTACH INTERRUPT CAT REL«ADDR RELINT) 


RELINT#"5>» z TO EVENT c¢AT ABSOLUTE ADDR ABSEVT) 
ARSFEVT="63 z 230FTACH INTERRUPT CAT REL.ZADDOR RELINT) 
% 33CAUSE EVENT cAT ABSOLUTE ADDR ABSEVT) 


REAL KeTeAsSIZEaMI Xe Jot eABSOLDxU3 


LABEL ATTACHL»DETACHL »CAUSEL eONe Li sh 2eb ae L 4s DONE 3 
SWITCH S « ATTACHL»DETACHL,CAUSELS 
ARRAY SFINTQC#JoTSKAC¥Y3 


NAME BYIGGERQS 


DEF INF IMASK = F2ADN0D00000N00000#F sEMASK = #®20000000000000008} 
SUBROUTINE DETACHINTS 


BEGIN 


TF CABSOLDePRICPIMIXsRELINTI,CFFI#0 THEN 


REGIN WHILE NOT MrABSOLD),£5#1) DO 

ABSOLD « MCABSOLD)],CFFI3 
IF MECABSOLD)20 THEN SLEEPCCMLABSOLDIJ) 2 EMASK)3 
MCABSOLD] «+ PcCDUP,LOD.SSP)3 
K « T «© PRIfPUMIXsRELINTI,CFFI3 
A #fPRTICPIiMIXsRELINT]] JINX O03 
WHILE MCTJ,FFFI#A DO T © MET),£FF 3 
MCT] CFF] «© IF TeK THEN O ELSE K3 
PRTIEPYMIXeRFLINTII, CFF) © O03 
MCABSOLN] « PCDUPsLON»SSN)3 
FANN3 


FND DETACHINTS 


FORMAT OF y;NTERRUPT CEN PRT)? 
UPPER WORD ¢ LINK WORD): 
rititjsy JFF INTERRUPT IS HISALLOWEN 


CFFJ$ ABSOLUTE ADDRESS OF NEXT INTERRUPT ON 


EVENTS ATTACH LIST OR OF THE EVENT IF 
THIS INTERRUPT 1S THE LAST ON LEST 


rCFJ! RELATIVE PRT ADDRESS OF NEXT DECLARED 


LOWER WORDS PROCEDURE DESCRIPTOR FOR INTERRUPT 
FORMAT OF EVENT CIN PRT)3 
PORIGINAL™ EVENT@]7TEM CAT ABSOLUTE ADDR ABSEVT)$ 
risijt EVENT INTERLOCK BIT CON TO START) 
rS58t321 DISTINGUISHES THE EVENT FROM 


% 
% 

X 

% 

% 

% 

x 

z INTERRUPT FOR THIS PROCESS 
% 

% 

z 

% 

% 

% ATTACHED INTERRUPTS 


19901000 
19901100 


19901200 
19901300 


19901400 
19901500 


19901600 
19901700 
19901800 


19901840 


19901850 
19901900 
19902000 
19902100 
19902120 
19902130 
19902140 
19902150 
19902190 
19902200 
19902300 
19902350 
19902360 
19902400 


19902500 


199025014 
19902502 
19902503 
199029504 
19902505 
19902506 
19902807 
19902508 
19902509 
19902540 
199025414 
19902512 
19902514 
19902516 


T 


000010 


ADDRESS # 00577 


T 
T 


T 
T 


a4 


44-4 
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ee ee 


0000:0 
0000:0 


000070 
0000:0 


000030 
000080 


0000710 
0000:0 
000030 


0000:0 


0000:0 
0000:0 
0001:0 
000312 
000631 
0008:3 
001233 
001413 
001731 
001931 
0026:!0 
0030%1 
0032:3 
003413 
49902100 
003433 
19902000 
0035:0 
003510 
003530 
003510 


~ 003510 


003510 
003530 
0035%0 
003510 
003530 
003510 
0035:0 
003540 
003510 


ATTACHLs DETACHINT? 


rFFJt ABSOLUTE ANDRESS OF FIRST INTERRUPT 
ON ATTACH LIST 
r473178: HAPPEN BIT 
"COPY" EVENT@ITEM CRECEIVED AS A PARAMETER)? 
rCFJ! ABSOLUTE ADNRESS OF ORIGINAL EVENT 
CONTENTS OF TSKAl8)? 
C1:1)a21 IFF JNTERRUPTER HAS JUST RUN AND 
SFINT@ 1S NON@EMPTY 
C2%y]=s1 IFF SFINTQ 7S NONEMPTY 
C3%4)21 TIFF INTERRUPTER 1S RUNNING 
C481]: SFINTQ INTERLOCK BIT (CON TO START) 
CFF] = ADDRESS OF OLD IRCW 
(CF) = RELATIVE PRT ADNRESS OF FIRST IN LINKED 
LIST OF DECLARED INTERRUPTS 


BR BE BL BC Ve FE BE BL TR WO A FO QO DC 


SAAB CETEESLAREARYAXRREAYRTERLHKRASESEKAKAXARxXyH HY 


GO TO SCTYPE*1)3 

% AN ATTACH DOES AN IMPLICIT DETACH 

TF MEABSEVT)20 THEN SLEEPCCMCABSEVTJ]»EMASK)3 

MPFABSEVT) « PCDUP,LONe SSP)3 

TF CTeMCABSEVTI,CFFJ2=0 THEN T + ABSEVT3 

PRTGCPIMIX,RELINT) « PRICPIMIXsRELINTIRT CCTFIRPIMIX £8338340}3 
MPABSEVT] «© PCNDUP,LOND»fPRICPIMIX»RELINT] Jo CFXsSSN)3 

POXIT)3 


DETACHL?: METACHINTs Pcxtl)s 
CAUSEL? MPABSEVTI.£47%1) ¢« 13 ®SET HAPPEN BIT? AWAKEN ALL YE WHO WAIT 


TF MECARSEVTI,CFFI#0 THEN’ tF THERE ARE INTERRUPTS ATTACHED 
REGIN IF MrfABSEVT]20 THEN SLEEPCEMCABSEVTJ]+EMASK)3 
MrABSEVT] «+ P¢DUP»LOD,SSP)3 
A ¢ MfABSEVT),CFFV3 
WHILE A#ABSEVT pO &% |NSERT ATTACHED INTERRUPTS IN THE 
BFGIN % RELEVANT SFYNTQS 
MIX © (TeMpA1).(8810]3 
IF TERMSET¢MIX) THEN 
BEGIN IF T,CFFI#ABSEVT THEN 
DO MIX « cTeMCAeT, CFF II),£(8810] 
UNTIL NOTERMSETCMIX) OR TelFFIJFABSEVTS 
IF TERMSETCMIX) THEN 
BEGIN MCABSEVTJ+PCDUPsLODsSSN)3 PCKITISENDS 


ENDS 


TSKA © PRTGMyXeTSX)3 
IF NOT TSKal81].04#1] THEN SLEEPCETSKALC8I])>IMASK)3 
TSKAC8), £431) © 03 
SIZE © CSFINTQ*PRICMIXeSFINTX]) ,£8t10]"143 
Je K @ O$ 
IF NOT TSKACB1,€C381] THEN® IF INTERRUPTER INTRINSIC NOT RUNNING 
WHILE JSS72E DO % COMPACT SFINTQs PUSHING ALL NONeZFRO 


BEGIN ® ENTRIES TOWARD THE FRONT OF THE ARRAY 
TF SFINTQ@CU]20 THEN % AND ZEROING OUT REMAINDER 
REGIN 
1 * IF K#40 THEN K+2 ELSE J413 
Lit IF 1>SI1ZE THEN GO DONE3 


IF SFINTQ£C1I20 THEN BEGIN IT © 1413 GO TO L13 ENDS 


K « 7? GO TO L33 
L.28 IF K>SIZE THEN GO TO L43 


19902520 
199025992 
19902524 
19902526 
19902527 
19902528 
19902529 
19902530 
19902540 
19902550 
19902560 
19902570 
19902580 
19902593 
19902600 
19902700 
19902800 
19902850 
19902860 
19902900 
19903100 
19903200 
19903300 
19903400 
19903500 
19903600 
19903650 
19903660 
19903670 
19903700 
19903800 
19903840 
19903820 
19903825 
19903830 
19903850 
19903660 
19903865 


19903870 


19903900 
19903907 
19903908 
19903910 
19903915 
19903917 
19903920 
19903930 
19903940 
19903950 
19903960 
19903970 
19903980 


19903990 
19904000 
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i ee 


44 


003530 
0035:0 
0035:0 
0035:0 
0035:0 
0035:0 
003510 
003510 
003530 
0035:0 
0035:0 
003510 
003570 
003510 
003510 
0035:0 
004082 
004210 
0044:0 
004810 
005133 
005533 
00591t0 
0059%4 
0060%4 
006310 
006570 


0069%2 


007142 
007332 
007413 
007413 
007731 
007833 
008032 
008430 
008830 
008912 
19903865 
0092t4 
19903625 
0092t4 
009333 
009711 
009933 
010233 
010430 
010531 
010730 
010730 
0108%0 
0108382 
011211 
011382 
19903980 
011880 
011921 


ENDS 


END: 


1.33 


1,48 


END F 


NONE S 
BEGIN 
END & 


BEGIN 


ENN3 


ONS 
END: 


ME ABSFVT] 


IF SFINTOLKI#0 THEN | 
BEGIN SFINTQLJ] « SFINTQEKIS 
Je Jeli K «© Kets GO TO L23 
ENDS 
K + K™13 


FOR | © J STFP 1 UNTIL K 00 SFINTQLI) © O3 
LSE Joe J4g3 


IF SFINTOLSIZE]#0 THEN % QUEUE FULL™"GET MORE SPACE 
IF StZE+6>4023 THEN 

TERMINATFCMIX&1030CTFI);3 

TSKACB) « *PCDUP) OR IMASKS A © T.EFFI3GO ONS 
LSE 


PRTUMIXeSFINTX] ¢ BIGGER +FLAGCLALPRICMIX,SFINTX)] 
rcTFIJ&¢(STZE+6) CTOSIZFI)3 

MAKEPRESFNTCLE I) INX 3)38GFTS SPACE AND ZEROS {tT OUT 

MCBIGGERQ yNX NOT 13,936) © MIX3 

MOVECSIZF4+195FINTQ»BIGGERQ)3 

FORGETSPACECSFINTQ INX 0)3 

SFINTQ + BIGGERQ3 


K « OF WHILE SFINTQCKI#0 DO K « Ket3 
SFINTQ@CK) «+ amis & ABSOLUTE ADDRESS OF INTERRUPT PD 
A © TOLCFF Is 
TSKAS8}) «+ «PCDUP) OR ©12000000000000003 
IF MIX*P2MyX THEN 
BEGIN WALT$ NOPROCESSTOG «© NOPROCESSTOR@13 
ENn3 


+ P(NUP,LON® SSN)$ 


FND EVFEFNTANDINTFRRUPTS 


19904010 
19904020 
19904030 
19904040 


19904050 
19904060 
19904070 


19904100 


19904300 
19904340 
19904350 
19904360 
19904370 


19904400 
19904450 
19904600 
19904650 
19904700 
19904850 
19904860 
19904900 


19905000 
19905100 
19905200 
19905300 
19905310 
19905320 
19905330 


19905340 
19905350 


19905360 
19906100 


19906300 


AA H HHH HHH 44-44 
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0120°2 
01212 
012312 
012632 
49904020 
0126%2 
012723 
013282 
19903950 
013421 
19903930 
013483 
013533 
0137%2 
013924 
014470 
19904350 
014410 
0446%2 
0144933 
015120 
0154:2 
0156%3 
015631 
015910 
19904900 
0159:0 
016330 
016433 
0166:0 
016830 
016833 
0171°0 
19905320 
0171350 
017480 
19903800 
017330 
017530 
19903650 
017530 
19901000 


S1ZEF= 0176 WORDS 


PRT(644) « 


STACK(F#2) 
STACK¢(F@1) 
STACK¢(F@=1) 
STACK¢(F+0) 
STACK(F 41) 
STACKCF 42) 
STACK¢F 43) 
STACK¢F +4) 
STACK(F 45) 
STACK ¢(F +6) 


STACK¢(F 47) 


BQ Fe ve FA NE BR HR FE A DR OE FA DR Fe DR DE DR DA |G FE DC DA 


THE FORMAT OF SEGMENT 


$60] 

Sri) 

Sr2] 

$73] 

sr4] 

$r5) 
$76].01'°13 
$r6] 
Sr7J,€27%1) 
$773,033%35) 
$771,018495) 
1F S£2) «< O THE 
$r15] 


u2H WH UU uN RR UH 


§r16) 
$r17] 
$718) 
Sri?) 
$r20) 
$r?1] 


PROCENURE SFELECTRUNYG3 


SELECTRUNY 


REGTN 


REAL, 


MSCW 

F 
MYMSCW 
RCW 

I 

T 

L 

DT 

MIX 
HDR 


LEVEL 


STACK¢F +10) = MCPJOR 


STACKe F411) = OLAYDISK 


STACK¢ F412) = THISLINK 


MSCW 

F 

MYMSCW 
RCW 

I 

. 

L, 

OT 

MIX 

HOR 
LEVEL 
MCPJORB 
OLAYDISK 
THISLINK 


ZERO OF PROGRAMS 20000000 
LOCATION OF SEGMENT DICTIONARY 20001000 
STZE OF SEGMENT DICTIONARY 20002000 
LOCATION OF PRT 20003000 
SIZE OF PRI 20004000 
LOCATION OF FILE PARAMETER BLOCKS 20005000 
SIZE OF FILE PARAMETER BLOCKS 20006000 
1 FOR NEW FORMAT SEGMENT O+ ELSE O 20006500 
STARTING SEGMENT NUMBERS 20007000 
FORTRAN FAULT FLAG 20007100 
NUMBER OF FILES3 20008000 
CORE REQUIREMENT / 64% 20009000 

THE JOB WAS COMPILED BY COBOL3 20010000 
DISK ANDRESS OF LABEL EQUATION ENTRIES 20010100 
PRESENTED WHEN PROGRAM WAS COMPILED AND 20010200 
APPLICABLE TO ALL EXECUTIONS 20010300 
FSTIMATED PROCESSOR TIME CFROM COMPILATN) 20010400 
FSTIMATED 1/0 TIME CFROM COMPYLATN) 20010500 
PRYORITY CFROM COMPYLATN) 20010600 
COMMON VALUE CFROM COMPILATN) 20010700 
FSTIMATED CORE REQUIREMENTSCFROM COMPYLATN) 20010800 
STACK SIZE (FROM COMPYLATN) 20040900 

20041000 

20011100 

20011200 

START OF REL SEGMENT! DISK 

20011300 

20011400 

"2s 20011500 
"1s 20011600 
“1. 20041700 
+0» 20011800 
+19 20011900 
+2» 20012000 
+3» 20012100 
+4» 20012200 
+50 20012300 
+60 20012400 
+76 20012500 
+89 20012600 
+9» 20042700 
+10, 20012800 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
A 


4+ AAA 


0000180 
000080 
000010 
000010 
0000180 
000030 
000030 
0000!:0 
000030 
0000:0 
0000t0 
000080 
0000#0 
000020 
000030 
000080 
000070 
000030 
000030 
000080 
0000:0 
0000:0 
000010 
000030 
000030 


DORESS # 


0000!0 
000010 
000020 
000010 
0000:0 
000030 
000010 
000030 
000080 
000030 
0000:0 
000080 
0000:0 
000030 
000010 
000010 


00583 


STACK¢ F413) 
STACK CF 414) 
STACK(F 415) 
STACK¢(F 416) 


STACK¢F 417) 


STACK¢F420) 
STACK(F 421) 
STACK(F 422) 


STACK¢(F 423) 


PRTC 161) = SD 


NEXTLINK 

PREVLINK 

TYPE 

STACKLOC 

SHEETLOCKFD 
ARRAY 

) 

$£G60 

TRP 

LBL 


PRT(161) = TSKA 


NAME 


STACK¢(F 424) = ADDR 


STACK(F 425) 
STACK¢EF425) 
STACK¢ F426) 


STACKeF +27) 


STACK¢F 430) 
STACK¢F 431) 
STACK ¢F 432) 
STACK(F433) 
STACK(F 434) 
STACK ¢ F435) 
STACK¢F 436) 
STACK¢F 437) 


u 


REAL 
PASSLFVEL 


SVALUE 
Re TURNMSCW 


RETURNRCW 


NEXTLINK 
PREVLINK 
TYP 

STACKLOC 


SHEE TLOCKED 


SD 
TSKA 


ADNR 
PASSLEVFL 
SVALUEF 
RETURNMSCW 


RETURNRUW 


i 


= RETURNMSCW + 13 


+1 1s 
+125 
+135 
+14, 


+153 


416%) > 
+17(%I16 
+148") >» 
+19[*)>5 
NT2r*]> 


NT2r*]3 


LBL +13 
ADDR + 1. 
PASSLEVEL» 
PASSLEVEL + 


DEFINE SHEETMAX = MIXMAX#3 


LULA 


¥Z¥X THE VARTABLFS DECLARED ABOVE MUST CORRESPOND EXACTLY TO 
%%¥%% THOSE DECLARED IN PROCEDURF SELECTRUN, 


REAL, 
EUVAL, 


FBADRS 
FPBVERSION 
FT 

LINDX 

LINK 
SENSEVAL 
SPDVAL, 


FUVAL 
FBADRS 
FPBVERSION 
FT 

LINDX 

LINK 
SENSEVAL 
SPDVAL 


1» 


a*4NOTE 8 eae 


RETURNRCW 4 
EUVAL, + 
FBADRS + 
FPBVERSION+ 
FT + 
LINDX + 
LINK + 
SENSEVAL + 


1» 
le 


le 


Le 


20012900 
20013000 
20013100 
20013200 
20033300 


20013400 
20043500 


20013600 
20013700 
20013800 
20013900 
20014000 


20014100 
20014300 


20014400 
20014500 
20014600 
20014700 
20014800 
20014900 
20015000 
20016100 
20016200 
20016300 
20016400 
20016500 
20016600 
20016700 
20016800 
20016900 
20017000 
20017100 
20017200 


20047300 


ee ee | 


4 « 


000080 
000010 
000080 
0000!0 
0000380 


000080 
000030 


000030 
000030 
0000:0 
000010 
0000!0 


000080 
000030 


000010 
000030 
000030 
000030 
000030 
000030 
0000:%0 
0000180 
000010 
000030 
000030 
000030 
00000 
000030 
000080 
000010 
000010 
0000:0 
000030 


000030 


$2 = SPNVAL + 1» 20047400 T 0000:0 
STACK(F4+40) = S82 
FB = $2 + 1s 20017500 T 000030 
STACK¢F 441) = FB 
FPR = FB + 13 20017600 T 0000:0 
STACK¢F442) = FPB 
200137700 T 000070 
REAL, FT = NTY? 20017800 T 0000:0 
PRT¢ 460) s rT 
TYPFDISK = NT33 20017900 T 000030 
PRT¢162) = TYPEDISK 
20018000 T 000030 
COMMENT THE VALUE OF "TYPE® DETERMINES WHICH PORTIONS OF 20018100 YT 0000:0 
THIS PROCEDURE WILL BE EXFCUTED, THIS PROCEDURE CAN ALSO 20018200 T 000030 
DETERMINE WHICH PORTIONS OF PROCEDURE “SELFCTRUN® WILL BE 20018300 T 0000:0 
FXECUTFD BY ASSIGNING A NEGATIVE VALUE TO WTYPE” BEFORE 20048400 T 000030 
RETURNING TO THAT PROCEDURE, 20018500 T 0000:0 
END OF COMMENTS 20048600 T 0000!0 
20018700 T 000030 
DEFINE STARTING = 18. 20018800 T 000030 
CONTINUE ING = OM» 20048900 T 000080 
QUITTING = 3h» 20019000 T 000030 
RUNING = dee 200191400 T 000030 
PASSING = 5#s 20019200 T 0000:0 
FQUATING = 6#} 20019300 T 000030 
20019400 T 000030 
DEFINE XCLOCKTIME = 20019500 T 000030 
COCNT2%e(XCLOCK DIV 3600)) MOD 60 + (NT? DIV 609*100 + 20019600 T 000030 
0.5 ) piv 41)#3 20019700 T 0000:0 
20019800 T 0000180 
DEFINE ACTUALDISKANDRESSCACTUALDISKADDRESS1) # 20019900 T 000080 
COUAREMIXsCONT4P=EACTUALDISKADDRESS14) DIV CNT3t@JAREIMIX981) 2410) 20020000 T 000010 
+ (NT4 MOD NT3) + 0.5) DIV 1983 20020100 T 000030 
20020110 T 000030 
$ SFT oMIT = NOTCPACKETS) 20020119 T 0000!0 
DEF YNE UNITNO = S[(23),(2%61]#3 % ORIGINATING UNTT 20020120 T 000080 
£ POP oMrTT 20020121 T 0000:0 
20020200 T 000050 
LABEL CONTINUE» DLX* EXT» bLeMe RMSGe UNBLKse STOP3 20020300 T 000030 
20020400 T 000030 
SUBROUTINE DELYNK3 20020500 T 000010 
% DFLYINKS THE SHEET ENTRY AND RETURNS SHEET DISK SPACE 20020600 T 000330 
BEGIN 20020700 T 000130 
STREAMCA'#S73),(63101,Bt5P¢ SCHEDULEIDS))3 20020800 T 000180 
BEGIN % MARK SCHEDULE SLOT *OPEN® 20020900 T 000233 
SKIP A DBS DStaRESET3 20021000 T 000233 
ENDS 20021100 T 000382 
20020900 
IF F = 0 THEN & SHEET ENTRY NOT PASSED AS PARAMETER 20021200 T 000313 
BEGIN 20021300 T 000482 
IF NEXTLINK#O THEN SHEETCLEVELJ.CFF)]tePREVLINK3 20021400 Tr 000530 
TF PREVLINK=0O THEN 20021500 T 000831 
BEGIN 20021600 T 000930 
SHEETCLEVELJ PCE ITENEXTLINKS GO DLXS 20021700 T 000982 
FNOS 20021800 T 004280 
20021600 
IF LBLe0 THEN 20021900 T 001230 


BEGIN 
MCCLALE§ ef MESPACEC30))1&830(8%388140)) INX NOT 1).098632203 
ENDS 


DISKWATTC*#CLBL INX 0)» 30+ PREVLINK)3 

LBLE29Tt=eNEXTLINK? 

DISKWAYTC CLBL JINX 0)» 305 PREVLINK)S - 
DLX! FORGETESPHISK(THISLINK)$ 

ENO: % JF SHEET ENTRY NOT A PARAMETER 


END DELINK} 


P(MyYMSCWe STF)3 


PCO, O+ O» Or Ov Ov Os Os Oy Oe O)$ B FOR VARIABLES LOCAL To THIS 
% PROCEDURE ONLY 


TE TYPESCONTINUFING THEN GO TO CONTYNUES 
1F TYPESSTARTING THEN & SEARCH THE SHEET QUEUE TO FIND A CANDIDATE 
% FOR SELECTION 
BEGIN 
PASSLEVEL %#RESTARTING3 
COMMENT “PASSLEVEL® WILL BE NEGATIVE WHEN A JOB IS BEING RE#STARTED, 
UNDER THIS CONDITION» THE TreST FOR "LEVEL GE@ PASSLEVEL" WILL 
FAT], AND NO OTHER JOBS WILL BE SELECTED UNTIL THE RE®@START yOB 
HAS BEEN PROPERLY INITIATEN, 
FND OF COMMENT3 
FOR LEVEL?=0 STEP 4 UNTIL SHEETMAX 00 & FOR ALL “SHEET PRIORITIES" 
BEGIN 
PREVLINKSSNEXTLINKS203 x¥ RESET FOR FACH "LEVEL" 
% 1F THERE 1S AN ENTRY JN THE SHEET, SEE IF IT WILL FIT 
TECTHISLINK?SSHEETCLEVELJ «CCF J) NE@ O THEN GO TO LEM3 


CONTINUES 


B *NEXTLEINK® OBTAINED FROM "SHEET(C 29)" BELOW 

% YF THERE 1S ANOTHER ENTRY AT THIS LEVEL» PROCESS IT NOW 
IFCTHISLINKS=NEXTLEINK) NE@ 0 THEN GO TO LEMS 

ENDS 


TYPr t= “QUITTING? & END OF SHEFT SEARCH 
GO TO FXYqT3 


LEM8$ 


% AT THIS POINTs THERE IS A CANDIDATE FOR SELECTION 
IF § = 9 THEN & NO SHEET SPACE OBTAINED YET 


REGIN 
S t= (Mr TYPEDSPACE(31,SWEETAREAVI)) & 30CSIZEI3% {67 
ENDS 


¥ e . i e e e e e e 
% READ SHEET ENTRY INTO CoRE aT "8" 


x e ° C) a * e ° ® a ® 9 6 e e a id 9 ® ® a s ® ® 


20021910 
20021920 
20021930 


20022000 
20022100 
20022200 
20022300 
20022400 


20022500 


20022600 
20022700 
20022800 
20022900 
20023000 
20023100 
20023200 
20023300 
20023400 
20023500 
20023800 
20023900 
20024000 
20024100 
20024200 
20024300 
20024600 
20024700 
20024800 
20094900 
20025000 
20025100 
20025200 
20025300 
20025400 
20025500 
20025600 
20025700 


20025800 
20025900 
20026000 
20026100 
20026200 
20026300 
20026400 
20026500 
20026600 
20026700 


20026800 
20026900 
20027000 
20027100 
20027200 


Asst 


_ 


Te ee ee ee ee 


SO mt a st st st 


a 


00130 
00132 
002012 
20021910 
0020:2 
0022:3 
002440 
00260 
002633 
20021300 
002633 
20020700 
002710 
002710 
002713 
002783 
003012 
003012 
0030%2 
003113 
00322 
003242 
003310 
003383 
003383 
0033!3 
0033!3 
003383 
003383 
003510 
0035140 
0036%1 
003641 
0038:3 
003813 
003833 
003633 
003883 
0038133 
0040t2 
20024700 
004283 
004333 
0044t1 
004421 
0044t4 
O044t4 
004a4' 
004581 
004513 
o04a9t2 
20026500 
004982 
004932 
004982 
004982 
004932 


DISKWATTC*CS INX 0)* 30% THISLINK 
NEXTLINKt#Sf29]3 % NEXT ENTRY IN 
Y wekkeS * * * ke KK * * Oe 
% * * * * * x & 
% *#* * * Oe MeO ok 
% »* * * * * * * 
x¥ * Oe x re. ee 2S 2 * * * & 


HORt =GF TSPACF(30+4¢8701<0) DI SKHFADERAREAVel 2423 


3 
SHEET QUEUE AT THIS LEVEL 


%® S60)<0 COMPILE 


2 THE FXTRA WORD 1S FOR COMPILATIONS (JARE30J=FID OF OBJECT FILED 
DISKWATTC@HDRs 39% S£25])3 & READ FILE HEADER INTO CORE AT *HDR*® 


G40 TO FXIT3 
END; & IF TYPE = STARTING OR CONTINUEING 


1F TYPEePASSING THEN % PASS THIS ENTRY WITHOUT DELINKING 


BEGIN 
x rt eee. ee 2 ee? ee ST 
x * x Ok * * * 
¥ Wake RO aK 
x * * * * * 
z x * OR ak 
IF cts#$(2)<0) OR S£3)>0 THEN 
RFGIN 


Sr2]teABS(S(2])3 
SC3]22NABSCSI31)3 


% MARK IT NOT XS*"ED OR ES™ED, 
% MARK IT SCHEDULED 


TF FeO THEN % SHEET ENTRY NOT PASSED AS PARAMETER 
% WRITE THe SHEET ENTRY BACK OUT WITH Sf3) "MARKED" 


DISKWAITCCS INX 0), 30° THISLINK)3 


IF SCHEDMSG OR TI OR ¢(S0£23}2.6°984] NEQ 0) THEN 


BF GIN 


STREAMC 1» Le C2SLEVELs At=Sr¥*), IDteSl3),068310)>5 


& SET OMIT = NOTCANCSPO AND NDATACOM) 


Qi=XCLOCKTIMEs Ws=S[(20)x64, Bi=HDR)$ 
BEGIN 


StislOc C3 DNSteé6HeCs DL tsp" 6s NSse5F ILL : 4 
Np teRF PP tHNl+6s NStaLyTrs3 
SpbsAs SptsSl443 pSte7CHR3 % 
SrtexSt443 DStxLyTe/e3s OSta7CHR3 % 
NSteLiT*="$ SyreL_nc JDs DSre22peEc} 4 
CirssCi¢r3 GO To SCHD3 
NSts410 LIT" NOT XS*ED"3 GO TO REASONS 
SCHD: DSt=et4 LIT* SCHEDULED "3 SI%sLoc Qs DSts4 NEC; % 
$ SET OMIT = NOTCNCSPO AND DATACOM) 
REASON! DSt2#? LIT™» "5 
ClieCl+l3 GO TO LOS GO TO LI3 
$ SFT OMELET = NOT BREAKOUT 
L28 OSte14 LIT"TOO MANY JOBSe"$ GO TO EXITS 
Lis DStet3 LIT*NO OLAY HISKe™s GO TO EXITS 
LOt OSts S LIT"NEEDS™S SIt2LOC Ws DSt#6 DECE DSteLIT%e"3 
DrteDy"73 DSt=5 FrLLs 
EXIT! 


END STREAMS 


& XS/ES OR FIRST TIME THROUGH 


%¥166= 


PRIORITY 
MF TD 


FID 
SCH.NO, 


TIME 


20027300 
20027400 
20027500 
20027600 
20027700 
20027800 
20027900 
20028000 
20028100 
20028300 
20028400 
20028900 
20029000 
20029100 


20029200 
20029300 
20029400 
20029500 
20029600 
20029700 
20029800 
20029900 
20030000 
20030100 
20030200 
20030300 
20030350 
20030400 
20030500 
20030600 
20030700 
20030760 
20030780 
20030800 
20031000 
20031500 
20031600 
20031700 
20031800 
20031900 
20032000 
20032100 
20032150 
20032200 
20032250 
20032400 
20032725 
20032750 
20032775 
20032875 
20032900 
20032925 
20032930 
20032950 
20033000 


i 


ie ee ee ie ee ee LLL Lee eee 


004912 
005133 
005283 
005283 
005283 
005233 
005233 
005233 
005233 
005233 
005631 
0056314 
005880 
0058:2 
20023500 
005832 
005832 
0059314 
005983 
005933 
005933 
005933 
005913 
0059%3 
0059383 
005983 
006212 
006310 
006433 
006612 
006734 
006771 
006983 
007233 
007331 
007533 
007533 
0081%2 
0081382 
0082t2 
0083!2 
008431 
0085!14 
008681 
008710 
008833 
0094.80 
009130 
0091:2 
0092232 
009212 
009433 
009710 
009930 
0099%2 
0099!2 
20031600 


$ SET OMtT = NOTC DATACOM ) 


SPOUTERCHOResUNTTNO,SCHEDMSG OR I)3 
FND % IF SCHEDULE MeSSAGE 1S SPOUTED 


FLSE FORGETSPACECHDR)3 %166= 
FND & IF XS/ES OR FyRST TrME 


FLSF FORGETSPACECHDR)3 
IF F NEQ@ © THEN & SHEET ENTRY PASSED AS A PARAMETER 


BEGIN 
DISKWAITCFE FCF] >30-TtsGETESPDISK)$ % WRITE SHEET ENTRY To DISK 
FORGETSPACE(S(7))% & CORE ADDRESS OF SEGMENT ZERO IN S(7} 
1F SFGOeS(7} THEN SEGOtcO? & AVOID "DOUBLE “FORGETSPACE® 
IF NOT SHEETLOCKED THEN 
REGIN 
SLEEP CETOGLE]»SHEETMASK )3 
LOCKTOGCSHEETMASK)3 


SHEETLOCKED te 43 
ENDS 


TE CL3eS(27,°CF1) GTR SHEETMAX THEN LieSHEETMAX3 

% SHFETC2].(CF) = "SHEET® PRIORITY 

IF SHEET£L],ICF) NE@ O THEN & SHEET QUEUE ALREADY EXISTS 
BEGIN & LINK IN THIS ENTRY 
DISKWAYTCHF, CCF I+,30,1°2SHEETCLILOCFF IIS ZTAIL OF QUEUE 
Sr29}3eT3 &% LINK TO THIS ENTRY 
DISKWATTCFE,CCE]»+3001])% & REPLACE ENTRY 
FNOD 


ELSE SHEET¢CLJteT# & ESTABLISH NEW SHEET QUEUE 
SHFETELISCFRIt=T3 & LINK IN AT END OF QUEUE 
TYPE t= QUITTING} 

GO TO EXITS & DONT PROCESS ANY MORE ENTRIES 
ENDS 


IF PASSLEVEL=1023 THEN PASSLEVEL?#LEVELS3 
PREVLINKSsTHISLINKS 
IF MIX LE@ MIXMAX THEN 


FLSF 


REGIN 

TYPF t= “CONTINUEINGS 
GO TO CONTINUES 

END 


BEGIN 

TYPE t= "QUITTING 
GO 10 EXITS 

ENN; 


FNDs % YF TYPE & PASSING 


IF TyPFaRUNING THEN & SPECIAL HANDLING FOR *WRUNY JOBS 


es. * * * * ee Perr Tf | 
* *  & x ek * * * * * * 
Ok x * ®  * * * x * wk OK 


20033200 
20034000 
20034050 


20034060 
20034100 


20034200 
20034300 
20034400 
20034500 


20034600 


20034610 
20034700 
20034800 
20034900 
20035000 


20035100 
20035200 


20035300 
20035400 
20035500 
20035600 
20035700 
20035800 
20035900 
20036000 


20036100 
20036200 
20036300 
20036400 
20036500 


20036800 
20037100 
20037200 
20037300 
20037400 
20037500 
20037600 


20037700 
20037800 
20037900 
20038000 
20038100 


20038200 


20038300 
20038500 
20038600 
20038700 
20038800 
20038900 


44-4 


40 


See 


ee 


aAaAsas 


ANH SHS 


a 


009983 
009983 
010233 
20030780 
010213 
010683 
20030300 
010613 
010840 
010833 
010981 
011183 
011283 
011531 
011533 
011641 
011733 
20035000 
012131 
012280 
20034800 
012210 
012531 
012581 
012633 
012781 
013082 
013183 
0133t2 
20035600 
013312 
0135! 
O13704 
013691 
013833 
20034400 
013833 
014083 
014132 
014291 
014233 
014313 
014484 
20037300 
0144s) 
0144114 
014413 
014533 
014611 
20037800 
014684 
20029400 
014611 
014681 
014740 
014730 
014730 
014780 


% x * * * * x * mw * * * * 
+ 4 * x kok hk * kx **** oe OK KK ee KK 
BFaIN 


IF $€2).(281) NE@ 4 THEN & S£2].0284]e1 WHEN ES*ED 
FOR y8#4 STEP 1 UNTIL MyXMAX DO 
JF JAR’ 1e*] NEQ O THEN & JOB RUNNING AT THIS MIX INDEX 
IF ¢SrOy EQV JARE1,0})#¢NOT 0) AND 
(Sri) EQV JARE101])9=¢NOT 0) AND 
PRYOR[LI] GEQ@ O THEN 
BFGIN & JOB IS ALREADY RUNNING 
$ SFT OMIT = NOTCOCSPO AND DATACOM ) 
IF BOJMFSS THEN 
BEGIN 
$ SFT OMIT = NOT ¢pcSPO AND nATACOM) 
RMSG! REGIN 
STREAM(C?2Sp18], ASSJARROWG 1 Je Te & SE1BISPRIORYTY 
Q ss XCLOCKTIMEs B t2 HDR) 
BEGIN 
SiteLoC C# DSte6DECs DIt=D1"6s OSte=5F ILL: XPRIOR 
DiteRs PDIteHl+6s OStaeLr Trews 


S[rsAzs SIteSl+13 OSta7CHR$ DSteLIT"/"3 ¥ MFID 
Sit@eSy+13 DSIs7CHRI % FID 
SreslLoC [2% HSt=elLitTMs"s OSs=2DEc3 % MIX 
DSte9LTT*® RUNNING "3 ¥161= 


DSt=4pFcs OStHLIT@e Ms NL seNin16s DStEFILLIX TIME 
END STREAMS 


SPOUTCHDReSf2337989897)3 
END ® ¥F BOY MESSAGE SHOULD BE SENT 


§ SET OM1T = NOT ¢DCSPO AND DATACOM) 
END % IF BOUMFSS 


ELSE FORGETSPACECHDR)S 
¥ RUMP OPEN COUNT BACK nOWN 
FORGFTSPACECDIRECTORYSEARCH( ABSCS(0)})>, 

IF SCO) LSS O THEN "D1SK " ELSE Srids 13993 
FORGETESPDISK(Sr61 NX 02% & CARD IMAGE FOR LOG 
Tts3S13)73 % SAVE LINK To LABEL EQUATION CARDS 
WHILE T NEQ 0 DO & FORGET LABEL EQUATION SEGMENTS 

BEGIN 

DISKWAITC#@C¢S INX 0), 30% T)$ 
FORGETESPDISKC¢T)3 

TtwSf29); 

END? 


DELINKS % DELINK THE ENTRY FROM THE SHEET QUEUE 
1—F FeO THEN & SHEFT ENTRY NOT PASSED AS A PARAMETER 
BEGIN 
TYPE t# "CONTPFNUEINGS 
GO TO CONTYNUfs 
END 


ELSE 
BEGIN % SHEET ENTRY PASSED AS A PARAMETER» NONT CONTINUE 
TYPE $= “QUITTING? 


20039000 
20039100 
20039200 
20039300 
20039400 
20039500 
20039600 
20039700 
20039800 
20039900 
20040000 
20040100 
20043000 
20043100 
20043200 
20043600 
20043700 
20043800 
20043900 
20044000 
20044100 
20044200 
20044300 
20044400 
20044500 
20044600 
20044700 


20044800 
20044900 


20045000 
20045300 


20045400 
20045500 
20045600 
20045700 
20045800 
20045900 
20046000 
20046100 
20046200 
20046300 
20046400 
20046500 


20046600 
20046700 
20046800 
20046900 
20047000 
20047100 


20047200 
20047300 
20047400 


AAVH AN HH HHA HHH A ot 


—~4 4-4 


Ge ee ee 


Asa 


444 


014740 
014730 
014710 
014730 
014732 
014910 
015440 
015220 
015510 
045733 
015980 
015942 
015982 
0160%1 
016033 
016033 
016033 
0162%1 
0167180 
016730 
016830 
016980 
0170381 
0170383 
047133 
017341 
017432 
20043900 
047413 
O17731 
20043600 
O17704 
O177%4 
20043100 
017731 
018033 
048033 
0182:0 
018532 
0187:0 
018830 
018914 
018924 
0191%2 
019231 
019381 
20046100 
019530 
019610 
049633 
019731 
019834 
019633 
20046800 
0198633 
019813 
0199314 


GO TO EXIT: 
ENTS 


END 


ENN OF SPECSAL HANDLING OF RUN CARDS3 


IF TYPE = FOUATING THEN 


Be W ae BQ FO 


REGIN 

Ok Kk KK kK ok OK 

* * “ * * 

WOK Ok eek ae Ke 

* * * ™ 

* QO * QO *¥kke 0 

FPBt=TYPEDSPACFECSFGOL5) INX 1»FPBAREAV)$ %167¢ 


% SeGOr5) = S1ZE OF THE Frlie PARAMETER BLOCK ON DISK 
% SrGOr4) = RELATIVE O1Sk ADDRESS OF THE FILE PARAMETER BLOCK 
% SraOr7] = NUMBER OF FILFS IN THE F.P,B, 
% ETRING 3 NUMBFR OF WORDS PER FYLE USED IN THE F.PeBe 
MeSrGOr5] INX FPBJi=0%3 & SET TO ZERO TO INSURE THAT STREAM STATEMENT 
¥ USED To BUILD “"{NeCORE” FPB WILL NOT SKAN 
* PAST THE END OF THE COMPILER GENERATED FPB, 
FB8tsGETSPACECSEGOLC7).LCF IxETRLNGeFPBAREAV»$ 2423 %167= 
* "FRe WILL BE *IN@CORE® FILE PARAMETER BLOCK LOCATION 
DISKWAIT(C@FPR,. SEGOL5) INX O» ACTUALDISKADDRESSCSEGOI41,(CF)))3 


COMMENT FORMAT OF COMPILER GENERATED FPKt 


CHRS 1 AND 2 = FILE NUMBER (12 BIT BINARY) STARTING WITH 4 
CHR. 3 = FILE TYPE 

CHRS 4 THRU 40 = MFID 

CHRS 11 THRU 47) = FID 

CHR 18 = LENGTH OF INTERNAL FILE NAME (6 BIT BINARY) 


CHRS 19 THRU N INTERNAL NAME 
FOR VERSION 1 ¢ VERSION NUMBER IN SEGOES],(118) )D 
NEXT TWO CHARACTERS FOLLOWING ;NTERNAL NAME CONTAIN? 


raoit) = SENSITIVE BIT 
r41i2] = DISK SPEED Ci=FASTs 2=SLOWs OeUSPECIFIFD) 
£4385) = EU NUMBER + 1 


COMMFNT FORMAT OF "I{N@=CORE* FPR ( 5 WORDS FOR EACH FILE ENTRY ) 


WORDrO],£ 6342] = MFID 


WORNE1),£f 6842] = FID 

WORN(2?),0C 1217) = REEL NUMBER (3 BCL DIGITS) 
WoRD(2].018230) = CREATION DATE (5 BCL DIGITS) 
woRnt3).€ 15 1 = CYCLrF NUMBER (BINARY) 

WORNDC3),f 6317) = PRN ¢PHYSICAL REEL NUMBER) FOR NONW@DISK FILES 
WoRNf3].715%1 1 & SeNSyTIVE BIT COISK FYLES ONLY) 
woRnr33,f1682 1 = DISK SPEED (DISK FILES ONLY) 
WoRDr3],018#5 1 = EU, NUMBERs1 (DISK FYLES ONLY) 
WoRD’3).02394 7 = 10 CODE CINPUT=0,0UTPUT2] ) 
WORDE3).0248121 = NUMBER OF FRRORS 

WoRDL3].036%6 1 = LOGICAL UN]T NUMBER + 4 
WoRD'3),043:5 3 = UNIT TYPE 


END OF COMMENTS 


20047500 
20047600 


20047700 
20047800 


20048000 
20048100 
20048200 
20048300 
20048400 
20048500 
20048600 
20048700 
20048800 
20048900 
20049000 
20049400 
20049200 
20049300 
20049400 
20049500 
20049600 
29049700 
20049800 
29049900 
20050000 
200501400 
20050200 
20050300 
20050400 
20050500 
20050600 
20050700 
20050800 
20050900 
20051000 
20051100 
20051200 
20051300 
20051400 
20051500 
20051600 
20051700 
20051800 
20051900 
20052000 
20052100 
20052200 
20052300 
20052400 
20052500 
20052600 
20052700 
20052800 
20052900 


a a ae 


AAA HHH HH A A AHA TA A A A TA VA AH AH tH tt 


020031 
020083 
20047300 
020083 
20040000 
020380 
20039300 
020310 
020310 
020383 
0204%4 
020431 
020414 
020481 
020481 
020411 
020481 
020411 
020784 
020731 
020781 
020711 
On07%4 
020932 
020912 
020912 
021310 
021350 
022112 
022112 
022182 
022182 
022132 
022132 
022182 
022132 
022112 
022182 
022112 
022112 
022132 
022132 
022182 
022112 
0221!2 
0221%2 
022112 
0221%2 
0221!2 
022112 
022182 
022182 
022142 
022112 
022112 
022112 
022132 


FPBVERSTONtSSEG0[5].01:8]3 2 NEWER VRSN,CONTAINS EUsSPDsETC, 
STREAM(TOGS=(FPRVERSIONS= 1) oTL&30sT28200C =0eF PB FB) } 


LL é 


XX1T? 


IF 


REGIN 

Sl] teFPB 

YF SC#"O" THEN & FIRST DIGIT OF FILE NUMBER 
PEGIN 
Stt=257413 TF SC="O" THEN 60 TO L223 & END OF FPB 
END ELSE SyitsSi+43 


StiweST+t3 TrteSts SptzSt41s & FILLE TYPE LOCATION 

OCDSt=eLIT"O"s NSt=7CHRIF B&B ME IDeFID 

TPtSNTE OIseLOC Ci OL seD1 +73 DStECHR$ DysteT2s ZINT,NAME SIZE 

nStzi5LIT"0"3s X ZERO OUT REEL» DATE SCYCLE PETC, 

T2teSys Sptetys OSteCHRs Siltelos & FILE TYPE 

gO TO SK3 Lat GO TO Lis L2t GO TO XXyT$ Sk? 

S]tzS}4+Cs & SKIP OVER ENTERNAL NAME 

TOGCT2¢=DI3 DIt=D1"6s SKIP 3DBs SKIP 4SB3 
IF SB THEN DStaSET ELSE pStaRESETs SKIP SBR & SENSITIVE 
OCIF SB THEN DSt=SFeT ELSE DSteRESET$ SKIP SB)3 & SPEED 
5(1F SB THEN DSteSeT ELSE DS#=RESETS SKIP SB)s % EU 
Dl tsT2)3 

nSssBLIT"O"s &¥ ZERO OUT FIFTH WORD OF FR 

G49 TO Li3 

END STREAM STATEMENTS 


MCPJOR THEN GO TO STOP$ ¥ NO LABEL EQUATION FOR “SYSTEM™ JORS 


%%2% LABFL FQUATION PROCESSING 


COMMENT LABEL EQUATION RECORD FORMATS 


END 


wORnr 07 = MFTD € ZEROs IF NONE GIVEN ) 
wOROL 44 = FIN 
wORNT 2 1.01217) = REEL NUMBER (€ 3 ACL NIGITS ) 
~£€18830) = CREATION MATE ¢€ 5 BCL DIGITS ) 
(4211 ) = MARKER FOR FILE OPEN € 1 ® CDATE GIVEN ) 
woRNr 33.f 135 1] = CYCLE NUMBER 
.(15%8 } = NUMBER OF COPIES #4 
2f23%1 =) = PACKETS 
of4231 7 = "FORMS" REQUESTED 
(43:5 ] & UNIT TYPE 
wORDt 4),€ 086 ] = SIZE OF INTERNAL NAME 
el 6842) = FIRST SEVEN CHARACTERS OF INTERNAL NAME 


WORNE 5) THROUGH WORDE11)] = REMAINDER OF INTERNAL NAME 
WORD(123,015!1 ] = SENSITIVE BIT 
0€1692 ] * HISK SPEED C1#F AST» 2eSLOW*O2ZNOT SPECIFIED) 
of€18:5 ) = €U NUMBER + 1 
WORNL44] = START OF NEXT LBL.LEQNeENTRY (14 IF NO MORE ENYTRIFS) 
WORHL29] = LINK TO NEXT €SP SEGMENT FOR LABEL FQUATION 
OF COMMENT? 


FOR L te 1 STEP 1 UNTIL 2 0O 


REGIN 
LINKtsIF L THEN $015] FLSE Sf£13}3 & FQN FROM COMPILE/EXEC, 
% §£15) = RELATIVE DISK ADDRESS IN CODE FILE FOR LABEL 


20053000 
20053100 
20053200 
20053300 
20053400 
20053500 
20053600 
20053700 
20053800 


20053900 
20054000 
20054100 
20054200 
20054300 
20054400 
29054500 
20054600 
20054700 
20054800 


. 20054900 


20055000 
20055100 
20055200 
20055300 


20055400 
20055500 
20055600 
20055700 
20055800 
20055900 
20056000 
20056100 
20056200 
20056300 
20056400 
20056500 
20056600 
20056700 
20056800 
20056900 
20057000 
20057100 
20057200 
20057300 
20057400 
20057500 
20057600 
20057700 
20057800 
20057900 
20058000 
20058100 
20056200 
20058300 
20058400 


ee) 


AAs HHH HH 


Oe ee ee ie ee ee ee ee Le 


O221!'2 
O221%2 


022330 
0225%2 
022532 
022533 
0226'4 
022631 
0227! 1 
20053600 
022713 
022812 
022983 
023110 
0233%1 
023434 
023530 
0235t2 
023780 
0238%2 
024082 
024232 
024350 
024481 
0244t2 
20053300 
024433 
024433 
024533 
024533 
024533 
024533 
024533 
0245:3 
0245:3 
024533 
024533 
024533 
0245133 
024583 
024533 
0245383 
024533 
024533 
024533 
024533 
024533 
024583 
0245%3 
0245143 
024533 
0245:%3 
024513 
024533 
024610 
024830 
025033 


UNBLK & 


% FQUATFON ENTERFD AT COMPILE TYME 
® S[13]7 = ACTUAL ESP nISK ANDRESS OF LABEL EQUATION ENTERED 
% AT RUN TyMeE, 
$2 t= NOT L$ & TRUE, ITF LBLeEQNVENTERED AT RUN TYME 
WHILE LINK NEG O DO & TF LBL. EQN.EXISTS 
REGIN 
IF LBL=0 THEN 
BEGIN 
MCOCLBLESARRAYDESC(30*LBLEQNAREAV)) INX NOT 4) eAREAMIXFRe0}3 
FNDS 


* IF LINK®S£15)]*+READ FROM CODE FILE ELSE READ FROM ESP DISK 
NISKWATTC*®CLBL INX 0), 30, 
IF L THEN ACTUALHDISKADDRESS(LINK) ELSE LINK} 
1 == OF & START AT REGINNING OF SEGMENT 
TF NOT L THEN FORGETESPDISK(LINK)3 
LINK t= LBLE£2933 &% NEXT LyNK 
YF S?2 THEN & RUN TIME LARBFL E@UATYON 
BEGIN 
% IF A COMPILE JOB, SAVE FID OF OBJECT FILE NAME IN 
% JARF 39) TO PRINT MIX MESSAGE OF THE FORM? 
% "ALGOL"/<eMF 1D>/<F 1N> 
IF JARCMIX*e0] LSS O THEN JARECM]Xe30)32LBLE1]3 
$2:=03 % USE THE FYRST EQUATION ONLY 
ENDS 


TF LBLCO} = 14 THEN GO TO STOPS 


LINDXt=yxqi43 £2 INDEX INTO LABEL EQUATION SEGMENT 
STREAMCFN?SO & FT%srFT]» 7ZERO¢$EO, Tote0, 
TOGt=CFPBVERSTONS1), FPBs Fr=CLBLILINDX+#4)]> Ct20)3 
BEGIN 
ST t= F# DrisLoOC C3 DiszOl+7 § DSteCHR$ & LBLeNAM.SIZE 
SI t= FPBS 
Lt OLtsLoc FNS Dy sepnl462 HSt=2 CHRS ¥ FILE NUMBER 
NT t= LOC ZEROS SyieSy"23 
IF 2 SC = DC THEN GO TO XXITS & FILE NUMBER=0 
DItSFTs DSt2CHRs SypteSp+14s ¥ SAVE FILE TYPE FOR CHK BELOW 
Dr ¢= FS & SY AT FPB INT.NAMsD? AT LBL.EQN, 
IF SC = DC THES ¥ SAME STRING SIZE 
BEGIN 
IF € SCeDC THEN GO TO XXIT3 & ALL CHARACTERS MATCH 
END 
FLSE 
BEGIN % NOT THE SAME SIZE 
StteSr"1F Or%sLoOc Tas Di teD1+73 DS?scHR3 
S[TtsS]+T23 % SKyP QVER FPB ENTRY 
ENDS 
TOGCSyteS742)3 ZB SPEED AND EU CHARACTERS JN FPBCVERSION 4) 
GO TO L3 


XXIT! ENDS 


IF (Tt=P) NEQ O THEN & VALID LABEL EQUATION 
BEGIN 
FBADRSts(T#1)xFTRLUNG+FR3 % ADRS OF FB FILE ENTRY 


20058500 
20058600 
20058700 
20058800 
20058900 
20059000 
200591400 
200594110 
20059120 
20059130 


20059200 
20059300 
20059600 
20059500 
20059600 
20059700 
20059900 
20060000 
20060100 
20060200 
20060300 
20060400 
20060500 
20060600 


20060800 
20060900 
20061000 
20061100 
20061200 
20061300 
20061400 
20061500 
20061600 
20061700 
20061800 
20061900 
20062000 
20062100 
20062200 
20062300 


20062400 
20062500 
20062600 
20062700 
20062800 


20062900 
20063000 
20063100 


20063200 
20063300 
20063400 
29063500 


AVA A at 


ee ee 


AA HA HHH HH 


a4 


Aa 


4a4-4-4 


025023 
025033 
025033 
0250:3 
0254:3 
0253:0 
0253:0 
025430 
025422 
0261:%2 
20059410 
0261%2 
026112 
026331 
027033 
027122 
OO7314 
027414 
0274:2 
027510 
0275:0 
027530 
0275:0 
027910 
027933 
20060000 
0279383 
0284414 
028212 
028410 
0286t2 
028632 
028712 
028733 
0288:2 
02869:0 
0289:3 
029082 
029033 
0294314 
029141 
0292! 
20062100 
O0292%4 
0292%2 
0292!%2 
0293%2 
029480 
20062500 
029410 
029510 
0295:4 
20061200 
0295!2 
029552 
029612 
029730 


% FT 1S FILE TYPE FROM FPB OBTAINED ABOVE 
IF CFTIPsbLBLELINDX43),74325)) NEQ 837 THEN FT t8srTy3%New TYP 
FTtsFT,f43:5)3 & REMOVE “FORMS® BrT 
TYPEDYSK ¢ CFT#10) OR ¢cFT#12) OR CFT#13) OR CFT=2693 
STREAMCXSSCLBLILINDXJ],TOGI=(TYPEDISK AND CFPBVERS]ON=4))» 
FBADRS)$ ; 
BEGIN 
Spt=eXs OSte3WnSs OStSCHRS B MF IDoF ID» REEL DATES CYCLE 
TOGCSIT $=S1423 SKIP SSB Di texD]4+23 SKIP SDRB3 
IF SB THEN DS%2SFET ELSF DSt=RESET3 SKIP SB3 
JUMP OUT TO L238 % SAVE EU/SPEED SPECS FOR DISK 
NSte3CHR} 
Li! DSte3CHR3 
IF SC NEQ "eM THEN & NEW TYPE SPECIFIED 
TF SC NEQ "ew THEN DSt=CHR ELSE OSteSET3 
END STREAM STATEMENT? 


SENSEVAL t= (CEUVAL 82 LBLCUINOX+42).615%8)).54081)3 

SPDVAL t= EUVAL.»C41%273 

EUVAL t= EUVAL AND @373 

IF SPDVAL GTR O THEN 
MCF BADRS+3)t3¢*PCDUP) )@SPDVAL[1624632]}3 

IF SENSEVAL THEN % FILE SENSITIVE 
MCFBADRS+3)%2¢*PC DUP) D@SENSEVALI1534734]}3 

IF EUVAL GTR O THEN ® NEW EU NUMBER REQUESTED IN LBL«FON. 
MCF BADRS+3)82¢*PCDUP)SEUVAL £1894385)3 

END? & IF VALTD LABEL FQUATION 


TF C]tzle1) = 1 THEN TF LBLL14) NE@ 44 THEN GO TO UNBLK3 
END3 & WHILE LINK NFa O 


FNDS &% FOR Lt 
FORGETSPACECFPRB)S 


t= (MEFBI]} & (SEGOr7)].CCFIXETRLNG) (843681033 
ENDs % IF TYPE = FQUATING 


POTRETURNRCW)s STS» O» ROS» Os XCHe P&PCCTFIJs STF)3 
ENN PROCEDURE SELFCTRUNY} 


29063600 
20063700 
20063800 
20063900 
20064000 
20064100 
20064200 
20064300 
20064400 
20064500 
20064600 
20064700 
200648600 
20064900 
20065000 
20065100 


20065200 
20065300 
20065400 
20065500 
20065600 
20065700 
20065800 
20065900 
20066000 
20066100 


20066200 
20066300 


20066400 


20066500 
20066600 
20066700 


20066800 
20080000 
20080100 
20080200 


te nt st tt tt 


AHAAA AHA 


44 


aaa 


029941 
029984 
030310 
0304%1 
030832 
031082 
031180 
031180 
0311123 
O0313%1 
031433 
03152 
031533 
031680 
031632 
031733 
20064200 
031830 
032170 
0322! 
0323%2 
032434 
0328:0 
0328:1 
033230 
0332:3 
0336:2 
20063400 
0336%2 
0340384 
20059000 
034210 
20058200 
034414 
034530 
034930 
20046200 
0349:0 
034930 
0349320 
035153 
20011300 


SIZEs 0352 WORDS 


PRT(645) = 


STACK(F #2) 
STACK ¢Fe1) 
STACK¢Fe1) 
STACK(F40) 
STACK¢Fel) 
STACK ¢F 42) 
STACKCF43) 
STACK(F44) 
STACK(F 45) 
STACK¢F 46) 


PROCEDURE SFLECTRUN23 


SELECTRUN2 


RFGIN 
REAI, 
MSCW 
f 
MYMSCW 
RCW 
I 
. 
L 
DT 
MYX 


HDR 


STACK¢Fe7) = LEVEL 


STACK¢F 410) = MCPJOR 


STACK CF 411) 
STACK(F 412) 
STACK¢F +413) 
STACK (F414) 
STACK ¢F 415) 
STACKEF 416) 
STACK¢F417) 


STACK(F 420) 
STACK¢F 421) 


STACK¢(F 422) 


STACK(F 423) = 


PRT(161) = SOD 


OLAYNISK 
THISLINK 
NEXTLINK 
PREVLINK 
TYPE 
STACKL.OC 
SHFETLOCKFD 
ARRAY 


PRT(161) = TSKA 


MSCW 

F 
MYMSCW 
RCW 

1 

| 


HOR 
LEVEL 
MCPJOB 
OLAYDISK 
THISLINK 
NEXTLINK 
PREVLINK 
TYPE 
STACKLOC 


SHEETLOCKED 


LBL 


TSKA 


+40 
+5e 
+6e 
+7» 
+8» 
+9o 
+10> 
+11» 
+125 
+13, 
+14> 


+153 


+1O7*]>5 
417 *1]5 
+18¢#), 
+197*)» 
NT2r*]» 


NT2c¢#]3 


20080300 
20080400 


20080500 


START OF REL SEGMFNTS DISK 


20080600 
20080700 


20080800 
20080900 
20081000 
20081100 
20081200 
20081300 
20081400 
20081500 
20081600 
20081700 


20081800 


20081900 
20082000 
20082100 
20082200 
20082300 
20082400 
20082500 


20082600 
20082700 


20082800 
20082900 
20083000 
20083100 
20083200 


 $39818 
T 000010 
ADDRESS s 
T 00000 
T 000030 
T 0000:0 
T 000010 
T 0000:0 
T 00000 
T 000030 
T 000030 
T 000030 
T 9000:0 
T 000010 
T 000030 
T 0000:0 
T 0000:0 
T 000030 
T 000030 
T 000030 
T 000030 
T 000010 
T 000030 
T 000010 
T 000010 
T 000030 
T 000030 
T 0000:0 
T 000010 
T 000030 


00595 


STACK¢F 424) 
STACK ¢F 425) 
STACK¢(F 425) 
STACK (CF +426) 


STACK¢F+27) 


STACK ¢F 430) 


NAMer ADOR = LBL +13 
ADDR 
REAL PASSLEVEL = ADNR + 1, 
PASSLEVEL 
SVALUE = PASSLEVELs 
SVALUE 
RETURNMSCW = PASSLEVEL + 1» 
RETURNMSCW f 
RETURNRCW = RETURNMSCW + 13 
RETURNRCW 
DEFINE SHFETMAX = MIXMAX#; 
ro SS 4 4K NO TE Ok 
422% THE VARIABLES DECLARFD ABOVE MUST CORRESPOND FXACTLY TO 
BEXX THOSE DECLARED IN PROCEDURE SELECTRUN, 
REAL MESAGESPACE = RETURNRCW + 13 &% LOCAL TO THIS PROCEDURE 
MESAGESPACE 
LABFL DLX» BMSGs SKIPs EXIT? %127= 
DEF YNE XCLOCKTIME 
COONT2%e(XCLOCK DIV 3600)) MOD 60 + CNT2 DIV 60)x400 + 
9.5 ) DIV 1783 
DEF TNE ACTUALDSKADDRESSCACTUALNISKADDRESS}) 2 
CCUAREMIXe CONT4GPSACTUALDISKADDRESS1) DIV CNT3Se2JAREMIX08)99410) 
+ (NT& MOD NT3) + 0,5) DIV 1983 
$ SET OMIT = NOTCPACKETS) 
DEFINE UNTTNO © SC23].f2:6]#3 & ORIGINATING UNIT 
$ POP OMIT 


DEFINE DALOCSIZE = 9#3 


% VaALUFS ASSOCTATED WITH *TYPE™ 3 


DEFINE STARTING 


CONTINUFING 
QUITTING 
RUNING 
PASSING 
EQUATING 


SUBROUTINE DELINKS 
% NFLINKS THE SHEET ENTRY AND RETURNS SHEET DISK SPACE 


BEGIN 
STREAMCA?#S(31,(5810),B32P(,SCHEDULEIOS))3 


HAM eH 


1H» 
oh» 
34» 
4k» 
58. 
6#3 


BEGIN % MARK SCHEDULE SLOT "OPEN* 
DStaRESETS 


SKIP A DB3 
END3 


BEGIN 


IF F = 0 THEN &® SHEET ENTRY NOT PASSED AS PARAMETER 


IF NEXTLINK=0 THEN SHEETCLEVELI, CFF I&=PREVLINKS 


20083300 
20083500 


20083600 
20083700 
20083800 
20083900 


20084000 
20084100 
20084200 
20085300 
20065400 
200865500 
20085600 
20085700 


20085710 
20085800 
20085900 
20086000 
290086100 
20086200 
20086300 
20086400 
29086500 
20086600 
20086700 
20086799 
20086800 
20086801 
20086810 
20087200 
20087400 
20087500 
20087600 
20087700 
20087800 
20087900 
20088000 
20088100 
20088200 
20086300 
20088400 
20088500 
20088600 
20088700 
20088800 
20088900 
20089000 


20089100 
20089200 
20089300 


a4 


—~ 


4 


Se | 


oe ee Mie Nee See Be Ree Bee Re ee i i i ee eS ee Lee 


a4 


000010 
000030 


000030 
000010 
000030 


0000:0 


0000:0 
000010 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 


000030 
000030 
000010 
000010 
0000:0 
0000:0 
000010 
000030 
000020 
0000:0 
000030 
000030 
0000:0 
0000:0 
00000 
0000:0 
0000:0 
0000:0 
0000:0 
000030 
000030 
0000:0 
0000:0 
0000:0 
000030 
0000:0 
000050 
000130 
0001:0 
000110 
000933 
000233 
000332 
20088800 
000333 
0004%2 
000510 


Nluxs 


IF PREVLINK=#9 THEN 
BEGIN 
SHEFTCLEVELJ. CCF IS2NEXTLINK3 GO DLX3 


END: 


IF LBLs0 THEN 

BEGIN 
MPCLBLteARRAYDESC?¢30sLBLEQNAREFAV)) INX NOT 1), AREAMyXF3=03 
ENDS 


DISKWATTC*™CLBL INX 0)» 30+ PREVLINK)3 
LBLE29]tsNEXTLINKS 

DISKWATTC CLBL [NX 0)* 30.5 PREVLINK)S 
FORGETESPDISK(THISLYNK)$3 

ENDS % TF SHEET ENTRY NOT A PARAMETER 


FND DELINKS 


BOOLEAN SUBROUTINE REENTRYS3 


BEGIN 
POLISHCFALSE)3 
IF JAREMIX,27,08210] NEQ O THEN % NOT "GO" FROM COMPILE AND GO 
IF NOT €S£2).02!1)) THEN ® NOT ES#ED 
FOR y%"1 STEP 1 UNTIL MyXMAX DO 
If JARCT+*) NEQ O THEN 
IF CCJAREMTX20) EQV JARGIs03)) = CNOT 0) THEN & SAME MFID 
IF CCUAREM1X20} LSS 0) OR ¥ COMPILER 
CCOCJAREMIX,17 EQV JARF1,1])) = (NOT 0))) THEN & SAME FID 
TF JARC T2101 NE@ O THEN % COMPILER OR SAME MFID 
IF JARCI+2),06819] NEQ O THEN % NOT "GO" PART OF COMP,.& GO 
IF PRYOREI] GE@ 9 OR 
NFOLCCT™IOXNOX4+1)-0FF] NEQ O THEN % RUNNING 
BEGIN 
COMMENT MAKE THE FNTRY IN LINKED@*LIST STYLES 
IF PRTr1+4),CFF] NEQ@ 0 THEN & ALREADY PRESENT 
BEGIN 
COMMENT ENTER AT TATL OF PREVIOUS LIST? 
DO NTitet UNT LCT P=PRTC124),024!6)) 28773 
NFOLOMIX"1)XNDX41) 8a TRPC4)tePRTICNT1¢4)3 
NFOCONTZ*1)XNDX+ 1) 1=2PRICNTI eS) 2 
C#¥P(DUP)EMIXP2424216)3 
END 


ELSE 
BEGIN 
COMMENT CONSTRUCT NEW LISTS 
NFOCCITLXNDXSLIPSPRICT e4) te 
CHPC(DUPIIRTE1B84226IaMIXL2424216)3 
NFOCCMIX*1IANDXad ] te TRPC4)tex 
PRTC 104)8@77(24:42%6]3 
END} 


POLISHCDELs TRUE D3 
TS4MILXMAXS 
ENDS 


20089400 
20089500 
20089600 
20089700 


20089800 
20089810 
20089820 
20089830 


20089900 
20090000 
20090100 
20090200 
20090300 


20090400 


20090500 
20090700 
20090800 
20090900 
20091000 
20091100 
20091200 
20091300 
20091400 
20091500 
20091600 
20091700 
20091600 
20091900 
20092000 
20092100 
20092200 
20092300 
20092400 
20092500 
20092600 
20092700 
20092800 
20092900 
20093000 


20093100 
20093200 
20093300 
20093400 
20093500 
20093600 
20093700 
20093800 


20093900 


20094000 
20094100 


“4 ts 


4a U4 


ee ee i | 


~ 


AA HH AHH HAA AH HAN 


At AAAs 


a= 


O008%1 
000930 
000912 
0042:0 
20089500 
004210 
0013:0 
0013%2 
0020:2 
20089810 
00202 
002213 
002430 
002610 
002683 
20089200 
002683 
20088600 
0027:0 
002710 
002710 
0027:0 
002731 
002931 
0031:0 
003330 
003410 
0037!2 
003912 
004213 
004433 
004711 
004883 
0052:0 
005232 
0052:2 
0054:2 
0055:0 
0055:0 
0058:3 
006331 
0066? 14 
0068!3 
20092400 
006833 
006833 
0069721 
0069314 
007211 
007533 
O078!4 
008191 
20093200 
008131 
008133 
0082:2 
20092100 


Fe Fe FQ FQ DR 


RFFNTRYs=sPOL1SH3 
FNN REENTRANT CODE LINKaGE FSTABLISHMENT SUBROUTINE: 


P(MyMSCWe STF)3 
PcO)s % MESAGE SPACE* LOCAL TO THIS PROCEDURE 


* a 4OkOK *e OK EERE RK KORE 
* * * * * * ek * * * 

44% * * * *  * 8 eee RRR OK Re 

* x * * * * * * x * * * 
OK kk ee 2 KKK * oo ok ROR ke ke 0 


& SET OMrT = NOTC NCSPO AND nATACOM ) 
IF ROYMESS THEN 
1F MCPJOB.C1!1) THEN & “SYSTeM* TYPE JoR 
1F NOT CAUTOMESS) THEN & SUPPRESS BOUY/EOJ MESSAGE 
IF NOT ¢8(2).62%42) THEN & NOT ES@#ED 
IF Sp2],€431) THEN % SUPRESS BOJ/EOY MESSAGE 

BEGIN 

STREAMC(NS=S[LO]» MIXe TieTt2SPACE(4))3 
BEGIN 
DSt=6L IT" AUTO™*3 
SrtsLOc Ns SrtaSypo13 NSte7CHR} 
DStsaLrT"* ="3 SPteLOc MIXS DSte2DEc3 
DSt=LIT%e"s NPSEDl"3s OStaF ILL 
END} 


SPOUT(T)3 
GO TO SKIP; 
ENDS 


$ SET OMIT = PACKETS 
$ SET OMIT = NOTCPACKETS) 
IF ¢NOT McPJOB OR BOUMFSS) 
$ POP OMIT & PACKFTS 
AND NOT S$£21,0231] THEN & Sr2),¢2811]51 WHEN FS*ED 
BEGIN 
GIMEDATFCEOTI.CCrI].*DTI3 &B CONVERT DATE TO "MMDDYY™ FORMAT 
STRFAM(CDAAT!=DT» DTOGt2NOT¢MCPJOB) AND TRUE» SV #80, 
$ SET oMtT = NOTCDCSPO AND DATACOM) 
C22$718J}» AtsJARROWCMIX]» MIXe & SE18JePRIORITY 
QteXCLOCKTIMEs» Br=MESAGESPACE taGETSPACE(1259020)4+9)3 
BEGIN 
SpteLOc C3 DSte6DFC 3 Di sadt76s NSteSF ILL ¥ PRIORITY 
NpieBs NTieD L463 HStaL yes 


SypisAs SytaSless nSt=7CHR3 % MFID 

DStaLIT*/"s SrsweSy4ys DSte7CHRI % FID 

Sy%sLOc MIX DSt=_LIT*s"3 DSteoDEc3 % MYX 

SViaD[s DitsDle?3 DSteFyLLs Dp teSVvs 

DStsSLIT" BOU 3 OSt=4DECs DSsaLItw #3 % TIME 

OTOGCSyt=LOC DAATS SIt#S14+23 

3CDStSaCHRS DSssLyTe/")3; DItadle1 3 % CDATE 
$ SET oMIT = NOTCDCSPO AND DATACOM) 

DStaLpTte"3 


END STREAM STATEMENTS 


20094500 
20094600 
20094640 
20094700 
20094800 
20094900 
20095000 
20095100 
20095200 
20095300 
20098900 
201400700 
204100800 
20400900 
20101000 
20101100 
20101200 
20101300 
20101400 
20101500 
20101600 
20101700 
20101800 
20101900 


20102000 
20102100 
20102200 


20104600 
20104900 
20105000 
20105100 
20105200 
20105300 
20105350 
20105400 
20105500 
20405900 
20106000 
20106100 
20106200 
29106300 
20106400 
20106500 
20106600 
20106700 
20106800 
20106900 
20107000 
20107100 
201075800 
20107600 


4+ 


AAA HAH HAHAH HH HAHAHAHA AH 


i ee ee ee ee eee 


08413 
065:0 


20090800 


0085!1 
008531 
008633 
0087:0 
0087t0 
008710 
008710 
0087:0 
0087:0 
008710 
008710 
008710 
008783 
0089:0 
0090!2 
009231 
009333 
0094%1 
0097:°3 
009733 
0098:3 
00992 
010032 
01401:°2 


20101400 


010133 
010310 
0103%2 


20101200 


010312 
010382 
0103%2 
040410 
010430 
010632 
010710 
010833 
011032 
044032 
011133 
011842 
011862 
0119%2 
01420%2 
O12it! 
012231 
012384 
012411 
012630 
0192780 
012813 
012613 
012981 


20106100 


£ SET OMIT = NOTCOCSPO AND DATACOM) 


ENDS 
SKYP8 
z ere meer te.) ee eee TS doeeokok kkk ago Gk 
% * * * * me x x * * 
% fog Ok ke * Pr. ees 2? ee | * 
% * * * * * * * * 
% tok kkk Tir. ae os 2 2 ee | * eH 


YARGMIX22] 83 (HePCDUP)) & SFGOL2ICL18122) & 
SEGOC2]£532:3] ex 
SEGOL7IC3:2:1)3 
% SFGOr?2)],01:1)] = JOB COMPILED RY COBOL (€ NO "OAT™ ENTRY ) 
® SrGOr2),€2:3]. SEGOL7).£23:1] = USED FOR INTER™PROGe COMMUNICATION 
IF SFGOC2).0224] THEN SOFTI 8 SOFT] +13 
IF SEGO[7].0411] AND CMESAGESPACE#0) THEN & INVOKED I.P,.Ce TASK%110° 


REGIN % CHANGE BOJ TO ROT *¥110= 
STRFAMCMFSAGESPACE)$ BFGIN NTe*DI+283 NSeLIT*T%3 ENDS %110= 
FNS %110= 


$ SET OMIT = NOTCRREAKOUT) 


% ote ee. ee ee es 2. es 2 2 2 ee | * eee ORK kOe 
% * % * ’_ * * * * * x me * ™ 
+4 Ser SI * tt ee **& Wo WC oe. tee 2 * 
% * * * * o* * * * * mom * 
% Ok yk * * * eee Ok * * * * » 


IF MESAGESPACE NE@ O THEN &% BOJ MESSAGE BUTLD 
BEGIN 
SPOUTER(CMESAGESPACE »UNITNOs(BOUMESS AND NOT $€2],£211)))3 
%¥ $f2),.72%84] = 1 WHEN ESWED 
MESAGESPACE? 303 
ENDS 


MCSTACKLOC],£9861] t= MIX# % PLACE MIX INDEX IN MEMORY LINK 
% COMPUTE THE ADDRESS FOR THE PRT SUCH THAT PRTADRSL42!61]20 
Ts=cCCSTACKLOCtESTACKLOC+2)4S(24]) OR 63) + 13 % SE21IESTACKSIZE 
IF CCILEEMCESTACKLOC@"2].°CF))=CLtzSEGOL3] INX T)) GTR 10 THEN 
REGIN % RETURN REMAINDFR OF PRT SPACE 
1F NOT STOREDY THEN SLEEPCCTOGLEJ »>STOREMASK)S 
LOCKTOGCSTOREMASK)3 


MCLY t= 7 & CSTACKLOC™2) (CTF) & MIXE9'4286)]5 & NEW LINK 
MPT),CFF) tz UL} % BACK LINK 
MESTACKLOC"2).°CFJ te Us % FORWARD LINK 
UNLOCKTOGCSTOREMASK )3 


FORGETSPACECL4+2)3 
FNn3s ® TF PRT SPACE Was TOO LARGE 


% ZERO OUT STACK TO FASF PROBLEMS OF CONGENITAL DUMP*READERS 


20107700 
20108400 
20108500 


20108700 
20108800 
20108900 
20109000 
20109100 
20109200 
20109300 
20109400 


20109500 


20109600 
20110700 
20110900 
20111100 
20111200 
20111300 
20111500 
20111600 
20111610 
20111620 


20111630 


20111800 
20115200 
20115300 
20115400 
20115500 
20415600 
20115700 
20115800 
20118350 
20418360 
20418370 
20118380 
201448390 
20418400 


20118600 
20118800 
20118900 
20119000 
20119100 
20119600 
20149700 


20119900 
20120000 
20120100 
20120600 


20120800 
20120900 


20121000 


QP AMMAR AHHH HAHAH HHA BS 


AA HAAM HH HAHAHA RH 


~a4-+44 


41-4 


-" 


0129%2 
0129%2 
0129%2 
20105300 
012982 
012982 
0129%2 
012932 
012912 
012982 
0129%2 
012982 
012982 
0129%2 
012982 
013251 
013382 
013581 
013531 
013531 
013830 
0140180 
014032 
20111620 
014231 
20111610 
014231 
01421 
014271 
014234 
014221 
O142t1 
014231 
014281 
014231 
0143380 
0143:2 
014732 
014732 
01481 
20118360 
014831 
015140 
0151'0 
015482 
015981 
015983 
016233 
20119700 
016631 
016933 
017230 
017483 
20120600 
017881 
017982 
20419100 
017982 


ae pe 3@ 


Be AQ WE BE OQ 


AR 3S aqQ DR DQ 


C7 we 


OC+1)3 


a e * ° ry e e LJ ° ® 9 e ° ® a ® ® s e « ° e a 
READ IN PRT FROM DISK 
® e e e e « e ® * e e e * ° ® a a e e * ° e a 
DISKWATTC*T,» SEGOL3}.fCF1, ACTUALDISKADDRESS(CSEGOL2).LCFI))3 
% SeGOr?) = RELATIVE DISK ADDRESS OF THe PRT IN THE CODE FILE 


% Spoor3) = Size OF THE PRT 
TRPs=PRTROWCMIX)2e0£M0T])&8102308:338:10)3 % DESCRIPTOR TO THE PRT 


e222 ey * 408k eae REE KE 
* * * * * * * * 
eee ae ek kK * ek * * * * * 

* * * * * * * * * 
eee RE ERK Oke 0 wok * we dk * 0 


IF REFNTRY THEN 
BFGIN 
% RETENTRANT JOB» PRTF4) POTNTS TO FXISTING SEGMENT DICTIONARY 
COMMENT BUILD PHONY [cWe IRCW, & INCW3 
MeSTACKLOC] $2 022222222222222225 
MESTACKLOC411 t= *FLAGCORCTRP) (683319993 
MESTACKLOC42] t= sFLAGCO)3 


TRP( 8) t= *FLAGCSTACKLOC+2)3 
TRP[10) t= TRP&¢STACKLOC+1) (188338153 
END & RFENTRY 

ELSF 
REGIN 


NFOCLOCMEX*™1)xXNDX+1) fsa 
TRPCS)PaCMECTISGETSPACFCSEGOrL eI CF) >SEGDICTAREAVe1)+2)13 t1i67= 
NYSKWAITC™T» SEGOL1),°CFR J» ACTUALDISKADDRESS(SEGOL0).CCFIDD$ 
% SEGOLO]=S RELATIVE DISK ADDRESS OF SEGMENT DICTIONARY 
% SFGOri)d=s SIZE OF THRE SEGMENT DICTIONARY 
METRPC4)) te SEGOL(IrCFI 43 & SEGDICTLOJeSIZE OF DICTYONARY 
$ SET oMItT = NOTCAUXMEM) 
END’ % NOT REFNTRY 


eK ae ae OK ok * ek Kk OK kk 

* * * * * * * * 

x ke KERR Ok * x 

* * * * * « * * 

* ek & * x oR eORsOK toby Ke 

STRFAM(D 2 =NALOCROW(MIX] t=SAVEARRAYDESC COALOCSIZE »sDALOCROWARFAV))3 
BEGIN 
Spyt2D$ S1teS178s DSstenALOCSyZe wWOS3 
ENDS 


IF OLAYDISK NEQ@ O THEN % OLAY DISK OBTAINED ABOVE 
BEGIN 
NALOCEMIX+0} ts #2000093 
NALOCEMIXs1) t= OLAYDISK? 
OLAYD]SK t= 03 


20121100 
20121200 


20121300 
20121400 
20121500 
20121600 
20121700 
20121800 
20421900 
20122000 
20122100 
20122200 
20122300 
20122400 
20122500 
20122600 
20122700 
20122800 
20123000 
20123100 
20123200 
20123300 
20123400 
20123500 
20123600 
20123700 
20123800 
20123900 


20124000 
201424100 
20124700 
20124900 
20125000 
20125100 
20425200 
20425300 
20125400 
20126400 


20126600 
20126700 
20126800 
20126900 
20127000 
20127100 
20127200 
20127300 
20127500 
20127600 
20127700 


20127800 
20127900 
20128000 
20128100 
20128200 


AHAB H AHH AHH HAA Ht 


Te ee Nee ee Bee ee en | 


Se 


a4 


017932 
018120 
018430 
018420 
018450 
018480 
018430 
016430 
019232 
0192:2 
019232 
049583 
019533 
019533 
019533 
019533 
019533 
0195:3 
019533 
01497:0 
0197:2 
049732 
0197%2 
0199380 
020233 
020511 
020782 
021080 
20123100 
0210:0 
0210:0 
021580 
021770 
0222:0 
023082 
0230%2 
023012 
023312 
023332 
20124100 
0233%2 
02332 
023352 
0233%2 
023312 
02332 
0233:2 
023312 
0238! 
0238i1 
023930 
20127500 
0239%1 
024030 
024082 
O2h2t1 
0244:0 


FNDS3 
OLAYMASK $= TWO(M1X) OR OLAYMASKS #% OLAYS NOW ALLOWABLE 


ok KK ERE S OK ok *eKKE kee * * 
* * * * * * * * * %* * * 
* * * a * * * x * 
* * x * * * * * * * 

* * * 


* 
* 
* 
WORK ye K kkk * aK ee OK * i 


% 2 & * 


* * 
* ™ 
Ss * 


Se BQ Be FR 20 


% PLACE “COMMON” VALUE YN FeRST SyMPLE VARyYABLE IN THE PRT 
NTt &= Se1933 % COMMON VALUF IN SHEETCI9) 
FOR tie @25 STEP 1 WHILE NT1 NEQ@ O AND 1+ LSS SEGOC3) DO 
TF TRPryis0 THEN &% SIMPLE VARIABLE CNOT A NESCRIPTOR) 
REGIN 
TRPC IT] tanty3 
NTq2s0 
END3 


DELYNK$ ® DELINK SHEET ENTRY FROM SHEET QUFUE 
EXIT! 


PCCRFETURNRCW]s STS» Os RNS» Os XCHe PRPCCTF J» STF)3 
END PROCEDURE SFLECTRUNG3 


20128300 


20128400 
20128500 
20428600 
20128700 
20128800 
20128900 
20129000 
20129100 
20429200 
20129300 
20129400 
20429500 
20129600 
20129700 
20429800 
20129900 


20130000 
20130100 
20140000 
20140100 
20140200 
29140300 


024483 
20127900 
024423 
024632 
0246:2 
024622 
024682 
0246:2 
0246t2 
0246:2 
024632 
024682 
O247%2 
025233 
02533 
O254%1 
0255t2 
0255%2 
20129600 
025910 
0260:0 
0260:0 
026040 
026070 
026213 
20080600 
S1ZE# 0263 WORDS 


SAHARA HHH HHH HAH St 


i 


STACK ¢Fe2) 
STACK(Fe1) 
STACK(F ei) 
STACK(F 40) 
STACK ¢Fal) 
STACK¢F 42) 
STACK¢F 43) 
STACK ¢F 44) 
STACK(F45) 
STACK¢(F 46) 
STACK(F 47) 
STACK (F410) 
STACK¢F +11) 
STACK ¢F +12) 
STACK(F +13) 
STACK (F414) 
STACK ¢F 415) 
STACK(F 416) 


STACK (F417) 


= 


% FOR annrTrONAL INFORMATION CONCERNING THE SHFETs SEE THE 
% DOCUMENT AT SFQUENCE NUMBER 20512000 


PROCEDURE SELECTRUNCF)S VALUE F3 REAL F3 


BEGIN 


REA, 
MSCW 


F 
MYMSCW 
Rcw 

I 

T 

L 

DT 

MIX 


HDR 


= LEVEL 


= 


s 


iy 


MCPJOB 
OLAYDIESK 
THISLINK 
NEXTLINK 
PREVLINK 
TYPE 
STACKLOC 


SHFETLOCKFD 


INTEGER 


STACK(F41) = EST 


ARRAY 


STACK¢ F420) = § 


STACK¢(F 421) 


= 


SEGO 


STACK(Fe22) = TRP 


MSCW 

Z 

MYMSCW 
RCW 

I 

: 

L 

OT 

MyX 

HDR 
LEVEL 
MCP JOB 
OLAYDISK 
THISLINK 
NEXTLINK 
PRFVLINK 
TYPE 
STACKLOC 


SHEE TLOCKED 


EST 


20140400 
20140500 
20140600 
20140700 
20140800 


START OF REL SEGMENTS OFSK 


=O» 


"{e 


13 xX USED FROM 20163700 TO 20165300 


+167 ¥*],5 
4i7p*de 
+18 *)s 


+19(%)5 


20440900 
20141000 
20141100 
20141200 
20141300 
20141400 
20141500 
20141600 
20441700 
20141800 
20141900 
20442000 
20142100 


20142200 


20942300 


20142400 
20142500 
20142600 
20142700 
20142800 
20142900 


20142940 
20142950 


20143000 
20143100 


20143200 
20143300 
20143400 


T 000030 
T 0000:0 
T 0000:0 
T 000010 
T 0000:0 
ADDRESS » 
T 000030 
T 000010 
T 0000:0 
T 000080 
T 000010 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 000030 
T 000030 
T 000080 
T 0000!0 
T 0000:0 
tT 0000:0 
T 000080 
T 000010 
T 000030 
T 000030 
T 000030 
T 000030 
T 000030 
T 0000:0 
T 0000;0 
T 000030 
T 000010 
T 000030 


00604 


STACK¢F 423) = LBL 
SD s NT2re)s 
PRT(161) © SD 
TSKA = NT2r*y3 
PRTC161) = TSKA 
NAME ADDR =» LBL +13 
STACK(F424) = ANDR 
REAL PASSLEVEL = ADDR + Joe 
STACKEF 425) = PASSLEVEL 
SVALUE = PASSLEVEL» 


STACK¢(F 425) = SVALUE 

RETURNMSCW = PASSLEVEL + 1» 
STACK¢F 426) = RE TURNMSCW 

RFTURNRCW = RETURNMSCW + 13 
STACK¢ F427) = RETURNRCW 


DEFINE SHEETMAX = MIXMAX#; 


EBEY ENO TE eee x 
*%%% RETURNMSCW AND RETURNRCW w%eMUSTH#ee RE THE LAST TWO 
ZZ%% VARIABLES DECLARED 1N THIS PROCEDURE, 


DEFINE XCLOCKTIME = 
COONT2¢=CXCLOCK DIV 3600)) MOD 60 + (CNT2 DIV 60)x100 + 
0.5 ) DIV 1)#3 


$ SET OMIT = NOTCPACKETS) 
DEFINE UNITNO & S£23),f2276143 &¢ ORIGINATING UNIT 
$ POP omyT 


LABEL START» CONTINUE» LOAD, PASS» WINDUP, QUIT? 
LABFL JARSPACEs TRYAGAIN» NG3 


SWITCH SW t= QUIT» START» CONTINUEs QUIT» QUIT» PASS3 


COMMENT THE VALUE OF “TYPr® MAY DETERMINE WHICH PORTIONS OF 
PROCFOURFS “SELFCTRUNI™ AND/OR #SELECTRUN2" WILL BE EXECUTEN, 
PROCEDURE "SELECTRUNI™ AND WSELECTRUNO”™ MAYs IN TURNe SPECIFY 
THE BRANCH POINT IN THIS PROCEDURE, 

THE FOLLOWING DEFINES ARE USED TO SPECIFY THE BRANCH POINT 

IN SWITCH "SWS, 

END OF COMMENT; 


DEFINE STARTING = 1#» 
CONTINUE ING = 28s 
QUITTING = 38» 
RUNING ew AR: 
PASSING en SH. 
FQUATING = 683 


P6050 5050005000505 0,050r0,0,000,0,02000,0,0)3 
RCW t= RCW & P¢,,SELECTRUN»SLODI CTC] 


TYPE t= STARTING} 


¥127s 


20143500 
20143600 


20143700 
20143900 


20144000 
20144100 
20444200 
204464300 


20444400 
20144500 
20144600 
20445700 
20145800 
20145900 
20146000 
20146100 
20146200 
20146300 
20146400 
20446410 
201464149 
20146420 
20146494 
20146500 
20146600 
20146700 
20146800 
20146900 
20147000 
20147100 
20147200 
20147300 
20147400 
20147500 
20147600 
20147700 
20147800 
20147900 
20148000 
20148100 
20148200 
20148300 
20148400 
20148500 
20148700 
20149200 
20149300 
20449400 
20149500 


—+ + ~ 


AA HHA HHH HHH AH UH AH HH HH ot A 


000020 
000030 


000010 
000030 


000030 
000010 
000030 
000010 


000010 
000010 
000070 
000030 
000030 
000010 
000030 
000030 
000080 
000040 
000080 
000030 
000030 
000030 
000010 
000030 
000030 
000010 
0000710 
0000:0 
000080 
000010 
000030 
000080 
000030 


000030. 


000030 
000030 
000030 
000030 
000080 
0000180 
000030 
000030 
000030 
000030 
000030 
0005114 
000613 
000633 
000782 


START: 


P4aMrX se 03 

IF fF NEG O THEN & SHEET ENTRY PaSSED AS A PARAMETER 
BFGIN 
5 t= $OQUF & FrCTc)3 & SHEET ENTRY 
HOR t= F.PFF JS ¥ CORE ANDRESS OF OBJECT FILE HEADER 
END 


ELSE 
BEGIN 
TF TYPE=STARTING AND NOT SHEETLOCKED THEN 
REGIN 
SLEFPCrTOGLEJ»SHEETMASK)3 
LOCKTOGCSHFETMASK)3 


SHEETLOCKEN t= 13 
END} 


PerSVALUF)], STS): 
SELECTRUNG? 
Ie TYPE LSS O THEN 
GO TO SWLTYPE®sSABSCTYPE)I3 
ENN> 


CONTINU? 


Be ae DE Be de 


PiMrX t= O03 
IF ¢MCPJOB %= S(2),.SSYSJOBF) THEN 
IF cMCPJOB = PRNPBTCODE AND AUTOPRINT) OR 
(MCPJYOR = LOCNTRLCODF AND CDONLY) THEN 
MCPJOB,¢1!4)] t= 43 


% NOTE! A NEGATIVE SIGN FOR MCPJOB IMPLIES THAT THIS JOB 
% SHOULD BE STARTED REGARDLESS OF THE AVAILABILITY OF 
% SYSTEM CORE, 


IF mNTSTZe2#90 THeN & NO INTRYNSTICS FILE 
IF NOTCMCPYOB) THEN % NOT *SYSTEM® PROGRAM 
BEGIN 
STREAMC(NT38SNT382SPACE(4))3 
OSta2h4 LITM#ENO INTRINSICS FILE. ee" 
SPOUT(CNT3)3 
SLEEPCLINTSIZE],@1777)3 
END} 


WHILE CONTA S#XCLOCK#PCRTR)) GE@ WITCHINGHOUR DO MIDNIGHT! 


KeEEK OF *REKE OF * nee aK eekeKKE Ok * 
* “ * * * * * * * * * * * 
x * * * eR * * * * eeEKE OE 
* ‘* * ™ * * * * ry * rg * 
Keke EEK Ok * * Re * * eek oe * 


20149600 
20149700 


20149800 
20149900 
20150000 
20450100 
20150200 
20150300 


20150400 
20150500 
20150600 
20150700 
20150800 
20150900 


204151000 
20151100 


20151200 
20151300 
20151400 
20151500 
20151600 


20151700 
20151800 
20151900 
20452000 
20152100 
20152200 
20152300 
20152800 
20152900 
20153000 
20153100 
20453200 
20153300 
20453400 
20153500 
20153600 
20153700 
20153800 
20153900 
20154000 
20154100 


20154200 
20157700 


20157800 
20157900 
20158000 
20158100 
20156200 
20158300 
20158400 


Ast st ts 


re ee ee 


ee ee ee ee ee ee ee 


41-4 


4444445 


00073 
00073 


0007%2 
000831 
000930 
000982 
001140 
001211 
20150000 
O012%! 
001241 
001243 
001441 
001433 
001631 
20150900 
001983 
002082 
20150700 
002082 
002131 
0021383 
0022%2 
002713 
20150500 
002783 
002783 
002733 
002713 
002882 
003030 
003231 
003431 
003632 
003632 
0036%2 
0036%2 
0036t2 
003682 
0037%1 
0038%1 
003833 
0041!2 
004530 
004611 
004783 
20153600 
004783 
004733 
20157700 
0055!4 
0055%1 
0055%1 
00551 
005544 
005511 
005531 


IF 
IF 
IF¢ 


COMMENT 


OR 


OR 


NOT MCPJOB THEN % NOT “"LIBMAIN', "LOCNTRL"e"PRNPRT"™ 
OLAYNTSKeO THEN & NO OLAY DISK OBTAINED YET 
OLAYDISKt=PFTUSERDISK(500 OR M,12)«0 THEN &® NO OLAY DISK 
BEGIN 

Liet3 

GO TO PASS$ 

END? & TF NO OLAY DISK 


JOR WILL BF RUN ONLY fF8 

1) AN XS OR ES MESSAGF HAS BEEN ENTERED FOR THIS JOBe CIN WHICH 
CASE SHEETDIDOLER TURNED ON SO€23,0181]) AND CALLED SELECTION), 

2) THE SUM OF THIS JOBS CORE REQUREMENTS (S$620)) PLUS THE SUM 
OF THE cORE REQUIREMENTS OF ALL OTHER JOBS ACTUALLY RUNNING 
CCORE.CFF12 1S LESS THAN THE TOTAL AMOUNT OF CORE AVAILABLE 
FOR USER PROGRAMS ¢THE INITIAL SPACE AVAILABLE (CORE ‘¢CF1) 
TIMES THE MULTIPROCESSING FACTOR (CORE £4!14]))> 

3) "LOCNTRL/DISK" IS BEING TESTED AND THE *"CDONLY™ OPTION IS SET 
OR 
"PRNPBT/DISK" IS BEING TESTED AND THE "AUTOPRNT® OPTION IS SET 


IF THE JOB BEING TESTED IS A *SYSTEM"™ JOB CLIBMAIN®eLDCNTRL» 
PRNPBT) AND THE ABOVE CONDITIONS ARE NOT SATISFIEDs THE 

THE APPARENT AMOUNT OF AVAILABLE CORE CAS SHOWN IN THE “"CORE* 
WORD) IS TESTED USING A FACTOR OF 1.41 TIMES THE ACTUAL FACTOR 
TN ORNER TO ATTEMPT TO FORCE THESF JOBS IN, 


END OF COMMENTS 


LF 
$ SET 


$ SET 
$ SET 


$€23.08!10]55 THEN & "RUN" JOB GETS SPECIAL HANDLING 
OMIT = NOTCDATACOM AND RYE ) 
REGIN 
TYPF ts RUNING3 
PCPFSVALUEIJsSTS)3 
SELECTRUNI3 

IF TYPE LSS 9 THEN 

GO TO SWITYPEt=ARSC( TYPE) ]3 

FNOS & TF A *RUN" REQUFST 


TteS¢20)3 g USED UNTIL 20378900 

IF CESTSsCORF.(CFIXCORE.C4%14]/100)<T THEN ® ESTIMATE > TOTAL, 

TF EST>O THEN TiseSTs % SET 1T TO TOTAL, 

LicO3 1258 

IF NOMEM NEO 0 THEN GO TO PASS3 

IF ($f2] LSS 0) OR CMCPJOB.61#1]) THEN GO TO JARSPACE?3 

% MCPJOB.L1!1)=1 MEANS RUN JT REGARDLESS OF CORE AVAILARILITY 

* Sf2].0192) &82% [O=NORMAL>s 1=NOT USED» 22XS*ED» 386S"ED) 

IF (LEVEL GTR PASSLEVEL) THEN GO TO PASS3 %140« 
OMIT = NOTCBREAKOUT) 140° 
OMIT & NOTCWORKSET) 

IF CWKSETSTOPJOBS NEG 0) OR WKSETNOSELECT THEN GO TO PASS} 


£ POP OMIT & WORKSET 
IF CORE.CFFI+T > CIF MCPJOB THEN €STx4,1 ELSE EST) THEN GO PASS? 
% AN ATTEMPT IS MADE TO RUN MCPVJOBS EVEN WHEN CORE 1S FULL BY 
% TESTING THEM AGAINST A VALUE 10% HIGHER, 
4 TC Lt, cee. ee er ee eee? ee S22 2) 2. ee 2 re 2 
4 * * x Le * x * x & * 


20158500 
20158600 
20159100 
20459200 
20159500 
20159900 
20160000 


20460200 
20160300 
20160400 
20160500 
20160600 
20160700 
20460800 
20160900 
20161000 
20161100 
20161200 
20161300 
20161400 
20161500 
20161600 
20161700 
20161800 
20161900 
20162000 
20462100 
20162300 
20762400 
20162700 
20162800 
20162900 
204163000 
20163100 
20163200 
20163300 


20163600 
20163700 
20163800 
20463900 
20164000 
20164200 
20164300 
20164400 
20164700 
20164750 
20165110 
20165120 
20165130 
201465300 
20165400 
20165500 
201666800 
20166900 
20167000 


oe Mite Bites Bee Bee Meee te Ie en I i ee en 


AAA HHO Ba HHO 


0055%1 
005533 


0057:0 
006010 
006082 
0061%4 
0061183 
20159200 
00614143 
006183 
006133 
006133 
0061!3 
0064%3 
006143 
0061433 
006443 
006133 
006183 
006483 
0061433 
00613 
006143 
006133 
006143 
006183 
006123 
006183 
006433 
006334 
006331 
006313 
006432 
0065%14 
006533 
006642 
0071133 
20162700 
007333 
0072!3 
00760 
0078%2 
007984 
0084%0 
008313 
008383 
008333 
008530 
0085:0 
008510 
008870 
008810 
009453 
009271 
O099%] 
009211 
009231 


% * eR EK KR ke Mm OR Ok * tO Ok 
4 * * * * & x * * e * * 
Y eee y * ~  * x RRR OR * ees ee ee: 
JARSPACF! 
I[DOLFETIMES 
% FIND A MIX SLOT FOR THIS yOB 
FOR MyXt=4 STEP 4 UNTIL MEXMAX 90 
1F JARCM]Xe*)=0 THEN GO LOAD; 
% NO FREE SPACE IN JAR! PASS ENTRY WITHOUT DELINKING AND CONTINUE 
Lesa} 
GO 10 PASS} 
4 * AOR OK oko wok kt Rokk ke 
¥ * & * x x * * * * * 
% * * x eR Ok * * soe ke 
4 * * * * * * * * * * * & 
% eka OOK ok * Re * ee * * & * 
LOan?t 


JARROWPF MIX] t= YOQUE & HOREICTCIs % FILE HEADER BECOMES JAR ROW 
MEHnRe2),0936] t= MIXS & PLACE MIX INDEX IN MEMORY LINK 
MrHnR=2).6326) ts JARROWARFAVS %167= 
CORFE.fFF) te CORE,CFF) + T3 % ADD IN CORE ESTIMATE 


$ SET OMIT = NOTCPACKETS) 


IFer!*$f23).(2!6]) GEQ@ 32 THEN PSEUDOMIXEMIXJ]%a]# % PSEUDO"RDR JOB 


$ POP oMIT &% PACKETS 


JARFMEX20) t= Sf0]3 
JARCMIXe1] 3 Seid3 
JARCMI]Xs2]teSCPIRCIF CNT12=502),08210)])=5 THEN 2 ELSE NT19£8!38310)3 
2 If THIS 1S A *RUN" JOBs CHANGE IT To SAY “EXECUTE” 
% JAROMIXs2},(8810) = SHEET(2].(8:10] «& 
0 = "GO" PART OF COMPILE AND GO 
COMPILE AND GO 
EXECUTE 
COMPILE FOR SYNTAX 
COMPILE TO LIBRARY 
= RUN JOB 
TREAMCASSJAREMIXs 3) 0f30848)» Dt=LD0T])3 % CREATION DATE FROM HDR 
BEGIN 
ST#zLOC AF OSteBDEC3 
FNDS 


ae 
a uouoa@ 


Vf ww 


% 
% 
% 
r 
% 
$ 


$ SET OMIT = NOTCNEWLOGGING) 


PROCTYIMECMIX] t= =CJARCMIXe 32825516) )3 & PROCESS LIMIT 127" 
TOT ME OCMIX) te @CUARCMIXeG)¢eSf17))3 % 1/0 LIMIT Z127« 
STRFAMCDATE.s Ats€1J)3 & CONVERT DATE TO OCTAL FOR LOGGING 

BEGIN 

SpteLOC DATEs% DSts80CT3 

END3 


JAREMYX eS TS eCXCLOCK#PCRTRD) & 17182582373 & DATE AND TIME 
JAROMYXe6) 82 Sp6laSL23)0289%6)3 & CARD/PSFUDO RDR, UNITNO IN [2916] 
JARGMIXe7) 82 03 & [DLETIME ENTRY 


20167100 
20167200 
20167300 
20167400 
20167500 
20167600 
20167650 
20167700 
20167600 
20167900 
20468000 
20168100 
20168150 
20168200 
20168700 
20168800 
20168900 
20169000 
20169100 
20169200 
20169300 
20169400 
20169500 
20169600 
20169800 
204169900 
20170600 
20170700 
20170800 
20170900 
20171000 
20171100 
20171200 
20171300 
20171400 
20171500 
20171600 
20171700 
20171800 
20171900 
20172000 
20172100 
20172200 
20172300 
20172400 


20172499 
20472600 
20172700 
20172800 
20172900 
20173000 
20173100 


20173200 
20173300 
20173800 


AHA HH HH HHA A HO HT AA AH A HA te a st se 


ee 


4-41 


00928! 
009281 
009281 
009231 
009231 
009284 
0092814 
009283 
009283 
009510 
009613 
009833 
009833 
0099382 
010010 
0100380 
0400:0 
010010 
010080 
0100380 
010030 
010030 
010030 
010080 
010230 
010584 
0108!2 
011033 
011083 
0114%2 
0114t2 
011682 
011832 
012382 
012433 
012413 
012433 
012433 
012483 
012483 
012483 
012433 
012710 
012710 
0127382 
20172200 
012733 
012733 
013120 
0134814 
0135%1 
013581 
013533 
20172900 
013680 
013981 
014232 


JARGMYXeo9I] (FF) t= OF & ZFRO OUT "CHAIN" DISK ADDRESS FIELD 
% JARECMIX+8] THROUGH JAREMIXe29) STILL CONTAIN CONTENTS OF 


% ORJFCT FILE HEADER AS ORTAINEN ABOVE 
JARPMTXs9] t= MPHDR INX 9),6CF)] & MCPJOBL6t45!#3) 8 


€502),f483] AND NOT(S(2],(2%4] OR AUTOMESS))¢284784)33 


% Sf21,C481J21 MEANS SUPPRESS BOUY/EOY MESSAGES 
% MARK JAR(9) WITH JOB CODE (1,3 OR 5 FOR SYS JOB) 


% INSURE THAT THIS JOB HAS A UNTQUE STARTING TIME ¢FOR LOG) 


TRYAGAINE 
FOR J8e4 STFP 4 UNTYL MIXMAX DO 
BEGIN 
IF JARROWE 1] NEO O THEN % JOB RUNNING HERE 
IF | NEQ@ MrX THEN & NOT OUR JOB 


IF JAREMIX,5),0C24% 24 sJAR(1,5]1,(24124] THEN % SAME START TIME 


BEGIN 


JAREMI X25], 624824) 82 JARPMIX05) fF 24874)413 & BUMP THE TIME 


GO TRYAGAINS 


ENDS 
ENN3 
% %127= 
% Rokk WO kai itok eRe ERK ORR Re 41276 
z * * * * * * * * Z127= 
+ 4 rt ee 2 ee ee 2 * ee tk ok * %1278 
¥ * * * * * r *  * * * %127@ 
% KE oe * ek we aK ak kK ee eK * * kk ¥197*# 
% w127-= 
JF F NFQ@ O THEN & SHEET ENTRY PASSED AS A PARAMETER %127" 
BEGIN Z127= 
IF SEGO NEQ O THEN FORGETSPACECSEGO)3 %127= 
SEGO t= S & Sc7)CCTCIs & SEG, ZERO PRESENT AT CORE ADDR, "Sr7I1" 
END %127 
FLSeF %127= 
BEGIN %127= 
IF SEGO = 0 THEN &% "127° 
MECSEGOIZARRAYDESC(30*SFGZEROAREFAV)) INX NOT 1), AREAMIXF 8203 
DYSKWATTC#¢SEGO INX 0)*s30eMrHDOR INX 10]23 &% READ SEGMENT ZERO 
END’ &¥ IF SEGMENT ZERO WAS NOT PRESENT 41278 
z 41297 
4 oo. ce 2. ee ee ee 2 eS ee * Pec. ele Ls eee st 2 
% * * * * * As x * * * * * * 
x 4 * oR RO aOR WO tok & Leer. ere 2 S| * 
% * * * * * * x x * ™ * * 
4 Wea age Oe * x * eK OF * * * * * 
% ; Z127¢ 
% Sr21)] CONTAINS STACK S!7E, SER0L3] CONTAINS PRT S{ZE %127= 
IF SFG9rF31 GTR O THEN & NOT A RESTART JOB ¥12Te 
BFGIN K127s 
NFOCCMIX"14)xNDX42) te (STACKLOC®SsGETSPACE & %167¢ 
CSEGOL3]7 INX S¢217 TNX 64eSTACKPRTAREAVS3))423 % %167= 
1F STACKLOC = O THEN & NO MEMORY £127 
BEGIN %127° 
NG! JARROWC MIX] $2 | 4:2 OF §£ 2127s 
CORE.CFF) $= CORE.CFFJ] = T3 %& K127 
$ SET OMIT = NOTCPACKETS) 2127" 


20473900 
20474100 
20174200 
20174300 
20474400 
20474500 
20174600 
20174900 
20175000 
20175100 
20375200 
20475300 
201475400 
29175500 
20475600 
20175700 
20175800 
20475900 


20176000 


20176003 
20176006 
20476009 
20176012 
20176015 
20176018 
20176021 
20976024 
20476007 
20176030 
20476033 
20176036 


20176039 
20476042 
20176045 
20176048 
20176054 
20176057 


20176060 
20176063 
20176066 
20176069 
20176072 
20176075 
20176078 
20176081 
20176084 
20476087 
20176090 
201476093 
20476096 
204176099 
20176102 
20176405 
20176117 


AAA HHH HHH 
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014491 
014633 
014683 
014613 
0145083 
015542 
0155%2 
0155%2 
045512 
0155%2 
0157380 
015740 
015630 
045981 
046330 
016382 
016681 
016843 
20175600 
016833 
20475200 
017110 
017130 
017110 
017140 
04710 
0171180 
047130 
0173140 
047433 
017231 
017433 
017682 
20376027 
0176%2 
017632 
017710 
017830 
0184%} 
018910 
20176042 
018940 
016910 
0189130 
018930 
018930 
01869:0 
018980 
018940 
018910 
019080 
019082 
0492!%2 
019633 
0197%2 
019830 
019943 
020230 


$ POP oOMYTT 


TF NOT MCPJOB,£191) THEN & DON@=T AUTOSTART SYSJOB 


PSEUDOMIX(My]X] se O3 


GO TO PASS; 
ENDS 2 JF NO MEMORY 


IF STACKLOC GEQ #50000 THEN 


FENN: 


BEGIN & SAVE SPACF TO HIGHseee 


FORGETSPACECSTACKLOC+2)3 & 


STACKLOC 


GO TO NGS & 


ENN$ 


03 % 


% NOT RESTART 


¥127* 
4127" 
z127- 
%127< 


%127¢ 
£127= 
%¥127° 
Ri27= 
%127% 
z127- 
%127= 


Z127« 


%%% SFE ALSO "SEGMENT ZERO” SFCTION IN PROCEDURE ®SELECTRUN2" FOR 
43% FURTHER ALTERATIONS TO THe YAR, 


BR ae BE ae BQ 


We OK 
* 


* 
* 
* 


Wok OR kK ak 


* *  * 
NOOR ROOK 
* * x 

x * RR 


* 
* * 
* 
* * 
* 


OK 


$ SET OMTT = NOTCSTATISTICS) 
IF $62),0221) OR ¢Sc21) LSS 128) THEN Sr24)t=1283 
% $21] CONTAINS STACK SIZE 


$f72).,f2tii=4 


NFOrOMIX™] I XNDX42) 


WHEN ES*@ED.» 


Wok Ok 
* 
ert 
t 4 
Hk OOK 


kK OK 

* 

kok ek 
* 

Weak de 


t= PCOUP,»,LOD) & T CCTFI & CCCLOCK+PCRTR)) % 21278 


Drv 60) Cis3181733 & 2127 
PRYORI MIX] te "413 
$ SET OMIT = NOTCWORKSET) 
OLAYTIMECMIX] t= 03 
$ POP OMIT % WORKSET 
$ SET OMIT = NOTCHDATACOM) ¥141° 
VEER % BEAL EXE % £ 
% % %E % &% & % % 
PiMrXSeMIX3 LELLE % * % & % ‘ 
4 % 2 % ¥ % 2-5 
% ZE% % % & ZXS x % 
STARTLOGCPIMIX)$ & BEGIN LOGGING FOR THIS MIX %127= 


USERCONDF EMIX] 2 e@ARS(S[L24))3 
CHANGEABORT(S(6])3 


% USFRCODE IN S[24] 


IF $£27.C6810]=0 THEN FORGETESPHISKCS[25))3 % FORGET OBJ,SKELETON 
’ $€2),.f8#10)20 FOR "GO" PART OF "COMPILE AND GO" 


STRFAM(CQt=SFSROWC MIX] S=SAVEFARRAYDESC( 4eF SAREAV) D3 
DSte32L,T"0"; 


$ SET OM?PT = NOTCAUXMEM) 


TYPr t= CONTINUEING 


SFLECTRUN2 IS CONCERNED W]TH? 
BOJ MESSAGE 


x 

% 

% SEGMENT ZERO 
3 STACK AND PRT 
% 


SEGMENT DICTTIONARY 


¥167° 


20476120 
20176123 
20176126 
20176129 


20176132 
20176135 
20176138 
20176144 
20176144 
20176147 
20176150 


20176153 


20176200 
20476300 
20176400 
20176500 
20176600 
20176700 
20176800 
20176900 
20177000 
201477200 
201478100 
20178200 
20178900 
20178940 
20179100 
20179210 
20179220 
20179230 
20179610 
20179700 
20179800 
20179900 
20180000 
20180100 
20180200 
20180300 
20180350 
20180400 
20180600 
20180800 
20180900 
20181000 
20181100 
20485300 
20185700 
20185800 
201485900 
20186000 
20186100 
20186200 
20186300 
20186400 


Onraaaaon ANAND 


i=) 


AHH AHHH HA ADH HHO HAH tO BAH HA Ht 


020210 
0203181 
020331 
020383 
20176099 
0203193 
0204183 
0206:0 
020612 
020723 
0208382 
021080 
20176136 
021010 
20176087 
021070 
021010 
021030 
021010 
02100 
021070 
021030 
021010 
0210380 
021010 
021080 
021430 
021480 
021733 
021932 
022140 
022120 
022231 
022231 
0222!) 
022211 
022231 
022221 
022330 
022330 
022340 
0223:0 
022512 
022731 
022821 
0231%1 
023171 
023610 
024032 
024012 
0240182 
024131 
024181 
024141 
O2d1%4 
024181 
024181 


PCrSVALUFI»STS)3 
SELFCTRUNG3 
IF TYPE LSS O THEN 
GO TO SWITYPESEABS( TYPE) ]3 


IF ¢SFGOL7),€fCF)50) THEN % RUILD A DUMMY FYLE PARAMETER BLOCK 
TRPF3) be cMECGETSPACE (1 FPBAREAVs1)4+23) ELSES %167= 
BEGIN 
TYPE te FQUATING? ¥ BUILO FPB AND PROCESS LABEL EQUATION 
PerSVALUEJ,STS)3 
SFLECTRUNY 3 
IF TYPE.C1%3] THEN GO To SWETYPEImABS( TYPE) 73 
END? 


NFOrCMIX"1)xNDX¥] t= TRPE3y3 
% TRPC3) VALUE SET BY SELECTRUN{ FOR NON@MCP TYPE JOB 
GO TO WINDUP3 


PASS! 


TYPr s= PASSING} 
PCFSVALUEI]»STS); 
SELFCTRUNYS 
IF TYPF LSS O THEN 
60 TO SWETYFFS=ABSCTYPE)I3 ¥ SELECTRUNY DETERMINES BRANCH POINT 


WINDUPS 

% a ie * 1k * * eK ek Ok a He a ok ak & 

xX. « OF * * * * * * * 
4 * * Ok OF * * * * * ke 

x * * ke * we * + * * * * 
+4 +m * oe ke * 0 aoe dF HORT Ok Re 


$ SET OMIT = NOTCWORKSFT) 
WKSEFTSWITCHTIMp z= CLOCK + PCRTR)$ ® TIME OF LAST SELECTION 
$ POP OMyT &¥ WORKSFT 
% INITJAL]ZE OTHER PRT CELLS 
TRPpO] te WORDOFEASES 
TRPr2] &t=s MEMORY? 
TRPF10)] t= TRPRCSTACKLOC41)718233215)3 
IF JAREMIX*20] LSS O THEN g COMPYTLE JOB 
BEGIN 
IFCNTIteJARCMIX,2),66:10])=4 THEN & COMPILE TO LIBRARY 
TRPP@26)%eS722) % SAVE FACTOR FOR OBVECT FILE IN SHEET(22) 
ELSE IF te THEN & COMPILE FOR SYNTAX ONLY 
BEG] 
TRPp@26j)t=—=13 & SAVE FACTOR = (#1) % DONT SAVE OBJECT 
JAREOMIXs21.(8%40)2293 & MARK IT AN "EXECUTE" JOB 
ENDS . 


END? & COMPILF JOBS 
TRPPF6JtzFLAGCORCTRPC 6116182 332151832088 38240))3 


20186500 
20186600 
20186700 
20386800 
20186900 
20187000 
20187100 
20187200 
20187300 
20487400 
20187500 
20187600 
20187700 
20187800 
20487900 
20188000 


20188100 
20188600 
20188800 
20188900 
20189000 
20189100 
204189200 
20189300 
20189400 
201489500 
20189600 
20489700 
20389600 
20189900 
20190000 
20190100 
20190200 
20190300 
20190400 
20190500 
20190600 
20190610 
20190620 
20190630 
20190700 
20190800 
20190900 
20191000 
20191100 
20191200 
204191300 
20191400 
20191500 
204191600 
20191700 
20191800 
20191900 


20192000 
20192100 


AAA AHA UHHH 
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024121 
024131 
024131 
O24iti 
024210 
0242%2 
024331 
024832 
024812 
025030 
0253383 
025431 
025510 
025513 
025624 
026284 
20187500 
026241 
026231 
0264183 
026413 
026531 
026531 
0265314 
0265814 
026630 
026633 
026731 
0268:0 
027331 
027331 
0273! 
027311 
027331 
0273381 
027381 
027381 
O273%1 
027331 
027331 
027510 
02750 
0275180 
O276!1 
027782 
0280!0 
0261°2 
028210 
028ai2 
028533 
028833 
O0289%4 
029033 
029383 
20191600 
029323 
20191200 
029333 


IF JARI MSXs2] GEO O THEN xX NOT CORO 
YAPE 11 LECFLABCORLTRPL 1c) SE 18s 30815986681 381103)5 % "OAT" ENTRY 
% BRING IN STARTING SEGMENT&BUILD CONTROL WORDS FOR INITIATES 
MAKFPRESENTCTRP INX POLISHCSEGOr6J+TRPL A)» INX»LOD).(8810))3 
% SeGOré)] = STARTING SEGMENT NUMBER 
® SFGDICTLCSEGOrT6)3.£78310)] = PRT LOCN, OF DESC. FOR STARTING SEGMENT 
MESTACKLOC+2)%e MFLAGCPOLISHCSEGOL6 I] a TRPCA Te INX® LOD) oe L182159))3 
MESTACKLOC41]%e= “FLAGCORC(TRP) (6133329193 
MESTACKLOC)] tx @27222222929222923 
TRPY? 8] t= “FLAGCSTACKLOC+2)3 % INITIATE CONTROL WORD 
IFONT(2=TRP64).618%6)]) NEQ O THEN 
INTABLFROWEMIXJI=INTABLEROWENT1) 
FLSF YF NOTCJAREMIXe9),SYSJOBF) THEN % NOT "SYSTEM" JOB 
BEGIN 
T!=INTSIZE3 
INTABLEROWPMIXISSCMCGETSPACE CI e191 )+2)I8168338810)3 
STREAMCAtsy o> TIS TNTABLEROWEMIXI)3 

BEGIN 

SprtaTs SytzS1"Bs NSteaA WOS3 

ENDS 


END} 


IF $€21.0291) THEN & Se2).Cotijet WHEN FS"ED. CALL TERMINATE 
BFGIN 
JAROMIX,2), 6281) %=43 % MARK IT TERMINATED 
TERMINATECMIX & 
CIF JAREMIX,2]40781) AND (#PCTSX INX TRP)),PBYT THEN 
90 ELSE 35)C€CTFI)3 


ENN 
ELSr 
IF JAREMEXe2) 6721) THEN % TASK WHOSE PARENT HAS 
IF ¢TSkKAe*PCTSxX JNX TRP)) PRIT THEN 2 DECLARED TASK ARRAY %¥110= 
BFGIN 


TSKAL1) t= JAR(CMIX,0]3 

TSKAT 2] t= JARIMIXe1]3 

TSKAL3) t= 23 & STATUS? ACTYVE 
TSKAL4] 82 MIX} 

END} 


&$ SET OMIT = NOTCNEWLOGGING) 


SAVE MIXCMIX)S 
PRYORCMIX] s= SC18]3 % PRYORIJTY IN SHEETC18)3 
1F ¢s0O THEN & SHEET ENTRY NOT PASSED AS A PARAMETER 
BEGIN 
TYPE t= CIF Sf£2)ef1%81) THEN STARTING ELSE CONTINUEING)3 
% 1F ES=ED THEN RE@START SHEET SEARCHS OTHERWISEs CONTINUE ON 
Go To STARTS 
ENDS 


QUITS 


PiMrX #2 O3 


20192200 
20192300 
20192400 
20192500 
20192600 
20192700 
20192800 
20192900 
20193000 
20193100 
20193200 
20193300 
20193400 
20193500 
20494100 
20194300 
20194400 
20494500 
20194600 
20194700 


20194800 


20194900 
29195000 
20195100 
20195200 
20195400 
20195500 
20195600 
20195700 
20196300 


20196400 
20196500 
20196600 
20196700 
20196800 
20196900 
20197000 
20197100 
20397200 


20197300 
20197600 
20198500 
20499200 
20199300 
20499400 
20199500 
20199600 
20199700 


20199800 
20210000 
20210100 
20210200 


AAHHAH HR HHH HA 4H 


~ 


SS . 


EE 


444-5 


029740 
029882 
030221 
030281 
030512 
030512 
030512 
030983 
0313%2 
031510 
031724 
031981 
032032 
032483 
032584 
032630 
033084 
033182 
033182 
033282 
20194500 
033213 
20193500 
033233 
033213 
033283 
033333 
033434 
033781 
033733 
0341t 
034381 
20195200 
034391 
034311 
0345t4 
034830 
034882 
035012 
035232 
035383 
035510 
20196700 
035580 
035510 
035533 
035734 
035840 
0358%2 
036482 
0361%2 
036380 
20199300 
036330 
036310 
036310 
036310 


TF SHFFTLOCKED THEN UNLOCKTOGC SHEE TMASK )3 


IF § NFQ@ O THEN FORGETSPACECS)3 


% SPACE FOR SHEET ENTRY 


TF SEGO NE@ O THEN FORGETSPACEC(SEGO)S & SPACE FOR SEGMENT ZFRO 
IF OLAYOISK NEQ@ O THEN FORGETUSERDISKCOLAYDISKs*500)3 


IF |.BL NEQ O THEN FORGETSPACECLBL)3 
KILLCEMSCW))3 
END SELECTION ROUTINES 


% SPACE FOR LABEL EQN ENTRIES 


20210300 


20210400 
20240500 
20210600 
20210700 
20211400 
20211600 


036333 
20240300 
0368:0 
0370%2 
037320 
037532 
037830 
037833 
20440900 
SIZE= 0379 WORDS 


i i | 


DEFINES 


$ SFT OMtT = 
£ POP oOMYT 


COMMA 
FQUAL 


UNLOCKY 
USEV 
LOCKY 
FREE 
OPEN 
PACKET 
USER 
RUNV 
COMPy 
FXECU 
COPYN 
DUMP 
UNLOAD 
ADDV 
LOAD 
Re Moy 
CHANG 
ENDFY 


NOTCPACKET 


WAITYV 


NATAV 
LABEV 
SETV 
Re SETYV 
FILEV 
EXPIRED 
ACCESSN 
PROCE 


COMMONV 
COREV 
STACK 
SAVEV 
ALGOL 
FORTRAN 
TSPOL 
ABASIC 
COROL68 
WITH 
COBOL 
LIRRA 
SYNTA 
FROM 
Tov 


Ci ee: i | es | 


HO nw 4 HH nt oH 


nna n AHN HH aR Hh eH hen ek hn a 


10#,4% 
114#,% 
12#,% 
134#,% 
144,% 
(54,2 
16#,% 
17#,% 
194#,% 
204% ,% 
21#,% 
224,% 
23#,% 
24, 
25%, 
one, 
a7t, 
258, 
298, 
30#, 
314, 
324, 
33%, 
34#, 
354, 
36%, 
37#, 
39%,3% 


40#,% 


41#,% 
424 ,% 
434#,% 
Gat ,% 
47#,% 
484#,% 
49#,S 
504,% 
514,% 
524,% 
534#,% 
544,% 
55#,% 
564,% 
60#,% 


—628,% 


634% ,% 
648 ,% 
65#,% 
664 ,% 
67%,% 
667,% 
69#,% 
704 ,3 
714,28 


ZLP 4 
RIGHT BRACKET FOR EXCEPT LIST 
LEFT ” 7) " 


A SwITCH LABEL (FUNC) IN 
SECURITYMAINT USES THE ORDER OF 
VALUES OF WUNLOCKV® THROUGH "OPEN*®, 


A STORE NEAR THE END OF PCC 
MAKES USE OF TWE ORDER AND VALUES 
OF "PROCE™ THRU "SAVEV"™, 


CSAVE #DAYS ON COMPILE TO LIBRARY) 


20212000 
20213000 
202134000 
20215000 
20216000 
20217000 
20217500 
20217600 
20217700 
202718000 
20219000 
202149050 
20219060 
20219100 
20219200 
20219300 
20219310 
20219400 
20219500 
20220000 
20221000 
20221500 
20222000 
20223000 
20224000 
20224500 
20225000 
20225500 
20226000 
20226099 
20226100 
20226101 
20226500 
202927000 
20228000 
20228100 
20228200 
20228300 
20228400 
20229000 
20230000 
202931000 
20232000 
20232500 
20233000 
20233500 
20234000 
20235000 
20235050 
20235075 
20235080 
20235099 
20235100 
20236000 
20237000 
20238000 
20239000 


tt et tH A A A I te 


000080 
0000:0 
000030 
0000:0 
000030 
0000:0 
000030 
0000:0 
000030 
000030 
0000:0 
000010 
000010 
000030 
000010 
0000:0 
000030 
0000:0 
000010 
000010 
0000:0 
0000:0 
0000:0 
000030 
0000:0 
000010 
000030 
000010 
0000:0 
000080 
000030 
0000:0 
000030 
0000:0 
000030 
0000!0 
000010 
000010 
0000:0 
000010 
0000!0 
000010 
000010 
0000:0 
000010 
0000:0 
000030 
000010 
000050 
000030 
000030 
000020 
000010 
000010 
000010 
000080 
0000:!0 


COMMENT 


REAL 


ARRAY 


NOHASH 
PAPER 


= 724,% 


= 75#,% SWITCH DCPCCI"FORMM@*SPECTAL™ 
= 774, 2 66 LINES PER PAGE 


79H 9% 
BO#,% 
814,% 
824,% 
B83#,% 
854#,% 
904, 

B94, 

914,% 
924 ,% 
934,% 
94F, 

96%, 

974#,% 
964, 

1008» 
1O1#. 
10248» 
1038> 
1044, 
BA#sE 


nnwhwunt nH HR HH AH Heh RA 


RFSWDS CONTAINS RESERVFD WORDS FOR CONTROL CARDS3% 
DEFINE mnFCLARFCCVARIABLES = 


MSCW 
CARD 
Rcw 
PROCVAL 


A 

CADDR 
CARDLOC 
CNEX 
CMPLR 

CN 

KOUNT 
LASTSCAN 
LIBNO 

N4 

N2 

N3 

N4 

OPTN 
OPTNN 
PADDR 
PNEX 
PPCPROCFSS 
SOURCE 
SPOUTUNIT 
ST 

Tl 

UNT TNO 
USERID 
ACCUM 
CrQN 

CMM 


une eHen nun 8 tnt t anh Hh wt Wea oe ean aaa 


"2s 
MSCW41 0 
+0, 


MYMSCW 


= 


CARDs 


RCW41> ZIN CASE OF TYPED PROCEDURES 
T 


PROCVALal» 
A+ 
CADDR+1> 
CARDLOC41>° 
CDEX+¢.8 
CMPLR+i» 
CN+1» 
KOUNT+1 5 
LASTSCAN+1. 
LIBNOe1» 
Niet, 

N2+d» 

N3440 

NQsd> 
OPTN4 1» 
OPTNNeL» 
PADDRe1, 
POEX+1.» 
PPCPROCESS+1. 
SOURCE +4» 
SPOUTUNTT4+1» 
ST+is 

Ties 

UNS TNO+413 
USFRINF10*), 
ACCUMs1E*] >» 
CEQN+1 [4] >» 


SFID 


SDEX 


Ae 
CADDR> 


CDEX» 


Nas» 


PADDR» 
PDEXs 


%148° 
%846= 
¥724@ 


20239100 
20240000 
20240020 
20241000 
20242000 
20243000 
20244000 
20245000 
20246000 
20247000 
20247500 
20247600 
20247700 
20247800 
20247900 
20247920 
20247930 
20247940 
20247950 
20247960 
20247970 
20247980 
20247990 
20248000 
20249000 
20288000 
20288100 
20288105 
20288110 
20288115 
20288120 
20288125 
20788130 
20286135 
20788140 
20288150 
20288155 
20288165 
20288170 
20288175 
20288185 
20268190 
20288195 
20288200 
20288205 
20286210 
20288215 
20288220 
20286225 
20288240 
20288245 
20288250 
20288255 
20288260 
20286265 
20288270 
20288275 


ASH AHHH HAA HH A HA AHA tA At AA HHA VHA VV AS RAO IO 


000030 
000030 
000070 
0000:0 
0000:0 
000030 
000030 
000020 
0000:0 
000070 
0000:0 
000070 
0000:0 
000030 
0000:0 
0000:0 
000010 
0000130 
0000:0 
000010 
0000:0 
000070 
000020 
00000 
0000:0 
0000:0 
000030 
0000:0 
0000:0 
000030 
000010 
000030 
0000:0 
0000:0 
0000:0 
000030 
0000:0 
0000:0 
000010 
000030 
9000:0 
000030 
000030 
000030 
000030 
000030 
090030 
000030 
0000140 
000010 
000030 
000030 
000030 
000030 
000030 
0000:0 
0000!0 


PRT(646) s 


STACK¢eF ai) 
STACK ¢F 42) 
STACK¢F 43) 
STACK ¢F 44) 


STACKCF 45) 
STACK(F 46) 
STACK(F 47) 


NAME 


ROOLEAN 


REAL 


ai 


nrReECT = CMMeir#), 

PEON = DIRECT+1(*)> 

PROG = PEQN+1[#]3 

AnNDR = PROG#+13 

ARORT = ADODR+1. 

TOG = ARORT+13 

ReTURNMSCW = TOG4I, ® THESE LOCALS MUST BE THE LAST 
Re TURNRCW = RETURNMSCW41s % THREE LOCALS OF CONTROLCARN 
RE TURNVAL = RETURNRCW41 


$ SFT OMIT = NOTCPACKETS) 
PROCFOURE PRINTTHECOVERCCARDsUNYTNODPS)3 


20288280 
20288285 
20288295 
20288300 
20288305 
20288310 
20288315 
20288320 
20288325 
20788900 
20289000 
20289009 
20289010 


START OF REL SEGMENT? DISK 


PRINTTHECOVER 


VALUF CARDsUNTTNOePS$ REAL CARD» UNTTNOSPS3 
% TO ALTER SIZE OF ONE@AREA PACKET PAGE CHANGE DEFINE AT 02193094 
BEGIN LABEL TRYAGAIN? 


PAGEANDR 
HEADER 


& SET 


REAL BUF eT» TPsX3 


INTEGFR [»PAGEADDRS ARRAY HEADER(#]3 


SUBROUTINE BUILOHEADER; 
PEGIN 
HEADER? =s1OQUE & BUFFCTc)3 
MORUF I) 2203 
MOVE (29eBUF,BUF41)3 
STRFAMCDATESH3S=HEADER INX 3)3 
REGIN S1teLOC DATES OSt=80CT3 % CREATION 
DIL tsH3s DSterL Tt +ens Z SAVE 10 
Sr1sH3s SiseS74+53 DSte3CHR} % ACCESSED 
END3 


HEANER( 9) $=@00132004320001033 £ 90+90013 
HEANFROEV]$sCXCLOCK+PCRTR)) & HEADERI3]£6830:18]} 
HEAPER(L 21° 2HEADERL SI 2=MCP,(6842)3 

HEADERS 434208001001) f2238810]RSYSNOCHS46I2 43 
OMtT = NOTCDATACOM AND RJE) OR OMIT 
HEADER(7IS=cPAGESIZE DyV 3)945 

HEADERS) 8=PAGESIZES 

HEADERIOJ#=45 

HEADERE10]%aPAGEADDRS 

FND BUILDHEADER? 


TRYAGAINE 


CIDTARLFECUNY TNO@32,6)9'sTPis 001 & NEXTCDNUM(1)66824224)3 
tF DIRECTORYSEARCH(#"P8D ,TP25)#0 THEN GO TRYAGAIN: 
BUF SsSPACE(90)3 
PAGEADDR taGETUSERDISKCPAGESI 7E 3 
PSteyF CARD, £939}=20 THEN 

IF PSeQ THEN “CRA™ ELSE 1F PSeq THEN *"CRB® FLSE 

1F PS#? THEN TINULUNJTNO),.€308148) ELSE 


¥176- 


Z131" 
z112s 


20289020 
20289025 
20289030 
20269035 


20289040 


20289045 
20289050 
20289055 
20289060 
20289065 
20289080 
20289085 
20289090 
20289095 
20289100 


29289105 
20289110 
20289113 
20289115 
20289117 
20289120 
20789125 
20289130 
20289135 
20289140 


20289142 
202869144 
20289146 
202869148 
20289150 
20269152 
20289153 
20289154 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
t 
T 
A 


Avo 


AAA AH Has 


ee ee 


a 


000030 
000030 
000030 
000030 
000030 
000030 
000030 
000030 
000030 
0000:0 
000010 
000010 
000080 


NORESS = 00617 


000080 
000030 
000080 
000030 


000030 


000080 
000140 
000130 
000232 
0004%0 
000610 
000733 
O008k 1 
000980 
000933 
20289085 
004070 
001181 
OO14t4 
001832 
0024383 
002443 
002480 
002531 
002632 
002733 
202869050 
002910 
003083 
003530 
003782 
003933 
OOa4t, 
0042te2 
0047:0 


I 
£ SET oMIT 
" 


STREA 


REGIN 


FNDS 

Mf BUF 
n1TSKkW 
STRFA 


REGIN 


FENN? 
niskw 
Xt=x63 


1F CT 
REGIN 


eNns 


STRFA 


ZyP" ELSE * " ELSE 


F PS=3 TH " 
ATACOM AND RYE) OR OMIT 


2 NOTOCD 
"3 

MCCARDe TP2SCINTABLELUNTTNO@3202)9PS 

» N&sClOTABLELUNJTNO"3257)44,BUF)3 

DStsBLIT” "3 ST&tsBUFS 2CDS2244 WOS)3 
SytsalLOc N$ DI t#l0¢ Ni DSts8DOECS DrtelLOc N3 DS?s6FILLS 
ST&eLOC Ne SpteSi433 Dye eBurs Dp tebtes23 
OSta7LIT"INPUT "3 DHSte5CHRi DSte1e9LIT" CARDS FROM w$3 
SytsLOc PS3 Sis2S74+53 OS te3CHR3 
DiteBURs ACD FeD1434)3 HNStwBLETHS x 2440003 BUF IEDs 
S]t#LOC TPS SIlseSp+o3 Dy ted] 4123 
DSteBLITVPACKET #3 DSte ACHR DL teDl~-43 DSt23F ILL 
DItsBUFS 42CDE8eDl4+34)2 HSieBL ITs x 244000"3 BUF teD 13 
STIsCARD3 DS?=9OnDS} 
OYteBUE. ACO eDl 4343 HNSteBL ITs x212000"3 BUFS=D]3 


SACDSteLITV#")s DStetilLrT" ABORTEN “$s S5SSCOSteLIT #3 


DI*sBUF) 4¢CD1LF§eP1434)% pSsxBLiT*sx212000"3 BUF ISD} 
DStszi6LIT"+ABORTEDOPAGE "3 OSISILITMOPACKET O73 
SyixlLOc TP3 Sys2xSyeos DNSteaCHRi Oy teDy4+33 

Syt#CARDs DSts9 WHS} 

SOcDStaeL TTPO") 


+87] 5sMCP3 

AITCBUFA90sPAGFANNR)3 

MCAtElLteC CONTI tec C(XCLOCKs+PCRTR)) DIV 3600)) MON 60 
+CNTL DIV 60)*100)+DATE WEEKDAYS ACTDATESBUF )S 


3C4eN ted 74343 OSteBLIT*IxOxD000")3 BUF aDITS 
NSsteBLIT* *s SyteBUurs DSte34 WOSS HY teBUFS 

SttsLOc DATE? Di teD1 +123 OSs aay yTMOHaATE™S DptaDd1 433 
StteSp43s DSt=eSCHRE DI teDI +13 

S1TseSl4o% 6CIF SCs " THEN SI teSl4q ELSE DSt8=2CHR)3 
S]imLOc ACTDATES pStaSLIT*DAYs "3 

ST&eS]4#23 2CDStePcHRe OStaLIT*/")3 OSt22 CHR 
OL2sBUFZ ACDL&2D1434)3 NStsBLITsx214000"3 BUF teD]3 


¥131° 


4131 


STtelOc AS DIseDl 4123 DSta4LIT"TIME"S Di teDl+43s DSteA4DFc3 


DT isRUFs ACD teNl+3a)s NSteSLIT@rx214000"3 


AITCBUF »90sPAGEADDR43)3 
MCBUF 4171] 3203 
tsDIRECTORYSEARCHC "MESSAGE s"OTHEDAY%25))#0 THEN 


FOR 720 STEP 4 WHILE €1<6) AND NOT ME BUFS447) DO 
BEGIN 

DLSKWALITC@BUF ee 90sMrT410)43x1 23 

DISKWAITCBUF s90*+PAGEADDR+643x])3 

X2eX433 
ENND3 


FORGETSPACEC(T)3 


MCML SeMARKLEVEL» PL tePATCHLEVEL»s LL eLOCALEVEL 
e{LteM(C3)+BUFs=sBUF+54)5 


1760 


20789155 
20289156 
20289159 
20289160 
20289163 
20289165 
20289170 
20989475 
20289180 
202989485 
20289190 
20289195 
20289200 
20289205 
20289210 
20289215 
20289220 
20289225 
20289230 
20289235 
20289240 
20289245 
20289250 


20289252 
20289255 
20289260 
20289265 
20289270 
20989975 
20289280 
202989285 
20289287 
20289290 
20289295 
20289300 
20289305 
20289310 
20289315 
20289320 


20289325 
20289335 
20289340 
20289345 
20289350 
20289355 
20289360 
202869365 
20289370 
20289375 


20289380 
20289385 


20289390 
20289395 


tea st ae st tt 


ee ee 


ee ee Re i ee ee ee 


44 


41-4 


004983 
0052382 
005282 
005381 
005531 
005630 
006081 
0064182 
006282 
006513 
006612 
006930 
0069183 
007123 
007431 
007433 
OO7741 
0081:0 
008332 
OO87t1 
008834 
0088!3 
008933 
20289165 
0090:0 
009233 
009410 
009630 
0099%3 
009933 
010232 
0140482 
010680 
010633 
010833 
011010 
011183 
011431 
011610 
011631 
202869270 
0118:2 
012034 
012330 
0125%1 
042553 
0431433 
013193 
013542 
013834 
0143982 
20289355 
014830 
014833 
20289345 
014833 
044923 


BEGIN DSteBLIT™ "3 STS=2BUFS HS#8234 WOSs DIt=BUF3 

NyteNr=Bs DSPZBLIT™:x000803"3 

Dr§eOl412% NSte18LIT"#NO MESSAGES TODAYS 

NT2eBUFS ACD teD 1434) NSteBLyTetx212002"3 BUFT=Dy}3 

DIitsD1+83 DS#=31L,7"*** BURROUGHS B5700 DCMCP MARK #3 

SrtaLO¢ ML$ IF SC GF@ ™ “" THENS 

8CIF TOGGLE THEN 1F SC#*O" THEN SyteS]4+1 ELSE DSt=CHR 
FLSE OSteaCHR)s OSteLIT" "3 

SrteLOc PL3 IF Sc Gea * © THEN? 

6CIF TOGGLE THEN 1F SC=wO" THEN SrteSt4+1 ELSE OSt=CuR 
FLSE DStsCHR)2 NSt22aCHR3 

Srist0C LL? IF SC GEQ@ * ™ THENS 

BCIF TOGGLE THEN {F SCa"0O" THEN SIteSI+1 ELSE DSteCHR 
FLSE DStexCHR)3 pSse2aiLIT*® AND INTRINSICS MARK "3 

Stisloc ML3 IF SC GEQ * * THENS 

ACIF TOGGLE THEN 1F SC#¥O" THEN SIteSt+1 ELSE OSt=CHR 
FLSE DSt=CHR)s pSssLit",3 

StteLOc [Ls SpteSr+4s TF SC>"O" THEN DSteCHR ELSE 

SpTteSp44s DSIsaCHR$ OSted LIT kenrys 

NPteBUFS ACD) &eD1434)3 NStwGLET 1x21 200183 

ENDS 


NISKWATTCBUF s902ePAGEADDR+#X )3 

BULLDHEADER3 

FNTFRUSFRFE ILE C*PBD sTP»BUF@1)3 

PSFUDOLUNITNO=32) ?=¢*PCDUP) 28 
1168%38810]& % PACKETPBD 
CIF T#0 THEN 3 ELSE 2)(18845:331]8 & PACKETREC 
1£21%4721)8 & PACKETFREE 
CPAGEADDR+X)(22822826)3 & PACKETPAGE 

FORGETSPACECBUF)3 

ENN PRINTTHECOVERS 


202989400 
20289405 
20789410 
202894415 
20289420 
20289425 
20289430 
20289435 
20289440 
20289445 
207989450 
20289455 
20289460 
20989465 
20289470 
20289475 
202989480 
20989485 
20289490 
20289495 
20789500 


20289510 
20289520 
20289530 
20289540 
20789550 
20289560 
20289570 
20289580 
20289590 
20289600 


015133 
015333 
0155%1 
0158:0 
0160!2 
016510 
016533 
016732 
0168:3 
016982 
O174a%h 
0172314 
0173!0 
017433 
0178!2 
017934 
0186130 
0182¢1 
018313 
018530 
018731 
20289400 
0187:2 
018984 
0190!0 
0192:0 
01932 
0194%2 
0197!2 
01982 
020082 
020411 
20289030 
STZE= 0205 WORDS 


HAHAHAHAHAHA HA HAH 


ASMA HHH 


PRT¢(647) & FETCH 


STACK¢(Fel) = T 
STACK(F42) = £ 


$ POP oMrT 
COMMENT FFTCH REANS THE NEXT CONTROL CARD .» SETS SOURCE TO BEGINNING 
OF CARD » SETS LAST WORD OF CARD TO PERIOD, ie 4 
PROCENURE FFTCHCUNTTNO,CARDLOCs SOURCE )3 


2028960 
2029000 


20291000 
20292000 


START OF REL SEGMENTS DISK 


VALUE UNITNOsCARDLOC? 

REAL UNITNO»CARDLOC»+SOURCE 3 
BEGINS 

REAL TeE3 


Ets@y4RUNITTNOL4524%19$ UNI TNO? #ARSCUNITNODS 
IF CUNTTNO OR 1)*31 THEN & DCOM OR ZIP 
MESOURCES=CARDLOC) : ©@4 42545 2432373737 
FILLSE 
BEGIN % NOT DCOM 
& SET OMT = PackeTS 
$ SET OMIT & NOTCPACKETS) 
IF UNJTNO GE@ 32 THEN 
DO UNTYL NOT E,£4541) OR Tre 
$ POP omMrT 
READEMFROMDISK(CIDROWCUNTTNO™32] 6% 
(MPCARDLOC]3&10(88385810)) ELSE 
DO BFGIN Te 


WATTTOCCARDLOC 1NX ©40000000sF.UNITNO)D3 

1F UNJTNO#30 OR 7T,.£45%1] THEN 
STREAM(Ge12,CARDLOC)3 

BEGIN Sl*#LOC OsSyeSte7s0Se¢CHRIDSe4 LIT "END," ENDS 


IF UNITNO=25 THEN 

RFGIN 

STREAMCT«O%CARDLOC) 3% 

BEGIN ST+CARDLOC#NISLOC TID ep1+63STeSlotsOSe2CHRES]eSIMLs 
DI@CARDLOCSDTeDIMmLsSDS]LITE*SBC6OCIF SCeMe" THEN 
BFGIN DS+CHRSJUMP OUT 2 TO L ENDSIF SCH" THEN 


BEGIN DreNrsys1F SC#0C THEN DleDI"1 END ELSE 
DSeCHR))3 
L3 DIeCARDLOC30eDIe1sSI©LOC TESLe¢S14+63DSeCHRE 
ENDS ; 
END ELSE PC0)3 
FND UNTIL P,642%63#4343 


MECSOURCE « CARDLOC)49J} Oa", "118a3s5I52 
END} % NOT DCOM 


FND 3 


20292100 
20292200 
20293000 
20294000 


20294800 
20295000 
20295100 
20295200 
20295300 
20295999 
20296099 
20996100 
20296200 
20296201 
20297000 
20298000 
20298100 
20298111 
20299000 
20299020 
20299030 
20299040 


20299110 
20299411 
20300000 
20301000 
20301100 
20301200 


20301300 
203014400 
20301500 
20301600 
20301700 
20302000 


20303000 
20303900 


20304000 


tt tt ot te 


AHHH 


T 
T 


T 


0000:0 
0000!0 


000030 
0000:0 


DDRESS # 00624 


0000:0 
000030 
000010 
0000:0 


000030 
000331 
0004:2 
000633 
0007%1 
000930 
000980 
000910 
000933 
001131 
OO11tL 
0012%2 
001533 
0016: 4 
001631 
0018:2 
002031 
002133 
20299040 
002312 
002431 
002433 
0026:0 
002782 
0029%2 
20301200 
003170 
20301300 
003231 
003330 
003494 
20301000 
003432 
20299111 
003641 
20298100 
003733 
004482 
20295300 
004112 
20293000 


S1Zes 0042 WORDS 


PRT(650) = SCN 


STACK¢F+2) = I 


COMMENT THE 


SCAN ROUTINE 


1S USED FOR CONTROL CARD ae GRe 
8 


SCAN RETURNS THE FOLLOWING RESULTS 
4 FOR DENTIFIERS WHICH ARe NOT RESERVEDS 
0 FOR PERTOD% 
1 FOR SLASHY 
2? FOR QUESTION MARK2 
5eee FOR TOENTIFIERS IN DYRECT,S 
3 FOR OTHER SPECTAL CHARACTERS,32 


13 FOR "PRIORITY* 
REAL PROCEDURE SCNCUNT TNO*CARDLOC s SOURCE pACCUMsKOUNT se LASTSCAN® 


DIRECT)3 


VALUE UNITNO,CARDLOC 
RFAL UNITNO,CARDLOC»SOURCE,s 


REGINZ 


LABEL 


GOGO>s 


TyPEOsTYPELs TYPE 23S 


ARRAY ACCUM(E*)sD1RECTC¥#I3 


SWITCH TYPE «# TYPEOsTYPE1sTYPE2 3% 


DEFINE DSIZE = 


REAL 


[33 


LABEL PERPERs& 


GOGO! 


IF LASTSCAN THENS 
BEGIN JTF LASTSCAN < 0 OR UNITNO & 31 THENS 


$ SET OMrT 


£ POP oMIT 


i 


¢ 


BEGIN ft ¢ QUEST LASTSCAN «+ O$ GO TO TYPE1 FND3 


5685s 


4% 


3 
KOUNT»LASTSCAN 3 


FETCHCUNITNO,CARNLOCeSOURCE D3 
LASTSCANS=s0 


NOTCPACKETS) 


FND 3% 


&ic2%a7tyd3 


IDENTS&% 


STREAM (CJUeOekK*OSOURCE 3 


ACCUM)3&% 


REGIN2 
S} ¢ SOURCE 3 


Nt « ACCUM 3 


DreO1+13% 


IF Sc = ™ ™ THEN REGIN SI*Sr41s GO L ENDS 


Ip Sc = ALPHA THEN 


BEGIN 


TF SC =@14 THEN GO TO L3%% 


0S « CHR 3 


TALLY © 13% 


Lit 63C1F SCZALPHA THEN BEGIN DS«CHRS% 
TALLY«TALLY41 END ELSE JUMP OUT)32 


DS+B LIT" "3% 


KeTALLYS TALLY*#0O3 JeTALLY3 
ENDS 

ELSE IF SC = *"" THENY 
BEGIN Sy oe Sr+iss% 


30CIF S¢C=e"" THEN JUMP OUTS 
DStecHRs TALLYS@TALLY41)3 
1F TOGGLE THEN 


% FOUND CLOSING QUOTE 
BEGIN DS#s8 LIT* #3 SysezS]ar3 


20305000 
20306000 
20307000 
20308000 
20309000 
20310000 
20311000 
20312000 
20343000 
20344000 


START OF REL SEGMENTS DISK 


20314050 
20314100 
20314200 
20314300 
20345000 
20316000 
20317000 


20316000 


20319000 


20320000 
20321000 
20322000 
20323000 
20324000 


20325000 
20325100 
20325109 
20325110 
20325111 
20326000 


20327000 
20328000 
20329000 
20330000 
20331000 


20332000 
20333000 
20334000 
20335000 
20336000 
20337000 


20338000 
20339000 


20340000 
20341000 
20342000 
20342250 
20342500 
20342750 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
A 


ee 


Aon Antanas AHA HAA HHS 


4a44a4-4-4 


0000:0 
000030 
000070 
000030 
0000380 
0000:0 
000030 
0000:0 
0000:0 
000030 


DDRESS = 00626 


000010 
0000!0 
000010 
000050 
000030 
000050 
0000!0 
000030 
000030 


0000:0 
000020 
0000382 
000033 
0003:0 
20324000 
000533 
000711 
O0007!4 
0007!t4 
000984 
000931 
20323000 
000931 
001080 
001230 
0012:0 
001233 
20331000 
001333 
0014%1 
0014814 
001530 
0015%2 
0016%2 
20336000 
001733 
0019323 
20333000 
001933 
0020!2 
002033 
0022!0 
0022:3 
002330 


KtsTALLYs TALLY$24¢3 JseTALLYS 
END 


FLSE % INVALID STRING 
BEGIN 
St*SJ~7313 GO L335 
ENDS 


ENDS 


ELSE REGIN® 
1.32% 
TALLY © 23 JeTALLY$ DIeLOC K3 DileDIl473 DS*CHR 3% 
ENDS% 


SOURCE « SI135% 
ENDS% 


COMMENT STACK NOW CONTAINS $ O FOR IDENTIFIER & NO, OF CHRSZ 
1 FOR "7D" & NO, OF CHRSZ 
2 FOR SPECIAL CHR & ACTUAL CHR 4 
PcrSOURCEJ,¢)3 
PcCCKOUNTI],«)3 
GO TO TYPECPOLISH}32% 
TYPFO?S 
BEGIN 
ter23 WHILE MYRECTC1el+21]#0 pox 
IF CMNIRECTEI) FAV ACCUMCOIJ)= NOT O- THENS 
BEGIN TF DIRFCTrr4+i1)] #QUEST OR UNI TNO#25 OR UNI TNO230 
BEGIN TeDIRECTEI4+132GO0 TO TYPE1 END END32 


I « JOENT & ENDS 


GO TO TYPE 3% 
TYPEF28% 
IF KOUNT#*e" THEN ACCUM(O)]« * 
IF KOUNT2%e" ORS 
KOUNT ="," THEN 
BEGIN LASTSCAN «+ 1338 
PERPER? I « PrFR1OS GO TO TYPEY3% 
ENDS 


0” OR KOUNTS 


IF KOUNT="=" THEN BEGIN IF UNITNO232 THEN 
IF CIOTABLECUNITNO™=32,3)2 
CIOTABLELUNITNO"3257)] THEN 
BEGIN T*ENDFIS GO TO TYPE1 END} 


IF UNITNO = 341 THEN 
BEGIN I*PERIO$ GO TO TYPE! END3 


FETCHCUNSTNOsCARDLOC» SOURCE )3 
STREAMC(CARDLOC 23 
BEGIN SyeCARDLOC$ 
2C36C1F SCa">" THEN 
BEGIN CARDLOC+SISDI*CARDLOCSDS© LIT "ee" ENDS 


IF Sc="2" THEN 


THEN 


7890" 
£8908 
¥890" 
4890" 


%890" 


20343000 
20343250 


20343500 
20343750 
20344000 
20344250 


20345000 


20346000 
20347000 
20348000 
20349000 


4 Aaa AH 


aaa 


20350000 T 
20351000 T 


20352000 
20353000 
20354000 
20355000 
20356000 
20357000 
20358000 
20361000 
20362000 
20363000 
20364000 
20365000 


20366000 


20367000 
20368000 
20368100 
20369000 
20370000 
20371000 
20372000 
20373000 


20374000 
20374100 
20374200 
20374300 


20374310 
20374320 


20374400 
20374401 
20374402 
20374403 
20374404 


20374405 


tt at st st st 


AH AMA HAHAHAHA 4 


oOnanoca 


ie) 


002432 
002531 
20342750 
002511 
0025!2 
0025!2 
0026:0 
20343750 
0026:0 
20341000 
0026:0 
002654 
0026t4 
0027%2 
20346000 
0027:2 
002733 
20329000 
002830 
0026:0 
0028:0 
0028:0 
0028%2 
002930 
OO31%1 
003131 
003341 
003413 
0036:3 
004034 
20365000 
20364000 
004333 
20361000 
0044:2 
0045:0 
004510 
0048320 
004833 
004933 
005174 
005430 
20371000 
005430 
0056:0 
0058:0 
005933 
20374300 
0061%2 
0062?14 
20374320 
006410 
006532 
0066?14 
0066'2 
00672 
20374404 
0068:2 


BEGIN CARDLOC*SISNI*CARDLOC3DS* LIT *"" END? 


SteSte1i)) 
ENDS 


$ SFT OMIT = NOTCPACKETS) 
tF UNTTNO GEQ@ 32 AND NOT LASTSCAN,(2841) THEN 


RFGIN STREAM¢CARDLOC, 


BEG 
ENDS 
END? 
$ POP oMYT 
TF KOUNT = 


N DSeS5LyIT> "3 
STeCARDLOC? 


T*IT#SPACE(10))3 


2(NS«¢36 CHR)3 


SPOUTERCT»UNITTNOs64)3 


ENns 


"3" THEN 


GO TO G0GO3 


NSeLIT%e "5 


BEGIN LASTSCAN « #15 GO TO PERPER ENDS2 


1 ¢ TF KOUNT ="/" THeN SLASH ELSES 
CIF KOUNT = @44 THEN QUEST ELSES 
THEN COMMA ELSES 
CIF KOUNT = "s" THEN FQUAL FLSE % THIS 1S AS IN SYMROL 


TYPFit 


CIF KOUNT =%," 


¢ 
¢ 
¢ 
SCivey3 
END 


IF KOUNT = "]* THEN RB ELSE 
IF KOUNT = "7" THEN UB ELSE 
= "#" THEN POUND ELSE SPECT))2))95 


IF KOUNT 


SCAN 3% 


78908 


%890= 
%¥890"= 


20374406 


20374407 
20374408 


20374409 
20374410 
20374415 
20374420 
20374425 
20374430 


20374435 


20374436 
20374500 
20374600 


20375000 
20376000 


20377000 
20378000 
20379000 
20380000 
20380100 
20380200 
20380500 
20381000 
20382000 


+44 


~~ 


AAA AH DH 


0069:0 
20374406 
007030 
007033 
20374402 
007130 
007120 
007350 
00762 
0077:2 
007930 
20374420 
0080%2 
20374415 
0080%2 
008082 
0081:0 
20374000 
008110 
008133 
20376000 
008430 
008630 
0088:!0 
009080 
009210 
009410 
0096:0 
009833 
009982 
20315000 


SIZE= 0100 WORDS 


20382010 T 000030 
START OF REL SEGMENTS DISK ADDRESS & 00630 


PROCEDURE SEEKNAMCApBeCoDeFeNpXLST)3 VALUE AeBS 


REAL AsBsCeDeEeN? ARRAY XLSTL*]3 20382018 T 0000:0 
REGIN 20382020 T 0000:0 
LABEL FIND»L3 20382030 T 0000:0 
ARRAY NBEa]; 203827040 T 000030 
STACK¢F4e1) = NB 
REAL TeKeT»X$ INTEGER Js BOOLEAN INXLST3 203827050 T 0000:0 
STACK(F+2) = | 
STACK¢F43) = K 
STACK(F 44) a T 
STACKEF45) = X 
STACK¢F46) = J 
STACKEFe7) = INXLST 
INTEGER Jt eJ2oJ3eK1 so K28 20382052 T 0000!0 
STACK¢F 410) = JJ 
STACKEF411) = J2 
STACK¢Fei2) = J3 
STACK¢ F413) = K1 
STACK¢F414) = K2 
LABFL RESTART3 20382054 T 0000:0 
1F C0 THEN 20382056 T 0000:0 
REGIN N&tsSPACE(60)"13 20382058 T 000313 
Jites3ts03 Kytsk2reMOnULUS@43 20382060 T 000731 
1F A GFQO O THEN J1t3kK48#(A,(621814A,024824)) MOD MODULUS! 20382062 T 0010%1 
IF B GEO O THEN J3%=2K9%2(8,(681814+B,£24824]) MOD MODULUS3 20382064 T 004433 
END ELSE 20382066 T 0019814 
20382058 
BEGIN JtecTtsMON]),(4226]3 20382068 T 001931 
J1%eT,(3626)3 JotelT,f3086)3 U3tmeT.£122673 20382070 T 002241 
KYteT, C2426), KotuT,(18:6)3 20382072 T 002610 
END; 20382074 T 002812 
20382068 
NRt=CM(N41)]186008338210)3 20382076 T 002832 
1F C NEQ 0 THEN GO TO RESTARTS 20382095 T 003111 
FOR JiteJ} STEP 1 UNTIL K1 DO 20382100 T 003212 
FOR J2t2J3 STEP 1 UNTIL K2 DO 20382110 T 0034:0 
RFGIN Jt=ScRAMBLE(J1,J02)3 20382120 TY 003530 
NO BFGIN 20382130 T 004230 
DISKWAITC“N@1»60,J)3 20382140 T 004230 
FOR [t=O STEP 3 UNTIL 57 DO 20382150 T 004410 
BEGIN 20382160 T 0045!0 
IF (Tt=nBly1]) NEQ 014 THEN 20382165 T 004510 
IF €T EQV a)deNOT O OR A<O THEN 20382170 T 004682 
IF (NBC Y41] €@V gdZNOT O OR B LSS O THEN 20382200 T 004912 
IF C(X#=xXLSrT.68810)]"2) GEQ O THEN & EXCEPT LIST EXISTS 20382220 T 005381 
BEGIN INXLST&=FALSES 20382240 T 0056#1 
FOR Kits0 STrFP 2 UNTIL X DO 20382260 T 0057!2 
IF CXLSTLK] FQV T)ZNOT O OR XLSTLK] USS O THEN 20382280 T 005910 
IF CXLSTEK4,] EQV NBCreg¢JIBNOT O OR XLSTCK41) LSS O 20382300 T 0062!0 
THEN BEGIN [NXLSTESTRUES 20382320 T 006642 
IF NOT CXLSTCKI,C181) OR XLSTLCK41),01819) 20382340 T 006832 
THEN BEGIN XLSTCKI2eXUSTCX]) 20382360 T 007084 
XLSTCK +L) 3eXUSTECX+1 73 20362380 T 007312 
XLST COLO] ssXLST,LBs10)=o8 20382400 T 0076480 
ENO) 20382420 T 007931 
20382360 


K3=3x3 
END$ 


tf tNXLST THEN FLSE GO FIND} 
FND ELSE GO FINNS 


RESTART FND} 
ENO UNTIL CJ:2NBL21.CF FI) £03 
ENDS 


FORGETSPACECNB)? 
1F C20 THEN Nte0 FLSr ct=03 
GO L3 
FINni 
NtsNBrr): E&sNBC]41]3 
CrteNBfr+27,( Crys 
MENT PSPS PL IGt42tOIRI2r ZOUGPIGIAK 1 2GtAPITODAKOP1Bt42I6I18 
J3C122°42:673 
Le 
END; % SEEKNAME 


20382440 
20382460 


20382480 
20382500 


20382520 
203862540 
20382560 


20382580 
20382600 
20382620 
20382640 
20382660 
20382680 
20382700 
20382720 
20382740 
20382760 


=a~ 


a4 


Te ee ee Ne ee ee ee 


007981 
008010 
20382320 
008231 
0083:0 
20382240 
00863:0 
20382160 
008574 
20382130 
008733 
20362120 
009231 
0093814 
009730 
009732 
0097%2 
010032 
010233 
010733 
010934 
0109?4 
20382020 


S1ZE# 0110 WORDS 


REAL PROCENURE PPC 


20383000 


START OF REL SEGMENTS DISK 


CADDRe FANS Xs DEX* TYPE sUNTTNO*CARDLOC» SOURCE ® ACCUM» LASTSCAN» 


PRT(651) = PPC 


DYIRECTI3 
VALUE TYPE SUNITNOSCARDLOC i 
REAL ADDR» DEXe TYPES UNI TNO»sCARDLOC» SOURCE» LASTSCAN 3 
ARRAY FQN #yoXep*1,ACCUMr ey ,HnIREcTrel3 
BEGINS ; 


REAL TOD»sKOUNT3 
STACK¢F42) « 10D 
STACK¢(F4+3) = KOUNT 


LABEL EX]TTsERRORNEXT+LFORMeLNOsLD ISK» LTAPE sLPUNCHeLPAPER oS 


ROUND» PROTECT» 
SFRIAL» UPDATE» SPO sDSKCHECK>» % ¢(SHM) 
DOWNsLREMOTE, 
LDUMMY » £8460 
LLINES6650 & Z724e 
LSPECTALeLPRINT pLBACKsLCOPY+LEREE3 
SWITCH D*LFORMs ¥603= 
LUINE S66. 7240 
LRANDOMs %603" 
LNO»s LOTSKe LTAPE® LPUNCHep LPRINTe LPAPERs» 26032 


LBACKsSERTALsUPNATE®SP0s% 


LREMOTE sLSPEC TAL eFRROR®ERROR sERRORsERROR® LOOPY SERRORe 


LFREF »eFRRORs PROTECT 
RFAL NOLBL»TPNO 3% 
STACKCF +4) = NOLAL 
STACK¢CF4+5) = TPNO 
ROOLFAN FAROUTS 
STACK¢(F 46) = FAROUT 
REAL SUBROUTINE SCANS 


BEGIN SCAN*SCNCUNTTNO,CARDLOC, SOURCE »sACCUM»KOUNTsLASTSCAND 


NIRECT) 
END3 


TF TYPE s FILEVY THEN 
BEGINE 


IF ADDR =O THEN ADDReX[L13]¢GETFSPDISK 


IF DEX # 2 THENS 


BEGINS 

FON £29) «+ GETESPOISK3S 
DISKrTO¢ [On ,. EQn INX On} 
ADDR «+ EQNS 29)38% 

DEX « 03% 

SLEEPCLIOD)s [OMASK)#3 

END32 


IF CTYPES=SCAN) < IDENT THEN GO TO ERRORS 


FQN « (14 * DEX) INX EQN 3% 


FONCI21¢eO% ¥ ZFRO OUT EU/SPEED CELL 
STREAMC KOUNTs ACCUM» Z © CEQNE4}I)3% 


BEGIN’ 


S} ¢ LOC KOUNT 3 SyeSte73 DyoZ3 DSe CHRIS 
St «+ ACCUM 3} SJeSIe 3 DSe KOUNT CHR 


R (SHM) 


20384000 


20384100 
20385000 
29386000 
20386100 
20387000 
20388000 


20389000 
20390000 
20391000 
20392000 
20392670 
20392680 
20392890 
20393000 
20394000 
20394070 
20394080 
20394090 
20394900 
20395000 
20396000 
20396010 
20397000 


20397050 


20397100 
20397200 
20397300 
20397400 


20398000 
20399000 
29400000 
20401000 
20402000 
20403000 
20404000 
20405000 
29406000 
20407000 
20408000 


20409000 
20410000 
20440400 
20411000 
20412000 
20413000 
20414000 


T 


000030 


ADDRESS = 00634 


T 


ata 


AAHAHAOMNN NO VAN NO AAAS 


—_ 


44-44 


i 


ee 


0000:0 


0000:0 
000030 
000030 
000030 
0000:0 
0000!0 


0000:0 
000010 
000010 
000030 
000010 
000030 
000010 
0000:0 
0000:0 
000030 
000030 
000030 
000070 
000030 
000030 
0000:0 
0000:0 


0000:0 


000010 
000130 
000330 
000332 
20397200 
0004:3 
000734 
000733 
OO1181 
001270 
0042:2 
0044:0 
0016383 
00418:0 
004910 
0020!2 
20402000 
0020%2 
00232 
00252 
002633 
0028:2 
002832 
002982 


END 3% 


IF X¢03<O THEN [TF KOUNT#4 AND ACCUML0).(C6%24J]e"CARD"™ 
THEN FAROUT « TRUES 

IF SCAN # EQUAL THEN GO TO ERROR} 

IF SCAN < IDENT THEN GO TO ERRORS 

FONC2) « FONC3I 6% 

FQNCO)+03 EFQNI1] + ACCUM[O]3% 

IF CTYPE*+SCAN)s SLASH THENS 

BEGIN IF SCAN21DENT THENS 
BEGIN EQNCOJ*EQNE1I3 EQNEYJ*©ACCUMSO) 1% 

: ENO ELSE GO TO ERRORS 


TYPE « SCAN END3% 


Ip TYPE = COMMA THENS 
BEGIN@ 

IF CTYPFeSCAN)# TDOENT OR KOUNT >3 THEN GO TO ERRORES 
STREAM ¢ S © 3*KOUNT®KOUNTsACCUMs Tel FQNE2)193% 
BEGIN SY*ACCUMS SteoSI413 D1eD14+S3 DS*#KOUNT NUM$% 
END?X 


IF CTYPE *+SCAN)# COMMA THENS 
BEGINS 
IFCTYPE+SCAN)# IDENT OR KOUNT>5 THEN GO TO ERRORSS 
STREAMC SeBeKOUNTe# KOUNTSACCUMs TeCEQNE21)93% 
BEGIN Sy*ACCUMS STeSIet1s Dle“DL+SsDS*KOUNT NUME 
END3% 


FONC2),¢42t1) © 13% SO FILE OPEN KNOWS ITS LABELEQUAT 
IFCTYPE*SCAN)= COMMA THENZ 
BEGING 
JIFCTYPE*SCAN)4IDFNT OR KOUNT>1 THEN GO TO ERROR? 
STREAMCS¢1°KOUNToKOUNTs ACCUM, Te(EQN[ 3))33 
BEGIN SyeACCUMS SteSyet3 Die Dy+SFDSeKOUNT NUMSS 
END3 TYPE «+ SCANS 


ENDZ CYCLE 3% 
ENDS CREATION DATE 3% 
END3SREEL NUMBERS? 


TPNOeO373% 
NOLBL « 03% 
ROUND? 

WHILE TYPE NE@ PERIO AND 

cCTYPE LSS FORM AND TYPE NEQ@ COPYN) OR TYPE GTR FREEF) 00 

TYPE teSCAN3 

1F TYPE = PERIO THEN GO TO EXIT#sS 

IF TYPE = COPYN THEN GO LCOPYS 

GO TO DLETYPE@FORM)3% 


NexTs TYPEeSCAN} GO TO ROUNDS 
LDUMMY 3 TPNOe113 % * FORM SPO" = OUMMY FILE ¥846e 
LFORMI 


EONE3],642%1}3¢13 GO TO NEXTIS 
LNO:% 


20415000 


20415100 
20415200 
20416000 
20416500 
20417000 
20418000 
20419000 
20420000 
20421000 
20422000 


20423000 


20424000 
20425000 
20426000 
20427000 
20428000 
20429000 


20430000 
20431000 
20432000 
20433000 
20434000 
20435000 


20435500 
20436000 
20437000 
20438000 
20439000 
20440000 
20441000 


20442000 
20443000 
20444000 


20445000 
20446000 
20447000 
20448000 
20448050 
20448100 
20449000 
20449100 
20450000 
20451000 
20451900 
20452000 
20453000 
20454000 


AMM at 


' 


AAHMHA Ae HHA Hd 


| 


~ 


ANWAO HHH 44 


0030%2 
20412000 
003033 
003434 
003630 
003810 
004010 
004110 
004433 
004730 
0049%2 
005310 
20421000 
005330 
20420000 
005412 
005581 
005533 
005933 
006231 
006333 
20428000 
0064!0 
006610 
0066%2 
007083 
007381 
007433 
20434000 
007510 
007782 
008010 
0080%2 
006483 
008731 
008613 
20440000 
009082 
20437000 
0090%2 
20431000 
009032 
20425000 
009012 
00918! 
009210 
009210 
009213 
009684 
009910 
010081 
010182 
011582 
0118:0 
011643 
0118383 
012193 


NOLBL ¢ 1% GO TO NEXT32 


LOISK ts 
TPNOe¢122 GO TO DSKCHECKS & "DYISK™ MFANS DISK SERIAL 
LTAPES% 
TPNO ¢ 23 GO TO NEXT3% 
LPUNCHIESZ 
TPNOIs03 
IF CTYPE &s=SCAN)*PFRIO THEN GO TO EXITS 


IF 
tF 


TYPFSFREEF THEN GO TO LFREE ELSE 
TYPESBACK THEN 


TPNOe¢20 ELSE 


BFGIN 


END} 


IF 
IF 


IF 
IF 


TPNO©215 IF TYPESCOPYN THEN BEGIN 


TPNO+¢223 GO LCOPY END ELSE 


JF SCAN#BACK THEN GO ERROR? 


SCANePERIO THEN GO FRROR3 

CTYPE SCAN) =PERIO THEN 
TRPNOsTPNOG4 FLSF 

TYPFerFREEF THEN GO TO LFREE ELSE 

TYPe2D1SK THEN 


TPNO«eTPNOse ELSE 
If TYPFeCOPYN THEN BEGIN TPNO«223 GO LCOPY END ELSE 


IF TYPE#TAPE THEN GO ERROR} 
IF TYPE#PERIO THEN GO NEXT ELSE GO EXITS 
LPAPER!& 
TYPE © SCANS TPNO «¢ 73 GO TO NEXT3% 
LSPFCLAL 3% 
TPNO + 33 GO TO NEXT3% 
LLINES66!8 & 
EQNCO] « "FULLPGE” 3 &SET UP MFID FOR FULL PAGE 
LPRyNT!¢ 
TPNOS 243 
TF (TYPE t#SCAN)SPERIO THEN GO TO EXIT? 
1F TYPEEFREEF THEN GO TO LFREE ELSE 
IF TYPESBACK THEN 


LBACK: TPNO«¢6 FLSE 
BFGIN TPNOe4; JTF TYPESCOPYN THEN BEGIN 
TPNOe#153 GO TO LCOPY END FLSE 


IF SCAN#BACK THEN GO ERROR? 
ENDS 


1F SCAN&PERIO THEN GO FRRORS 
IF CTYPE*SCAN) sPERIJO THEN 
TPNO«22"TPNO FLSE 
1F TYPE@FREEF THEN GO TO LFREE ELSE 
IF TYPE2D01SK THEN 
TPNO«#21*TPNO FLSE 
TF TYPFESCOPYN THEN BEGIN TPNO+163 GO LCOPY END ELSE 


1F TYPFeTAPE THEN GO ERROR} 
If TYPE #PER10 THEN GO NEXT ELSE GO EX]T3 
LFREE! 


$ SET omIT = NOTCPACKETS) 


Z603= 


%603 
¥603- 


26036 
%603= 


X603" 


x724= 
X72b= 


xP 

xP 
%603- 
2603» 


£603" 
¥603" 


#P 
zP 
ZP 


¥P 
ZP 
¥603= 


zP 


20455000 
20456000 
20457000 
20458000 
20459000 
20460000 
20460100 
20461000 
20461050 
20461100 
20461200 
20461300 
20461310 


20461320 
20461330 


20461400 
20461500 
20461600 
20461650 
20461700 
20461800 
20461810 


20461900 
20461950 
20462000 
20463000 
20464000 
20465000 
20465050 
20465100 
20466000 
20466100 
20467000 
20467100 
20468000 
20469000 
20470000 
20470100 


204701410 
20470120 


20471000 
20472000 
20473000 
20473100 
20474000 
20475000 
20475100 


20476000 
20477000 
20476500 
20478504 


oie ee eer | 


an 


OVAATAAAHOMOOAHA HHH OFAN HHA 


ono 


Aas OAR aH 


0121173 
0123!0 
012310 
012481 
OV2att 
012532 
0125%2 
012631 
0126%2 
012981 
013082 
0431%3 
0134891 
20461300 
0135%2 
0136:0 
20461300 
013810 
014010 
044240 
014333 
014530 
014691 
014810 
20461810 
015440 
015243 
0154%2 
015432 
015783 
015783 
015930 
015930 
016084 
016084 
016180 
0163382 
016a%1 
0165!2 
016633 
017130 
20470000 
O172%1 
017580 
20470000 
017510 
017710 
017930 
018083 
018240 
016304 
018510 
20475100 
0188:0 
048983 
01942 


019482 


$ POP OMIT 


LCOPY! 


ERROR? 


FONC3].C£23ti yess 


GO TO NEXTS 

IF CTYPES=SCAN) NEQ IDENT OR KOUNT GTR 3 THEN GO TO ERROR? 
STREAMCASS0SKOUNT? ACCUM) 3 

REGIN STtsACcCUMsS? i eSy+i13D19s10C ASDSteKOUNT OCT FND} 


IFCTYPES=PCNUP)) @TR 256 OR PcXcHILSS 1 THEN GO FRROR} 
FONC31,C15%8ytsTYPE"13G0 TO NEXT? 


PPCeTRUESGO DOWNS? 


SPO: TPNO¢113G0 TO NFXT3% 
LREMOTF? [PNO«+ 19% GO NEXT$ 
LRANDOM$ TPNO*103 GO TO DSKCHECK3 %603= 

SERrAL? TPNO8=12% GO TO DSKCHECKS % ¢(SHM) 

UPDATE! TPNO«*13$ GO TO MSKCHECK3 

PROTECTS TPNO«26} 

DSKeHECK? % ¢SHM) 
TF CTYPESSSCAN)SCOMMA THEN GO TO OSKCHECK} % ¢SHM) 
le TYPEseU THEN % ¢SHM) 

BFGIN % ¢(SHM) 
IF SCAN NEQ FQUAL THEN GO TO ERROR ELSE % ¢SHM) 
IF ¢TYPE&%sSCAN) NEQ IDENT OR KOUNT GTR 2 THEN GO ERROR? 
STREAMCKOUNT, ACCUM, Tia(TYPEJ)3 % ¢SHM) 
REGIN % ¢SHM) 
STtzACCUM$s S1T8sS14+13 OlseTs DOStsKOUNT OCT} % ¢SHM) 
END$ % ¢SHM) 
EQNL121.£1885]2=TYPE4i13 % ¢SHM) 
GO TO DSKCHECK3 % ¢SHM) 
END ® IF EU Z ¢SHM) 
FLSE JF TYPEsFAST OR TYPESSLOW THEN % ¢(SHM) 
BFGIN % ¢SHM) 
EQNC12),.0 1689] t244+¢(TYPE=SLOW)} % ¢cSHM) 
GO TO DSKCHECK3 % ¢SHM) 
END 
FLSE IF TYPE © SENSE THEN 
BEGIN 
EQNE12),.C15%g] 2543 
GO TO NSKCHECKs 
ENDS 
GO TO ROUND: % ¢(SHM) 
EXITS 


TF 


NOLBL THEN TPNO «¢ [TF TPNO®2 THEN 9 ELSES 
CIF TPNO #3 THEN 5 EFLSEFS 

CIF TPNO#7 THEN 8 ELSFZ 

CIF TPNO#@37 THEN 9 FLSE TPNO)))3% 


1F FAROUT THEN IF UNTTNO232 THEN CIOROWLUNITNO*32),[385]} « 0 


ELSE IF UNtTNO223 THEN READERA,I[FF] « 0 
ELSE IF UNITNOS24 THEN READERB,CFF] « 03 


FONC3I,C4335]¢TPNOSS 


DEX « DEX+43% 
FNDS 


20478505 
20478506 
20478508 
20478510 
20478520 
20478530 


20478540 
20478550 
20479000 
20480000 
20481000 
20481100 
20481900 
20482000 
20483000 
20483100 
20484000 
20484050 
20484100 
20484150 
20484200 
20484250 
20484300 
20484350 
20684400 
20484450 


20484500 
20484550 
20484600 


20484650 
20484700 
20484750 
20484800 
20484850 


20484855 
20484860 
20484865 
20484870 
20484875 


20484900 
20485000 
20486000 
20487000 
20488000 
20489000 
20489100 
20489200 
20489300 
20490000 
20491000 
20492000 


oe Nee Mie Me Se ee ee ee oe ee ee ee ee 


ee ee | 


4~a444 


AHA AA HH 


019482 
019410 
019410 
019432 
019810 
020012 
20478530 
020210 
020530 
020832 
020812 
020933 
021190 
021211 
021382 
0214%3 
021610 
021633 
021613 
021982 
0220%4 
022083 
022232 
022680 
022834 
022811 
0229%2 
20484350 
022913 
023213 
023311 
20684150 
023331 
023532 
023610 
023912 
024010 
20484700 
0240:0 
0241813 
024413 
024414 
024433 
20484860 
024413 
024514 
024534 
024810 
025010 
025210 
025433 
025733 
026112 
026513 
026884 
026983 
20399000 


ELSES 
REGINY 
DC UNTIL ¢(J0D ¢ SCAN) = EQUAL OR 10D © PERIO3% 
IF 100 = PERIO THEN GO TO FRRORSY 
10D « SCANSS 
STREAM (KeOt A # fFACCUMCOJI],KOUNT)3& 
BEGINS 
St « A 3 SyeSr+#i13 DreLOC KEE 
KOUNTCIF Sc<"0" THEN BEGIN DSeLIT*4"3 
JUMP OUT TO ERR3 ENDS SIe#Stet)3 


SreSy*KOUNT3 
DS + KOUNT OCT 3% 
ERR? 
ENDS% 


1F CTPNO#P),£181] THEN GO TO ERROR} 


1F TYPESsPROCE OR TyPeryO THEN X(164TYPE*PROCE) «TPNOX3600 


FLSE IF TYPESCOREVY THEN 
BEGIN X£20] « TPNO DIV 643 
NO UNTIL CIOD « SCAN)eMAXV OR yOn=PERIO3 


IF LOD@MAXV THEN PCEXf20)]/10R) FLSE GO TO DOWN 


END 


FLSE IF TYPEZPRIOR AND TYPESSAVEV THEN 
Xc184TYPE*PRIORJ+TPNO ELSE GO TO ERRORS 
NO UNTIL SCAN = PERIO3S 
ENN 3% 


DOWNES 
FNDSS 


E5129 
z5i2« 
¥512= 
#512= 
¥5120 


*512° 
e5120 


20493000 
20494000 
20495000 
20496000 
20497000 
20498000 
20499000 
20500000 
20500100 
20500200 


20500300 
20501000 
20501100 
20502000 


20503000 
20504000 
20504500 
20505000 
20507000 
20507100 
20507200 


20507300 
20507400 
20508000 
29509000 


20510000 
20511000 


DVOWOHs sa tt at 


AAO 


4-4 


026913 
026913 
027440 
027452 
0275383 
027712 
O279%1 
027984 
028010 
0281%2 
20500100 
028202 
028330 
028382 
028312 
20499000 
028313 
028512 
0289%2 
029233 
0295:0 
0298%2 
0300%2 
20505000 
0300!2 
030243 
0305%2 
030830 
20494000 
030830 
0308:0 
20387000 


S1ZFe 0309 WORDS 


PRT(652) = 


STACK ¢F 41) 
STACK(F 42) 
STACK ¢(F 43) 


STACK(F 44) 
STACK(F 45) 
STACK ¢(F 46) 


STACK¢F #6) 


PROCENURF SECURTTYMAINT(C TYPEsSMIDeSFIDeCMM,SFHe CARD) 


SECURITYMATINT 
VALUE TYPE ,SMIN,SFIDeSFHe CARDS 
REAL TYPEsSMID»SFIDeSFHeCARDS 
ARRAY CmMr*]3 
BEGIN 
DEFINE SPOUTUNIT = CARD #3 & TO ALLOW "LIBERR™ TO WORK 
REAL N&,OPTNoTtS 
2 N4 
= OPIN 
a Tt 
REAL ERqoFR2eER33 LABEL ERSYS3 
zs ER{ 
s FR2 
= FR3 
REAL T=TYPEF3 
= T 
LABEL SEC3sFUNCOsFUNC{ »FUNC2 oF UNC 3,SEC4®EXYT3 
LABEL ERReERRORsFUNC USS 
SWITCH FUNCeFUNC Je FUNCOsFUNCI »FUNCOFUNC332 
LABEL EXIT: & 
FR{ tsa" )« "3% 
N&t= ABSCCMM([5])3 


IF CCCOMMLOJEQV "DECK "J=NOT 0) AND 


2 
START OF REL SEGMEN 


¥589" 


¥169= 


%169= 


CCCCMMEATAND ©77000000007777)EQV ©12000000003714)=NOT 0) 


OR SYSTEMFILECCMMEOJ,CMMC1]) THEN? 


2169" 


RFGIN FRSYS$ ERItE"SYSTEM "SERZIE"F ILE «© "3 GO ERROR ENDS 21698 


1F TYPE = USEV AND 


CCCMMCOJEGV SMID)eNOT O AND CCMMELJEQV SFIDO)SNOT 0) THEN 


BEGIN FRIit="SAME FI" SER2IS"LE De} 


FLSE 


"3 GO ERROR END 


21699 


IF COPTNiaDIRECTORYSEARCHCCMM[O)sCMME1]04)) GE@ 64 THEN 


BEGIN 
IF TYPESUSEV AND MCOPTN4+2) «0 THENS 
BFGIN FRitae"*SECURIT@ZSERZ2% ery FILEI"SER3S8 she 


IF CT1#C(N4 FOV MCP )eNOT 0) OR CCMMESI=NOT("0))) OR 
CMCOPTNS2)>0 ANDCNG FQV ABSCMLOPTN+2]))=NOT O)THEN 


GO TO SFC3 ELSE 
BEGIN FRItS" EINVAL IDO™ZERZ#s" USER) eM 3% 
ERRt FORGE TSPACECOPIN) 33% 


¥169= 


GO ERR END} 


¥169= 
21696 


FORGETSPACE(DIRECTORYSEARCH(CMMLO] sCMM[$J514))3 


ENND3 


FND FLSE YF OPTN#2 THEN GO ERSYS® @ LINE 20514190 
FLSE IF OPTNS1 THEN BEGIN ERLSe"IN USE "SERZ8 8% 


%169= 


” END 


FLSF IF OPTN30 THEN BEGIN ERIte"NOT ON "ZER2tE"HISK)® © ENDS 


FRROR: 


STREAMCAS eC CMM(0}),ERIwCER{) B82 aCOPTN&teSPACE(10))93 


BEGIN SI%eAd SttaSy+q3 OStelL IT” *$ DSiw? CHR} 
SlteSl+13 DSt=sLIT"/"3 DSIs7 CHR 


%169= 
2169 


051 
Ts 


20511110 
20511120 
20511130 
20511140 
20511148 
20511150 


20511152 


20511155 


2051141160 
20511165 
20511170 
20511171 
20541175 
29511181 
20511182 
20511184 
20511188 
20511190 


20511295 
20511300 
20511303 


20511305 
20511306 
20511311 
20511312 
20511313 


20511315 
20511320 
20511330 
20511335 
20511340 
20511350 
20511360 


20511363 
20511364 
20511365 
20511366 
20511370 


20511380 
20511390 


T 


000030 


ADDRESS ® 00645 


AO4as 4-41 


Oo DB AAVSC AAs OVHHH OAH NVA HHOAAHAH 4 


vw 


—~a4 BO 


000030 
0000:0 
000080 
0000180 
0000!0 
000010 


000030 


000030 


000030 
000030 
000010 
000080 


000070 


000231 
000312 
O005t1 
000710 
000982 
20511190 
004880 
0041833 
002213 
20511303 
0028:0 
002830 
003131 
0031:3 
003413 
20511313 
004410 
004582 
0051:0 
005430 
005311 
005410 
005671 
20511335 
0056!1 
20511311 
005933 
20511364 
006310 
20541365 
006833 
006833 
0072!1 
0073:2 


NSte25 LIT © SECURITY MAINT JGNORED (€3 SItzER32 169" 
3CSTssSJe13 DSt®7 CHRIS %169= 
FND STREAM} 
SPOUTERCOPTN& CARD 9? Ot 9] eCARDsLIBERRDE R149= 
40 TO EXYT3 
SEC33 


GO TO FUNCCTYPESUNLOCKV)3 
FUNCJSMfFOPTN INX SJe#MCOPTN INX 6)3+@445% 
CMMC2) $s * UNLOCK"? CMME3) t& “EDee "3 
aQ TO SEC43% ’ 
FUNCO! 
MCOPTN INX 5]%e"°SM1ID3 MLOPTN INX 6])8= SFIDS 
CMMP2)3e@ " SECURE™$ CMMC3]:2 "D WITH 3 
MOSFHH2] te PCOUPsLON»SSB)}3 
GO TO SEC4; 
FUNCYS 
IF CT1¢T1 AND CMLOPTN42]20)) THEN MCOPTNG2)¢CMM[6]3 
SMIDSSM(OPTNe5]3 SFINteMLOPTING6]3 
MrOPTN JINX 5]%= MrOPTN [NX 69303 
CMME2]¢" LOCKED"3CMML3j¢" FROM “SCMMEC4)e" WITH #9360 TO SFEC43 
FUNC? 
MEOPTN 1NX SJeMPOPTN INX 2),£6842]3 MCOPTN JINX 2JeMLOPTN INX 6)403 
CMME2]:= © FREE F"3; cCMMC3):© *ILEee "$3 GO TO SEC4 
FUNC 33 
MEOPTN INX SJt= @14; MCOPTN INX 6)82 03 
CMMC2]s= " PUBLIC™SCMM(C3)]1s * FILE«es 
SEC4% 
DISKWAITCOPTN,(CFJ]e3090PIN, CFF I)3 
PCDIRECTORYSEARCH(C™CMM(0)eCMM(13514)eDELIS 
$ SET OMIT = PACKETS 
STREAMCAS#ABS(CSMID) *BRtaSFIDeCHSCMM,Qte(T LSS FREE)% 
AND cT#UNLOCKV) AND ¢ABS(CSMID)#412) 0% 
KtecSFiIN=0 OR aBS(SFID)=12) & 
AND T LSS FREE AND T#UNLOCKVs% 
YeTsLOCKV AND(CCN4 EQV MCP )=NOT ODANDCCCMM(L6) EQY MCPD#¥ 
NOT 0)) AND T1,0¢O0PTN*OPTN [NX 033 
REGIN SItacs STtzSl413 DStebLyT™ "3 OSte7 CHRS OSIELIT* s/s) 
3(SypteSy+t3 DNSea7 CHR)} 
XCDPteNy*7s NSss2 LiTMee")3 
QCDSteL IT" sSyptmLOC AIST taSp44sDSt=7 CHRS OStaLy Tse 
SteS1413 DSe7 CHR)} 
YOXeNTeD1 718) SpreCsacStreSp+BdsSteSpe13sOSe7 CHR} 
SyoS149%8 OSe7 CHR)? OSe LIT Me™ 
END STREAM3 c 


SPOUTERCOPTN&CARDL 92989] sCARDsSECMSG)3 
$ SET OMIT = PACKETS 
EXYT! 
FND SECUTYTYMAINTS 


20511400 
20511405 
20541410 


290541420 
20511430 
20511440 
20511450 
20541455 
20511457 
20511459 
20511460 
20511470 
20511480 
20511490 
20511500 
20511510 
20511515 
20511520 
20511525 
20511530 
20511540 
20511550 
20511560 
20511570 
20511580 
20511590 
20511600 
20511610 
20511620 
20511639 
20511660 
20511662 
20511663 
20511664 
20511665 
20511666 
20511670 
20511680 
20511685 
20511690 
20511700 
20511702 
20541704 
20511710 


20511720 
20511729 
20511800 
20511840 


0074%2 
0078214 
007931 
20511380 
007932 
008323 
008730 
008730 
009130 
009433 
009731 
010010 
010020 
010434 
010633 
010981 
011280 
011280 
011743 
012113 
012582 
013330 
013330 
014131 
014740 
014780 
015130 
015332 
015332 
015583 
015610 
015830 
016071 
0162%2 
01642 
016682 
O171%1 
0174%2 
017631 
O177%% 
017883 
018470 
018133 
0184%3 
018630 
20511670 
018631 
018930 
018980 
018910 
20511140 
SIZE= 0192 WORDS 
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44-4 


COMMENT THE PRT CELL "SHEET" GYTVES DISK ADORESS OF 4ST SHEET ENTRY 
SHEET ARE AS FOLLOWS: 


wee ENTRIES IN THE 
Sr 0] 
ef 281 ] 


Sp 2].f 1% 2) 


Sr 2). 481 ) 
Sr 2).f 583 ) 
Sr 2),7f 8110] 


Sr 2).718115) 
St 2),733%15) 
Se 33.f 181 4) 


Sr 3).¢f 2% 1) 
Sp 3),7 8810) 


$r20).,£ 281 ] 
20033215) 

Sr2t) 

$722) 

$723).62796) 

§f23).69°9] 

Sr23}.f 74824) 

$124) 

$725] 

$726) 

S627] 

sr29) 


Hu He RRR ROH Ot “ un 


no @ uot 
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1ST NAME (7 CHRS) 

"CANDE® JOB ¢TSS ONLY) 

2ND NAME (7 CHRS) 

0 NORMAL 

2 JOR HAS BREEN XS*FD (FORCED RUN) 

3 JOB HAS BEEN ES*ED CFORCED RUN AND DS) 
SUPPRESS BOJ/EOJU MESSAGES FOR SYSTEM JOBS 
NORMAL» 4 LIBMAIN»s 3 LDOCNTRL» 5S PRNPRT 
GO JOB ¢FROM COMPILE & GQ) 

COMPYLER ¢CFOR COMPYLE & GO) 

EXr CUTE JOB 

COMPILER CFOR SYNTAX CHECK) CSET TO 2 LATER) 
COMPILER ¢CFOR COMPILE TO LIBRARY) 

RUN JOB 


We WN © O 


SKELETONS NESK ADDRESS CIF SC2).£8810)] = 1,24 


PRIORITY» SAME AS SL18) 

SFT BY SELFCTRUN WHEN "SCHEDULED" MFSSaGE 

IS SENT CIF SCHEDULED) 

4 RESTART yOB 

SCHENULE*ID FOR THIS yOB 

STARTING TIME FOR L0G 

LOCATION OF LAST PART OF LOG 

CORE ADDRESS OF SEGMENT ZERO CWHEN THE 

SHEET 1S PASSED TO SELECTRUN AS A PARAMETER) 
DISK ANDRESS OF LABEL EQUATION ENTRIES 
APPLICABLE TO THIS EXECUTION ONLY (SEE BELOW) 
ACTUAL MFIN OF JOB cTSS ONLY), THIS MAY BE 
BE DIFFERENT FROM SLO} FOR SOME JOBS 

WHICH ARE STARTED BY CANDE, 

DISK ANDRESS OF LABEL EQUATION ENTRIES 
PRESENTED WHEN PROGRAM WAS COMPILED AND 
APPLYCABLE TO ALL EXECUTIONS 

ESTIMATED PROCESSOR TIME 

ESTIMATED 1/0 TIME 

PRIORITY 

COMMON VALUE 

ESTIMATED CORE REQUIREMENTS 

"CANeT EXPAND" BIT (TSS) 

ESTIMATED CORE REQUIREMENT 

STACK SIZE 

SAVE FACTOR FOR OBJECT FILE CCOMPILATIONS) 
UNITNO OF CARD/PSEUDO READER IN CONTROLCARD, 
REMOTE STATION ADDRESS» ELSE 0 

TIME JOB PUT IN SHEETCFOR TS MSG) 

USER CODE 

DISK ADDRESS OF FILE HEADER FOR THE JOB 
LOGLINE (TS5) 

FID FOR COMPILES» TAPE NAME FOR LIBMAIN, 

= DISK ADDRESS OF NEXT SHEET ENTRY (20 IF LAST) 


eae ENTRIES FOR LABEL EQAT. ARE AS FOLLOWS! 


FCO) 

Fei 
FO27,00%16) 
Fr2),0184301 
Fr3i,(0%6) 


MULTI@FILE 1D (7 CHRS) 


FILE ID (7 CHRS) 
Reel NO (3 CHRS) 
CREATION DATE C5 CHRS) 
CYCLF ¢4 CHR) 


20512000 
20512400 
20512800 
20513200 
20513600 
205144000 
20514400 
20514800 
20515200 
20515400 
20545600 
20516000 
20516400 
20516800 
20517200 
20517600 
20518000 
20518400 
20518800 
20519200 
20519600 
20520000 
20520400 
20520800 
20521200 
20521600 
20522000 
20522400 
20522800 
20523200 
20523600 
20524000 
20524400 
20524800 
20525200 
20525600 
20526000 
20526400 
20526800 
20527200 
20527600 
20528000 
20528400 
20528800 
20529200 
20529600 
20530000 
20530400 
20530800 
20531200 
20531600 
20532000 
20532400 
20532600 
20533200 
20533600 
20534000 
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000080 
000010 
000030 
0000:0 
0000:0 
000030 
000010 
000030 
000030 
000030 
000040 
000030 
000030 
0000:0 
0000:0 
0000:0 
000030 
000080 
0000!0 
0000:0 
000030 
000030 
000030 
000030 
000030 
0000!0 
000030 
000030 
0000:0 
0000:0 
000010 
000030 
000070 
0000:0 
0000;0 
0000:0 
0000t0 
000030 
0000;0 
0000!0 
000080 
000030 
0000:0 
000030 
00000 
000010 
000010 
000070 
000010 
0000:0 
000030 
0000:0 
000030 
000010 
0000:0 
000030 
0000:0 


q 
Fr3).f15%8) = NUM COPIES OF PBD OR PUD FILE 20534400 T 000030 4a 
Fr3}.f23%t) © Y, IF "FREEF" PBD PACKET FILE 20534800 T 000030 
Fr3).C42!1) = 1 FOR FORMS REQUIRED 20535700 T 000030 
Fr3).f43!5) © O FOR CP (FILE TYPES ) 20535600 T 0000:0 @ 
1 FOR LP 20536000 T 000030 
2 FOR MT : 20536400 T 000010 
3 FOR SPECIFIC UNIT 20536800 T 000010 @ 
4 FOR LP (MAY BACKUP) 20537200 T 000010 
5 FOR SPECIFIC CUNLABLED) 20537600 T 000030 
6 FOR LP CMUST BACKUP) 20538000 T 000010 e 
7 FOR PT 20538400 T 000010 
8 FOR PT (UNLABLED) 20538800 T 000080 
9 FOR MT ¢UNLABLED) 20539200 Tt 000010 
10 FOR DISK 20539600 T 000080 
F°4),6°0%86) = NO OF CHARS IN INTERNAL NAME 20540000 T 000030 
Fr4),f6!42} = INTERNAL NAME CMAY CONTINUE TO FC11)) 20540400 T 000080 @ 
Friz}.ci5t#i) = "SENSITIVER BIT 20540800 T 000030 
Fri2],C16321 «© DISK SPEED 20541200 T 000010 
Ft12).t18:5] = EU NUMBER + 1 20541600 T 000030 @ 
Fr14j> F625] SAME AS ABOVE FOR NEXT FILE (CFE14]=14 IF NO NEXT) 20542000 T 000030 
Fr29) = DISK ADRS.OF NXT, LBL EQUATsENTRY(C&O IF NONE) 20542400 T 000010 
wee ALSO SFE PROCEDURE "SELECTRUNI®™ (SEQ,NO, 20055600) FOR 20542800 T 000010 
eee FURTHER TNFORMATION ON LABEL EQUATION AND THE FILE 20543200 T 000030 
keKK PARAMETER BLOCK, 20543600 T 000010 
20544000 T 000050 @ 
keke CONTENTS OF THE JAR! 20544400 T 000010 
JARPFOT,C 1314 1 & COMPYLF YOR 20544800 T 000030 
of 221°) = "CANDE™ JOB CTSS ONLY) 20545200 T 000010 @ 
.f 6342] & MFID OF THE JOB 20545600 T 000080 
JARri3,¢ 1tf ) = JOB 7S BEING DS@ED 20546000 T 000030 
20 ??4 ) = JOB 1S BEING ES*ED 20546400 T 000010 8 
of 6842) = FID OF THE JOB 20546800 T 0000:0 
JARf?1.0 124 ) = COBOL yOB 20547200 T 0000!0 
of 224.3 © DECLARED SOFTWARD INTERRUPTS 20547600 T 000010 a 
-€ 31 J & JOB HAS MAINTENANCE LOG ENTRY 20548000 T 000010 
of 484 J) & NOT USED 20548400 T 000010 
66 5t4 ] = DECLARED SOFTWARE INTERRUPTS 20548800 T 000030 e 
of 64 J) = INVOKEN OR INVOKING IPC PROGeFILE 20549200 T 0000:0 
.C 781 17 = INVOKED YPC PROGRAM FILE 20549600 T 000010 
.f 610] © SAME AS S$C2],08210] ABOVE 20550000 T 0000180 e 
6018135) = DISK ADDRESS FOR THE SKELETON SHEET CCOMPTLATIONS 20550400 T 0000:0 
033895) = PRIORITY 20550800 T 0000:0 
JARE3] = PROCESS TIME LIMIT 20551200 T 0000:0 e 
JARTA) = 10 TIMF LIMIT 20551600 T 0000:0 
JARF57.0 1223] = STARTING DATE COCTAL) 20552000 T 0000:0 
.024324] = STARTING TIME COCTAL) 20552400 T 000010 @ 
JARP61.€ 131 17 = JOB IS Sp=ED 20552800 T 000010 
40 26 J = PSEUDO-RFADER NUMBER 20553200 T 000010 
,£18315] = SIZE OF LOG YNFORMATION (BATCH) 20553600 T 000010 e@ 
£33815] = DISK ANDRESS OF FIRST RECORD FOR THE LOG 20554000 T 0000:0 
JAR(7) = IDLETIME ENTRY (BATCH) 20554400 T 000010 
JARF7) = MFID OF JOB (TSS ONLY). THIS MAY BE DIFFFRENT 20554800 T 000030 @ 
FROM JARCO] FOR SOME JOBS STARTED BY CANDE, 20555200 T 000030 
JARCB). e LENGTH OF CODE FILE ROW 20555600 T 000010 
JARr9}.£ 1%1 7 = REEL CHANGE tN PROGRESS DUE TO #RO® MESSAGE 20556000 T 000010 @ 
.( 2!4 7 & SUPPRESS PRINTING OF BOJ/EOQJ MESSAGES 20556400 T 0000:0 
of 3°14 4 &s JOB HAS BEEN *STOPPED" cCWORKSET ON BATCH) 20536410 T 0000:0 e 
@ 


PRT(653) = 


STACK ¢F@2) 
STACKeFet) 
STACK ¢Fe1) 
STACK¢F 40) | 
STACK ¢F 41) 
STACK ¢(F 42) 
STACK¢F 42) 
STACKC(F 43) 


STACK ¢F43) 


STACK¢F 44) 

STACK ¢F 45) 

STACK¢(F 45) 

STACKCFs6) 

STACK(F 47) 

STACK¢F 410) 
STACK¢Fell) 
STACK ¢Fei2) 
STACK ¢F 413) 
STACK¢F e414) 
STACK (F415) 
STACK(F 416) 
STACK¢F 416) 
STACK ¢F4i7) 
STACK¢F 420) 
STACK (F421) 
STACK( F421) 
STACK¢F 422) 
STACK ¢ F422) 
STACK¢F 423) 
STACK¢F 424) 
STACK ¢ F425) 
STACK(F +426) 
STACK¢F 427) 
STACK EF 430) 
STACK¢(F 431) 
STACK ¢F 432) 
STACK (F433) 
STACK¢F 434) 
STACK¢F 435) 
STACK ¢F 436) 
STACK¢F437) 


KEYBOARD INTERRUPTS ARE ALLOWED 20556420 
A KEYBOARD INTERRUPT HAS OCCURRED 20556430 
0 NORMAL JOB 20556700 
1 LIBMAIN 20556710 
3 LOCNTRL 20556720 0000:0 
5 PRNPRT =" ODD VALUES FOR BOOLEAN TESTING 20556730 000030 


T 0000:0 

T 

T 

T 

T 

T 
0f£18215) DISK ADDRESS FOR "CHAIN" IF NON@ZERO 20556800 T 000080 

T 

T 

T 

T 

T 

A 


0000:0 
0000:0 
000080 


e e = 
ioe Noes Be] 
Dy 
ec =p OF 
Lae ee 
a ee 


ruuwnuga 


ua 


4 £33815) NUMBER FOR nrSkK ROWS IN CODE FILE 20557200 0000380 
JARF 10) THROUGH JAR( 29) = DISK ADDRESS OF CODE FILE ROWS 20557600 000030 
JAR? 30] = FIO OF OBYFCT FILE CBATCH COMPILES ONLY) 20558000 0000:0 
END OF COMMENTS 20558400 0000:0 
REAL PROCFOURE CCLIBs 20566000 0000:0 
START OF REL SEGMENTS DISK ADDRESS « 
CCLIB 
BEGIN LABEL NEXTsLOOPS 20566011 T 000010 
NECLARECCVARTARLESS 20566100 T 0000:0 
MSCW 
CARD 
MYMSCW 
RCW 
PROCVAL 
A 


T 
CADDR 
SFID 
CARDLOC 
CDEX 
SDEX 
CMPLR 
CN 
KOUNT 
LASTSCAN 
LIBNO 
N14 

N2 

N3 

NG 

U 

OPTN 
OPTNN 
PADDR 
SFH 
PDF X 
Sm1D 
PPCPROCESS 
SOURCE 
SPQUTUN]T 
ST 

M1 
UNYTNO 
USERIN 
ACCUM 
CEQN 
CMM 
OTRECT 
PEQN 
PROG 


QW HN WO MON 


00652 


STACKEF 440) 
STACK¢(F 441) 
STACK (OF 442) 
STACK (F443) 
STACKEF 444) 
STACK ¢F 445) 
STACK¢F 446) 
STACK¢( F447) 


STACK¢F 450) 
STACK(F 450) 


STACK (CF +51) 


STACK (F452) 
STACK (F452) 


STACKCF 453) 
STACK¢F 453) 


STACK¢F 454) 
STACK¢F455) 
STACK(F 456) 
STACK¢F 457) 
STACK ¢F 460) 
STACK¢ F461) 
STACK EF 462) 


STACK(F 463) 


ADOR 
ABORT 


TOG 
RE TURNMSCW 
RETURNRCW 
RETURNVAL 
REAL CNT 
CNT 
HOLD1 
HOLD1 
HOLD? 
HOLD? 
X] 
HOLD3 
HOLD3 
RFPEAT 
REPEAT 
XLSTS$Z 
TYM 
TYM 
HME 
BOOLEAN FYRSTIME 
FIRSTIME 
ARRAY XLST 
XLST 
REAL, FROMHLD 
FROMHLD 
TOHLD 
TOHLD 
REMEMBER 
REMEMBER 
NAMECNT 
NAMECNT 


BOOLEAN DINGETESPDI Ske 


DIDGETESPn1 Sk 
INTEGER 1 
I 


RETURNVAL41> 
CNT +41. 


HOLDi+1> 


HOLU2+1> 


HOLD3+1>% 


REPEAT+1>» 


TYM413 

FIRST mMe+icx] 3 
XLST+1. 
FROMHLOD 41 » 
TOHLD 41> 
REMEMBER#413 


NAMECNT + 13 


® BEGIN LOCALS TO CCLIB 


x] = HOLD2> 
XLSTSZ =z REPEAT» 
HME = TYMS 


= DIDGETESPDISKk + 13 


¥148= 


3k a RRO ORR OR rR OIRO ROR OIG ROR KERR RK KR KE 


PR BQ SA DR FE DE DR DR PE BE DA DR DE DE FA DE BE VE 3 


1% COPY CONTROL CARDS 


2% REMOVE CONTROL CARDS 


CCLYR MAS BEFN EXPANDED TO HANDLE NEW FACILITIES AVAILABLE 
THROUGH USE OF THE "COPY" CONTROL CARD AND THE EXTENSION OF 
WEXCEPT™ LISTS TO "REMOVE CONTROL CARDS, 


PERFORMS SYNTAX ANALYSIS (SEE DOCUMENTATION) 
SETS UP LINKED LIST OF ESPDISK SEGMENTS PROVIDING DATA AND 


NAMES NECESSARY FOR LIBRARY MAINTENANCE PROCESSING 
CINCLUDING "EXCEPT™ AND *AS" LySTS), 


SCANS "EXCEPT LIST ASSOCIATED WITH ANY PARTICULAR NAME 


20566245 
20566247 


20566250 


20566255 


20566260 


20566265 


20566270 
20566280 
20566290 
20566300 
20566310 
20566320 
20566330 
20566340 


20566350 
20566352 
20566354 
20566356 
20566358 
20566360 
20566362 
20566364 
20566366 
20566368 
20566370 
20566372 
20566374 
20566376 
20566378 
20566380 
20566382 
20566364 
20566386 
20566388 


44+ 


_" 


io) 


tt st st tt Ht tt ot 


0000:0 
0000:0 
000030 


0000:0 


0000:0 


0000:0 


0000:0 
000030 
0000!0 
0000:0 
000030 
0000:0 
0000:0 
000070 


000010 
0000:0 
000030 
000030 
0000:0 
000030 
0000:0 
000030 
0000:0 
000010 
0000:0 
000040 
000030 
0000:0 
0000:0 
000030 
000030 
000080 
0000:0 
0000!0 


Be DR SE DR BR HE FE Bq BE BQ dS BQ FE BC BR BE BA DA BE |e FQ DE BE DE DE FE BR DE AA DE DR DR SL BA DE BL DA BC dE BQ 


PATR FASSING SAITO LISTS TO PROCEDURE "“SEEKNAM">» 


TURN USES THE "EXCEPT" LIST WHEN DETERMINING WHETHER OR 
NOT TO RETURN SPECJFIC NAMES FOR REMOVAL, 


CMMF191,0231) 


0f3%6)] 
of9t9] 
XLST 
REMFMBFR 
203215) 
CFF) 
ofCF] 


NAMECNT,CFF) 
e(CFJ 


FROMHLD.C1%5] 


0f6%42) 


TOHLD.C125) 


INDICATES ORIGINATOR 
UNTTNO FOR PACKETS 


USER SPECIFIED MAXIMUM NUMBER OF FILES PER 


OUTPUT UNYT 


DESCRIPTOR TO "FXCEPT® LIST ASSOCIATED WITH 


A PARTICULAR NAME PAIR 


USED FOR CORRECT PLACEMENT OF "FROMHLD", 


"TOHLD™s OPTIONS AND NAME COUNTS WITHIN THE 


LINKED LIST OF ESPDISK SEGMENTS yee 
FIRST ESPpISK ADDRESS 
OFFSET INTO ,CCFI 


ESPDISK ADDRESS OF OPTIONS AND NAME COUNT WORD 


COUNT OF WEXCEPT™ LIST PAIRS AND "AS" CLAUSE 


PAIRS FOR A PARTICULAR SOURCE 
COUNT OF NAME PAIRS 


INPUT UNIT NUMBER + 1 

IF .f€135) = 0 THEN INPUT FROM ANY TAPE 
THAT HAS THE CORRECT NAME 

IF DISK THEN 0 

IF TAPE THEN TAPE NAME 


OUTPUT UN?T NUMBER + 14 
IF .£125] = 0 THEN OUTPUT TO ANY SCRATCH 


TAPE, 

IF DISK THEN 2£4081) SPECIFIES TYPE FAST 
oCaitid " ” SLOW 
»C42%6] " EU # 


IF TAPE THEN ¢f6%42] HAS TAPE NAME 


WHICH IN 


¥148- 
%146= 
Z148= 
2148 


%148= 
1485 
%146- 


%148= 


PPP PSE PEE SESE SESE TSR ELSES SEP SSP PCE ESSE SESS ESSE EC ESS ES EPEC SSP eS eT ee eee. ee 
LABEL CCArSUTT»POWIE sCHAN,REMOsINCSC oGE TEMPENTE pLCOPYeSFEKsINITS 
LABFL POWNR,OUTRsSCNX»sNEXTLSMIR IDS 
SWITCH SW2=LCOPYsLCOPY,LCOPYsENTE®ENTEs REMO»>CHANS 
DEFINE ZIPMIX=CARD,(18361]#3 
DEFINE UNTTNUM = fyt5)#3 
% 


RoR RIOR ORIG IIR FORCE OI ORO QR OI ORR ROR RRR ROR KOKORO 


% 


SUBROUTINE CHECKS 


BEGIN 


IF CCONT?#CNT+2) GTR 26 THEN 


BFGIN 


PROG( 29] t2GFTESPDISK:3 
DIDGETFSPnhISKt=TRUE} 
DISKWATTCPROG JINX 0,530,LIBNO)3 
LYBNOtePROGI 29373 


CNT!203 


41488 


20566390 
20566392 
20566394 
20566396 
20566398 
20566400 
20566402 
20566404 
20566406 
20566408 
20566410 
20566412 
20566414 
20566426 
20566428 
20566430 
20566432 
20566434 
20566436 
20566438 
20566440 
20566442 
20566444 
20566446 
20566448 
20566449 
20566450 
20566451 
20566452 
20566454 
20566455 
20566456 
20566457 
20566458 
20566460 
20566462 
20566464 
20566466 
20566468 
20566470 
20566600 
20566610 
20566620 
29566630 
290566640 
20566650 
20566655 
20566660 
20566665 
20566670 
20566675 
20566680 
20566685 
20566687 
20566690 
20566695 
20566700 


AHA H HHH HHO NAIA A VHS HHO OH 9 OO DHA A tA I rt at tt 


0000:0 
0000:0 


000010 
00000 
000030 
000030 
000030 
0000:0 
0000;0 
0000:0 
0000:0 
000080 
000030 
000010 
000030 
000030 
0000:0 
000030 
0000:0 
000030 
000030 
0000:0 
000030 
000030 
0000:0 
0000:0 
0000:0 
000030 
0000:0 
000030 
000010 
000030 
0000:0 
000050 
000030 
0000:0 
000030 
000010 
00000 
000030 
0000:0 
0000:0 
000030 
0000:0 
0000:0 
000080 
00000 
000080 
000030 
000430 
000110 
000233 
OO03r4 
000433 
0005t2 
O007s2 
000832 


ENN 
END; % =CHECK 


% 
ee TERE L SLES ESS S SESE SS eee Te Te TT CTT TT ST TTT TTT TT 
% 

% " FINAL PREPARATIONS BEFORE EXITING 

% = PLACEMFNT OF FINAL INPUT SOURCE AND DESTINATION 
% 


TG IOIGIOIOIOIOROIOI IR IOIOIOIGIOI IR RIG IGIOIGIO IG IG IOIOIG I: ake a i ak ik sea ake aka at 
% 

SUBROUTINE BOTH: 

REGIN cMMCO]S="LIBMAIN'’$ GMMELI]a="H7 SK ae | 


CMM(2) Se 0 & LIBMAINCODEL5#$4523) & 26823881033 CMME13]%803 


$ SFT OMIT = PACKETS 
$ SET OoMTT = NOTCPACKETS) 


CMME23T8eORCARD(9I9s9IRC IE ZIPMTX NEG O THEN PSEUDOMIXEZIPMIX] 


ELSE UN TNO) c2t4o%613 
£ POP oMyT 
CHECKS PROGICNT) 320443 
IF T GE@® COPYN AND T LF&@® LOAD THEN 
BEGIN PROGECNT+1)%=FROMHLDS CHECKS PROGCCNT J? 3@1143 
IF LIBNO=REMFMBER, £3815] THEN PROGEL1J33=TOHLD3 
FNDS 


OPTNIxCN3s PROGS29)°=0; 
NISKWAITCFROG INX 0,30»LIRNO)3 
1F T GEA COPYN AND T LF@ LOAD THEN 
IF LIRNO NFQ REMEMBER, (63245) THEN 
BEGIN DISKWAITC@#PROG CCF J» 30eREMEMBER,£3#15))3 
PROGI1]!=TOHLD3 
DISKWATTCPROG JNX 0+ 30eREMEMBER,£3315))3 
ENDS 


LIBNOtTSABSCCMME19))3 
FND OF ROTHS 


% 

Fhe ag ROR RRR ORK OR OOK RII kk ROKK sO ak 

% 

REAL SUBROUTINE SCAN: 

SCAN®SCNCUNT TNO sCARDLOC»s SOURCE s ACCUM» KOUNT sLASTSCAN, 

DIRECTI3 

REA, SURROUTINE SKAN3 

BEGIN 

STREAMEXSeOPCNiaOe ACCUM); 

REGIN 

STEsACCUMSS] t2S7 413 

Bcre Sc GE@ "OM THEN BEGIN SIPaSt+iS TALLY eT ALLYo1$ END ELSE 


Ir SCe" " THEN JUMP OUT ELSE BEGIN TALLY##03 JUMP OUT END)$ 


CNPxTALLYSSITtsSIeCNIDPsaLOC XsDSteCn OCT 
END$ 


SKAN?=P$ 


2543 


3123 
2543" 


20566705 
20566710 


20566744 
20566745 
20566746 
20566747 
20566748 
20566749 
20566750 
20566751 
20566752 
20566755 
20566760 
20566765 
20566780 
20566785 
20566790 
20566795 
20566805 
20566807 
20566840 
20566812 
20566615 


20566817 
20566820 
20566822 
20566825 
20566830 
20566835 
20566840 
290566845 


20566850 
20566855 


20566864 
20566865 
20566866 
20566875 
20566900 
20566902 
20566905 
20566910 
20566915 
20566920 
20566925 
20566930 


20566935 


20566940 
20566945 


20566950 


+ 


AAA US saat at Ht 


Ata HADHO 


+ 


AAA HH HHH 


4 


44 


000914 
20566680 
000911 
20566670 
000932 
000932 
000932 
000982 
0009:2 
000932 
000912 
0009%2 
0009t2 
00140:0 
001282 
001740 
004780 
003710 
002082 
0023!2 
0023312 
002631 
002830 
0032%4 
003571 
20566810 
0035%4 
003731 
003981 
004430 
004233 
004630 
0047%4 
004953 
20566830 
004983 
005130 
20566755 
0054130 
005410 
005430 
005410 
005430 
005610 
0057314 
005830 
005810 
0059383 
005933 
0060!4 
20566930 
006133 
20566935 
006410 
0065%2 
20566920 
006533 


END OF SKAN3 


% 


FOR RIORIORGIG IOIG RO IOI IIOIIGR OI OIRO ROKR ik ke tot 


% 


® ~ CREATES AN FXCEPTION LIST OF FILE NAMES WHICH ARE 
ASSOCIATED WITH A PARTYCULAR PRECEDING FILE NAME 


x 
x 


ag ROE ROR ORR aR OOK IOI KOR Oi 


% 


SUBROUTINE SCANEXCEPT3 


BEGIN IF XLST#O THEN XLSTteeMC(SPACECXLSTSZ32=30)3I&230£8838840)3 21779 


SCNX! 


END; 
z 


1F 


CXptsX74+2) GEQ XLSTSZ 


THEN BEGIN & EXPAND EXCEPTION LIST SIZE 
STtzSPACECXLSTSZ24XLSTSZ+4+30)3 

MOVE CXLSTSZ*302XLST,ST)3 
FORGETSPACECXLST)3 
XLST&ecMeSTIIRXLSTS7¢8' 3881033 


END3 


1F (CNS@SCAN) =EQUAL 
THEN BEGIN XLSTrXT teed 


1F HME # 2 
THEN BEGIN 


IF Tief4621] THEN GO POWIE?3 


XLSTCXT] © TF T1,.4581] THEN CMMEO) 


END END 


FLSE PROGCCNTI3 


ELSE IF CN GE@ IDENT THEN XLSTEXI)t=ACcCUMEO) 


ELSF GO POW;ES 


tf SCAN NE@ SLASH THEN GO POWIES 

TF CCONt=SCAN) SEQUAL 

THEN BEGIN IF XLSTrX1]4€121) THEN GO POWIES 
XLSTOXT+i]iarg3 


ELSE If CN GEQ 


IF HME # 2 
THEN BEGIN 


If T1 THEN GO POWIES 


XLSTOXT+4] © IF T1,04581] THEN CMME1) 


END END 


ELSE PROGECNT+1]3 


TDENT THEN XLSTEX 741) 22ACCUMO) 
ELSE GO POWIE3 


JF CCN#SSCAN)=COMMA THEN GO SCNX 


% SCANEXCEPT 


ELSE Ff CN NEQ@ RB THEN GO POW ES 


ee Terre S TESTI SSeS Tee TET eee eT Tere ert ttt tat TT 


% 


X¥ =~ LOOK FOR TaPF UNIT aneneeenae WITH AN YNPUT OR 
OUTPUT FILE NAME 


z 
x 


BG RII ROI ORIG I RIG RIG RR RIOR RR ROR IOI IORI IO eK ak 


% 


REAL. 


SUBROUTINE SCANON3 


4792" 
%7920 
%792= 
27929 
x792= 


4792= 
£792 
%7928 
4792 
%792= 


%148 
K148= 
%148= 
2148= 
¥148= 
%148 
*148e 
*148= 
%148= 


20566955 


20566984 
20566985 
20566986 
20566987 
20566988 
20566989 
20566990 
20566991 
20567000 
20567005 
20567010 
20567015 
20567020 
20567025 
20567030 
20567035 
20567040 


20567045 
20567050 
20567055 
20567056 
20567057 
20567058 
20567060 


20567065 
20567070 
20567075 
20567080 
20567085 
20567090 
20567095 
20567096 
20567097 
20567098 
20567100 


20567105 
20567110 
20567115 
20567120 
20567125 


20567140 
20567142 
20567144 
20567145 
20567146 
20567148 
20567150 
20567152 
20567154 


~ 


VANNVAH AAAHAHAHHAWVAH AHHH 


VPOOMO VAIS 


444-44 


NOAA NINAoOOadIOND 


006620 
20566910 
006631 
006631 
0066:1 
006681 
00664 
006634 
006631 
006631 
006611 
006730 
007213 
007410 
007540 
007834 
006082 
008;3%2 
0083!3 
20567015 
008313 
0085t3 
0088!0 
008832 
009013 
0092383 
009482 
20567056 
20567050 
0094%2 
009730 
009713 
010030 
010433 
0104%4 
010644 
0106183 
010882 
011110 
011331 
20567096 
20567085 
011391 
011631 
0411710 
011980 
012033 
20567005 
012140 
0121180 
012110 
012110 
012130 
012110 
012120 
012110 
012110 


BEGIN TFCCNSSSCAN) # IDENT THEN GO POWIE3 %148= 
CNtwACCUMCO), (624833 148= 
FOR 3320 STEP 1 UNTHL 15 70 %148= 
IF TINUETI],£30818]=CN THEN ¥146= 
BEGIN 21468 
Pcye+l)3 %146« 
[32163 %148% 
END3 %1468 
1F y#17 THEN GO TO POWIE?S 1486 
CNtsSCAN3 41460 
SCANONS =P3 %148= 
END SCANON:? ¥148= 
% 
FO OR ROR RIOR RIOR IO OIG IGOR IG IOI OIOI OIG Rif ki Og atk 
% 
SUBROUTINE SCANDSKTYPS 
BEGIN 
TF CONS sSCaNdaFU 


THEN BEGIN 
IF ¢CNt=SCAn) NEQ@ IDENT THEN GO POWIES 
IF PCSKANsOUP) GTR 19 THEN BEGIN PCDEL)3 GO POWJES3 END3 


CNteP+13 TOHLD, (4296) %eCN3 
IF CN GTR NEUP,NEUF THEN GO POWIE3 
END 


FLSE IF CN2SLOW THEN TOHLO.C41ti1)ia1 ELSE 
IF CNeFAST THEN TOHLO.(4081)821 ELSE 
IF T NE@ COPYN THEN GO POWTE ELSE 
TF CNsDISK THEN ELSE 
IF CN NE@ DENT THEN GO POWIE ELSE TOHLDt=ACCUMTO]3 


TF CCN&2SCAN)=ONV THEN ¥148= 
IF TOHLD.UNITNUM#C THEN GO POWIE %148= 
FLSE ¥148% 
BEGIN ¥148= 
TOHLD, UNI TNUM8 eSCANONS %1488 
END} ¥1489 


END OF SCANDSKTYP3 


z 

Bik i aR Ri ROR aR Rk gk On OR aka BK 

% 

X= PLACFMENT OF OPTIONS AND NAME COUNTS INTO CORRECT 

z WORD OF CORRFCT ESPDISK SEGMENT 

z 
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% 

SUBROUTINE SFTUP3 

BEGIN 
1F LYBNO NE@ REMEMBER, CF] THEN 
BFGIN DISKWAITCPROG yNX 0530sL18N0)3 
DISKWAJTC@PROG. CCF 3230,REMEMBER,(CFI)3$ 
PROGCREMEMBER.C FFI) ie¢ePCDUP) &ENAMECNT(1B216845J]&NAMECNTECTC)2 
DISKWAITCPROG INX 0230-REMEMBER.(CF))3 


20567158 
20567160 
20567162 
20567166 
20567168 
20567170 
20567172 
20567174 


20567176 
20567178 
20567180 
20567182 


20567200 
20567201 
20567202 
20567205 
20567210 
20567215 
20567220 
20567225 
20567230 


20567235 
20567240 
20567245 


20567250 
20567255 
20567260 
20567265 
20567270 
20567271 
20567274 
20567276 
20567278 
20567280 
20567282 


20567285 


20567300 
20567305 
20567310 
20567311 
20567312 
20567313 
20567314 
20567315 
20567316 
20567320 
20567325 
20567330 
20567335 
20867340 
20567345 


AMOMAONANDAND 


Aooan 


AHHA MH HHH 


OVNNMNNAAHAAHA AAR HAHAHA 


012180 
0123382 
012510 
012610 
012782 
012830 
012883 
012982 
20567168 
013133 
013390 
013412 
013433 
20567158 
013530 
013530 
013540 
01350 
013530 
013540 
013683 
0137%2 
014082 
20567230 
0144170 
014633 
014882 
20567220 
014832 
015230 
0155%2 
015683 
015882 
016181 
016320 
016423 
016433 
016581 
016631 
20567278 
016881 
20567210 
0168%2 
016832 
016832 
0168!2 
016832 
0168%2 
016832 
0168382 
016812 
016980 
0169380 
017084 
017203 
017512 
017882 


DISKWAITC@PROG.ECFJ*30+LIBNO)3 
FND ELSE 


PROGCREMEMBFR.C FFI] tsCePC DUP) YENAMECNTI 16816815 ]&8NAMECNTECTCI3 


END OF SETUPS 


x 


See eke START HERE (soon OkK eae 


% 


P(ROWeMYMSCWeSTF)3 
RcoWrmRewW & PCXCHIICTCI: 
P6050 900050,09050202050,0,0)3 % ZERO LOCALS OF CCLIB 


PcQOy3 


¥146@ 


GO SW CT™COPYN); 


LOOPY? 
FNTF? 


NEXTLS 


PROGLO JS sPROG(2]%203 CNTi=23 

IF CCNsaScAN)JsSIDENT THEN 

RFEGIN 
IF ¢CST#eSKAN)20 THEN ST#a511 ELSE CNIsSCAN3 
tF ST GTR 511 THEN ST3=5113 

END ELSE S$Tt#5113 


REMEMBER, (3215) % LI BNOr=GETESPDISK; 

NIDGETESPHISKtaTRUES 

CMMC1928S08CTF UNTTNO#23 OR UNITNOs24 OR UNITNO GEQ@ 32 THEN 
UNTTNO ELSE O)f 324226) RST 98398938 
LIBNOrccTclaila:47i1)3 


FROMHLD SUNT TNUMSH193 TOHLO, UNI TNUMS8 #493 & 19eH7SK UNITNO414148= 
PROG(CNT441)3=03 ¥148- 
NAMECNT¢s03 

IF TEANDDV THEN PROGEICNT41), (621) 221713 

IF TeUNLOAD THEN PROG(CNT4+1),CO%1) 2213 


$ SET oMIT = NOT B6500L0AN 


1F T NEQ cOPYN THEN 

IF CNsTOyY AND T 4@TR UNLOAN THEN 
SCANDSKTYP3 

TF CNSLATFSTV THEN 

REGIN PROGICNT4+1).05%1)8213 CN#sSCAN$} ENDS 


IF CNeEXPTRED THEN 
BEGIN PROGECNT4+13,£4%1)%213 CN&xSCAN3 END3 


IF CNZACCESSD THEN 
BEGIN PROGECNT+1).£321)8513 CN&SSCANS ENDS 


IF CN3ADDV THEN 
BEGIN PROGECNT+1),C6Oti)%218 CNERSCANS ENDS 


IF CNSNOHASH THEN 
RFGIN PROG(CCNT4#1).07911]%243 CN&teSCANS NAMECNT,Ci7tijimi3 FENDI 


1F CNSUNLOAN THEN 
REGIN PROGECNT#+1),CO%1)8"13 CNESSCANS NAMECNT, CAi7tij)isds ENDS 


1F T NEQ@ COPYN THEN 


20567350 
20567355 


20567360 
20567365 


20567510 
20567511 
20567512 
20567520 
20567530 
20567540 
20567550 
20567600 
20569200 
20569230 
20569240 
20569260 
20569290 
20569320 
20569350 
20569380 


20569400 
20569410 
20569420 
20569440 
20569460 
20569520 
20569522 
20569525 
20569527 
20569528 
20569529 
20569530 
20569590 
20569610 
20569630 
20569650 
20569670 


20569690 
20569710 


20569730 
20569750 


20569770 
20569780 


20569790 
20569800 


20569802 
20569604 


20569810 


“4 


AHHH HHO 
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016130 
0183721 
20567330 
016341 
018683 
20567320 
018730 
018710 
01870 
0187:0 
018831 
0189%2 
019233 
019380 
019830 
019830 
019880 
020180 
020310 
020382 
020982 
O211%2 
20569290 
021213 
021541 
021610 
021982 
0222!3 
022433 
0224:3 
022811 
023010 
023083 
023510 
023911 
023981 
024010 
0242131 
024430 
024433 
20569670 
0249!2 
025031 
20569710 
0255t2 
0256!1 
20569750 
026182 
026241 
20569780 
0267%2 
026831 
20569800 
027511 
027630 
20569804 
028381 


GETEM8 


tf SCAN NEO IDENT 
THEN GO POWIE 


ELSF IF T LE@® UNLOAD 


THEN BEGIN TOHLD*=accUuMrO)s %148« 
IF CCNS2SCAN) SONV THEN TOHLD,UNITNUM?=SCANON} 8148e 
END %1 488 

ELSE BEGIN FROMHLD!eACCUMrO}3 %146= 
IF CCN&sSCAN)ZONV THEN FROMHLD,UNITNUM! sSCANON 
END3 %1 46" 


RFEMEMBER#sREMEMBER&LIBNOCCTCIRCCNT+1)°CTF)? 


CHECKS 
T1, C468 LJ +HOLD3eC(CCNEFQUAL)3 %5430 
IF HOLD3 THEN PROGECCNTII=°1 FLSE %543= 


IF CN GE@ [DENT THEN PROG(ICNT] *3aCcuMe0) ELSE GO POWIE) ¥54 30 

1F SCAN NEQ@ SLASH THEN GO POWIES 

TI C4724 JeHOLD3I*# CC CNeSCAN) EQUAL) S : 25438 

TF HOLN3 THEN PROGICNT41)¢e"1 ELSE ¥5430 
IF CN GEQ IDENT THEN PROGFCNT#1]2=ACCUMLO) ELSE GO POwleE? 

NAMECNT, CCF JS =NAMECNT SCF 423 

HME SSPROGECNTI,Cis:tJ+PROGCCNT+1),01%1)2 

HOLD3!s]3 

IF CCNIteSSCAN)SEXCEPT THEN BEGIN CNEeSCAN3 HOLD3!c03 END} 


TF CN®LB THEN JF HME NE&Q O THEN 
REGIN X]ss23 
SCANEXCEPT3 
FOR ST!=0 STEP 2 UNTIL XI DO 
BEGIN CHECKS 
PROGr CNT] &eXLSTeSTJ&1752478 473 
PROGCCNT#+4]22XLSTCST4$1I7810652471493 
NAMECNT, CFF ISaNAMECNT, CFF I+23 
FND: 


CNSsSCANe 
FORGETSPACECXLST)$ XLST#=03 25436 
FND FLSE GO POWIF 


FLSE TF HOLH3=0 THEN GO POWrE3 
IF CN=AS THEN 


BEGIN 
TF HME#2 OR TsaUNLOAD OR NAMECNT, £1781) THEN GO POWJE3 
IF CCNeSCAN) SFQUAL THEN IF 1T1.£46!1] THEN ¥543= 


BEGIN CHECKS PROGI CNT] &==1&816 48478413 END ELSE GO POwleE 


FLSE IF CN GEQ TOFNT THEN TF T1¢f4621) THEN GO POWIE %543" 
ELSE BEGIN CHECK: PROGECNTISeACCUMI0]81048478113 END 


ELSE GO POW] E3 
TF SCAN NE@ SLASH THEN GO POWIE3 


IF CCNeSCANI=FQUAL THEN YF T1 THEN ¥543= 
PROGCCNT41]3="184(494731) ELSE GO POWIE 
ELSE IF CN GEQ@ IDENT THEN IF Ti THEN GO POWIE ¥543= 


ELSE PROGECNT+1) 3eaACCUMCOJ816414781) 
ELSE GO POWIES 


20569830 
20569835 
20569840 
20569845 
29569846 
20569847 


20569850 
20569860 
20569870 


20569890 
20569920 
20569925 
20569930 
20569935 
20569940 
20569950 
20569960 
20569965 
20569970 
20569975 
20569980 
20569985 
20569990 


20570000 
20570010 
20570015 
20570020 
20570030 
20570040 
20570050 
20570055 
20570060 


20570065 
20570070 
20570080 


20570090 
20570100 
20570110 
20570120 
20570130 
20570140 


20570150 
20570160 


20570170 
20570180 
20570490 
20570200 
20570210 
20570220 
20870230 
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oow 
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028410 
0286h1 
028612 
028712 
028904 
029484 
20569845 
029H84 
029533 
030114 
205696850 
030191 
030312 
0303t2 
030510 
030713 
031040 
034311 
031510 
031883 
032112 
032531 
032782 
033083 
033112 
20569990 
033711 
033931 
034083 
034210 
034310 
034410 
0346t2 
035010 
035284 
20570030 
0354t2 
035612 
035811 
205700140 
035814 
036030 
0360!3 
036111 
036413 
036841 
20570140 
037212 
037510 
20570160 
037912 
037982 
038240 
038483 
038843 
039084 
039283 


NAMECNT,CFFIJS=NAMECNT CFF J 423 
CNSsSCAN3 
ENDS 


IF CNSCOMMA THEN BEGIN CN%=ScAN3 GO GETEM$3 END 


1F CNaPER10 OR CNsPOUND 


THEN TF T=COPYN THEN GO POW]E ELSE GO QUIT 


FLSE TF T NEO COPYN 
THEN GO POWILE 
FLSE JF CN#TOV 
THEN BEGIN 
FIRSTyME&eTRUEs 
MIRIDS SCANDSKTYPS 


IF FIRSTIME AND CTOHLND,UNITNUM&19) 4148 


THEN GO POWTE 


ELSE tF CNsPERYO OR CNePOUND 
THEN GO QUIT ELSE GO POW!E 


END 


ELSE IF CN NEQ@ FROM 
THEN GO POWIE 
ELSE BEGIN 


1F CCNtsSCAN)&DISK 

THEN FIRSTIMESSTRUE 

FLSE IF CN NEQ@ JOENT 

THEN GO POWIE ELSE FROMHLD?%#ACCUMLO]3 


1F CCNt#SCAN) = ONV THEN % 1488 
FROMHLD.UNITNUMS&SCANON3 4146 
tF CNePOUND OR CNePERIO ¥148= 


THEN IF FIRSTIME THEN GO POWE 


FLSE IF CN&TOV 


ELSE GO QUIT 


THEN GO MYRID 

FLSE IF CN NEQ@ COMMA 
THEN GO POWIE 
ELSE BEGIN 


SETUPS 
CHECKS PROG( CNT] 220443 
PROGCCNT4+1)%=FROMHLDS 


CNIeSCANS 
CHECKS PROGCCNT]#=03 
GO NEXTL3 
END? 
END3 
QUILT? 
SFTUPS ROTH 
STREAMCAS=TOHLD®BIETOHLD 42:6) 1 sCheTOHLO,L42t6) #0» $122" 
Die(CMML27)] )3 "122" 
BEGIN X122¢ 
Srt#LOc AS SKIP SB3 %¥122" 
1F SB THEN 2122 
BEGIN £1225 
SKIP 39 SB} ¥122° 
IF SB THEN DS2®8 LIT"OFAST " %122° 


20570232 
20570235 
20570240 


20570250 


20570270 
20570280 
20570290 
20570300 
20570310 
20570320 
20570330 
20570340 
29570350 
20570360 
20570370 
20570380 
20570390 


20570400 
20570410 
20570420 
20570430 
20570440 
20570450 
20570460 
20570462 
20570464 
20570470 
20570480 
20570490 
20570500 
20570510 
20570520 
20570530 
20570540 
20570550 
20570560 
20570570 
20570575 
20570577 
20570580 
20570590 


20570600 


20571500 
20571600 
20571700 
20571702 
20571710 
20571720 
20571730 
20571740 
20571750 
20571760 
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_" 
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039440 
039683 
039742 
20570110 
039752 
20570250 
0401140 
040211 
040510 
040630 
000684 
O407! 
040810 
040813 
041080 
041112 
041183 
041343 
O4a15tt 
20570320 
O415tt 
041681 
041682 
041730 
041883 
041943 
042191 
042310 
042510 
042811 
0429%2 
043083 
043113 
043293 
043310 
043410 
043481 
043433 
043630 
043811 
044080 
O4ait2 
044434 
044433 
20570540 
044413 
20570420 
044413 
044433 
044710 
045080 
045083 
045083 
Oa5194 
045183 
045113 
045230 


POWTE? 


REM! 


FUSE 
BEGIN 
SKIP SB3 
TF SB THEN 08228 LIT"OSLOW sh 
ELSE 
BEGIN 
CcSit#lLoc B3 
pSt=6 LyTMOEU # “3S DSt#2 DECI 
JUMP OUT TO L)3 
NStsB LIT*ODTSK "; 
Li END 
END 
END 
ELSE 
BEGIN 
SKIP 5S SB3 
NS@eLIT"O"%s HSta7 CHR 
ENN3 
END} 
GO INIT$3 
IF DIDGETESPDISK THEN 
BFGIN 
1F CMM£19),C(CFJ#L1BNO THEN &% MORE THAN ONE SEGMENT USED 
BEGIN 


DISKWAITC™PROG.CCFJ»30eCMML19],(CFI)3 
FORGE TESPDISKCCMMC19) CCF I)$ 
CMM(19)¢PROG(29)3 
GO POWIES 

ENDS 


FORGETESPOISK(LIBNO)$ 
END: 


GO INCSC3 


1F XLST Ne@ O THEN BrGIN FORGETSPACECXLST)3 XLSTI#03 ENDS 


71,4631] « (CCN « SEAN) = EQUAL)! 

IF 7104681] THEN CMMpO)ewy ELSE 

IF CN GEQ@ IDENT THEN CMMCO]t2ACCUMEO) ELSE GO POWIES 
1F SCAN Ne@ SLASH THEN GO POWIES 

T1.04781) © (CCN © SCAN) © EQUAL)I 

IF T1 THEN CMMCijery ELSE 

IF CN GEG IDENT THEN CMMEL]82ACCUMIO) ELSE GO POWSE3 


HMESSCMMCOJ, CISL I4CMMC1).019193 


Xypt=e2}3 
IF CCNf8eScAN)=PERIO OR CNeCOMMA 
THEN HOLDLESCN 
FLSE BEGIN 
IF CNREXCEPT THEN CNt@SCAN$3 
IF CNSLB THEN 1tF HME NE@ O THEN ELSE GO POWIE 


Z1i22° 
%122° 


¥122" 
Z122° 
R122" 
Zi22° 
%1229 
#122 
%122= 
K122° 
%122° 


%122° 
¥122= 
%122= 
¥122= 
%122° 
£122" 
%122° 


%122- 


%543= 
x5520 
%552 


x552e 
%552= 


20571770 
20571760 
20571782 
20571790 
20571800 
20571810 
20571820 
20571830 
205718640 
20571842 
20571850 


20571860 
20571870 


20571880 
20571890 
20571900 
20571910 
20571920 


20571930 


20572100 
20572200 
20572210 
20572220 
20572300 
20572400 
20572500 
20572700 
20572800 
20572900 
20573000 


20573100 
20573110 


20573200 
20573300 
20573350 


20573400 
20573402 
20573410 
20573420 
20573430 
208573432 
20573440 
20573450 
20573460 
20573470 
20573480 
20873490 
20573500 
20573810 
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045333 
0454:0 
045430 
045431 
045630 
045631 
045631 
045730 
045831 
045930 
046031 
20571610 
046031 
20571780 
046084 
20571740 
046031 
0460182 
046082 
046013 
046132 
20571890 
046442 
20571710 
046133 
046244 
046211 
046331 
0463%3 
046531 
046583 
0468133 
O4a70tt 
047133 
047251 
20572400 
O4aTeti 
047330 
20572220 
047380 
0473%2 
047382 
20573350 
Oa77%4 
048141 
048410 
048741 
048930 
0a92%4 
049412 
049713 
050082 
0501382 
050412 
050512 
0506323 
050932 


ELSE gO POWIE3 
T1.C4584] © $13 & FLAG FOR SCANEXCEPT, ON REMOVE = ¥552" 
SCANEXCEPTS3 
XLST, C8810} 22X7423 
HOLD1TS=SCAN3 
ENDS 


CNisT%203 
1F CCMM£O) OR CMMr1)) LSS 0 THEN 
SEEK! 
SFEKNAMCCMMEOJsCMME 1] *CNesCMM( 2) eCMM(C3)e0PTNeXLST) ELSE 
BEGIN 
CMMC2]23CMM(O]5 
CMMC3438=2CMMC173 
CNis43 
ENDS 


IF CN NEQ 0 
THEN TimIF SYSTEMFTLECCMM(2)°CMME3)) 
THEN 2 
FLSE DIRFCTORYSEARCH(CMM([ 2) »oCMME 3195) 
ELSE IF OPTN NEQ@ O THEN GO OUTR} 
IF T GEQ 64 THEN 
BEGIN IF HOLD32*NOTCMET+4],£4411)) THEN BEGIN FORGETSPACE(T)3 
T2SNTRECTORYSEARCHCCMM( 2) 9CMME3IRCUNITNO#25 OR UNTTNO#®30) 
C1247%4)54)3 ENDS 


IF T GEQ@ 64 THEN 75088 
IF MCT4#41.043%2)23 THEN BEGIN FORGETSPACECT)3 Tteis ENDS 
FND$ 
TF CARD.C8%t] THEN GO DOWNRS 
1F T LSS 2 
THEN IF T1 
THEN LBMESSCABS(CCMME2))sCMME315°7,4550sSPOUTUNT T»LIBERR) 
ELSE LRMESSCCMM(0],CMMr1)5"%7515e0sSPOUTUNTT»LIBERR) %149= 


FLSE IF T#2 
THEN LRMESSCCMM(2),C0MMP3)5"722550.SPOUTUNIT®LIBERR) %¥149= 
FLSE IF T Gra 64 
THEN BEGIN 
IF M{T+2] NEQ O AND CUSERID FQV MCP) NEQ@ 
NOT 0 AND ¢CUSERID EQV ABSC(MCT4+21)) NEQ 
NOT 0 
THEN BEGIN 
LBMESSCCMM([2)5CMMf31]077541, 
O, SPOUTUNIT,. LIBERR) 32149" 
FORGETSPACE CDOIRECTORYSFARCHCCMME2]— 
CMME33914))3 
END 


ELSE IF MET+43,04312] NEQ O 
THEN BEGIN 


DOWNRS IF NOT FIRSTIME THEN 


BEGIN FIRSTIMEt=#13 
CMME19) $e¢LIBNOts 
GETESPOISK)&1(18%4484)3 


20573520 
20573595 
20573530 
20573540 
20573760 
20573770 


20573850 
20573900 
20574000 
20574100 
20574200 
20874300 
20574400 
20574500 
29574600 


20574700 
20574750 
20574800 
20574850 
20574875 
20574900 
20574905 
20574910 
20574945 


20574917 
20574920 


20574922 


20574925 
20574950 
20575000 
20575050 
20575100 
20575150 
20575200 
20575250 
20575300 
20575350 
20575400 
20575450 
20575500 
20575550 
20575600 
20575650 
20575700 
20575750 


20575800 
20575650 
20575900 
20576000 
20576050 
20576100 


4~AAHAHAOF 
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Aaa 


051210 
051210 
051383 
051510 
051782 
051912 
20573490 
051982 
05203 
052202 
0523:0 
052712 
052810 
052912 
053110 
053133 
— 203574200 
053183 
053280 
053430 
05342 
O537%1 
0539%3 
054082 
054510 
054732 
20574905 
054933 
0550182 
20574920 
055512 
20574905 
055532 
055730 
055731 
0558:2 
OS64t2 
057030 
057130 
057613 
O5S77%3 
0578:3 
058234 
058512 
058512 
058710 
058930 
059210 
059233 
05944 
20575500 
059414 
059633 
0597%3 
059884 
0599!2 
06000 


SETESTOTSRTennUEd 


MET44),(4332)]2=13 
DISKWAITCT, CCF ]+300T, CFFIDS 
IF HOLD3 THEN FORGETSPaAcet 
DIRECTORYSEARCHCCMMr 2), 
CMMC335914))3 

CHECKS 

PROG(ICNTJ}$=CMM[2]3 
PROGCCNT#+¢]#8CMM(3]3 

END 


ELSE FORGETSPACECDOIRECTORYSEARCH( 
CMM[ 2) eCMME 3196 


$ SET OMIT = NOT CPACKETS) 


RBSPOUTUNIT(£ 92939) 
&RSPOUTUNIT(& 2424236] 


$ POP OMIT 


223 
FORGETSPACEC(T)3 
ENDS 


IF CN NE® O AND CCMMCO) OR CMME1)) LSS O THEN GO SEEK? 


OUTR? TF CCNtsHOLDL)=COMMA THEN GO REMO3 


tF CNePERyO THEN 
IF FIRSTIMF THEN 
BEGIN BOTH 
MECARDLOC#2)203 
MECARDLOC#1J2%403 
CMMr6)t=GETESPOISK & 10£18%33t151]3 


$ SET OMTT = NOTCDATACOM AND RYE) 


DISKWAITCCARDLOC*2514eCMME6) INX 093 
GO yNIT3 
END 


FLSE GO CCA 
ELSE GO POWIE3 
CHAN? 

Tt=03 & T USED AS BIT MASK FOR SYNTAX CHECK 

FOR cCNss0O STEP 1 UNTYL 3 DO & SCAN [NPUT REQUEST 
BEGIN 
OPTN %s SCAN3 
T te COPTN=FQUAL) & TL43944t4]3 & SHIFT PREVIOUS VALUE LEFT 
IF T THEN CMMECN] $e (74) ELSE 
IF OPTN GEQ@ IDENT THEN CMMCCN) t= ACCUMCO] ELSE 
GO TO INCSC3 & INCORRECT REQUEST 
OPTN 8% SCAN? & SKIP "/%o%so" OR "3H 
END$ % SCANNING INPUT REQUEST 


1TF CT NEQ@ O) AND ¢T NEQ 5) AND CT NEO 10) THEN GO INCSC3 
% Ts5S FOR =/eNAME1> TO &=/eNAME2> 
% T=140 FOR «<NAME{>/= TO <NAMEQ?/s 
% Tz0 FOR <NAME1>/<NAME2> TO <NAME3>/<NAME4> 
IF CREPEATI!s(T GTR 0)) THEN 
BEGIN 
HOLD1 t= CMMCL0}3 HOLO2 t= CMME175 TYMSe1$ CN!e203 


20576200 
20576210 
20576215 
20576216 
205762147 
20576220 
20576230 
20576240 
20576250 


20576300 
20576350 
20576395 
20576400 
29576405 
20576410 
20576415 
20576450 
20576475 


20576500 
20576600 
20576700 
20576710 
20576720 
20576754 
20576756 
20576758 
20576760 
20576768 
20576770 
20576780 


20576790 
20576800 
20576850 
20576900 
205769205 
20576950 
20576975 
20877000 
20577025 
20577050 
20577075 
20577100 
20577125 


20577150 
20577175 
20577200 
29577225 
20577250 
205772075 
20577300 


=~ 


AAA HHH 


ee 


AA DHA TRA A Tt HH t-te 


Se 


20575850 
061682 
0617814 
0618t2 
064812 
061910 
062010 
062030 
062191 
06220 

20575300 
062210 
0625%2 
062711 
0628:0 
062813 
063010 
063210 
063410 
063680 
063610 
063882 
063910 

20576720 
063980 
063930 
063910 
063980 
063953 
064110 
064110 
064212 
0644!3 
064740 
065081 
065011 
0651412 

20576950 
065333 
065714 
0657!4 
065711 
065731 
0658t2 
065940 


LOOPS SEF KNAMCHOLD! »pHOLD2,CNeCMMLOJ 2 CMME 1) e#HOLD3»P(0))3 
IF CN = 0 THEN ® NOT FOUND IN O7RECTORY 
BEGIN 
1F TYM = 1 THEN & FIRST PASS» NULL SEARCH 
REGIN 
LBMESSCHOLD1» HOLN2s "5s 155 BNOT CHANGED» NOT ON NISK 
O, SPOUTUNYT, LIBERR)$ 2149" 
FNDS 
G0 TO NEXTS 
ENN3 
TYM 32 23 


IF HOLO? LSS O THEN cCMMf2) #® CMMCO) ELSE 
IF HOLM2 LSS 0 THEN CMMrF 3) & = CMMC1)3 & USF NAME “FOUND® 
FNNS 


TF CT#enrRECTORYSEARCHCCMM(C2],CMM[3)25)) NEQ O THEN 
BFGIN 
FORGE TSPACE(T)3 
LBMESSCCMM(CO]» CMMrij» "Se 298 % NOT CHANGED» OUP FILE 
O» SPOUTUNIT» LIBERRDS %149" 
END ELSE 


BEGIN ; 
TtslF SYSTEMFILECCMMCOJsCMMC1)) THEN 2 ELSE 
NTRECTORYSEARCHCCMMLO}sCMM(4)45)3 
TF T GEQ 64 THEN 
BEGIN IF NOTCMET4+4),64481}) THEN BEGIN FORGETSPACECT)3 
TeNTRECTORYSFARCHCCMMLO] + CMME 1 JECPCUNITNO, DUP 225 OR 


PEXCH) #30) 7124784),4)3 ENDS 450668 
IF T GEO 64 THEN %508= 
IF M£T4+4)4f64382333 THEN BEGIN FORGETSPACECT)$ Tet 
END: 


END; 


If T LSS 2 THEN 
LBMESSCCMMCO)>CMMC1),°5015400T#1)*%30)2 % NOT CHANGED 
% 45 = IN USE, 15 = NOT ON DISK 
Oe SPOUTUNIT»s LIBERR) %149= 
FLSE IF T=2 THEN 
LBMESSCCMMLO]» CMM(4]_5 “Se 252 % NOT CHANGEDs SYSTEM FtLer 
Os SPOUTUNIT» 1 ) 


FLSE IF MCT+?2) NE@ O AND % NOT FREE FILE 


CUSERTIN EQV MCP) NEG NOT O AND & NOT MCP 
en EQV ABSCM(CT+2])) NrQ NOT O THEN & NOT CREATOR 
BEGI 


LBMESSCCMMEOJ» CMMrile "Se 415 % NOT CHANGED» INVALID USER 
0, SPOUTUNITs 1 )3 % 

IF MreT+#4),64382) NeO 1 THEN 

FORGETSPACEC DIRECTORYSEARCHCCMMfO)s CMME1)5 14 ) 38 

FORGETSPACEC(T)3 

END 


ELSE 


20577325 
20577350 
20577375 
20577400 
20577425 
20577450 
20577475 
20577500 


ee ee ee 


20577525 T 
20577550 T 


20577575 
20577600 
20577625 
20577650 


20577675 
20577700 
20577725 
20577750 
20577775 
20577800 


20577805 
20577810 
20577815 
20577620 
20577823 
20577626 
205778207 


205776828 
20577829 
20577832 


20577833 


20577835 
20577875 
20577900 
20577925 
20577950 
20577975 
20578000 
20578025 
20578050 
20578075 
20578100 
20578125 
20578150 
20578175 
20578200 
20578210 
20578225 


20578250 


VPVHHWAHHAW ADAAAS AH Hs 


4 ana 


i ee ee ee eee 


— 


066212 
066631 
0667:!0 
0667382 
0666811 
066823 
0670714 
0673%1 
20577425 
067384 
067333 
20577375 
0673!3 
067482 
067731 
0680:2 
20577275 
06802 
06834 
0683t3 
068432 
0686:2 
068922 
20577700 
06892 
0690:0 
069233 
069530 
0695:3 
069933 
070230 
20577823 
070433 
0705132 
071032 
20577829 
0710:2 
20577823 
071032 
071121 
071534 
071531 
071850 
0719%2 
072230 
072233 
072522 
072610 
O73191 
073143 
073333 
073433 
O73731 
07400 
074013 
20576100 
074033 


BEGIN ®% CHANGE OK 
MCT+4J] tec *P COUP) 983013462243 
Tt=TREUFC™CMME2]+CMME 3] eT INX OF9 904883321593 
FORGETSPACECDIRECTORYSEARCHCCMM([0)5CMME1128))3 
HEADFRUNLOCK(CMMP249CMM(3]—9T)3 


$ SET OMTT = PACKETS 


NEXT? 


INTT? 
INCSC! 
cCAs 


LBMESSCCMMCLOJ+ CMME1J, 52> % CHANGED TO 
CMM£2}» CMML3], SPOUTUNIT, LIBMSG)3 
PBCOUNTs=PBCOUNT@(¢C(CMMrF0) EQV "PBD ")aNOT 0) OR 
CCCMMLO] FAV "PUD ")=snOT 0)) AND CCMMC1],0CFIJ#1)) 
+C CC CCMM(C2) EQV "PRD *)2NOT 0) OR 
CCCMMC2) EQV "PUD "J=enNOT 02) AND CCMME3),¢CFJ21))3 
END3 


END} 


IF REPEAT THEN GO TO LOOPS & FIND REMAINING FILES 


IF OPTNSCOMMA THEN GO CHANS 

1F OPTN#PERIO THEN GO TO CCA ELSE GO INCSC3 

CCLIRielLYBNO$ GO CCA; 

CCLIBta13 

CADDRISCDEX!s0;3 

IF XLST NEO O THEN FORGETSPACECXLST)3 

1F CLIBNOt=ePROCVAL).£CF) GTR 1 THEN PROCVAL&e#2 ELSE 
IF LUTRBNO THEN PROCVAL?26 ELSE PROCVAL?=03 

RE TURNVALtsPROCVAL3 

Pe rRETURNRCW)]>-STS,0+RDSe Oe XCHeP&PECTFIsSTF)3 


END? % cCLIB PROCEDURE 


20578275 
20578300 
20578375 
20578400 
20578425 
20578450 
20578525 
20578550 
20578575 
20578600 
20578625 
20578650 
20578675 


20578685 


20578700 
20578725 
20579900 
20580000 
20580100 
20580200 
20580300 
20580302 
20580305 
20580310 
20580330 
20580340 
20580350 


AAHA HMA 4H 
o 
~ 
wr 
ts 
tad 
Oo 


20578275 
076930 

205778605 
076910 
0770:0 
077030 
O77131 
077330 
0777:50 
0777383 
077910 
0781:2 
0784!2 
078733 
0788:2 
0794584 

20566014 
SIZE# 0792 WORDS 


~4 


ee ee | 


PRT(654) = 


PRT(655) = 


STACK ¢F a2) 

STACK ¢Fej) 

STACK¢Fe1) 

STACK¢F 40) 

STACK¢(Fal) 

STACK ¢F 42) 

STACK¢F 42) 

STACK¢F 43) 

STACK ¢F 43) 

STACK¢F 44) 

STACKCF45) 

STACK(F 45) 

STACK(F 46) 

STACK ¢Fe7) 

STACK¢(F 410) 
STACK¢(F 411) 
STACK ¢F 412) 
STACK(Fe!3) 
STACK ¢F414) 
STACK¢F 415) 
STACKEF 416) 
STACK¢F 416) 
STACK¢ Fei?) 
STACK¢F 420) 
STACK( F421) 
STACK(F 421) 
STACK¢F 422) 
STACK EF 422) 
STACK¢(F 423) 
STACK¢ F424) 
STACK ¢F 425) 
STACK¢F 426) 
STACK¢F 427) 
STACK ¢F 430) 
STACK¢F 431) 
STACK(F 432) 
STACK (F433) 
STACK¢CF 434) 
STACK¢CF 435) 
STACK (F436) 
STACKCF437) 
STacKeFs40) 
STACK¢F441) 
STACK¢F 442) 
STACK ¢F 443) 
STACK (F444) 
STACK¢F 445) 


STACK¢F 445) 


REAL PROCFDURE CCSETS FORWARD; 


CCSET 


PROCEDURE CCFINISH? 


CCFINTSH 


8 UR HY HAN HN BO 


nunAn adh a@arnunt tah uh Hn Ht Hh HR HH Heh Het oe ne 


C1 


BEGIN 
DECLARECCVARJABLESS$ 

MSCW 

CARD 

MYMSCW 

RCW 

PROCVAL 

A 

T 

CANDR 

SFID 

CARDLOC 

CDEX 


KOUNT 


SMID 
PPCPROCESS 
SOURCE 
SPOUTUNTT 


T0G 

RE TURNMSCW 
RETURNRCW 
RETURNVAL, 


REAL TEMP = RETURNRCW+43 


TEMP 


% BEGIN LOCALS OF CCFINISH 


20580400 T 0000:0 

START OF REL SEGMENTS DISK ADDRESS ® 00679 
20580800 T 0000:0 

START OF REL SEGMENTS DISK ADDRESS = 00679 
20580852 T 0000:0 
20581000 T 0000:0 
20581080 T 0000:0 


PORCWsMYMSCWSSTF)3 
RCWt=RCW & PEXCH) PCTC)3 
PeO)$ %& ZERO LOCAL OF CCFENISH 
PPCPROCESS!=03 
CN&sT3 
IF OPTN = PERIO OR OPTN = LIBRA THEN 
BEGIN 
CMMC2278= PROGI 2213 
PROG‘2],(CFJi= TF PROG(18] > 32767 THEN 32767 
FLSE PROGE18)3 
IF PROGL20] > 512 THEN PROGL20] = 5123 
IF PADDR NEQ@ O THEN 
BEGIN 
PEQN(29]3% 03 
IF PDEX80 THEN PEQN(0) 2214; 
IF POEX*1 THEN PEQN(14) t= 143 
DISKWAITCPFON, CCE )s30>PADDR)} 
ENN 


PROG(29]%a 03 

CMMC 2), CFF IJS2NTIteGETESPDI 
NTSKWATTCPROG.CCFI]+30eNT1) 
FADS 


SK3 
; 


IF CANDR NEQ@ O THEN 
REGIN 
CEQNL29]3= O83 
IF CDEX®0 THEN CEQNCO]8=& 143 
IF CDEX=4 THEN CEQN(C14)] 22 143 
DISKWAITCCFON. CCE I 2399 CADDR)? 
END$ 


COMPLEXSLEEPCCSCHEDULETDS#NOT 0) AND SHEETFREE)? 


ACCIDENTAL FNTRY AT 1 


LOCKTOGCSHEETMASK)3 


CNEX%= GETESPDISKS 


CMMf2],°CF i= IF CMMr18) > 32767 THEN 32767 ELSE CMM(18)3 
PheXs= TF CMM(18] > MIXMAX THEN MIXMAX ELSE CMMI18]3 


IF LIBNO NEQ O THEN CMM[19 ]%= LIBNO; 
STREAM(At#O?St=P¢, SCHEDULE DS) )3 
BFGIN S]isaS3 
A7ESKIP SBS SKIP DBs TALLYtsTALLY+13 
IF SB THEN BEGIN END ELSE JUMP OUT)3 


DSt= SETS Ats TALLYs 
FND STREAM$ 


TEMPt= Ps CMME3]22 O&€TEMPL8:38t10)3 
CMM 23), 724824] #¢(CLOCK4PCRTRDIDIV 603 
TF SHEETFPDEX1]6CCF] NeQ O THEN 

BEGIN 


DISKWAITC*PROG.FCFIJ*30*sPADDRSSSHEETCPDEXI,CFFID3 


PROGL291%= CDEX3 
DISKWAITCPROG,(CF1»30,PADDR)3 
END 


20581125 
20581130 
20581140 
20581150 
20581200 
20581250 
20581300 
20561350 
20581400 
20581450 
20581500 
20581550 
20581600 
20581650 
20581700 
20581750 
20581600 
20581850 


20581900 
20581950 
20582000 
20582050 


20582100 
20582150 
20582200 
20582250 
20582300 
20582350 
20582400 


20582440 
20582450 


20582500 
20582550 
20582600 
20562650 
20582750 
20582800 
20582850 
20582900 


20582950 
205863000 


205863050 
20583100 
20563150 
20583200 
20583250 
20583300 
20583350 
20583400 


AHA HAH HAHAHAHA TH HAHAHAHA HS 


AtAN Ha 


| 


44 ASH aH 


Ata Ass 


0000:0 
0004:0 
000274 
000272 
0003314 
0004:0 
000533 
000634 
0007:3 
0009!3 
OO0L12tt 
001530 
001513 
001691 
001732 
002030 
002282 
002432 
20581600 
002482 
002583 
002832 
003032 
20581300 
003082 
OO3184 
00314%3 
003310 
003532 
0038630 
0040:0 
20582150 
0040:0 


004730 
20582450 
00502 
0051!%2 
005630 
0059%4 
0061:3 
0063:0 
006331 
006431 
20582900 
006583 
006631 
20582800 
0066:2 
006984 
007253 
OO74#1 
007433 
007641 
0079%2 
0081!%2 
20583200 


FLSE SHEFTEPDEX) 
SHEETPPDEXT,16183 
CMM(?9)%e O03 

NySKWATTCOMM, CCF J, 30,CDEX)3 
UNLOCKTOGCSHEETMASK)3 


tz 
15] 


Tie CN3 
PcrRETURNRCWJoSTS,0+RDS eOsXCHePRPFCTF1eSTF)3 
END CCF rNYTSh3 


20583450 
20583500 
20583550 
20583600 
20583650 


20583700 
20583710 
20583750 


008132 
008431 
00863} 
008732 
0089te 
20583650 
009330 
009333 
0096:2 
20580852 
SIZEs 0097 WORDS 


er  ) 


444 


» PROCENURE CCCOMPILES 20583800 T 0000:0 

REAL PROCENURE CCCOMPILE START OF REL SEGMENT? DISK ADDRESS = 00683 

PRT¢656) = CCCOMPILE 
BEGIN COMMENT SETUP OF COMPTLFR LABFL EQUATION CODE3 PNY/PN23 20583860 T 0000:0 
DECLARFCCVARYARLES3 20584000 T 0000:0 

STACK¢Fe2) = MSCW 

STACK¢Fet) =» CARD 

STACK¢Fel1) s MYMSCW 

STACKeFs4O) = RCW 

STACK¢Fel) = PROCVAL 

STACK(F42) = A 

STACK¢F 42) a T 

STACK¢F 43) 2 CADDR 

STACK¢F 43) = SFID 

STACK¢Fs4) = CARDLOC 

STACKeFe5) = CDEX 

STACK¢F45) = SDEX 

STACK¢F 46) = CMPLR 

STACK¢F+7) = CN 

STACK¢F 410) & KOUNT 

STACK¢Fai1) = LASTSCAN 

STACK¢F4i2) = LIBNO 

STACK¢eFsi3) = N4 

STACK¢(F 414) = N2 

STACKeF415) = N3 

STACK¢eF +16) = N& 

STACK(F 416) = U 

STACKCF417) = OPTN 

STACK(Fe20) = OPTNN 

STACK(F421) = PADDR 

STACK(F 421) = SFH 

STACK¢Fe22) 3 PNEX 

STACK¢(F 422) = SMID 

STACK¢F 423) = PPCPROCESS 

STACK¢F 424) = SOURCE 

STACK¢ F425) © SPOUTUNIT 

STACK¢F 426) = ST 

STACK¢F 427) = T1 

STACK¢F 430) = UNTTNO 

STACK( F431) = USERID 

STACK¢F432) = ACCUM 

STACKC(F +33) = CRON 

STACKeF434) = CMM 

STACK¢F 435) = DIRECT 

STACK¢F 436) = PEQN 

STACK(F 437) = PROG 

STACK¢ F440) & ADDR 

STACK¢ F441) 3 ABORT 

STACK¢F +42) = TOG 

STACK¢F 443) = RETURNMSCW 

STACK(F 444) = RETURNRCW 

STACK ¢ F445) = RETURNVAL 
REAL SUBROUTINE SCAN? 20584150 T 0000:0 

SCAN*SCNCUNTTNO*CARDLOC » SOURCE», ACCUM» KOUNTPLASTSCAN®DIRECT)3 20584200 T 0001:0 

LABEL SKNoFXIT3 20584250 T 000431 
DEFINE 7IPMIXeCARD,ri8iol#s 20584275 T 000431 
DEFINE nYSkTYPE = 10#3% 20584300 T 000431 


PcRCWeMYMSCWSSTF)3 

RCWisRCW & PCXCHI CTC); 

CCCOMPIILE+03 

Ts=zSCAN3% 

CFONCOJS=ACCUMLO)3% 

TIsSCAN3S 

TE=SCANSS 

CEONC LIS SaACcCUMLOI3% 

CFON S21) 2303% 

CEQNE3]8=pySKTYPE 3% 

CFONT4333@4234624256060003% 

CFQNC121:3203 & EU/SPFEN CELL 

CNEX $545% 

IF CCUNITNO+1)AND 24)224 OR UNITNO GE@ 32 THENS 

RFGIN CFONCI4AIT2FCFONCL6IPZCFONL 171192032 
CEONC15]:= "CARD OO" OR CCIF UNITNO GEQ 32 THENS 

we/* ELSE @5772) + UNITNO)3% 

CFONE 1838 e@4232154 240000003 CNEX%#23% 

TF UNITNO GEQ 32 THEN CIDROWCUNITNO°32),033:5]1081 ELSES 

IF UNITNO®23 THEN READERAS(FFI] «+ 1 ELSE 

IF UNTTNO@®24 THEN READERBOIFFI «© 13 

END} 


WHILE CCN8®SCAN) LSS ALGOL OR CN GTR COBOL DO 
IF CNSPERTO THEN BEGIN CCCOMPILEte#13 GO EXIT ENDS 


TF CNEWITH THEN 


%510= 


® ¢SHM) 


1F ¢(CNeSCAN)ePFRIO THEN BEGIN CCCOMPILEe13 GO EXIT FND3 


IF CN<ALGOL OR CN>COBOL THEN 


IFCTtsDITRECTORYSEARCHCACCUMLOJe"DISK "e5))#0 THEN 


BEGIN YF NOT MCT+41,£821) THEN 
BEGIN LBMESSCACCUM[0),"DySK *,=2250, 
O» SPOUTUNIT» LIBERR)? 
FORGETSPACECT)$ CCCOMPILE «1: GO EXITS 
END} FORGETSPACECT)3 


FND3 


COMMENT SET UP NOMINAL VALUES FOR PROGRAM PARAMETERS; & 


CMMC OJ Sem CCMPLRiesACCUM[0])3 CMMC1)8 SCE QNLOJ3 
CMM(2):=03 
CMMIPi3lie CADNDRts= GrtTeSPDrSK; 


$ SET OMIT = PACKETS 
$ SET OMIT = NOTCPACKETS) 


¥149" 


CMMC 23)? 2ORCARDI9S989IRC IE ZIPMIX NE@ O THEN PSEUDOMyXxCZIPMIX]) 


FLSE UNITNO)(2%42%6]3 


$ POP OMIT 


CMMC27]'eCEQNG 133 ZFID FOR SCHED MESS, 


GET OPTION (GO,SYNTAX CHECK, OR LIBRARY) 


NO OPTN&EsSCAN UNTIL OPTNsPFRYO OR OPTN#SYNTA OR OPTN=LYBRA 


OR OPTN=QUESTS % IN CASE OF HYPHEN IN COMMENT PORTION 
TF OPTNeQUEST THEN 
IF SOURCE=(CARNLOC8&1( 30245233) THEN 
BEGIN 
OPTNSsPERIO# SOURCE t#CARDLOC!3 
END ELSE GO TO SKN$ 


20584325 
20584330 
20584340 
20584350 
20584400 
20584450 
20584500 
20584550 
20584600 
20584650 
20584700 
20584710 
20584750 
20584800 
20584850 
20584900 
20584950 
20585000 
20585050 
20585100 
20585125 
20585150 


20585200 
20585250 


20585300 
20585350 


20585355 
20585360 
20585365 
20585370 
20585375 
20585380 
20585385 


20585390 


20585400 
20585450 
20585500 
20585550 
20585599 
20585609 
20585610 
20585620 
20585621 
20585630 
20585650 
20585700 
20585705 
20585710 
20585715 
20585720 
20585725 
20585730 


a ms ats tt ot sd 


4-4 


AAV AG 


a] 


ie eee eee ee ee ee ee ee ee 


000434 
000631 
0007%2 
000B8i1 
0009:2 
001180 
0012!2 
001432 
001630 
0017131 
0014812 
001933 
002130 
002183 
0024t2 
0028: 1 
0029133 
003282 
003482 
003833 
004732 
0050%2 
20584850 
005012 
0054:2 
20585250 
0057:2 
005831 
20585350 
006233 
006482 
006732 
0070%1 
007222. 
0075%2 
007930 
20585370 
007953 
20585365 
007933 
007933 
0083:2 
008433 
008633 
008683 
0086:3 
QO09084 
OO93ZtY 
009304 
009413 
009433 
009883 
0140033 
010132 
0403:3 
0104814 
040513 


CMM(2),08840] t= TF OPTNePERIO THEN 1 ELSE 
1F OPTN=SYNTA THEN 3 ELSE 43% (OPTNELIBRA) 
IF OPTN NEQ@ SYNTA THEN 
% SET UP PROG ARRAY FOR COMPILE AND GO OR COMPILE TO LIBRARY JOBS 

BEGIN 

PROG(OV%s CEQNLO]) 

PROGr1ilsi= CEQNE1I3 

PROGf21:=PROGL15]3:= 03 

PROGELO)]%=PROG([17]2s @3777777777773 

PROGC1B8Jis CMIXMAX41) DIV 23 

PROGI19J] t= O3 

PROGG20] t= “43 

PROG(C21)3s 54123 

PROGL2?PI]&8e 103 

PROGC23)]8= CMM(23)3 

PROG( 24] 8= USERID) 
FND? 


EXIT: RETURNVALs=sPROCVAL3 % ADJUST RESULT OF TYPED PROC 
PCECRETURNRCW) oSTS,0-eRDS Oe XCHeP&PCCTF IsSTF)$ 
END CCCOMPILE? 


20585750 
20585800 
20585850 
20585900 
20585950 
20586000 
20586050 
20586100 
290586150 
20586200 
20586250 
20586300 
20586350 
20586400 
20586450 
20586500 
20586550 


20586600 
20586625 
20586650 


20585720 
010533 
040833 
O112t! 
011330 
011330 
011342 
011530 
0116!:2 
011833 
012180 
01231 
0124t2 
012610 
012781 
012882 
013040 
013191 
20585950 
O13i%1 
013210 
013443 
20583860 
SIZEs 0137 WORDS 


444 4H HHH HHS 


PRT(657) «= 


STACK ¢F=#2) 

STACK¢ Fey) 

STACK(Fe1) 

STACK¢F 40) 

STACK ¢F 41) 

STACK (F 42) 

STACK(F 42) 

STACK (F 43) 

STACK ¢F43) 

STACK ¢F 44) 

STACKEF45) 

STACK ¢F 45) 

STACK¢F46) 

STACK¢CF +7) 

STACK¢F 410) 
STACK¢(F 411) 
STACK¢(F 412) 
STACK ¢F 413) 
STACK(F 414) 
STACK¢(F 415) 
STACK¢F 416) 
STACK(F 416) 
STACK¢(F 417) 
STACKC(F 420) 
STACK¢F 421) 
STACK ¢F 421) 
STACK¢(F 422) 
STACK( F422) 
STACK ¢F 423) 
STACK¢ F424) 
STACK ¢F 425) 
STACK (F426) 
STACK¢F427) 
STACK¢ F430) 
STACK (F431) 
STACK ¢F 432) 
STACK (F433) 
STACK (F434) 
STACK¢F 435) 
STACK ¢F 436) 
STACK(F 437) 
STACK¢(F +40) 
STACK ¢F441) 
STACK (F442) 
STACK (F443) 
STACK(F 444) 
STACK(F 445) 


STACK ¢F 446) 


REAL PROCEDURE INITIALIZEITS 


INITIALYZEIT 
BEGIN LARFL TRYAGATNs LSsSPLAT, SPOT oEXIT3 
DECLARECCVARTABLESS 

MSCW 

CARD 

MYMSCW 

RCW 

PROCVAL 

A 

T 

CADDR 

SFID 

CARDLOC 

CDEX 

SDEX 

CMPLR 

CN 

KOUNT 

LASTSCAN 

LIBNO 


RH Do 2-H AM BH OR 


PPCPROCESS 
SOURCE 
SPOUTUN]T 
ST 

Tt 

UN TNO 
USERID 
ACCUM 

CEQN 

CMM 

DIRECT 
PEQN 

PROG 

ADDR 

ABORT 

T0G 
RETURNMSCW 
RE TURNRCW 
RETURNVAL 


Ce ee ee | | | 


20586700 T 000030 
START OF REL SEGMENTS DISK ADDRESS = 00688 


20586715 T 0000180 
20586800 T 000030 


REAL CMM = RETURNVAL+13 % BEGIN LOCAL TO INITIALIZEIT 20586950 T 000030 


CMM4 
REAL SURROUTINE SCAN3 


20587050 T 000010 


SCAN+SCNCUNTTNO»CARDLOC » SOURCE sACCUMs KOUNToLASTSCAN®SDIRECT)3 20587100 T 000130 


PeRCW»MYMSCW,STE )3 


20887110 T 0004814 


RcWtsRCW & P¢eXCH) (CTC); 
PeO)3 &¥ ZERO LOCAL TO INITIALTZEIT 
PROGFI3I]%ePANDRSSPDEX?s0%3 % IN CASE PROGRAM NOT IN DIRECTORY 
TRYAGAIN! 
IF ¢Tt=NTRECTORYSEARCHCABSCCMM[O])*+CMMiteyF CMMrf0) LSS O THEN 
“DISK * ELSE CMMri1j*3))20 THEN 
BEGIN 
IF CMMEC2),SSYSJOBF = LIBMAINCODE THEN 
BEGIN 
FNTERSYSFILEC1)3 
GO TRYAGAIN} 
END? 


IF CARD.£9!91]=0 THEN GO TO LS3 
$ SET OMIT = NOTCHATACOM) 
BEGIN 
L83 LRMESSCABSCCMMIO0J])5CMM15"15e0p0eSPOUTUNI Ts LIBERR)$ 
SPLAT3 


END; 


NO TeSCAN UNTIL T>IDENT AND TSRESETV3 
TF UNITNO&31 THEN BEGIN INITIJALIZE1T#=73 GO EXITS ENDS 


INITJALIZEIT&=1% GO FXIT3 
END? 


Ip MrT INX 4),7°9%2]22 THEN 
BEGIN FORGETSPACECT)3 

GO TO SPOTS 
ENDS 


IF SFCURTTYCHECKCABSCCMM(O1)>» 

CMM1,USFRIDeTIs9 THEN 

BFGIN 
OPTN3203 CMMr?2j1eT3 
PCDIRECTORYSEFARCHCNABS(CMM[01])»CMM(>1]!20MM1013)eDEL)3 
INTTLALIZELT3s=43 
GQ TO EXI]Ts 

ENDS 


DISKIOCN1»=CPEQN JINX O91) 530>MET#109)3 
PcMrT INX 4),(919323)3 FORGETSPACECTIS&NOTE FOR BELOW 
CMMfO4]t= USERID: 

CMMf2S5]3e T.EFFV3 

SLEEPCENY ]»10MASK)3 

FOR Ti=4 STEP 1 UNTIL 4 pO 

IF CNOT ABSCPEQNETI&OLCTCI)) NEQ@ NOT O THEN Tie 73 
TF PrONe 3) GeQ O THEN # SKrP YF RESTART FILE 


IF ABSCPEQNE3]2>1023 THEN PCDELeT#093 & PRT>1023 NO WaAye202= 


$ SFT OMTT = NOTCBREAKOUT) 
$ SET OMIT = BREAKOUT 

TF PEQNF3),0121] THEN PCDELoT&t20)3% CAN®T RESTART3 
$ POP oMYTT 

IF PEQNE27,03°1) THEN % 1.P.Ce 


IFCPEQNE81>2) THEN PCDEL,T+O13 ¥ 1,P.C. * NEEDS PARAMETERS 


TF NOT ¢P OR JT) THEM *NOT CODE 


TF UNJTNO GEQ 32 THEN BEGIN INITYTALTZEIT#253GO EXYT END? 


20587120 
29587130 
29587150 
20587170 
20587200 
20587250 
20587300 
20587310 
20587330 
20587340 
20587350 
20587360 


20587370 
20587399 
20587500 
20587550 
20567650 
20587700 


20587750 


20587800 
20587850 


20587950 
20587975 


20588000 
20588010 
20588020 
20588030 


20586050 
20588100 
20588150 
20588200 
20588250 
20588350 
20588360 
20586370 


20588400 
20588450 
20588500 
20588550 
20588600 
20588650 
20588700 
20588701 
20588702 
20588710 
20588730 
20588740 
20588745 
20588746 
20588747 
20588750 


AAA HBA AHH SS 


+4 V44-4 


a4 - 


44 


44-44 


AAAs 


ANDO AA HOO AAA 4H 


000611 
0007Tt2 
000733 
001030 
007,080 
004220 
001533 
001611 
001733 
001831 
001920 
0021440 
20587330 
002180 
002233 
002213 
002213 
0027183 
002733 
29587700 
003001 
20587500 
0030!1 
003383 
20587850 
003631 
0037%2 
20587300 
0037%2 
004030 
004141 
004483 
20588010 
004423 
004233 
004481 
004483 
004633 
004933 
005042 
005130 
290588150 
005180 
0055%14 
005832 
005933 
0061%2 
006330 
006410 
006913 
007083 
007430 
007410 
007630 
0076!2 
007612 
007732 
00802 


BFGIN 
SPOT: LBMFSSCABSCCMME0})5CMM15—19»0s0eSPOUTUNIT»eLIBERR) 3 2149" 


PCOTRECTORYSEARCHCNARS(CCMM(01)4CMM$513)eDEL)3 
60 TO SPLAT3 
ENDS 


IF PEQNr61 LSS 0 THEN FOR T8215 STEP £1 UNTIL 22 90 
CMMPTJiePEONTT) ELSE 
REGIN 
CMMC151]!= 03 
CMM{16]33 CMMr17)%= @377777777777;3 
_—CMMPLBIFSCMTXMAX4+1) DIV 2s 
CMML19]3s= Of 
CMMC20)#= PFQNC7I.CFFI3 
CMMP21)i= 5193 
END} 


INJTIALYZPIT2=33 
FXIT! RETURNVAL?=PROCVAL) & ADJUST RESULT OF TYPED PROC 
PCCRETURNRCW)*STSe0*RDSsOsXCHePRPCCTFIsSTF)3 


END INITIALIZEITS 


20588600 
20588900 
20589000 
20589150 
20589200 


20589250 
20589300 
20589350 
20589400 
20589450 
20589460 
20589470 
20589480 
20589490 
20589500 


20589550 
20589600 
20589610 
20569650 


0081%1 
008133 
0086:3 
008833 
00894 
20588800 
008931 
009220 
009533 
00964 
009732 
009933 
010230 
010331 
010594 
0106382 
20589350 
010632 
0107814 
010880 
011033 
20586715 
S1ZEs 0113 WORDS 


a44 G4 


AAs 


a+4—- 


PRT(660) = 


STACK¢Fe#2) 

STACK¢F=1) 

STACK ¢Fel) 

STACK¢(F 40) 

STACK¢Fal) 

STACK ¢F 42) 

STACK ¢F 42) 

STACK ¢F 43) 

STACK CF 43) 

STACK¢(F 44) 

STACK¢F +45) 

STACKCF 45) 

STACK (CF 46) 

STACK ¢Fs7) 

STACKEF 410) 
STACK¢eFai1) 
STACK¢(F 412) 
STACK¢F413) 
STACK ¢F 414) 
STACK¢F 415) 
STACK (F416) 
STACK ¢F 416) 
STACK¢F 417) 
STACK¢(Fs20) 
STACK (F421) 
STACK CF 421) 
STACKe¢F 422) 
STACK (F422) 
STACKeF 423) 
STACK (F424) 
STACK ¢F 425) 
STACK ¢F 426) 
STACK¢F 427) 
STACK (F430) 
STACK¢(F 431) 
STACK (F432) 
STACK¢CF +33) 
STACK ¢F 434) 
STACK ¢F+35) 
STACK(F 436) 
STACK¢F 437) 
STACK¢F 440) 
STACK¢F 441) 
STACK¢(F 442) 
STACK ¢F 443) 
STACK¢F 444) 
STACK ¢CF445) 


REAL PROCFOURE CCUNITS3 


cCUNYST 


HM Sn 8 RMR BRM Oe ORR 


nH HRW ANH ARR HU eae RR HH aH RH Hh eH HN a Hh A 


BEGIN LARFL Ute RRORPEXITS 
DECLARECCVARTABLES3 

MSCW 

CARD 

MYMSCW 

RCw 

PROCVAL 

A 

T 

CANDR 

SFID 

CARDLOC 


KOUNT 

LASTSCAN 

LIBNO 

N4 

N2 

N3 

N4 

U 

OPTN 

OPTNN 

PADDR 

SFH 

PONFX 

SMrD 

PPCPROCESS 

SOURCE . 

SPOUTUNYT 

ST 

TY 

UNJTTNO 

USERIN 

ACCUM 

CEQN 

CMM 

NrRecT 

PEQN 

PROG 

ADDR 

ABORT 

TOG 

RETURNMSCwW 

Re TURNRCW 

RETURNVAL 
REAL SUBROUTINE SCAN; 


SCANe*SCNCUNT TNO»sCARDLOC » SOURCE , ACCUM» KOUNT eLASTSCANSDIRECT)3 20590000 


Pc RCWeMYMSCW,STF)3 


RcWteRCW & PeXCHIFCTc]3 
Tre SCANS CNi= ACCUMr0]3 


20589700 T 


START OF REL SEGMENTS DISK ADDRESS = 00692 


20589720 T 
20589800 T 


20589950 


20590010 
29590020 
20590050 


4~anaas 


0000:0 


0000:0 
0000:0 


0000:0 
000140 
000434 
0006%4 
0007%2 


TeSCAN3 


IF T#EQUAL THEN GO ERROR 


FOR Tt= 0 STEP 4 UNTIL 31 DO 
IF CN, (6%18)=TINUCT].¢39218)] THEN GO TO U13 
GO ERROR: 
Uit JF LL ABELTABLECT] NEQ @314 THEN BEGIN CCUNIT!=*63 GO EXIT END3 


CN:= SCAN) 


MULTYTABLE LT} +eROCTABLEL TI): 203 
LARELTABLE£TI]#= ACCUMrO]$ 
IF ¢CNt= SCAN) = SLASH THEN 

BEGIN MULTTTABLECTJ&£= LABELTABLELT]3 


END) 


IF CN# PERTO THEN 20 CNeSCAN UNTIL CNEPERIOSCCUNIT+O3G0 EXITS 
ERROR? cCUNTT¢«63 


CN*SCANS LABFLTABLELTJ+ACCUMLO]3 CNeSCAN} 


IF CN=COMMA THEN 

BEGIN IFCCNe+SCAN)#1DENT OR KOUNT>3 THEN GO ERROR} 
STREAMCReOTKOUNT ® ACCUM) 3 

BEGIN SIT*ACCUMSSIT«S1T414D0T*¢LOC RSDS*KOUNT OCT END? 


RNCTABLELTIJ*©PCXCHeRDCTABLErTII&PCXCHIFI4¢38110)33 
IF CCNe#SCAN)SCOMMA THEN 

BEGIN TFCCNeSCANJ41DENT OR KOUNT>5 THEN GO ERRORS 
STREAMCR+eO?KOUNTs ACCUM) 3 

BEGIN ST*ACCUMSS]eSI]41sDTeLOC RSDS*KOUNT OCT ENDS 


ROCTABLELTI]¢PCXCHeRDCTABLELTJ)&PCXCH)£ 24834817373 
IFCCNe¢SCAN)SCOMMA THEN 

BEGIN IFCCN*SCAN)#IDENT OR KOUNT>2 THEN GO ERROR} 
STREAMCReOEKOUNT® ACCUM) 3 

BEGIN SI*aACCUMSSI«SI+1301¢L0C RIDS*KOUNT OCT ENDS 


RNCTABLELTI*PCXCHeROCTABLELTII&PCXCHIL4IL84187)3 
END %CYCLE 


END ®CREATION DATE 


END3 %REEL NUMBER 


EXIT? RETURNVALEsPROCVALS & ADJUST RESULT OF TYPED PROC 
PeCRETURNRCW]eSTS,0eRDOS oOo XCHoPaPLCTE J eSTFIS 


END CCUNIT3 


20590100 
20590150 
20590200 
20590250 
20590300 


20590350 
20590400 
20590450 
20590500 
20590550 
20590600 
20590610 


20590650 
20590655 
20590660 
20590665 


20590668 
20590670 
20590675 
20590680 
20590685 


20590688 
20590690 
20590695 
20590700 
20590705 


20590710 
20590715 


20590720 
20590725 


20590730 
20590740 
20590750 
20590751 
20590800 


4~A4N HAHA ANH FT HHH 4H HS 


a a 


| 


001032 
004383 
00150 


001983 


002021 
20590300 
002380 
002412 
0026:3 
002881 
0030:0 
0032:0 
0036!%2 
20590550 
0036%2 
003731 
004143 
0043%2 
20590665 
004510 
004733 
005010 
005413 
005682 
20590685 
005830 
006083 
006340 
006733 
006912 
20590705 
007180 
007383 
20590695 
007333 
20590675 
007333 
20590655 
007333 
007980 
007933 
0080%2 
0083'4 
20589720 


S1ZEs 0084 WORDS 


PRT(¢661) = 


STACK ¢Fe2) 

STACK ¢Fe1) 

STACK¢Fe1) 

STACK¢F 40) 

STACK ¢F 41) 

STACK ¢F 42) 

STACKEF 42) 

STACK(F 43) 

STACK¢F 43) 

STACK ¢F 44) 

STACK (CF +5) 

STACKEF 45) 

STACK ¢F 46) 

STACK (OF 47) 

STACK ¢F 410) 
STACK ¢ F411) 
STACK¢Fe12) 
STACK ¢F 413) 
STACK ¢F 414) 
STACK¢F 415) 
STACK ¢F 416) 
STACK¢(F 416) 
STACK(F 417) 
STACK ¢F 420) 
STACK¢(F 421) 
STACK¢F 421) 
STACK (F422) 
STACK¢F422) 
STACK¢F 423) 
STACK¢F 424) 
STACK¢F 425) 
STACK¢(F 426) 
STACK¢F 427) 
STACK¢F 430) 
STACK¢(F 431) 
STACK ¢F 432) 
STACK(F 433) 
STACK ¢F 434) 
STACK¢F 435) 
STACK¢F 436) 
STACK ¢F 437) 
STACK¢F 440) 
STACK¢(Fs41) 
STACK ¢F 442) 
STACK(F 443) 
STACK(F 4&4) 
STACK (F445) 


REAL PROCEDURE CCSECMAINTS 


CCSECMAINT 


nu 8 HU A HAA Oe 


ce ee ee ee ee ee | 


BEGIN LABFL EXIT+CcCts 
DECLARECCVARTABLES3 

MSCW 

CARD 

MYMSCW 

RCW 

PROCVAL 

A 

T 

CADDR 

SFID 

CARDLOC 


KOUNT 
LASTSCAN 
LYBNO 

N41 

N? 

N3 

N4 

U 

OPTN 
OPTNN 
PADDR 

SFH 

PoeX 

SMID 
PPCPROCESS 
SOURCE 
SPOUTUNIT 
ST 


TY 

UNS TNO 

USERID 

ACCUM 

CEQN 

CMM 

DIRECT 

PEQN 

PROG 

ADDR 

ABORT 

106 

RETURNMSCW 

RETURNRCW 

RETURNVAL 
REAL SUBROUTINE SCANS 


START OF REL SEGME 


SCAN@SCNCUNTTNOSCARDLOC eSOURCE ACCUM, KOUNT »LASTSCANS DIRECT) S$ 


LABEL OPTNO,OPTNG sOPTN2 SECU sSEC2eSEC5 ST Le 


ST2,.LS3 


SWITCH SWEZOPTNO,OPTNy »OPTNOS 


20590850 T 
NTS DISK AD 
20590910 T 
20591000 T 


20591350 
20591400 
20591500 
20591550 
20591600 


444-44 


0000!0 
DRESS = 00695 


000010 
000080 


000080 
0001:0 
OO00alY 
OOO4tY 
0004814 


OPTNO? 


% INHIRYT 


OPTN13 


OPTN2$ 


SEC13 


ST? 3 


SEC at 


SECS! 


PcCRCWsMYMSCWoeSTF DE 

RCW8eRCW & PCXCH)(CTC)3 

GO TO SWrOPTNN]3 

USERTIDI= ABSCUSERID)3 

1F SCAN LSS IDENT THEN BEGIN CCSECMAINTS8263G0 EXIT END3 


SMID§= CMMCOJI= ACCUMPOI]S CNE=SCANS 
1F SCAN LSS JDENT THEN BEGIN CCSECMAINT3=63 GO EXIT ENDS 


SFIDts CMM(4]%= ACCUM(O13 CDEXt= 03 
IF (SFH8eDIRECTORYSEARCH(SMID*®SFID»4))#0 THEN GO TO LS} 
1F NOTCSYSTEMFILECCMM(ECDEX) »e CMMICDEX4+91)) OR 
CSMID EQV "PBD "JeNOT 0) AND (M{SFH+5)20 
AND MESFH*+2) NEQ@ 0) THEN 
USE ON PUBLIC» SECURE FILES 
REGIN CNteSCANS GO TO OPTN2 ENDS 


OPTNS203 CMM[2] 3% SFH3 
PCDIRECTORYSEARCH(NABS(CMMC0)) eCMML11014)eDEL)3 
STREAMCUSER[D» OteUSFERID>0,Bt=lCMM] eDteECN&=SPACE(10))3 
REGIN QCSyiebLOC USERINY SpteSl+isnoSteLIT ™ "s OSte 7CHRS D3 
NSte 17LIT " FNVALIN USER OF 3 Sye=Bs 
SpteSye1) pSt= 7CHR? DSteLyT "/"3 SpteSyets DSte TCHR} 
DSteL pT ters 
END STREAM! 


SPOUTERC CN&CARDS92929]+ SPOUTUNIT,» 1 23 +4 
FORGE TSPACECCMML2))3 

IF OPTN NeQ 0 THeN GO TO SEC53 

TF UNITNO GEQ 32 THEN BEGIN CCSECMAINT?&53G0 EXIT END} 


eo TO CCC} 

CMMCSJPsUSERIDI 

STt=z CDEX:= O03 

FOR OFTN#=0 STEP 4 UNTIL 1 DO 

REGIN CNteSCAN3 
IF TsOPEN AND CNSUNLOCKV AND OPTN*0 THEN 
BFGJN Ti=UNLOCKV: GO TO SEC! END 


ELSE JF CN LSS IDENT AND CN NEQ EQUAL THEN GO TO STq3 
CMMCOPTINJts IF CNSEQUAL THEN #1 ELSE ACCUMLO]) 
CNt=ScCAN3 

ENNS 


IF CNaWITH THEN BEGIN CNeSCAN3CMMC6JerTF CN2TDENT THEN acCuUMro) 


ELSE USERID} CN*SCAN END ELSE CMMP6JeUSERID 


1F CMMFO) GE@ 0 AND CMMC1} GE@ O THEN GO TO SEC23 
Nfte= CMMfFO]3 N2%e CMMrids N33 OF STte 43 
SEF KNAMCN{IsN2,N3,CMMLO] eCMM( 1] oTteP C0923 
1F N3 NEQ@ O THEN GO TO SEr23 
ST3= 03 GO TO SEC53 
TF CABSCUSERIDIEQV MCP) NeQ@ NOT O THEN 
IF SYSTEMFILECCMMICHEX J] *+CMMCCDEX4+1]) OR 
CCMMCO) FQV "PBD ")s NOT O THEN GO SECS53 
SECURTTYMAINTCTsSMIDsSFID, CMM» SFHs»SPOUTUNIT)S 
1F ST THEN GO TO STo3 


20591640 
20591620 
20591650 
20591700 
20591750 


20591800 
20591850 


20591900 
20591950 
20592000 
20592050 
20592100 
20592150 
20592200 


20592250 
20592300 
20592400 
20592450 
20592500 
20592550 
20592600 
20592650 


20592700 
20592725 
20592750 
20592800 


205928650 
20592900 
20592950 
20593000 
20593050 
20593060 
20593100 


20593150 
20593200 
20593250 
20593300 


20593310 
20593320 


290593350 
20593400 
20593450 
20593500 
20593550 
20593600 
20593650 
20593700 
20593750 
20593800 


440 44444 


ARAHAn HH HO Hs OC Ht 


444-4 


4-4 


ee eee 


OO04l4Y 
000614 
0007%2 
001030 
00141130 
20591750 
001484 
001732 
20591850 
002131 
0024380 
002683 
002813 
0032!?1 
0035t1 
0035t4 
20592200 
003930 
004130 
004334 
004712 
0049:2 
005211 
005353 
005434 
20592450 
005432 
005633 
005783 
005930 
20592600 
0061%2 
0062:0 
0063714 
006412 
00660 
006732 
007031 
20593100 
007210 
007510 
007813 
0060:2 
20593050 
0082!3 
008752 
20593310 
OO92I{ 
0095%1 
009833 
0103%1 
010432 
010543 
010611 
011033 
0113%2 
011533 


IF CNsCOMMA THEN GO SE@C13 
1F TSUSEV THEN 
HEADERUNLOCKCSMIDeSFIDeSFH) 3 
GO TO ¢CCC3 
LS: LBMFSS¢CMMF0)+CMME1)5*145s020+SPOUTUNIT*LIBERR) 3 
IF UNTTNO GEO 32 THEN BEGIN CCSECMAINT#s53 GO FXIT ENDS 


CCC! DO TeSCAN UNTYL T>1DENT AND TSRESETVS 
IF UNTTNO&31 THEN BEGIN CCSECMAINT#@73 GO FXITS ENDS 


CCSECMAINT!=i3 GO EXITS 
S143 1F TsUSEV THEN 
HEADERUNLOCKCSMIDsSFIDeSFH)3 
CCSECMAINT!=63 
eEXyT! RETURNVAL?=PROCVAL$ % ADJUST RESULT OF TYPED PROC 
PCCRETURNRCWI+STSs 0eRDSe OeXCHo PRPC CTE J eSTF)S 
END CCSFCMAINT? 


%149 


20593850 
20593900 
20593950 
20594000 
20594350 
20594400 


20594450 
20594500 


20594550 
20594600 
20594650 
20594700 
20594750 
20594751 
20594800 


011633 
01180 
0118623 
012140 
042340 
012850 
20594400 
0130%2 
013483 
20594500 
043794 
013832 
013981 
014182 
014231 
014310 
014513 
20590910 
SIZEs 0147 WORDS 


43-0 2AUWH Ht 


Se 


PRT(662) = 


STACK¢F #2) 

STACK¢F#1) 

STACK¢FeRd) 

STACK ¢F 40) 

STACK¢F 41) 

STACK ¢F 42) 

STACK(¢F 42) 

STACK(F 43) 

STACK¢F 43) 

STACK¢F44) 

STACK¢F 45) 

STACK ¢F 45) 

STACK¢F 46) 

STACK ¢F 47) 

STACK ¢F 410) 
STACK ¢ Felt) 
STACK(F 412) 
STACK ¢F 413) 
STACK¢F +14) 
STACK¢F 415) 
STACK¢(F +16) 
STACK(F 416) 
STACK(F4i17) 
STACK(F +20) 
STACK(CF +421) 
STACK¢(F 421) 
STACK¢(F 422) 
STACK¢F 422) 
STACK¢F 423) 
STACK¢F 424) 
STACK(F 425) 
STACK ¢F 426) 
STACK(F 427) 
STACK(F 430) 
STACK ¢F 431) 
STACK¢F 432) 
STACK¢F 433) 
STACK ¢ F434) 
STACK¢F 435) 
STACK¢CF 436) 
STACK¢F 437) 
STACK(F +40) 
STACK(F 441) 
STACK (F442) 
STACK¢F 443) 
STACK¢F 444) 
STACK¢(F 445) 


REAL PROCFNURE CCLABEL? 


CCLABEL 


BO -U HW HHH a Oa as 


ce ee ee ee || 


BEGIN LaBEl, EXITS 
DECLARECCVARI ABLES} 

MSCW 

CARD 

MYMSCW 

RCW 

PROCVAL 

A 

T 

CADDR 

SF ID 

CARDLOC 


KOUNT 

LASTSCAN 

LIBNO 

N14 

N2 

N3 

N4 

U 

OPTN 

OPTNN 

PADDR 

SFH 

PpoexX 

SMID 

PPCPROCESS 

SOURCE 

SPOUTUNTT 

ST 

T1 

UNTTNO 

USFRID 

ACCUM 

CEQN 

CMM 

DIRECT 

PEQN 

PROG 

ADDR 

ABORT 

T0G 

RE TURNMSCW 

RETURNRCW 

RETURNVAL 
PCRCWsMYMSCWeSTF)3 
RCwteRCw & PexcH) cTcy3 
CNix03 
UNI TCODECUNITNO=23]%e USERID? 
MULTETABLEFUNTTNOJ!I= Of 


20594850 T 0000:0 
START OF REL SEGMENT$ DISK ADDRESS ® 00700 
“20594870 T 000030 
20595000 T 000010 
20595080 T 000030 
20595090 T 000111 
20595150 T 000212 
20595200 T 0003%4 
20595250 T 000530 


$1013 
READERA,CFFISREADERAt#CARDLOC END 


ELSE YF UNIT TNO=#24 THEN REGIN CNYZREADERB, CFF JSREADERBS2CARDLOC END 


ELSE TF UNTTNO GE@ 32 THEN BEGIN CN%# CIDROWLUNJTNO"32),(385)3 
CIDROWLUNTTNO@32),C385)8s 03 
CIDROWFUNITNO#32),718815J)8% CARDLOCS 

MECARDLOC#4),0326)#*203MCCARDLOC™3]22UNT TNO 393 
END; 


IF CN THEN BEGIN LABELTARLECUNIFTNOIJ$= "CARD 00" OR 
CCTF UNTTNO GFO 32 THEN "C/" ELSE @5772) + UNITNO)3 
CCLABEL!s63 GO EXITS 
END; 


tF T = LARFV THEN BEGIN 
MULTITABLELCUNITNOJteM(CARDLOC4+11,(6342)3 
STREAM¢A2 2O,BteOreCteO0IDisCARDLOC+3)3 
REGIN NiteLOc AS STtaeDsNStwZ0CTs 
p5:s50¢T3 DSi290CT3 END3 


PCPCACHISPL2423131738PCXCHIE143 38340), 
CROCTABLECUNT TNO] )o¢)5% 
LABELTABLECUNITNOJt=M(CARDLOC+2].(6242]3 
END 


ELSF TF SCNCUNTTNOsCARDLOCs SOURCE sACCUMPKOUNT» LASTSCANS DIRECT) 
GEQ IMENT THEN LABELTABLF LUNI TNO]? 8 ACCUM(O) 
FLSE BEGIN TF UNTTNO GE@ 32 THEN 
CIDROWPUNITNO=32},018215) #203 
CCLABEL!=63 GO EXIT? 
FNDS 


CCLABEL% #6; 
RETURNVALt=PROCVAL’ & ADJUST RESULT OF TYPED PROC 
PCCRETURNRCWIoSTSeOeRDSe Oo XCHOPRPCCTE I eSTF D3 


END CCLABEL$ 


20595300 
20595350 


20595400 


20595450 
20595500 
20595550 
20595560 
20595600 


20595650 
20595700 
20595750 
20595800 


20595650 
20595900 
20595950 
20596000 
20596050 


29596100 
20596150 
20596200 
20596250 


20596300 
20596350 
20596400 
20596450 
20596500 
20596550 


20596600 
20596650 
20596651 
20596700 


oo ee Ree Ne oe ee I ee ee er ee 


4st 


000631 
000832 
20595350 
004193 
20595400 
0045382 
O0T9tt 
002281 
0027433 
003082 
20595450 
0030%2 
003210 
0035!2 
004080 
20595650 
0040180 
0041%1 
0045180 
O0a7h4 
004830 
20596000 
004833 
0050183 
005142 
00551 
20595850 
005541 
005733 
006084 
006234 
0065t4 
0066!2 
20596400 
006632 
O067I1 
006830 
007033 
20594870 


S!tZeE2= 0072 WORDS 


PRT(663) & 


STACK¢F #2) 

STACK¢ Fel) 

STACK¢F#1) 

STACK(F 40) 

STACK¢(F 41) 

STACK¢F42) 

STACK¢(F 42) 

STACK(F 43) 

STACK¢(F 43) 

STACK¢CF 44) 

STACK¢(F 45) 

STACK¢(F 45) 

STACK¢(F +46) 

STACK(F47) 

STACK¢CF 410) 
STACK¢(F 411) 
STACK¢(F 412) 
STACK(F413) 
STACK CF 414) 
STACK¢F 415) 
STACK ¢F 416) 
STACK (F416) 
STACK EF ai7) 
STACK ¢Fe20) 
STACK (F421) 
STACK(F421) 
STACK¢(F 422) 
STACKOF 422) 
STACKe¢F 423) 
STACK ¢ F424) 
STACK ¢F 425) 
STACK (F426) 
STACK ¢F 427) 
STACK¢F 430) 
STACK (F431) 
STACK(F 432) 
STACK¢(F 433) 
STACK ¢F 434) 
STACK¢F +35) 
STACK(F 436) 
STACK ¢F 437) 
STACK¢F 440) 
STACKCF 441) 
STACK ¢ F442) 
STACK¢F 443) 
STACK(F 444) 
STACK EF 445) 


BOOLEAN PROCFDURE CCFINDS 


cCFINN 
BEGIN LABEL FINDX8 
DECLARECCVARIABLES3 

MSCW 

CARD 

MYMSCW 

RCW 

PROCVAL 

A 


T 
CADDR 
SFID 


48 HR UU MH WN on RA 


KOUNT 


PPCPROCESS 
SOURCE 
SPOUTUNIT 
ST 

T4 

UNTTNO 
USERIN 
ACCUM 

CEQN 

CMM 

DIRECT 
PEON 

PROG 

ADOR 

ABORT 

TOG 

Re TURNMSCW 
RE TURNRCW 
RETURNVAL 


uahH WwHUuU HR Aah Hh Hee Rhee ah Rha ka en OH OK 


P(CRCWsMYMSCWeSTF)3 
RcowWr=Rcow & PCXCHIFCTc): 
1F TeENOFI THEN BEGIN P¢0)3 60 TO FINDX ENDS 


1F T=DATAV THEN BEGIN P¢1)3 GO TO FINDXS ENDS 


20596750 T 
START OF REL SEGMENTS DISK AD 
20596760 T 


20596800 T 


20596945 T 
20596947 T 
20596950 T 


20597000 T 


000030 
DRESS # 00703 


000020 
000010 


0000:0 
OO00181 
000232 
20596950 
000482 


IF TeLABEV THEN BEGIN PC1)% GO TO FINDX3 END3 


$ SET oMIT = NOTCDCSPO AND DATACOM ) 
FINDX? CCFINDt=P3 
RETURNVALS=PROCVAL’ ¥ ADJUST RESULT OF TYPED PROC 
POTRETURNRCWI)sSTSsP&RCWLCTCI]+O+RDSrOeXCH»e PRPECTFIeSTF)3 
END CCF IND3 


20597050 


20597100 
20597450 
20597459 
20597460 
20597500 


20597000 
612 


~ 


000 
20597050 
000832 
0008382 
0009180 
0009383 
0041310 
20596760 
S1ZE= 0014 WORDS 


AaAaHo 


STACK ¢(F #2) 
STACKEF #1) 
STACK¢F=1) 
STACK¢F 40) 
STACK eF 41) 
STACK(F 42) 
STACK (CF 42) 
STACKCF+3) 
STACK(F43) 
STACK¢F 44) 
STACK¢(F 45) 
STACK ¢F 45) 
STACK¢(F 46) 
STACK¢(F 47) 
STACK ¢ F410) 
STACKEF 411) 
STACK¢F 412) 
STACK¢F 413) 
STACK ¢F 414) 
STACK¢(F 415) 
STACK(CF 416) 
STACK¢F +16) 
STACK (F417) 
STACK¢CF+20) 
STACK¢(F 421) 
STACK (F421) 
STACK¢F 422) 
STACK¢F 422) 
STACK ¢F 423) 
STACK¢F 424) 
STACK¢(F 425) 
STACK¢( F426) 
STACK (F427) 
STACK ¢F430) 
STACK ¢F 431) 
STACK ¢F 432) 
STACK ¢F 433) 
STACK (F434) 
STACK ¢ F435) 
STACK ¢F +36) 
STACK¢(F +37) 


Boas 0 Be Ul 


HoHoR HH HHH ee HH Aa HH duh Ha uk nh ona a 


PROCENURE CONTROLCARDCCARD)3 


BEGIN 


LABFL CCeCCTYPFE,COMPILE >» INITIALIZATION» BEFORETRYNEXT»® TRYNEXT» 
CONTROLER sCONTROLA sCOMPILE JOB eCOMJOB EXEC sEXRUN®RUNG 
USERS»USESsSECBOMBpUNLOXs LOX» FREE Se OPENSP ENTE 
LCOPY »CHANGE »REMOVE ,UNITI,INCSCeENDF pENDECKsSAVEND,» 
LABEeFINISeZIPEXITsEX] Te SET» RSET® DOWNS 


VALUE CARD3 


LABFL COCeoPACKsPACK2*WAITsZIPLISTS 


SWITCH TYPEe UNLOX*+USESsLOXeFREESs OPENS sPACKe USERS» 
RUN» COMPILE CEXECeLCOPY*+LCOPY oe LCOPYsENTE sENTE eo REMOVE » 
CHANGESUNITIZENDFoWAITSLABE re LABEs SET» RSETS 
SWETCH SWe CCeoCCTYPE* INITIALIZATION» BEFORETRYNEXTs SECBOMBpENDECK> 
INCSCeZIPEXIT,EXIT»PACK23 
DEFINE ZIPMY]X=CARD.C18t6]#» 
NECLARECCVARTARLES3 


MSCW 
CARN 
MYMSCW 
RCW 
PROCVAL 
A 

T 

CADDR 
SFID 
CARDLOC 


KOUNT 
LASTSCAN 
LIBNO 

N14 

N2 

N3 

N4 

U 

OPTN 
OPTNN 
PADDR 
SFH 

Porx 
SM1D 
PPCPROCESS 
SOURCE 
SPOUTUNIT 
ST 

TI 
UNTTNO 
USERTD 
ACCUM 
CEQN 

CMM 
OIRECT 
PEQN 
PROG 


REAL CARDS 


PSOURCE®CARD,£2496)#3 


20597550 


START OF REL SEGMENTS DISK 


20597600 
20597650 
20597700 
20597750 
20597800 
20597850 
20597680 
20597900 
20597950 
20598000 
20599000 
20599100 
20600000 
20600010 


ee ne ee | 


000020 
DDRESS = 00704 
0000:0 
000030 
000010 
000030 
000010 
0000180 
000010 
000030 
0000!0 
000010 
000080 
000080 
0000!0 
000010 


] 


STACK¢CF +40) 
STACK¢(F +41) 
STACK¢(F +42) 
STACK ¢F 443) 
STACK¢F 444) 
STACK¢(F 445) 


ahnmaaun 


ADDR 
ARORT 
T0G 


Re TURNMSCW 


RETURNRCW 
RETURNVAL 


REAL, 


SURROUTINE SCANS 
SCANt2SCNCUNLTTNOSCARDLOC + SOURCE pACCUM,KOUNTSLASTSCANSDYRECT D3 


$ SET oMTT = NOTCPACKETS) 
SUBROUTINE LISTHECARD3 
IF LASTSCAN,£284) THEN 
IF SPOUTUNIT.CCF1 GE® 32 THEN 
IF T#PACKET THEN 


REGTN 


ZIPLISTs3 


LASTSCAN,F221):=03 ARORT!#CARDLOC3 
1F UNI TNOz31 THEN 

STRFAMCETEMEND, oon %e CARDLOC)3 

BEGIN STteCARDLOC3 DrteLOC Es Disapnlet3 

Lit IF Scs*® " THEN BEGIN SItsSI4+13 GO Lis ENDS 


TF SCe"e" THEN GO FINI3 
IF SCEALPHA THEN 
IF ScwME" THEN 


REGIN 
IF 3 SCeDC THEN 1F SCSALPHA THEN ELSE 
BFGIN 
CARDLOCt=SI13 DI&SCARDLOCS DSteLiTe"3 
GO FINI3 
ENDS 


SrieSt"33 pnlisD1=33 GO Lo3 
END ELSE % ALPHANUMERTC 


BEGIN 
L2t STs=Sl+43 1F SC#ALPHA THEN GO L23 
END ELSE & SPECTAL CHR 
SptsSyet3 
G0 Lis 
FIN]8 
ENDS 


STREAMCFEOS8=08 CARDLOCt=LABORT)]» PPCsaPPCPROCESS» 
ZZPtsUNITNO#340 DtenT1:=SPACE(10))3 
BEGIN SIseCARDLOCs S7teSt4+53 STtsSc3 
NStaLyTh>hs PPCEOSESALIT">")S ZZPCOSseaLyT">");3 
2c36ciF SC#%e”" THEN JUMP OUT 2 TO DUN: 
ZZPCIF SC=2"3" THEN BEGIN DStsCHR?} 
LUP3 If Sce” " THEN BEGIN SItsS]4+413 GO LUPS END? 


JUMP OUT 3 TO AGN’ ENND)3 


DS?ecHR))3 
AGN? TALLYte13 EOSt2TALLY3 
DUNS DStaLy Tres 
ZZPCDtsS18 StteLOc DS DIssCARDLOCS DStewdS)3 


20600020 
20600040 
20600099 
20600100 
20600140 
20600420 
20600430 
20600140 
20600150 
20600160 
20600170 
20600180 
20600490 


20600200 
20600210 
20600220 
20600230 
20600240 
20600250 
20600260 
20600270 
20600280 


20600290 
20600300 


20600310 
20600320 
20600330 


20600340 
20600350 
20600360 
20600370 


20600380 
20600390 
20600400 
20600410 
20600420 
20600425 
20600430 
20600435 


20600440 


20600445 
20600450 
20600455 
20600460 


AHHH HAWN 


| 


4-4 3-7 


~ 


aaa 


ee 


"| 


a4t4- 


000010 
000130 
O004t4y 
0004%4 
000530 
000533 
0007!2 
0008%3 
000941 
004133 
001292 
001410 
001483 
20600190 
0045183 
0016!2 
001710 
001712 
001782 
0018:3 
001843 
001933 
0020:0 
20600250 
002010 
002013 
20600230 
002170 
002130 
0022:0 
20600310 
0022!1 
0022%2 
0022:3 
0022:3 
20600160 
002330 
002330 
002434 
0027%2 
002831 
0031%2 
0033:1 
003432 
20600435 
003552 
20600430 
003633 
003732 
0038:0 
0038%2 


ENDS 20600465 T o0040t1 
20600410 
SPOUTERCNTS »SPOUTUNIT?64)3 20600470 T 004032 
tr P AND CUNY TNO#31) THE 20600480 T 004433 
GO ZIPLIST: 20600490 T 004233 
ABORT#=0$ 20600500 T 004312 
END LISTHECARD3 20600510 T O0044:4 
20600140 
$ POP oMIT 20600511 T 004610 
P6020205050202090,020)32 20600600 T 0046!0 
P(002020,020s090,00003% 20600650 T 0048:2 
P(Os00080p0r0r0r0s000)3% 20600700 T 0051430 
P(0s02000)3 20600750 T 005332 
% DO NOT ZERO THE LAST THREE LOCALS CRETURN@MSCWe RCWe & VAL) 20600755 T 0054:2 
Rowz=Rcw @ Pe, .CONTROLCARD,LOD) (CTC)3 20600760 T 005482 
UNYTNO t= CARD, (22613 20600850 T 0056:0 
IF CARND,£33215) = 0 THEN 20600900 rt 005731 
BFGIN CARN.£33%15) %# GETSPACE( 132000) 443 20600950 T 0058:2 
IF WATTIOCCARD 1NX ®40000000,@15,UN[TNO),£4583] NFO OF 20601000 T 006183 
THEN 20601050 T 006414 
BEGIN LABELTABLECUNITNO] t= @1443% 20601100 T 006432 
RRRMECH t= NOT TWO CUNITNO) AND RRRMECH3 20601150 T 006631 
FORGETSPACECCARD INX NOT 41)3% 20601200 T 006834 
KJLLCEMSCWI)3 20601250 T 006933 
ENDS 20601300 T O070%2 
20601100 
FNDS$ 20601350 T 007032 
20600950 
COMMENT GFT OWN STACK AND GET RyD OF |NVEPENDENT STACK32 20601400 T 0070:2 
COMMENT SET UP ACCUM ARRAY FOR SCAN3S% 20601450 T 007032 
ACCUMS sr Mr SPACE C10)3)81068138310I13% 20601500 T 0070:2 
ACCUM(O) t= 03% 20601550 T O0O74%4 
TF CCCTBLWORD  sPCCCTRLWORD,sDUPIRCP, CFF I+1)£CTF]),CFFI>4 THEN 20601600 T 007532 
RFGIN 20601620 T 0079:0 
IF CCTBLADORsO THEN SLEEPCECCTBLWORD)+@77777)3 20601640 T 007932 
DYRECT2=(MECCTBLWORDIIJ&CCTABLSZr 83 38810)3 20601660 T 008223 
END ELSE 20601680 T 008533 
20601620 
REGIN 20601700 T 008533 
DIRECTI=cCMETt=SPACE(CCTABLSZ)JI&CCTABLSZ/(8!38210)3 20601720 T 0089:0 
DISKWAITC@TsCCTABLSZ»MESSAGETABLF(3),(22826])3 20601740 T 009433 
CCTBLANDR&&T3 20601760 T 009733 
ENDS 20601780 T 0099:0 
20601700 
CMM t=CMCGETSPACE(C430,2,0)4+21183068338110})3% 20601850 T 0099:0 
PEQNS=¢31 [NX (CEQN%2(31 INXCPROGSE(31 INX CMM)))))9% 20601900 T 0410233 
% PLACE *," IN COL 73 3% 20601950 TY 010631 
CARDLOC t# CARD INX O}F 20602000 T 010631 
1F UNITNO#25 OR UNITNO®26 OR UNITNO#30 OR UNJTNO#34 THEN 20602080 T 010732 
SOURCFIaCARNLOC ELSE 20602100 T 011131 
MECSOURCE t=CARDLOC)+9] t= @32773200000000003 & .", 2B XTRA SAFE 20602150 T 011232 
TF UNTTNO GEQ 32 AND UNITCODELUN]TNO=23),7181) THEN 20602200 T 0115:2 
UNI TCODELUNITNOW23]teM([CARDLOC + 10)3 20602250 T 0118:0 
TF UNSTNOs25 OR UNTTNO&31 THEN USERIDS&MCP ELSES 20602300 T 012182 
BEGIN IF UNITNO#26 THEN UN? TNOS@=313% 20602350 T 012531 
USERID SSUNTTCODELCUNITNO@2393% 20602400 T 042930 
$ SET OMIT = NOT(DATACOM AND RJE ) 20602409 T 033032 


FND3% 


SPOUTUNTT32¢ 
& SFT OMTT = NOTCPACKETS) 
IF ZIPMIX#0 ANN PSEUDOMIXEZIPMIX] GE@ 32 THEN 
PSEUDOMIXEZIPMTX) ELSE 
IF UNTTNO GE®@ 32 THEN UNYTNO ELSE 
$ POP oMrT 
OIRCARDI9#92973 
$ SET oMrT = NOTCPACKETS) 
IF UNITNO GFQ 32 THEN 
IF PKTONLY THEN %124= 
IF PSEUDOCUNITNO#323s0 THEN 
PRINTTHECOVERCCARDLOC&CARDI9S989I SUNT TNOsPSOURCE)3 
LASTSCANSwOR1( 28478173 


$ POP OMyT 
COMMENT SCAN FOR CARD WITH QUFSTION MARK JN COL, 13% 
ccs IF SCAN NEG QUEST THEN GO TO INCSC33 
TrteSCAN} 
CCTYPES IF ¢cT LSS UNLOCKV) OR CT GTR RESETV) THEN 
GO TO INCSC3% 
PPCPROCESS1=s03% ¥173- 
PROCVAL?#0;3 ¥126« 


IF CARD.C9293 NEQ O THEN 
$ SET OMIT = NOTCDATACOM AND RJE ) 
TF CCFIND THEN GO TO INCSC} 
TF CT LE@ LOAD) AND ¢T GE@ RUNV) THEN 


BEGIN &% 
MECARDLOC = 2) t= O82” 
MECARNDLOC 74] %=103¢ 


CMMP6é)$= GETESPDYSK & 10£182338395]5% 
$ SET OMIT = NOTCDATACOM AND RYE ) 
DISKWATTCCARDLOC=2914»*CMM[6] INX 0)3 
ENN 


£ SET OMIT = NOTCPACKETS) 
LISTHFCARD: 
$ POP OMTT 
z WRITE OUT CONTROL CARD FOR LOGGING ROUTING? 
% BRANCH ON 1ST WORD ON CONTROL CARDS 


LIRNO&=03 

TOGt=s FALSE3 
IF UNITNO GE@ 32 THEN %#780# 
IF TsPACKET OR TaUSER THEN FLSE ¥780= 
IF CUSERIN.£C1!1] AND USERID # MCP) THEN %7809 
BEGIN USERID «+ "U000000"3 ¥7808 
UNI TCODELUNITNO#"23] « USERID 47808 
END; %780= 


60 TO TYPECT*UNLOCKY]3 
% cOMPYLFR caLL OUT CARDZ 
COMPILE! TF CCCOMPTLFE THEN GO INCSC3 
INTTIALTZATION? OPTNN3SINITIALIZEIT? GO DOWNS 
BEFORETRYNEXT3 TF OPTNSPERTO THEN GO TO CONTROLER? 
TRYNEXT! YF KOUNT#@44 THEN 
IF SOURCE =¢CARDLOC&1£30:24583)) THEN 
BEGIN 
PPCPROCESSi=13 TssSCANS GO CONTROLA? 


20602450 


20602460 
20602469 
20602470 
20602480 
20602490 
20602491 
20602500 
20602509 
20602510 
20602515 
20602520 
20602530 
20602540 
20602541 
20602550 
20602650 
20602700 
20602800 
29602850 
20602855 
20602860 
20602900 
20602909 
20602950 
20603000 
20603050 
20603100 
20603150 
20603200 
20603209 
29603250 
20603350 


20603359 
20603360 
20603361 
20603400 
20603450 
290603500 
20603550 
20603560 
20603565 
20603570 
20603575 
20603580 
20603590 


20603600 
20603700 
20603750 
20603900 
20604050 
20604100 
20604405 
20604110 
20604115 


AAHAHA HAHAHAHAHA OOF RAH AH NAHAS HHA Os 


QNNIN M0 AA BAA 


AA HHH 


013032 
20602350 
013082 
014130%2 
0130!%2 
0143332 
0135%2 
0137!%2 
043732 
013934 
013951 
014080 
OL4iti 
0143%1 
0144632 
014831 
014884 
O1a8't 
015030 
015182 
0145324 
01540 
015433 
015532 
015633 
015633 
0158:2 
016001 
016033 
016233 
046433 
016633 
016633 
016931 
20603050 
016981 
016931 
017080 
017010 
017050 
017020 


O17083 


0171°2 
0172%4 
017510 
017830 
017991 
018021 
20603575 
01810 
0194!2 
01494:2 
019583 
019980 
020034 
020140 
020331 
0203:3 


END3 
1F SCAN NEQ@ PERIO THEN GO TRYNEXTS 


CONTROLFRt PPCPROCESSt= 13 


CONTROLA? 


1F SCAN NEQ@ QUEST THEN GO TO INCSC} 

Tt= SCAN} 

1Fo¢T < FILEV OR T > COBOL) AND ACCUMEO) # CMPLR THEN 
1F T GE@ UNLOCKV AND T LEQ RESETV THEN 
GO TO FINIS ELSE GO To INCSC? 

1F CARD,£9%9] NEQ O THEN 


$ SFT OMIT = NOTCNATACOM AND RYE ) 


IF CCFIND THEN GO To JINCScC3 


$ SET OMIT = NOTCPACKETS) 


LISTHECARDS 


$ POP OMIT 


EF T GF@ alLGOl OR ACCUMLEOJACMPLR THEN 
IF OPTNeEXECU OR OP UNenUNY THEN 
GO TO TRYNEXT 
ELSE GO TO COMPYLEYOB3 
IF OPTN=SYNTA THEN GO TO TRYNEXT3 
TF OPTNSEXECU OR OPTNSRUNV THEN GO TO COMJOBS 


% CALL PPC FOR COMPILE AND GO JOBS 


1F PPCCPADDRsPEQNsPROG»PDEXs Te UNT TNO eCARDLOC » SOURCE #pACCUM. 
LASTSCANeDyRECT) THEN GO TO INCSC3 
GO TO CONTROLERS 


COMPILEJOB? TiaSCAN} 


cOMJOB: | 


F PPCCCADDRe CEQNs CMMs CNEX»o TsUNITNO,CARNLOCs SOURCE sACCUM, 
LASTSCAN»DYRECT) THEN GO TO INCSC3 


GO TO CONTROLER; 
COMMENT EXECUTE CARDS&% 
EXEC? PeEXECUDS 
EXRUN! OPTN3=sP3 
CMMC13]°sCADDRIE=CDEXi =03 


T? 
Tt 


=SCAN% CMMCO]$sACCUMCO]$ 
=SCANS TitxSCAns 


TF CCCMMPLI$eACCUM([OI]) EQV "DISK *") # NOT O THEN T te@ 0 


FL 


SE IF CCT t= CMM£0J]) EQV “LIBMAIN") = NOT O THEN 
IF UN,TTNO # 34 


$ SET OMIT = NOTCNATACOM AND Rye) 


THFN GO TO NCSC ELSE T %= LIBMAINCODE 


FLSF IF ¢T €QV "PRNPBT ") = NOT O THEN 


IF UNTTNO # 34 


$ SET OMIT = NOTCDATACOM AND RYE) 


THEN GO TO INCSC ELSE T t= PRNPBTCODE 


FLSE IF ¢T EQV "LOCNTRL®™) = NOT O THEN T 8 LDCNTRLCODE 
FLSF T ts OF 


cMMf2) 


CMMP23) 8 eORCARD( IPOS 9 IRC 
$ SET OMIT = NOTCPACKETS) 


TF ZIPMIX#O THEN PSEUDOMIXEZIPMIX] ELSE 


$ POP OMYT 


UNITNO)£234226)73 


G9 TO TNITIALIEZATIONS 
RUN: P*RUNV)§ 
GO TO EXRUN; 
USERS? FFCTISSCAN) #E QUAL THEN GO INCSC!} 
TE CTISESCAN)&PERIO THEN GO INCSC3 


*527@ 
x527@ 


ts 0 & CIF OPTNSRUNV THEN 5 ELSE 2)(6838810] & 765845133 


¥1336 
%133- 


20604120 


20604125 
20604150 
20604200 
20604250 
20604300 
20604350 
20604360 
20604400 
20604409 
20604450 
20604479 
20604480 
20604484 
20604500 
20604550 
20604600 
20604650 
20604700 
20604750 
20604800 
20604850 
20604900 
20604950 
20605000 
20605050 
20605100 
20605450 
20605250 
20605300 
20605320 
20605340 
20605360 
20605380 
20605400 
20605405 
20605410 
20605415 
20605430 
20605435 
20605440 
20605445 
20605460 
20605465 
20605470 
20605480 
20605500 
20605509 
20605510 
20605511 
20605520 
20605550 
20605600 
20605650 
20605700 
20605702 


~ 


OD DPAAAA RHA HH HAHAHAHAHAHA A A tA A ATA A HA AH HA TO 


020710 
20604110 
020730 
020910 
020933 
021230 
0213%2 
021632 
021833 
021923 
022130 
022110 
022213 
022233 
0224130 
0224:0 
022630 
0226%4 
022631 
022931 
0230%2 
0233:0 
023330 
023634 
0238:0 
0238t2 
024032 
0243'3 
02452 
024610 
0246:0 
024631 
0246:3 
0249:0 
025210 
025532 
025833 
0263!3% 
026410 
026430 
0265: 4 
0269!%2 
O270%4 
027034 
027132 
027634 
0279%3 
02865:0 
0286!3 
028633 
029030 
0290:0 
0291732 
029210 
0292814 
029233 
029512 


$ SFT 


& SET 


$ POP 


tr CUSERID.6I41] A 
OMIT = NOTCHATACOM 
THEN BEGIN 
USERIDSeACCUMLOY3 
OM1T = NOTCPACKETS) 
IF UNTTNO GE@® 32 THEN UNITCODELUN] TNO=23) 8sUSERID;3 


OMyT 


END3 


ND 
A 


CCCt &COME HERE TO FILUSH TO NFXT INITIAL WORD 
$ SET OMIT = NOTCPACKETS) 
nO TtsScaNn UNTIL TxQuEST3Ts=ScAaNn3 


$ POP 


OMIT 


$ SFT OMIT = PACKETS 
nO TO CCTYPFS 
USES? OPTNN?303 


SECROMBs: 


UNLOX8 
LOX: 

FREES: 
OPENS! 


ENTERS 
LCOPY3 
CHANGE! 
REMOVES 


pOwWN: 


OPTNNs=?3 


OPTNNisCcL]I 
60 SWrOPTNN 


SET? TOgts= TRUE3 
RSet! ye cCcSFT THEN GO CC FLSF GO INCSC} 


UN TTy8 
INCSC? 


$ SFT 


$ POP 


OPTNNISCCUNTT3 


OPTNNS=CCSFECMAINT#? GO DOWN? 
OPTNN¢ mt} OPTNNi CCSECMAINTS GO DOWNS 


OPTNNS=CCSECMAINTS GO DOWN? 


B} 
}; 


1F PPCPROCESS THEN 


PCDOIRECTORYSEARCHC*™CMMr0),51F CMMLO) LSS O THEN *"OTSK 


GO DOWN; 


CMMrijs>s 13)5DEL)3 


OMIT = NOTCPACKETS) 
LUSTHECARD3 


OMIT 


1F UNTTNO232 THEN CIDROWCUNTTNO="32).7385)%=0 ELSES 


1 UNTTNO=23 THEN READERA. CFF Ii=0 ELSES 
tF UNITNOs24 THEN READERB. CFF IIs03% 


LASTSCAN 


STREAMCCARDLOC>» 


REGIN 


ta (3 


UtSTINUCUNTTNOJ*® ACCUM» 


NSste20LIT*#CONTROL, CARD ERROR *3 
SyeelLOc US SlteS14+5s OSse3 CHR} 


ZZPCNT8eD1"223 DSse24LIT*ZIP ERROR» 
STtelLOc MIX DSts2 HECS OSsaLi Ts} 


Desnrs DTispi™3> 


DStedLyT" AT M3 
ST@sACCUMS SIE tseSla13 
7CUF Sce™ © THEN Sts2Ste1 ELSE pSt2CHR)3 


CROCDOSteL I TM8"s SpteCARDLOCS 2¢083e36 CHR) )3 


DStalLIT*e"3 


FNNDS 


NStsFILLs DI tep)? 


MIX&teZIPMI Xe 
ZZPESUNTTNOZ314>5 CROP SSPOUTUNIT, LCF ]20- 
Nt=TreSPACE(15) 93 


IGNORED» 


" ELSE 
%173- 
%173= 
Z173= 
MIX="3 


20605750 
20605759 
20605800 
20605810 
20605819 
20605820 
20605821 
290605830 


20605870 
20605879 
20605880 
20605881 
20605899 
20606000 
20606050 
20606100 
20606150 
20606200 
20606250 
20606300 
20606350 
20606400 
20606450 
20606500 
20606550 
20606600 
29606610 
20606650 
20606700 
20606800 
20606850 
20606860 
20606865 
20606870 
20606874 
20606875 
20606876 
20606900 
206069140 
20606920 
20607000 
20607020 
20607040 
20607060 
20607080 
20607100 
20607120 
206071340 
20607160 
20607180 
20607200 
20607220 
20607240 
20607260 
20607280 
20607300 


+ AAA Ae 


AA HAHAHAHA TAHA HOON AAT BRA HAA St tH AH A A st 


0298:2 
029933 
0299383 
030142 
030232 
0302%2 
030532 
0305t2 
20605800 
030582 
030532 
030532 
0310:2 
031082 
031082 
0341!0 
031344 
0315%2 
0315%2 
0315'2 
034512 
0315%2 
0314713 
031713 
03186:0 
031870 
0318:0 
031930 
0325:0 
032583 
032751 
0328:3 
032833 
0329%0 
0332:3 
033430 
033430 
033510 
033570 
033931 
0343:2 
0346!2 
034721 
0349%2 
0351%2 
0354:0 
035430 
0356t3 
035712 
03612 
036232 
036383 
036412 
036510 
0366!3 
036910 
0369!2 


tF UNTTNO#25 THEN 
REGIN 
SPOUTERCT&CARNI98 939) ,SPOUTUNT T5193 
IF UN; TNOsS30 OR UNITNO&3] THEN GO ZIPEX]T3 
JTF UNTTNO GEQ® 32 THEN GO ENDECK3 
FND ELSE 


BEGIN PCWAITIOCT»+0»25)eDEL)3 
FORGETSPACE(T)3 
$ SET OMIT = PACKETS 
$ SET OMIT = NOTCPACKETS) 
FFTCHCUNTTNO,CARDLOC» SOURCE )3 
IF SCAN NEO QUEST THEN GO TO yNCSc3 
TtsSCANs 
IF PPCPROCESS THEN GO TO CONTROLAS 
IF CT2PACKET) AND ¢TSRESETV) AND cT#RUNV) THEN 
GO TO CCTYPEs GO To 1INCSC3 
® POP omrT 
ENDS 


$ SET OMYT = NOTCPACKETS) 
ENDECKS 
IF ZIPMIX NFQ O THEN 
tF CT&sPSEFUDOMIXEZIPMIXI]) gE® 32 THEN 
PACKETFRRET#32}%sYRUES 

IF UNYTNO GEQ 32 THEN 
BEGIN ABORT#alTRUE3 
PACKETERRFUNTTNO=32) 3 eTRUES 
GO TO PACK?3 
END3 


$ POP OMTT 
no no 
FETCHC*UNITNOeCARNLOC» SOURCE) 
UNTIL SCAN=QUEST 
UNTIL SCANSENDFTI3 
ENpDF 33 
$ SET OMIT = NOTCPACKETS) 
1F UNTTNO LSS 32 THEN 
$ POP OMIT 
1F UNTTNGO NeQ@ 30 THEN UNIT TCODECUNITNO#23) 8520; 
IF UNTTNO&?23 THEN REANFRAS&O ELSE 
IF UNTTNO#24 THEN READERB?220 ELSE 
IF UNITNO GEQ 25 THEN 
1F UNTTNO GEG 32 THEN 
PACK2%3 ZPACKET CARDS END HERE FROM PSEUDO@READERS 
TF CINTABLECUNITNO#=3253)] LSS CIDTABLECUNITNO@3207] THEN 
BEGIN FETCHC*UNTTNO®CARDLOC se SOURCE D3 
$ SET oMrT = NOTCPACKETS) 
IF ABORT THEN 
BEGIN 
IF CTtsScAN)#QUEST THEN 
IF (TteScAn) = ENDFI THEN 
ABORTssF aLSE3 
GO TO PAcK>3 
END ELSE Trs0}3 


2527 


Z147¢ 
%147= 
%147« 


%1298 
%129¢ 


29607500 
20607550 
20607600 
20607700 
20607750 
20607600 


20608000 
20608050 
20608059 
20608069 
20608070 
20608072 
20608074 
20608076 
20608078 
20608080 
20608084 
20608100 


20608109 
20606110 
20608112 
206081144 
20608116 
20608120 
20608130 
20608140 
20608342 
20608144 


20608146 
20608150 
20608200 
20608250 
20608300 
20608450 
20608459 
20608460 
20608461 
20608500 
20608510 
20608520 
20608550 
20608600 
20608610 
20606650 
206086700 
20606709 
206087410 
29608720 
20608730 
20608740 
20608750 
29608760 
20608770 


AHA BTHAAH WMH Ht tt 


AAHAHOO OAS 


AVHVAH AHHH RHA HAHA 


20607080 
036933 
037032 
0371:0 
O373%1 
037583 
0377150 

20607550 
0377:0 
037930 
037933 
037933 
037933 
0384:0 
0383:0 
0386432 
0385'2 
0386'4 
038932 
038982 

20606000 
0389:2 
0389:2 
038932 
039083 
039384 
039683 
039712 
039813 
040133 
040214 

2060861 30 
0402314 
O402:1 
040211 
O403t4 
O405%4 
0408380 
040810 
040810 
040833 
040833 
041232 
044432 
0417130 
041834 
041972 
042040 
042314 
042534 
042e5t1 
04252 
0426!0 
042810 
043180 
043231 
0432:%3 


LASTSCAN?#08172247117]3 
PACKFTERRCUNITNOS32)8=FALSE3 
$ POP OMrT 
ao cC3 
END FLSF 


REGIN 
$ SET OMTT = NOTCPACKETS) 
LABFLTARLEPFUN TNO] 8s @1443 
IF PACKETACTLUN]TNO#=32)80 THEN 
$ POP OMIT 
$ SET OMIT = PACKFTS 


FNDOFDECKCCUNTTNO"32) »SPOUTUNIT&CARD(1#1:°1))3 


GO 7IPEXITs 
END FLSF 


GO Z1PEXIT: 


IFCTWOCUNTTNO) AND SAVEWORD) NED O THEN GO TO SAVENDS 


IF WALTTIOCCARDLOC&400(18#33%15),015,UNITNO).£4583] NFO O THEN 


BEGIN 
SAVEND! LARELTABLETUNJTNOJ&s @1443 


RRRMECHts NOT CNT1it= TWOCUNTTNO)) AND RRRMECH OR 


NT1 AND SAVEWORD3 
GO TO ZyPEXTTS 
ENDS 


MecSOURCE#s CARDLOC)4+9Jt= Og e184 ai5y3 
USERIDis UNI TCODELCUNITNO=23)3 
GO TO Cc} 
PACKS IF UNITNO<32 THEN GO INCSC3 
S$ SET oMtT = NOTCPACKETS) 
TF PSFUDOLUNTTNO=32) = O THEN 
PRINTTHECOVERCCARDLOC»® UNI TNOsPSOURCE)3 
IF PSOURCE = 3 THEN USERIN «USERID &15124781)3 


$ POP oMrTT 

GO PACcK23 
LABE’S OPTNNt=CCLABEL? GO DOWN; 
WATTS 


$ SET OMYT = NOTCPACKETS) 
If UNTTNO€32 THEN GO TO CCCs 
IF PACKETACTPFUNITNO=32)20 THEN GO TO CCC3 
LABELTABLEfTUNITNOJ]'s@9443 GO TO ZIPEX]IT3 
$ POP OMIT 
FINTS#3 CCFINISHS 
$ SET OMYT = NOTCPACKETS) 


IF cNT¢e¢3F ZTPMyX#0 THEN PSFUDOMIXCZIPMyX) ELSE UNETNO) 
GEQ@ 32 THEN PACKETACTENTI"32)9=PACKETACTENTI@32) 413 


$ POP oMIT 
SELECTIONS 
IF UNITNO NE@ 314 THEN 
BEGIN 
£ SET oM1T = PACKETS 
GO CCTYPE3 
END} 


ZIPEXITs FORGETSPACECCARDLOC#2)3 
FXIT#S 


%124= 
%124= 
*124= 
¥782= 
¥124" 


20608780 
20608790 
20606801 
20608810 
20608820 


20608830 
20608839 
20608840 
20608850 
20606851 
20608859 
20608870 
20608880 
20608890 


20608900 
20608950 
20609000 
20609080 
20609100 
20609150 
20609200 
20609250 
20609300 


20609350 
20609400 
20609410 
20609420 
20609425 
20609430 
20609435 
20609436 
20609440 
20609450 
20609500 
20609555 
20609559 
20609560 
20609570 
20609580 
20609581 
20609600 
20609659 
20609660 
20609670 
20609671 
20609700 
20609750 
20609760 
20609799 
20610400 
20610150 


20610200 
20610250 


Se 


AHA a4 


Se ee ee ee ee 


AA AHHH AAA ARAN ONIN INH 


44 


20608720 
0434130 
043513 
0438:3 
0438:3 
0441:0 

20608700 
044110 
0441432 
044432 
044233 
044413 
044433 
0444:3 
044783 
0446314 

20608830 
044831 
O44Bts 
045082 
0453:0 
045333 
0455730 
0457:0 
04582 
045930 

20609050 
045930 
046232 
046430 
0466!0 
046731 
0467%1 
0468:3 
0474110 
O474!2 
047432 
0475+0 
0476:2 
047632 
0476!2 
047831 
0480?3 
0482+2 
0482:2 
048332 
048332 
048633 
04934 
049381 
049432 
049534 
049533 
049533 
0a98:0 

20609760 
049830 
O499s 4 


$ SET OMTT = NOTCPACKETS) 
TF ZYPMIX NFO O THEN NYLONZJPPERCZIPMIX].(2t1]3313 
& POP omyT . 
FORGETSPACFECACCUM INX 0)3% 
FORGETSPACECCMM INX 023% 
TF CCCTBLWORD =P CCCTRLWORD, DUP &CP.CFFI@1CCTFIDEFFIEO THEN 
BEGIN 
FORGETSPACECCCTBLADDR)3 
CCTBLADDR?=03 
END3 


IF UNTTNO GEQ@ 32 AND UNITNO LE@ 63 THEN 
PSFUNOCOPY!S= PSEUNOCOPY = 43 
KiTLLCOMSCW)); 
END CONTROLCARD; 


20610259 
20610260 
20610261 
20610300 
20610350 
20610400 
20610410 
20610420 
20640430 
20610440 


20610500 
20610550 
20610600 
20610650 


0499%4 
O499t 
050413 
050413 
050611 
050723 
O511%1 
051133 
051310 
051431 
20610410 
051434 
051630 
051733 
051812 
20597600 
STZE= 0519 WORDS 


AAs HG 


4444 


N LOK+1, 20703000 T 000080 


STACK(F450) = N 


@ 
REAL PROCFENURE CCSFT? 20700000 T 000010 q 
START OF REL SFGMENTS DISK ADDRESS # 00722 
BEGIN LaRFl, MORE sSFEK»SKIP,CCFRReLI1,L23 20701000 Tt 0000:0 
: DECLARE CCVARTABLESS 20701500 T 0000:0 @ 
STACK¢Fe2) 3 MSCW 
STACKeFa=1) 3 CARD 
STACK¢Fe1) = MYMSCW @ 
STACK(F40) = RCW 
STACK(F41) = PROCVAL 
STACK(F42) = A @ 
STACK¢F42) = T 
STACK(F 43) = CADNR 
STACK¢F 43) = SFID @ 
STACK¢F44) = CARDLOC 
STACK(F45) = CDFX 
STACK¢F 45) = SDEX e 
STACK¢F46) = CMPLR 
STACK¢F47) a CN 
STACK¢F 410) = KOUNT 
STACK¢F411) = LASTSCAN 
STACK¢F412) © LIBNO 
STACK¢F 413) = Ni 
STACK¢F414) = N2 
STACK¢F 415) = N3 
STACK(CF416) = NG e 
STACK¢F 416) = U 
STACK¢@F417) = OPTN 
STACK¢F 420) = OPTNN @ 
STACK (F421) = PADDR 
STACK¢F421) = SFH 
STACK¢CF 422) = PDFX ol 
STACK¢F 422) = SMID 
STACK(F 423) = PPCPROCESS 
STACK(F 424) = SOURCE e 
STACK¢F 425) = SPOUTUNIT 
STACK¢CFs26) = ST 
STACK(F427) = Tt 6 
STACK¢F 430) = UNTTNO 
STACK¢Fs431) = USERID 
STACK¢F432) = ACCUM e 
STACK¢F433) = CEQN 
STACK(F434) = CMM 
STACK¢F 435) = DIRECT  ©@ 
STACK(F436) = PFQN 
STACK¢F 437) = PROG 
STACKEF 440) = ADDR e 
STACK(F 441) = ABORT 
STACK(F 442) = T06 
STACK (F443) = RETURNMSCW 
STACK¢F444) = RETURNRCW 
STACK(F 445) = RETURNVAL 
REAL FXTOG = RETURNVAL+1, % BEGIN LOCALS OF CCSET 20702000 T 000010 @ 
STACK¢Fed6) = FXTOG 
LOK = FXTOG+1> 20702100 T 000010 
STACK¢F 447) = LOK e 
@ 
@ 


STACK¢F 451) = SE 
STACK¢F 450) = FT 


SENSETOG = N4+43 
NSFTOG 
BOOLEAN FT&N3 DEFINE FHCFH1)=M(T4+FHYJ43 & RESET FILE A/B 


SUBROUT? NE CLEARTHEF TLE3 

REGIN 
FHr4),6901!06)403 
FHE4},01641201403 
FHr93,£01%28)403 


% CLEAR AN IN*USE FILE 


% EXCLUSIVE 

% OPEN COUNT 2 

*¥ TOGS & OPEN COUNT 1 
DISKWAITCT, CCF J+305T CFF I)S3 & FIX IT 
FILEHOLOCCMME2)+CMM[L3)50,T,0)3 2 WAKE UP WAITING PROCESSES 
LBMESSCCMM? 2) 5CMM( 3) 541526, 0»+SPOUTUNIT,1)3 

END CLEARTHEF ILE: 


REAL SURROUTINE SCAN? 
SCANeSCNCUNTTNOSCARDLOC »SOURCE, ACCUM, KOUNT»LASTSCANS DIRECT) 
PeRCW.MYMSCW,STF)S 
RowtsRCW & POXCHIECTC 
P¢00.0,0)3 %& ZERO LOCALS OF CCSET 
CCSET+¢03 
TF NOT CFXTOGES(CNI=SCANDZFIXED) THEN 
IF NOT C(CSENSETOG?=(CNeSENSE)) THEN 
IF CN¥ACCESSD THEN 

TF NOT CFTeFXTOGeCCNSFYLEV)) THEN GO TO CCERR} 

MORE $ 
TF CONt& SCAN =sfFQUAL THEN CMM(O}%ee] FLSE 
TF CN GEQ YDENT THEN CMMrOy% sACCUMI[0N) ELSE GO CCERR? 
TF SCAN NEQ SLASH THEN GO TO CCERR? 

IF CCNt=SCAN)JSEOUAL THEN CMMC 4) !e"1 ELSE 
IF CN GFO IDENT THEN CMMriy!sACCUMLO) ELSE 
GO To CCERR; 
CNesTis03 
SFEK! 
IF ¢ccCMMrO] OR CMME1)) LSS O THEN 
SEFKNAMCCMM[LO) +CMMCLIsCNsCMML2]sCMM[ 3] eNeP(0)) ELSE 
BEAIN CNt#i3 CMMC2)8=CMMfO)3 CMMC3)42CMME1) ENDS 


IF CN NEQ O THEN 

BEGIN 
TF NOT FXTOG THEN Ye SYSTEMFILECCMM[2)*+CMME3)) THEN 
REGIN Teas GO TO Lis END 


TIENIRECTORYSEARCHCCMME2],CMML3]519)3 
ENN FLSE IF NeO THEN BEGIN CMMP2)$=CMML0]3 CMME3)#2CMME1)3 GO 


END 


FLSE 60 L23 
SKYyP! 
If T GeO 64 THEN 
BFGIN 
TF MrpT441,(43%2)83 THEN 
BEGIN FORGETSPACF(T)3 Te13 GO SKIPS ENDS 


IF CUSERID FOV MCP9e8 NOT 0 OR 
CUSERIN EQV ABSCMET+2]))= NOT O OR 
(NOT SENSETOG AND (MET42)20)) THEN 


%815° 


8150 
815 
%815° 
£845" 
#815" 
¥815« 
¥815° 
%815" 
%815 


2510" 


¥815= 
yB15= 


4521 


Lis 


x521= 


20704000 
20704100 


20704200 
20704210 
20704220 
20704230 
20704240 
20704250 
20704260 
20704270 
20704280 


20705000 
20706000 
20707000 
20708000 
20709000 
20711100 
20712000 
20713000 
20714000 
20714500 
20715000 
20716000 
20717000 
207168000 
20719000 
20720000 
20721000 
20722000 
20723000 
20724000 
20725000 
20726000 


20727000 
20728000 
20729000 
20730000 


20731000 
20732000 


20733000 


20734000 
20735000 
20736000 
20737000 
20736000 
20739000 


20740000 
20741000 
20742000 


PO NNONAAINAD 


AAA HHH AAA BVO ste 


~-4 a 


Vaasa 


41-44 


000030 
0000!0 


000080 
000150 
000410 
0004°4 
0007%2 
001033 
001330 
001632 
0019%1 
20704210 
0019%2 
002030 
002334 
00254 
002632 
0027%2 
002831 
0030383 
003283 
0034:0 
003633 
003683 
004130 
004434 
004630 
005010 
0053%4 
0053%1 
0054!2 
005412 
005631 
006191 
20726000 
006532 
0066!1 
006633 
006931 
20730000 
007110 
007331 
20728000 
007882 
20732000 
007812 
0078!%2 
007832 
007934 
007933 
008231 
20739000 
008433 
008730 
009081 


& SET 


& POP 
& SET 


$ SFT 


$ POP 


$ SFT 


BF GIN 
LOK 3s03 
IF FXTOG 
THEN MET+4),74o34)8eT0G 
FLSeE IF SENSETOG 
THEN JF LOKtsccMeET4+4],£4382]24) AND NOT TOG) 
THEN MeT44),043%2)220 
FLSE IF MCT+#4),(43%2)]=1 
THEN ELSE MCT+4), (C4322) 2=T0Gx2 
ELSE BEGIN 
MET+#4] C4131) 2eT0Gs 


IF TOG THEN & %503- 
BEGIN % *£503= 
STREAMC(DATEeJta5)3 


BrGIN SrtsLOc DATES DSs#8OCTS END} 


MET4#3]7,012%18]3 2 JUNK? 
ENDS & ¥5038 


ENDS 


DISKWAITCT CCF] s*30>T FF IDS 
OMIT = SHARFDISK 
UNLOCKNIRECTORYS 


OMTT 
OMTT = PACKETS 
IF LOK THEN PCOTRECTORYSEARCH(C™CMME2]5CMM(3]26)0DEL) 
FLSE LEMFSSCCMME2)°¢CMMC3),IF TOG THEN 12 ELSE 11> 
13+(SENSETOGX47)*©CEXT0GX3) »OeSPOUTUNIT»RSTOG) 


FND ELSE IF FT THEN CLEARTHEFILE ELSE BEGIN £815" 
OMIT = SHARE OISK 4521 
UNLOCKDIRECTORY$ "5218 
OMIT K521= 
LEME SSCCMM62)9CMM(C335%C114T0G) 241» 0,SPOUTUNITs1)3 ¥521" 
END? "521° 
FORGETSPACECT)3 "521° 

END 
ELSE BEGIN Z521° 
OMrT = SHARFOISK Z521¢ 
UNLOCKDIRECTORYS "521" 
OMYT £5219" 
LBMESSCOMME 23 eCMM(330%C114T0G)01594((T819xX3004C(CTS29K10)5 

Or SPOUTUNIT, 1 D3 % 

ENDS 2521" 


IF CN NE@ O AND CCMMCOJ OR CMME1]) LSS O THEN GO SEEK} 
L2: 1F CCNt2SCAN)=COMMA THEN GO MORES 
IF CN®PERIO THEN CCSET#IF13 


20743000 
20744000 


20745000 
20746000 
20747000 
20748000 
20749000 
20750000 
20751000 
20752000 
20753000 
20753800 
20753900 
20754000 
20755000 


20756000 
20756100 


20757000 


20758000 
20759000 
20760000 


20761000 
20762000 
20765000 
20766000 
20767000 
20769000 


20769100 
20769200 


20769300 
20769400 
20769500 


20769600 
20770000 


20771000 
20771010 
20771020 


20771030 
20771100 
20772000 
20772050 


20779000 
20780000 
20781000 


AHO OHH A AA HS 


O° Ov Vanaas 


Qo 


ano v a0 


ovasaa 


41-44 


009311 
009333 
0094i2 
0094%2 
009730 
0099:0 
010231 
010584 
010933 
0113%1 
011582 
0118:3 
0119380 
01419%2 
012032 
20755000 
012141 
012412 
20753900 
012432 
20752000 
012482 
0127120 
0127130 
20760000 
20760000 
013082 
0130%2 
0130382 
013332 
013830 
014033 
20743000 
014412 
014432 
20769200 
20769200 
014830 
0144810 
0151%2 
20769000 
015142 
015231 
20737000 
015231 
015410 
015430 
20771020 
20771020 
015732 
045782 
016233 
016480 
20771000 
016410 
016782 
017012 


CCERRE 


RETURNVAL? *PROCVAL; 


% ADJUST RFSULT OF TYPED PROC 


PCTRETURNRCWI]6STS*0sRNSoOsXCHsPRPCICTFISSTF)3 
END CCST} 


20782000 Tt 017282 
20763000 T 017381 
20784000 T 017680 
20701000 
S1ZE# 0178 WORDS 


PRT(664) = 


STACK ¢F40) 
STACK¢(F41) 
STACK ¢F 42) 
STACK ¢(F43) 


STACK¢(Fe#2) 


STACK(F 44) 


& SET OMYT = NOTCDATACOM 9) 
REAL SFCONNCTRS 


SFCONNCTR 


& SET OMIT = NOTCSHAREDISK) 
PROCEDURE NSECOND3% 


20999999 
22000000 


22000499 
22001000 


START OF REL SEGMENTS DISK 


REFGIN REAL RCWHtO, PeRCW+t1, Xeleisn Jaxed3 


= RCW 

= | 

= X 

=z J 

a MSCW 

az A 
& SET OMyT 
& SET omyT 
$ SFT OMIT 
£ SFT omyT 
& SET OMET 
£ SFT OMIT 
£ POP oMIT 


REAL MSCW="23 
ARRAY AsJel(¥J3 


NOT SHAREDI SK 
P¢0e00,0)3 
NOT SHAREDISK 
IF (Js TOGLE.MEMNO)#0 THEN 
TOGLE MEMNOSeYF J THEN 6 ELSE Jn23 
A « (MESPACEC3xMIXMAX43)])]69078238210)3 
NOTCDCLOG AND DATAGOM ) 
SLEEPCETOGLE) sARORTMASK )3 
LOCKTOGCABORTMASK)3 


HALT3 ITDLETIME3% 
JteNpuP NEUF 3 
NOTCSHAREDISK ) 
FOR yteJr1 STEP =y UNTIL O DO 
BEGIN 
FUTOLCI+EVIOF FSET] $eeP(DUP)xFUTAPER+PFULOLII3 
PEUIOLII%=03 
ENDS 


NOTCSHAREDISK ) 
WHILE CUteXCLOCK4+P(RTR)) GE® WITCHINGHOUR DO MIDNTIGHT3 


CHANGEDATE(CO)3 
ArOJed# Ar2le*ABORT"S Je O3 
Ari] « DATE3% 
IF CCLOCK AND ©17777)20 THEN 
BEGIN FOR [t=#1 STEP 4 UNTIL MYXMAX DO 

IF *(JARROWEII] NEQ@ O THEN 

IF REPLYC1] LSS O THEN % WAITING FOR SOMETHING 
NOTCWORKSET) 

IF CWKSETSTOPJOBS AND TWOCT))#0 THEN & NOT AUTO®@ST 
WORKSET 
RePLyCy]s=vwy3 

ENDS 


FOR + « 1 STEP 4 UNTIL MIXMAX DOB 
BEGIN J © J+332% 
IF JARROWECT) # 0 THEN 
BEGIN ALJ] © JARCIT*e3I4+PROCTIMECIT 3 
NTL © LOTIMELT J +JARC 104132 
WHILE NT1 < 0 DO NTLe@NT1L+CLOCKePCRTR)3 
ArJ+t] «© NTi38 


22002000 


22002500 
22003000 


22003990 
22006000 
22006090 
22007000 
22007100 
22008000 
22008049 
22009000 
22010000 


22011000 
22011100 
22011190 
22011300 
22011400 
22011500 
22011600 
22011700 


22011790 
22012000 


22012500 
22013000 
22014000 
22014100 
22014400 
22014500 
22014600 
22014610 
22014620 
22014630 
22014640 
22014900 


22015000 
22016000 
22017000 
22018000 
22019000 
22020000 
22021000 


4-4 


T 


000030 
000030 


000030 
000030 


ADDRESS # 00728 


T 


tt mt st st 


a 


a4 


ee ee ee 


0000:0 


0000:0 
0000!0 


000010 
000040 
000110 
000110 
000283 
000710 
001183 
001113 
001331 
22010000 
001633 
001713 
001940 
001910 
002311 
002311 
002612 
002713 
22011400 
0030:0 
003010 
22012000 
003712 
003831 
ooart2 
004213 
004410 
004810 
004931 
005013 
005083 
0053134 
005331 
005734 
22014400 
OOS714 
005810 
005984 
006011 
006312 
006513 
006810 


$ SET OMIT = 


$ SET OMIT = 


$ SET OMIT 
$ SET OMIT 


t ff 


FNO>& 


AcJ+2] © JARCTe7I)3% 
IF PROCTIMEC!)>0 THEN 
TERMINATECI&150£18333215]) FLSE 
IF ACJ4#1]> JARED I*e4) THEN 
TERMINATE C1&83(18833215]))3 
FND3- 


ELSE ACJ] © ACJ+1] «© aAlde2] « O38 
ENIS% 


NYSKTOCJ2A INX OPM 1e3XMIXMAX4+ 32 ESPDISKTOP41)3 
UNLOCKTOGCABORTMASK)$ 


NOTCOCLOG AND DATACOM 2) 
NOPROCFSSTOG ¢ NOPROCESSTOG"13% 
FOR 1 « 20 STEP 1 UNTYL 21 nox 
BEGIN IF NOT UNITCIJe01681) THENS 
UNF TEPJDeCI721] «© O88 
START OC1IFS% 
ENDSS 


NOTCWFX) 
IF TFRMINALCLOCK # 0 THENZ 
IF CLOCK*TERMINaALCLOCK > 512 THENS 
BFGIN 
FOR 1 ¢ O STFP 2 UNTIL JOBNUM DO 
TF PRTROW(XteBEnl(y),.£3°5)3.¢PSFJ)2#1 THEN 
IF JARECX*#9).SYSJOBF # LIBMAINCODE THEN 
BEGIN BEDE) «© BFOCJOBNUMJ3% 
BFOCT+1] *« BEDCYOBNUMS1332% 
INDEPFNDENTRUNNERCPC,RUN) 5X 00)3 
I « JOBNUM « JOBNUM#23¢% 
END3S2 


TERMINALCLOCKE&03 
ENDS 


SLEEP CEJ] » TOMASK 32 
FORGETSPACE(CA)3% 
NOTCSTATISTICS) 
NOTCSHARENI SK) 
NSECONDREADYs #TRUFS 
SFCONDCTRs=03 
KyLLcrMScwl)): 


22022000 
22023500 
22024000 
22024500 
22025000 
22026000 


22027000 
22028000 


22029000 
22030000 


22030099 
22031000 
22032000 
22033000 
22034000 
22035000 
22036000 


22036999 
22039000 
22040000 
22040500 
22041000 
22042000 
22042100 
22043000 
22044000 
22045000 
22046000 
22048000 


22048200 
22048400 


22049000 
22050000 
22050909 
22050999 
22953700 
22053800 
22053900 
22054000 


Se ioe ee ee ee ee ee 


Si 


4+ 


ee 


007110 
007382 
007482 
007611 
0079380 
0086033 
22018000 
006033 
0085%2 
22016000 
008713 
009270 
22030000 
0095%2 
009532 
009683 
0096:0 
009981 
010231 
010330 
22033000 
010583 
010531 
010610 
010733 
010631 
010930 
O11183 
O114s1 
011631 
011633 
012030 
012133 
22043000 
012430 
012483 
22040500 
012433 
012631 
012791 
012791 
012731 
012910 
012933 
013082 
22002000 


SIZFe 0131 WORDS 


PROCEDURE STATUS3% 


START OF REL SEGMENTS DISK 


RFGIN REAL Use1 0% 
STACK¢Feil) = U 


MSCWe"2>, 
STACK¢(¢Fe2) = MSCW 

THU41 9% 
STACK¢F42) a3 T 

TisT+13% 
STACK¢(F43) 3 Ti 

INTEGERS 
T=T1+13% 


STACK¢F44) = } 
ARRAY AREAS] 41 «]33% 
STACK(F45) = AREA 
REAL HDR = AREAs1, 
STACK¢F 46) = HDR 
SEGO= HDR + 1» 
STACK(F47) 2a SFEGO 
F = SeG0+13 
STACK(F410) = F 
ARRAY SHEAT = Faic*]3 
STACK¢Faltl) = SHFAT 
LABEL TRYAGATNeLOCNTREs DISK 
LABEL LeEL»eNOTREADYe DIE sACCEPTs»SCRATCHse TNPUTeTESTBACKUP, 
COMMONS 
LABEL, CARD» PRINTER» TAPE» DRUM» DISC»SPOePUNCHeUNLD» 
PAPERPUNCH,PAPER,DATACOM3 
SWITCH S % = CARD» PRINTER» TAPE sDRUMsDISC*eSPOsPUNCH,UNLD» 
PAPERPUNCH,PAPER,DATACOMSS 
REAL RCW=4+03¥ 
STACK(F40) = RCW 
SUBROUTINE SPACEASS 
REGIN AREA « (SPACE(12) INX MEMORY)&10(8238810] END32 


SUBROUTINE AUTOLOADERS 
BFGIN 
TRYAGAINE 
IF CHORISNITRECTORYSEARCHCPCLOCNTRL)»P(DISK)»3)) # O THEN 
RE GIN 
SHEAT t= MPF tel YPEDSPACEC31+SHEETAREAVI)) & 30682388 10)3%%167e 
STREAMCS8aFei>s Diaf): & ZERO OUT THE SHEAT ENTRY 
BEGIN 
SrtsS3 pS#s30 woSs 
ENN} 


SFGO te TYPENSPACE(30+SEGZFROAREAV)3% %£167@ 
DISKWATTC@SEGO, 30, MCHDR NX 10))3 

F.fFF1 %= HOR & CORFE ADORESS OF HEADER IN CFF] OF PARAM, 
SHEATIF7] ts SEGOS & CORE ADRS,OF SEGMENT ZERO IN SHEAT(E7 
SHEATCO} te PCLOCNTRL)3 

SHEATEF4) te PCOISK)3 

SHEAT(2) t= O & 17484724] & LOCNTIRLCODE(5S£4523) & 278838840)3 
% £481) IN SHEET(C2) MEANS SUPRESS BOU/EOU MESSAGES 

SHEATS 76] t= SHEATC 17] %s @3777777777773 & TIME LIMITS 
SHEAT(19] t= U3 % COMMON VALUE 

SHFATE 20] ts 43 % CORE ESTIMATE 


22055000 T 000030 
ADDRESS = 00733 
22056000 T 000030 
22056500 T 000030 
22057000 T 0000180 
22058000 T 000030 
22059000 T 000080 
22060000 TY 000080 
22061000 T 000030 
22061100 T 0000:0 
22061110 T 000030 
22061120 T 000080 
22061130 T 000080 
22061200 T 000030 
22062000 FT 0000:0 
22063000 T 000030 
22064000 T 000080 
22064500 T 000030 
22065000 T 000030 
22066000 T 000010 
22067000 T 000030 
22068000 T 000030 
22069000 T 000170 
22069000 
22069010 T 000530 
22069020 T 000530 
22069025 T 000510 
22069030 T 0005:0 
22069040 T 000731 
22069050 P 000733 
22069060 T 001210 
22069070 T 001382 
22069080 T 001382 
22069090 T 001430 
22069070 
22069100 P 001431 
22069110 T 0016#2 
220694290 T 004951 
22069130 T O0020%2 
22069140 T 002133 
22069150 T 002330 
22069160 T 002484 
22069170 T 002882 
22069460 T 002832 
22069190 T 003033 
22069200 T 003210 


Troi) t= 1503 % STACK SIZE 
SHEAT(94] t= MCP3 


STREAM(AtsO $ S t= Pe ,SCHEDULEIDS))3 
BEGIN 
SITixS3 
47¢SKIP SR SKIP DBS TALLYS2TALLY443 
IF SB THEN ELSE JUMP OUT)3 
DStsSETS ASeTALLYS 
FNA STREAM STATEMFNT3 


1 t= P3$ 
SHEAT(C31,78210) t2 13 % SCHEDULE NUMBER 
SHEAT(23) t= (CLOCK + PCRTR)) DIV 603 
SHEAT 25] t= HDR FFI % DISK ADDRESS OF FILE HEADER 
STREAM(U, [ee]seSPACE(112)3 
BEGIN 
DItsD14163 
DSte31LIT™CC EXECUTE LOCNTRL/DISKSCOMMONS"3 
SpixLOc US D5!x6OrCs 
NSts6LETVSEND eo @3 
FNO STREAM STATEMFNTS 


Met] t= OF Me yT+1) 82103 
SHEAT£6] ts GETESPDISK & 1001 
DISKWATTC I» 11% SHEATC6].0CF] 
FORGETSPACECI)3 

MULTI TABLECU) #23 "CONTROL? 
LABELTABLE(U) = ¢™="NECK 3 
RNCTABLELU) t= ¢ 8 1614338310)3 

TF U THEN READERAtGO ELSE READERB! #0} 
TNDEPENDENTRUNNERC PC ,SELECTRUN) oF 6160)3 
FND ELSE & TF IN DyRFECTORY 


8433%45]3 
3 


BEGIN 
ENTERSYSFILEC2)3 
GO TRYAGAIN3 


LDCNTRL3&s *LDCNTRLS3 


2 "DISK NS 
FNNS 


END SURROLTING AUTOLOADEFRS? 


P60,0¢02000,020,0,0)7% 
SPACEASS 
WHILF ¢(T «© PCRRR) OR RRRMFCH) # READY DOS 


BEGIN J # ORTINUCU © CPCT FOV NOT READYoDUP eDUP exexd 
x® 4000000000000) ,% 
£3%263365211!7)78,0000000000003% 

IF T «< READY THEN 
REGIN COMMENT SOMETHING WENT NOT READY3SS 
READY « READY AND NOT 132% 
IF LABELTABLECUJ 2 O THENS 
BEGING 


-ut LARELTABLELUJ] + @11435% 


1F CU AND @774) NEO 16 THEN 


7131" 


22069210 
22069212 
22069220 
22069230 
22069240 
22069250 
22069260 
22069270 
22069280 
22069290 


22069300 
22069310 
22069320 
22069330 
22069340 
22069350 
22069360 
22069370 
22069380 
22069390 
22069400 
22069410 


22069420 
22069430 
22069440 
22069450 
22069460 
22069470 
22069480 
22069490 
22069500 
22069510 


22069520 
22069530 
22069540 
22069550 
22069560 
22069570 


22069600 


22071000 
22073000 
22074000 
22075000 
22076000 
22077000 
22078000 
22079000 
22080000 
22081000 
22082000 
22083000 
22084000 


ie) 


AATF HHH HH 


AAA HAHA 


SL | 


+ 


ee ee ee 


0033!1 
003482 
003632 
0036'2 
003713 
003733 
003830 
003980 
0040%2 
004410 
22069240 
004131 
004431 
004433 
0044214 
0046:2 
0046881 
oosii4 
005434 
005132 
0055:3 
0056? 4 
0057%1 
22069360 
O0OST?2 
0064:0 
006310 
006530 
006513 
006710 
0068!2 
007033 
0076:3 
007810 
22069040 
0078:0 
007812 
OO79S4 
007983 
0081:0 
0082:0 
22069520 
0082:0 
22069020 
0062!1 
0085! 
0086:0 
008631 
009032 
009410 
0094:0 
009413 
0095!1 
009623 
009783 
009811 
009912 


Flt 


TAPE? 


MULTITABLE(UJ]?s03 
FND3% 


RRRMECH « RRRMECH AND NOT 13% 
END OF NOT READY 


ELSE BEGIN COMMENT SOMETHING WENT READYS 
READY « READY OR 13% 
UNITLU],(C1381) © O38 
IF LARELTABLELU] # ®114 THENS 
BEGIN RRRMECH « RRRMECH OR 13% 
IF LABELTABLELU] = @2144 THEN 
BEGIN I « I AND NOT SAVEWORD?S 
GO TO L3s% 
END3% 


STARTIOCU)#% 
GO TO COMMONSS 
FND 3% 


IF (U AND 6774) NE 16 THEN 
MULTITABLFEIU]$#ROCTABLECUJ] 3203 
IF C1 AND SAVEWORD) # O THEN 
REGIN RRRMECH «¢ IT AND SAVEWORD OR RRRMECH3S 
GO TO COMMONS® 
FND32 


GO SCUNTTIUI,£194)93% 
PCWATTIOC®4200000000,5e.U) sDEL) 3% 
IF (CT © WATTTIOCAREA INX @120540000000207500045,U)),% 
r45:3)] # 0 THEN? 


NOTREADY! REGIN READY « READY AND NOT [38 


GO 10 L3% 
ENDS 


IF MOD3TOS AND NOT T,7f4281) THEN BEGIN ZAI 
DO UNTIL CTLeWATTIOCAREA INX ©3400000122075,U:))#03 
IF T1.C43t7)#0 THEN TleWAIT10C@4200000000,5,)3 %697= 
FND FLSE T1leWATTIOC8420000000055,U)3 XAT 


IF T1204533]#0 THEN GO TO NOTREADYS ZAI 
DO UNTIL NOT C(TyeWAIT10(6@50000000000165eU)) OR 
(CTRANSACTION(UIJ¢0)3% 
te T1,f42:1] THEN 
REGINS STREAMC(TeTINULUJsA®AREAD3 
BEGIN SJeLoc Ts SyeSy4#53 pSeLiTweny 
DS*3 CHR3 DS#10 LIT "#BAD LOADS} 
END: 


SPOUTCAREA INX 0)3 SPACEA! GO TO L3 
ENDS 


If T4.f4581] THEN GO TO NOTRFADY33 
PRNTABLELCUJ+ORCNOT T1dL18439193% 
Ie 1.04331] THEN 
BEGINESTREAMCTeTINUCU] s AREAISS 
BEGIN SI « LOC T3 SY « Syo53% 


22084500 
22085000 


22086000 
22087000 


22088000 
22089000 
22090000 
22091000 
22092000 
22093000 
22094000 
22095000 
22096000 


22097000 
22098000 
22099000 


22100000 
22100500 
22101000 
22102000 
22103000 
22104000 


22105000 
22106000 
22107000 
22108000 
22109000 
22110000 
22111000 


22111500 
22112000 
22112100 
22112500 


22113000 
22114000 
22115000 
22115020 
22115030 
22115040 
22115050 
22115060 


22115070 
22115075 


22116000 
22117000 
22118000 
22119000 
22120000 


4 


+ 


Se 


44-4 


4AHAaAs4- 


AAs aH 


AAnHdHaH aH OOH 


AAAs 4H 


010033 
040212 
22082000 
010232 
0104:0 
22079000 
010410 
0106:0 
0107:1 
010983 
0494033 
0112!2 
011382 
011582 
011610 
22094000 
011680 
011683 
O1s7t) 
22092000 
011741 
011882 
OL2iht 
012232 
012433 
012551 
22102000 
012531 
0132%2 
0134480 
013632 
0137%2 
0139%2 
014380 
22109000 
014370 
014532 
0149:0 
015272 
22111500 
015633 
015812 
016032 
016212 
016331 
016531 
016681 
016830 
22145040 
016831 
0174:0 
22115030 


- 047430 


0175!2 
017630 
017823 
018033 


NIE: 


DS « LIT "#"3 OS ¢ 3 CHRSS 
0S «© 14 LYT * PARITY, RW/Le"s 
FND?S 


SPOUT¢AREA INX 023 SPACEAS 
LABELTABLELUJ «+ @31432% 
GO TO FLE&% 

FNDIS 


If 7.64281] THENS 
BEGIN#STREAMCT*TTNUCU]sAREADS& 
BEGIN SI « LOC TS St «+ S14+53% 
DS « LIT "#3 DS « 3 CHRIE 
DS « 15 LIT * TAPE MKe RW/Le™3% 
FND3% 


GO TO DIEs3 
END#% 


STREAMCY*O? ARE ApXel(TI])3% 
RFGIN 0S « 6 LIT * LABEL 3% 
S] ¢ AREAS DI © DIThs% 
IF 6 SC = Dc THEN TALLY © 13% 
AREA « TALLYS& 
S} « S$1445% DI © LOC Y3 DS «+ 5 OCT3% 
S]1 ¢ LOC ARFA3 DI « X3 DOS « WOS3% 
FENDI 


NTi1 « P32 
lf T THEN PRNTABLECLUI], £30818} 9"2NT1 ELSE 
BEGIN STREAMCYS 302 AREA Xta(T))3 
BEGIN DSts4 LIT “vOLi"s 
STtsAREAs Dp tep1 743 
IF 4 SC#DC THEN TALLY#213 
AREAtsTALLY3 SistsSt4+13 
DyssLOC VY DNStsz5 OCT 
SytsLocC AREAS DyteXs NStewNS3 
END; 


NTA: =P3 

IF T THEN BEGIN 
PRNTABLECU]2&(*#PC DUP) )&NT1(301308148] OR M3 
USASTTAPECLAREAI ECR] eTeleUel)3 
END? 


ENDS 


Ip NOT T1,043381) THENS 
BEGIN IF T THENS 
BEGIN 
IF PCAREAC1L]-/DUP)="PBTMCP * OR 
PCXCH)=*PUTMCP " THEN GO INPUTS 
IF AREAC4S)].(12230) > DATE THEN 
BEGIN IF RETMSG THEN 
STREAMCTe#TINUCU] *A*CAREA[6)])3 
BEGIN SI#LOC TsSIleSI+53nS#3 CHR 
DS*5 LIT * RET “3 


22121000 
22122000 


22123000 


22124000 
22125000 
22126000 
22127000 


22128000 
22129000 
22130000 
22131000 
22132000 
22133000 


22134000 
22135000 


22136000 
22137000 
22138000 
22139000 
22140000 
22141000 
22142000 
22143000 


22144000 
22145000 
22145050 
22145100 
22145150 
22145200 
22145250 
22145300 
22145350 
22145400 


22145450 
22145500 
22145525 
22145550 
22145600 


22145650 


22146000 
22147000 
221486000 
22156000 
22156100 
22157000 
22158000 
22159000 
22160000 
22161000 


aA AAs HH 4 4H 


- 


AAA AH HAHAH ATARI H HH 


~~“ 


AAA Aaa 


018171 
018230 
0184:0 
22120000 
018474 
0187:0 
0188F1 
018833 
22119000 
0488:3 
018952 
019132 
0492:0 
019233 
0195:0 
22130000 
0195381 
0195:3 
22129000 
019533 
0197:2 
0198:3 
0199314 
0200:0 
0200:1 
0201:0 
020133 
22137000 
0202:0 
020212 
020533 
0208:0 
0208:3 
0209:1 
021010 
0210%2 
0211:0 
0211483 
22145100 
0212:0 
O212:2 
O213i1 
021531 
0218:3 
22145500 
021883 
22145050 
021833 
021933 
0220:2 
022110 
022231 
0224:0 
022532 
0226:3 
0228:3 
022932 


ACCEPT? 


SCRATCH? 


ELSE 
INPUTS 


PAPERS 
UNL? 


PRINTER:% 


END ELSE GO TO INPUT3 


Ti ¢ 


SPACEC4)33% 


STREAMCA*CAREACLI]15T193% 


BEGIN SI «© A; 


SI © S1+403% 


DS «© LIT WHEE 
NS « 8 CHRs SyY « AI% 
20058 « LIT "* "3% 


SI * SI+13 


DS « LIT "etsy 


ENDS 


SPOUTCT1932% 
GO TO INPUTS 


ENN) ELSES 


LABELTARBLECU] « 08% 


FNn ELSE GO TO UNLO: 


ENDS 


IF T THEN BEGINS 


LABELTABLErU] * ARFAL2)3% 
MULTITABLErU] «© AREACIIIS 


STREAMCACLAREAL3J]-BeCTI)3% 
* As OS @ 3 OCT32 
oS « 5 OCT3 DS 


BEGIN S] 
END32 
ROCTABLELU] « 


»* 2 OCT% 


T8TICS]9eSIsL7IBTC14s38s10)3% 
IF CMULTITABLELUJS"PBIMCP ™ OR 
MULTITABLECUJS"PUTMCP %) AND 
LABELTABLECU] = "BACK=UP™ THEN 
BEGIN LABELTABLELU) © @322212342546447 hy 
STREAMCASTINUCUJ »>PNeMULTITABLELU]S"PUTMCP ™, 
AREA)3 
BEGIN St # LOC As’ ST © SJo5k% 


PNCDS«3 LIT™#cP™s JUMP OUT TO L)3 


0Se3 


LIT*#LPts Lt 


DS*12 LIT" BACK=UP ON "3 
DS ¢ 3 CHR DS + LIT "etsy 


ENDs& 


SPOUTCAREA INX 0)5 SPACEAS 


ENDS% 


END ELSES 


LABELTABLECU] + #31433 
GO TO COMMONS% 


T ® WATTIOC@60000000004,U), 14581138 

UNITCUI, C1682] «+ O38 

If T THEN GO 10 NOTREADY33 
TFSTBACKUPS 

tf AUTOPRYINT THEN 


DS « 7 GCHRI3 


22162000 


22163000 
22164000 
22165000 
22166000 
22167000 
22168000 
22169000 
22170000 
22171000 


22172000 
22173000 
22174000 


22175000 
22176000 


22177000 


22178000 
22179000 
22180000 
22181000 
22182000 
22183000 
22184000 


22185000 
22168000 
22188100 
22189000 
22190000 
22191000 
22191100 
22192000 
22192100 
22192200 
22193000 
22194000 
22195000 


22196000 
22197000 


22198000 


22199000 
22200000 
22201000 
22202000 
22203000 
22204000 
22205000 
22205500 
22206000 


HAA HAR HHA OG 


4 4- 


| 
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y 
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023032 
22160000 
023033 
023310 
023434 
023413 
023531 
023533 
023612 
023771 
023713 
22165000 
023830 
023934 
024210 
22158000 
024210 
024313 
22148000 
024333 
22147000 
024313 
024530 
024612 
024810 
024931 
024983 
025034 
22182000 
025012 
025333 
025443 
025630 
025711 
025930 
026083 
026112 
026210 
0264:0 
026433 
026642 
026711 
22192000 
026712 
027130 
22190000 
027110 
22178000 
027140 
027630 
027731 
027783 
027733 
028010 
028232 
028332 
02832 


IF PRINTORPUNCHWAITC®U®0) THEN GO TO COMMON} 
G0 TO SCRATCH? 
CARNES 
RRRMEFCHISRRRMECH OR 3 
If CDONLY THEN 
REGIN 
AUTOLOADERS 
GO TO COMMONS 
ENN 


LARELTABLECUJ)#==@143 
INDEPENDENTRUNNER (RC, CONTROLCARD) »ORUL324325]5192)3 
If U232 AND US63 THEN PSEUDOCOPY«+PSEUDOCOPY+132% e54.° 
G0 TO COMMON? 
PUNCH? 
STARTI]OCU)3 
TF UNIT(CUI¢(1583)]20 THEN GO TESTBACKUP ELSE GO TO SCRATCH) 
NRUMSS 
nysct 
SPOg 
PAPERPUNCH:% 
NATACOMEY 
STARTIOCUDSE 
GO TO SCRATCH3% 
COMMONS END OF REANYSS 


ENDS2 


STATUSBIT © TRUESS 
FORRETSPACFCARFA,£33%15))38% 
KILL CCMSCWI)5 

END STATUS#% 


22207000 
22208000 
22209000 
22209200 
22209400 
22209500 
22209600 
22209700 
22209800 


22212200 
22212400 
22212450 
22213000 
22213500 
22213600 
22213700 
22214000 
22215000 
22216000 
22218000 
22219000 
22220000 
22221000 
22222000 


22223000 


22224000 
22225000 
22226000 
22227000 


028434 
028613 
028910 
028910 
029081 
029110 
0291482 
029310 
029332 
22209500 
029342 
029510 
029731 
0300383 
O30141 
030491 
030210 
030482 
0304:2 
030482 
030482 
030432 
030432 
030581 
030533 
22088000 
030583 
22075000 
030681 
030810 
030912 
0310!%1 
22056000 
S1ZE= 0311 WORDS 


oe en Nee ee ee ee ee 


AAS tH HOH 


_" 


aaa 


STACKEF 42) 
STACK ¢F 43) 
STACK ¢F 44) 
STACK¢F 45) 
STACK¢(F 46) 
STACK¢(F 47) 
STACKEF 410) 
STACK¢F 411) 
STACK(F 412) 


STACK¢(F 413) 
STACK(F414) 
STACK EF 415) 
STACK (F416) 
STACK¢F 417) 
STACK EF 420) 
STACK ¢Fs21) 
STACK (F422) 
STACK EF 423) 


STACK¢(F 424) 


i ee 


Han ag HH Aan 


BOOLEAN PROCEDURE OLAYCLOC): % MADE SAVE IN INITIALIZE 


22228000 


START OF REL SEGMENTS DISK 


VALUE LOC’ REAL LOC3 
BEGIN REAL LINK» MOMs FRONT, BACK» CHARs BS» STACKs So SBek 


Te Xe NESC» OLSKe [OMe MIX» JOBKILLEDs MIXUPs SEGNO;% 


DESC 
D1SK 
10D 
MIX 
JOBKILLED 
MIXUP 
SEGNO 
ARRAY NAME SEGDICT3% 
SEGDICT 
REAL RESULT#4+13% 


STACK¢F41) = RESULT 


STACK¢F 425) 


STACK EF 426) 
STACK ¢F 427) 
STACK¢(F 422) 


STACK¢(F 430) 


STACK(F 431) 
STACK(F 437) 


STACK¢(F 433) 


a ae |] 


ARRAY SPRT(*]3 


SPRT 
RrAlL CORE, CUFNDS REAL [NITCWHMIXUPS 
CORE 
CUED 
INITCW 
RFAL TYPE13» RSLT» NQAUXS 
TYPE13 
RSLT 
NOAUX 
$ SET oMIT = NOTCNEWLOGGING) 
$ SET OMIT = NOTCWORKSET) 
RFAL MCPTEMPS 
MCPTPMP 


$ POP OMIT % WORKSFT 
LABEL EXITS % ALL AVENUES MUST LEAD YO HERE 
LABEL AROUND, CODEs+ BACKAGAINe MCPe INTRINSICIS 
LABEL RETRY» AGAIN» FOG} 
DEFINE TSKA = SPRT#3 
BOOLEAN SUBROUTINE AWAKEN3S 
BEGIN COMMENT AWAKEN CHECKS TO SEE IF WE HAVE HALTED 
THE JOB ON PROCESSOR 9, IF SO» 1T RESTARTS THE 
TIMING FOR HIMs AND CALLS *HALT* TO CHECK INTERRUPTSI£ 
IF JOBKILLED THEN 
BEGIN 
$ SET oMy7T = NEWLOGGING 
STARTLOGCPAMIX)3 
$ POP oM1T 
JOBKILLED « FALSES OLAY «© RESULT OR 232% 
HALT’ NOPROCESSTOG © NOPROCESSTO0G#=433% 


22229000 
22230000 


22231000 


22232000 
22233000 
22734000 


22235000 


22235500 


22235599 
22235610 
22235620 


22235621 
22235700 


22236000 


22236100 
22236150 
22237000 
22238000 
22239000 
22240000 
22241000 
22242000 
22242099 
22242100 
22242101 
22243000 
22244000 


T 0000:0 
ADDRESS # 
T 000030 
T 0000180 


T 000010 


T 000010 
T 000030 
T 06000:0 
T 000010 


T 000030 


0000:0 
000010 
000030 


44-4 


000010 
000010 
000080 
000010 
000010 
000030 
000110 
000410 
000410 
0004:0 
O004 NYE 
000433 
000133 
000414 
O004alt 
000631 


ee ee ee eee 


00744 


END3& 
AWAKEN ©« RESULT END3SY 


SUBROUTINE STOP3% 

BFGIN COMMENT STOP HALTS THE JOB ON PROCESSOR 2s AND 
CLOCKS HIM OFF. FT SFTS JOBKILLEN SO THAT AWAKEN 
CAN 90 [TS DIRTY WORK BEFORE RETURNINGSS 
JOBKTLLED « FRUPS PCHP2I38 
STOPILLOGCPAMIX,0)3 

END STOPPER? 


SUBROUTINE CODEOVERLAY?ES 
BEGIN COMMENT CODEOVFRLAY HANDLES ALL CASES OF MARKING 
A NORMAL@STATE SEGMENT AS NOT@PRESENT, JT DOES THyS 
A SINGLE PRT AND STACK AT A TIME, AND YS ONLY CALLED 
REPEATEDLY FOK REeENTRANT CODE OR INTRINSICS3Y 
If CHAR THEN 5 «© ME{SB © MUS), CFFII,CFF) ELSE S © Setsg 
SPRT «© PRIEMIXs4033% 
IF SPRTEXI,£91) THEN BEGINS 
¥ NFED Ta Do PRT AND STACK SEARCH ONLY IF PRESENT IN THIS PRT 
00 UNTIL €X « CSPRTCX] © CHPCDUP)&0£282311% 
&CSPRICXI,CCFIPFRONT DECTCI).£6212] )220483% 
AROUND?3 
WHII.E CSTACK && HUNTCBS),£CF]) LSS § DO 
BEGIN CORE © (CDESC «© NFLAGCMUESTACK))).CCFII% 
IF CORE 2 FRONT AND CORE «< BACK THEN 
IF PESC LSS O THENSPROG. DESC OR RCW, 
IF DESC,C€324) THENSDESC 
IF DESC, £21] THENSPRESENT 
IF DESC, £6!2)51 THEN &TYPE 13 INTRINSIC DESC 
MESTACKISSFLAGCDESC & Of2t2t1) 
& (MOM,(68!#10))°CTC]) ELSE 
* OrScRIPTOR ~= FNSERT OFFSET AND RESET PeRIT 
MESTACK] « FLAGCDESCR8OL2223138% 
RCCORE*FRONTIICTC))2 
ELSE 
ELSE REGINS 
% CONTROL WORD (RCW) == UNFLAG TN STACK, PUT OFFSET INTO 
% CORRESPONDING MSCW. AND MOM FNTO RCW, FCF) 
MEX © DESC.CFFI] «2% 
C(*PCDUP)I&CCORE*FRONTIECCTCI32 
MESTACK] # DESC&SEGNOCCTCI33% 
END3% 


BS « STACK4e1 3% 
ENDES 


IF CHAR AND CSTACK<SB) THENS 
BEGIN BS * SBs § « HUNTCBS41),fCF]$ GO AROUND FND3 


IF PCSPRT(19]}»+TOP) THEN PCDEL) ELSE 0S 

BEGIN CORESsPOLISH,(CF]3 DS 
IF CORE < FRONT OR CORFE 2 BACK THEN 

ELSE SPRTC19}%eC*PCDUP))&06 28981) ZDS 

&(CCOREFRONTICCTCI3 Z0S 

ENDS 0S 


22245000 
22246000 


22247000 
22248000 
22249000 
22250000 
22251000 
22252000 
22253000 


22254000 
22255000 
22256000 
22257000 
22258000 
22259000 
22260000 
22261000 
22262000 
22263000 
22264000 
22265000 
22266000 
22267000 
22268000 
22269000 
22270000 
22270050 
22270100 
22270200 
22270300 
22271000 
22272000 
22273000 
22273100 
22274000 
22275000 
22276000 
22277000 
22278000 
22279000 
22280000 


22281000 
22282000 


22283000 
22284000 


22284100 
22284200 
22284300 
22284400 
22284500 
22284600 
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4-4 


4444-441 


0008:0 
22242000 
0008:0 
22238000 
000833 
000930 
0009:0 
000930 
000930 
0010:0 
0012%2 
222468000 
001233 
0043:0 
001330 
00143:0 
004330 
0013:0 
001984 
002033 
0022!3 
0022¢1 
0023'2 
002B8!2 
002832 
003130 
00333 
00352 
003633 
0038:0 
OO39%4 
0041t0 
004283 
Oo0a5#! 
00a5!4 
0048811 
005030 
0050'3 
005123 
0051%3 
005113 
005342 
005512 
0057t2 
22274000 
O0O57t2 
005833 
22267000 
005934 
0060:2 
22284000 
006411 
006533 
006731 
006910 
0071¢1 
0073%2 


| 
22284200 é 
$ SFT OMIT = NOTCSTATISTICS) 22284699 T 0073:2 
END OF PRESENT +N PRT CASE? 22285000 T 0073!2 
22261000 @ 
FND OF COMFOVERLAY33 22286000 T 0073:2 
22255000 
SUBROUTINE INT433 BSTACK SEARCH FOR TYPE 13 INTRINSIC CALLS 22286010 T 007333 @ 
BFGIN CHARt=PcPRTPM{Xs8) DUP), (C3294)3 22286020 T 0074:0 
StsP INX OF BStePRICMIX+ 10), ¢FF 13 22286030 T O0076:4 
IF CHAR THEN StsMeSBtamcS).CFFII.CFF) ELSE SteSmi3 222786040 T 0079%1 e 
AGAIN? WHILE (STACK t= HUNT(BS),CCFIJ) LSS S DO 222986050 T 008532 
BEGIN CORE! aC DESC! sNFLAGCMESTACKI)),CCFI3% 22286060 T 0088:0 
IF CORE GrQ FRONT AND CORE LSS BACK THEN 22286070 T 009033 8 
IF DESC,{1%2) NEQ@ O THEN 22286075 T 0092:2 
IF DESC,{(183]87 THEN 22286080 T 0094:4 
MESTACKISeFLAGCDESCROL2I2¢1 IR CMOM.FBt1oldr¢cTe)) 22286090 T 009610 e 
ELSE . 22286100 T 009914 
BEGIN MeDESC. CFF IJ] § eC #PCDUP) &CCORE=FRONTIECTC)$ 22286110 T 0100:1 
MeSTACKJSSDESCRCMOM, C8210) CCTCIR 22286120 T 0103%4 g 
10338478193 22286130 T 0106:0 
ENDS 22286140 T 0107:2 
22286110 e 
BStaSTACKsl3 22286150 T 0107:2 
END} 22286160 T 0106:3 
22266060 6 
IF CHAR AND ¢STaCK LSS SB) THENS 22286170 T 010921 
RBEGIN BSt=SB3 SteHUNT(BS+1),fCF]s GO AGAINS ENDS 22286180 T 0110:2 
22286180 @ 
FND OF TYPF 13 INTRINSTE STACK SEARCH3 22286190 T 0114:1 
22286020 | 
COMMENT OLAY HANDLFS OVERLAYS, THERE ARE 3 CLASSES 22287000 T 0114:2 e 
OF THINGS WHICH MAY BE OVERLAID! 22288000 T 0114:2 
1) ORYECT PROGRAM DATA SEGMENTS 22289000 T 0114:2 
2)  ORJECT PROGRAM CODE SEGMENTS 22290000 T O0114:2 
AND 3) MCP CNON@SAVE) PROCEDURES, 22291000 T 0414:2 
4) MCP TABLES * OVERLAYABLE 22291500 T 0414:2 
FACH OF THESE CLASSES GETS SPECIAL HANDLING? 22292000 T 0114:2 e 
WHICH WILL BFE DFSCRIBFD AS WE COME TO ITS 22293000 T 011452 
% TutS CODE 3S COMMON TO alLL CLASSES AND ALL CASES 22294000 T 04144:2 
& SET OMrT = NOTCNEWLOGGING) 22294099 T O0114:2 e 
$ SET OMIT = NOTCWORKSET) 22294410 T 0114:2 
MCPTEMP tm CLOCK «# PcRTR)3 22294120 T 011432 
$ POP OMIT % WORKSET 22294121 T 012330 e 
LINK # MELOC] MOM « MCLOC+LIFS 22295000 T 0123:0 
FRONT t= LOC + 23 BACK t® LINK, (CF]3 22296000 T 012632 
tF CMTX © LINK, CAREAMIXF))#0 THEN GO TO MCP3% %167« 22297000 P 0129:0 8 
% <MIX>=0 AND NON@SAVE MEANS MCP PROCEDURE OR INTRINSIC 22298000 T 0131:1 
IF MIXwP2MyX THEN STOP3% 22299000 T 013171 
CHAR © CINITCWH © PRTCMIX08}),C328198% 22300000 T 0434:0 e 
S « INTTCW.CCFI? BS # PRICMIXe10), CFF ISS 22301000 T 0136:2 
B CHAR TS CWMFs, S 1S TOP#QF=STaCKe BS IS BASE OF STACK 22302000 T 0139:3 
IF LINK. CAREATYPEFJ=CONEARFAV THEN GO TO CODE3% ¥167= 22303000 P 013933 @ 
1F TERMGOSNGCMIX) THEN GO TO FOG) £507= 22303200 Cc 014432 
% TYPE«i MEANS PROGRAM == ONLY ALTERNATIVE IS DATA 22308000 T 044332 
TF CHAR THEN® 22305000 T 0143:2 e 
% SPECTAL CHECKS FOR ADDRESS SAVED IN CHARACTER MODE 22306000 T 044353 
BEGIN CHARts(CCTtaMCSe1)eCCFJ) 2 FRONT AND T «< BACK) OR 22307000 T 0143:3 e 
| 


X MeRFGISTER FROM ICW CSOURCE ANDRESS) 
COTHESMES@2),.CFF1)2 FRONT AND T < BACK))3 
%SeREGISTER FROM ILCW COFSTINATION ADDRESS) 
TF NOT CHAR THENS 
_.. BEGIN X © MES «© MCSU,fFFII.CRRI413% 
% MeS].FFF] 1S ADORESS OF RCWs MCRCWILEFF] IS ADDRESS OF MSCcW 
DO CHAR « ¢C(T © MES © Smt), fCF1)2FRONT 
AND T < BACK) UNTIL €S £ X) OR CHARI 
% SFARCH THROUGH STREAM LOCALS AND PARAMETERS FOR ADDRESSES 
S « X3% 
ENDS% 


FND3% 


IF CHAR THEN TELL BREAKOUT AROUT IT 
BEGIN PCAWAKEN,SSN)3 GO EX1T3 
END: 


% CANNOT OVERLAY IF MAY Br ADDRESSES IN CHAR MODE STACK 
TOD+MrFMOM),£881095 
IF (DySKt=MOM,CFFJ) NEQ O THEN & OLAY ADNRESS PRESENT 
BEGIN 
$ SET oMIT = NOTCAUXMEM) 
END? 


IF DISK=O THEN DISKsaHISKSPACECION»eMyXeNOAUX)3 
IF OTSK LSS O THEN % NO OLAY DISK 

REGIN PCAWAKEN)S GO EXITS 

ENDS 


$ SET oMyT = NOTCSTATISTICS) 
TF ¢StsS=4) GTR MOM THEN 1+F MOM GTR BS THEN BS!t#M0M41413 
% te MOTHER 1S YN STACKs ONLY SEARCH ABOVE IT 
WHILE CSTACK#s=HUNT(BS),(CF]) LSS S$ DO 
BEGIN 
IF COESCISNFLAGCMESTACKI)Deltt2)]21 THEN 
®% ONLY WORRY AROUT DATA DFSCRIPTORS WHICH ARE PRESENT 
If NDESC.CFFJ=MOM THEN 
% TH1S ONE DEMANDS ACTYON == IT POINTS NTO OUR ARRAY 
TF DESC, 7 8:10)80 THEN 
NAME DESCRIPTOR == PUI YN OFFSET AND RESET P#BET 
EE EROR AMEE PEGE CUES COLE der RON SEMOMEGIE A) 
FLSE 
% NORMAL, ROW DESCRIPTOR == ZERO CORE FIELD AND RESET PeBIT 
MESTACKI]:@FLAG(O&DESCE B38 8225))3 
RBSteSTACKs4 3 
ENn} 


1F MrMOM),£323] NEQ 7 & NOT READ ONLY ALREADY WRITTEN 
$ SFT OMIT = NOTCBREAKOUT) 


THEN 
RBFGIN 
$ SET OMIT = NOTCAUXMEM) 
RETRY DISKTOCRSLToFRONT=15 1ODR1L 384734) »DATADDRESSCMIXsn{SK)I3 


% £311) IN SIZE MARKS 13/0 AS ORIGINATING FROM OLAY 
MrMOMJ:eCePCHUP)IZOLAr4 7st Jasrcrcd3 


22308000 
22309000 
22310000 
22311000 
223132000 
22313000 
22314000 
22315000 
22316000 
22317000 
22318000 


22319000 


22320000 
22320100 
22320200 


22321000 
22322000 
22323000 
22323200 
22323400 
22324800 
22325000 


22325200 
22325400 
22325410 
22325430 


22325600 
22326400 
22326600 
22326800 
22327000 
22327200 
22327400 
22327600 
22327800 
22328000 
22328200 
22328400 
22328600 
22328800 
22329000 
22329200 
22329400 


22329600 
22329800 
22330400 
22330600 
22330800 
22331400 
22331600 
22331800 


AHA AHH HHA HHS 


4 


a454 


AHHAAAA 


AAMAS HAHAHAHA HAA AT HAA 


014831 
014831 
015350 
0145350 
015332 
0158:1 
015854 
016131 
0165:0 
0165:0 
016533 
22312000 
016533 
22307000 
016533 
0166:0 
0168:3 
22320100 
016833 
0168:3 
017033 
0172:2 
0173:0 
0473:°0 
O174:14 
22323200 
017431 
017721 
0178:0 
0180:2 
22325410 
018052 
01802 
0185'1 
018534 
01487:3 
0187:3 
0190:2 
0190:2 
019221 
019271 
0194:0 
0494:0 
0196:3 
019733 
019743 
020120 
020201 
22327000 
020213 
020432 
020432 
020413 
020581 
020531 
020931 
020901 


PCAWAKFENe DEL) 
% CFe5 IN MOTHER 1S INTERLOCK FOR MAKEPRESENT 
SNOOZE CO*TRSLTI,IOMASK)3 
te RSLT,(2627) NEQ O THEN % 1/0 FRROR 
BFGIN 
$ SET OMIT = NOTCAUXMFM) 

IF €DISKteDISKSPACFCIOD»MIX»"0)) LSS O THEN 
BEGIN % NO OLAY DYSK 
MOMOMJte¢ePCDUP)I&6ICTCI3 
GO TO FOG: 

FND 


% TERMINATE MARKER 


GO TO RETRY$ % TRY AGAIN WITH ANOTHER ADDRESS 
ENN? &% IF 1/70 FRROR 


MeMOMJ]S=C#PCHUP)IBDISKCICTCI]$ & PUT DISK ADDRESS IN MOTHER 
FND % TF REAM ONLY» NOT YET WRITTEN 


FLSE 
REGIN 
MrMOMJfecePCHUP)IROLAL47ILIaNrSKFCTC)}3 
PCAWAKENeDELY3 
FNM)3 


TF MOMOM},(323336 THEN MEMOM),CSsijet3 
FOG: FORGETSPACECFRONT)$ 

PCTRUFD$ GO EXIT3 

CODF 3% 

® OnJecT PROGRAM CONE TO RE OVERLAID 
Ir CT * MEST,CCFJ)2FRONT AND TSBACK THENS 

% CANNOT OVERLAY NORMAL STATE SEGMENT He WILL RETURN TO 
BEGIN PCAWAKFN)3 GO FXYT3 
FND: 


tr SOFTI>O THEN 
TF JARCMIXs2).f581] THEN ® SOFTWARE INTERRUPTS 
TF CTSKA «© PRICMIX,TSX]),PRIT THEN 
IF (T © TSKACB8],CFFI)#0 THEN 
IF CTeMFT),CCFIJ)2FRONT AND TSBACK THEN 
RF GIN PCAWAKEN)$ GO EXITS 
ENDS 


TF CMIXUP « CSEGDICT « PRTG M1X0e4)).CFFI)#0 THENS 
%¥ REeFNTRANT CODE TO BE OVERLAID =" CHECK OTHER USERS, TOO 
BEGIN MIXUP © MIXUP,£3936)3% 
NO BEGINS 
IF M{XUPePaM1X THEN STOP33 
% STOP OTHFR USER OF THIS CODE 1F RUNNING ON PROCESSOR 2 
IF CT # MEPRYCMIXUP,8)),¢CFIJIZFRONT AND TSBACKS 
THEN BEGIN PCAWAKEN)3 GO EXYTS 
END$ 


% SAME CRITERIA APPLY TO ALL USFRS OF THIS CODE 
IF SOFT?1>0 THEN 
TF JAREMIXUP*®2).75%1] THEN % SOFTWARE INTERRUPTS 
IF CTSKA © PRTICMIXUP,@26)).PBIT THEN 
IF cT « TSKAL8],CFF])#0 THEN 
1F CTeMET]e¢£CCFIJIZFRONT AND TSBACK THEN 


22332000 
22332200 


22332400 
22332600 
22332800 
22333000 
22333800 
22334000 
22334200 
22334400 
22334600 


22334800 
22335000 


22335200 
22335400 


22335600 
22335800 
22336000 
22336200 
22336400 


22349100 
22350000 
22351000 
22352000 
22353000 
22354000 
22355000 
22356000 
22356020 


22356100 
22356140 
22356150 
22356200 
22356300 
22356400 
22356420 


22357000 
22358000 
22359000 
22360000 
22361000 
22362000 
22363000 
22364000 
22364100 


22365000 
22365100 
22365140 
22365150 
22365200 
22365300 


i i ee ee 


4-4 
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0212%2 
021441 
021431 
0215%2 
021613 
O21741 
021731 
021933 
022031 
0222:2 
022310 
22334000 
022310 
022332 
22332600 
022332 
0225:3 
22330600 
022513 
022523 
022684 
0229:2 
023131 
22335800 
O231t14 
0236:2 
023731 
023830 
0238:0 
0238:0 
024132 
024122 
0243:2 
22356000 
0243:2 
024431 
024631 
0248633 
025131 
0255%1 
0257%2 
22356400 
025712 
0260:3 
0260143 
0262:2 
0262:2 
026510 
026510 
02682 
027152 
22364000 
0271%2 
027142 
027231 
O274at1 
027633 
O27934 


REGIN PCAWAKEN)S GO EXIT? 
FND? 


FND UNTIL CMPXUP « PRTEMIXUPs4),62436))s@773% 


% CHECK ALL USERS ON MrX*@tNDEX LINKED LYST 
FND3S 


* te Wr REACH THIS POINTs We CAN AND WILL OVERLAY THE AREA 
$ SET OMIT = NOTCAUXMEM) 
BACKAGAINS3 
$ SET OMIT = AUXMEM 
XeSFGDICTESEGNO+MOM)],CB8I10)3CODFOVERLAYS 
£$ POP oMrT 
$ SFT oMyT = NOTCAUXMEM) 
te MyXUP THEN’ 
® RrepNTRANT CODE BEING OVERLAID ** MUST FIX ALL STACKS AND PRTS 
TF CMIX © PRTEMIX¢4](024163)#@77 THENS 
% SeT UP CHARe Sp» AND BS FOR NEXT USERS STACK 
BFGIN CHAR « (S ¢ PRICMIXe8)),C322413% 
S « § INX 03 BS «¢ PRTCMIXe10],CFFI3% 
% GO NO STACK SEARCH AND PRT FIX*UP FOR ANOTHER USER 
GO TO BACKAGAINS3 
ENDS% 


$ SET OMIT = NOTCAUXMEM) 
$ SET OMyYT = ALUXMEM 
SFGDICTCMOMJe(#PCDUP)I&MOMrFTF ISS 
FORGETSPACECFRONT)3 PCAWAKEN,DEL» TRUE)? GO EXTT? 
$ POP oMmyT 
Z NOW WAS THAT NOT TRIVIALITY PERSONIFIED... 
MCP LEZ 


IF PCLINK,CAREATYPEF Js DUP) #xTYPE7INTARFAV ORE Z167= 
PCXCHISTYPEL3SINTAREAV THEN GO TO INTRYINSIC3& R167" 
IF LINK» CAREATYPEF J=QATAARFAV THEN % OVERLAYABLE MCP DATA &167@ 


BEGIN 


COMMFNT MCP TABLES CAN BE MARKED AS OVERLAYABLE SO THAT THEY CAN 
REMAIN IN CORE WHEN 1N USE AND BETWEEN USES BUT CAN BE REMOVED 


WHEN Tue SPACE IS NEFDED. PREVIOUSLY THEY HAD [O BE LEFT IN 


CORE PERMANENTLY OR READ FROM DISK WITH EACH USE, EACH TABLE 
NEEDS A "DESCRIPTOR® TELLING ITS PRESENCE Coti}e ITS ANDRESS 


[33%15]* AND THE NUMBER OF PROCESSES ACCESSING IT[£18848), 
MEMORY LINKS MUST BE HANDLED AS IN LBMESS. WHEN AN AREA IS 


IN USEe THE PAIR (MIX*®OsTYPE#2(DATA)) IN WORD 14 OF THE MEMORY 


LINK TNDICATES SUCH AN AREA? 
IF MCMOMJeCFF) = O THEN 

BEGIN %CAN OVERLAY? NO ONE IS WAITING 
MCMOM) ts 0% & MARK ABSENT 
FORGETSPACECFRONT)3 
PCTRUE)3 ZBSIGNAL SUCCESS 
GO EX1T3 

END 


ELSE REGIN PCFALSE)S GO EXIT END 


FENN: 


22365400 
22365420 


22366000 


22367000 
22368000 


22369000 
22369999 
22371200 
22371210 
22371220 
22371221 
22371299 
22372000 
22373000 
22374000 
22375000 
22376000 
22377000 
22378000 
22379000 
22380000 


22380049 
22383049 
22383050 
22383100 
22383101 
22384000 
22385000 
22386000 
22386010 
22386100 
22366150 
22386200 
22386204 
22386208 
22386212 
22386216 
22386220 
22386224 
22386228 
22386232 
22366250 
22386300 
22386350 
22386400 
22386450 
22386500 
22386550 


22386600 
22386650 


474° 4+ «A 


AH AHA HAH TH 


AHHH HHH AHHH HO OHHH 


+ - 


02863:1 
0285:2 
22365400 
028532 
22360000 
0288:2 
0288!2 
22359000 
0288:2 
028682 
028832 
02882 
0288%2 
0293720 
029310 
029310 
029391 
029331 
029684 
0296481 
029991 
030282 
030282 
030330 
22376000 
0303140 
030310 
0303130 
03053814 
030830 
0308180 
030830 
030830 
0309%2 
O34151 
0312!%2 
031310 
03143180 
0313!0 
031380 
031380 
031300 
031310 
031320 
031340 
031380 
031530 
0315!%2 
031710 
O314783 
031810 
031832 
223866300 
031812 
22386600 
0319383 
22386150 


X © "723 BS + CPCOsRNF)) ] 
2 SFT R§ TO POINT AT Rew FOR 
DO BEGINS 
OLAY « NOTCS « «(CORE «+ ¢(T «© MEBS1),(CF))<BACK 
AND CORF2ZFRONT) 23% 
® S JS TRUE TF THE RCW POTNTS TO THE ROUTINE TO BE OVERLAID 
BS « T.CFFIs% 
¥ PoINT T TO CORRESPONDING MSCW 
WHILE ¢€T © MfBS)),01681] DO BS « T,CFFIS% 
% RUN NOWN STACK OF MScWS UNTIL NOT MSFF 
IF CRS « TelFF1)$64 THEN 
Z FNND OF STACK == THIS 1S RATIONALE FOR OBSCURE USE OF "PCO,STF)" 
BS « BED(X « X+2),(C FF )3% 
FNO UNTIL cX>JOBNUM) OR S3¥ 


eCFFIS% 
CALL ON OLAY 


IF RESULT THENY 

BEGIN MCMOM) « C¥PCDUP)I&CePC.ESPAITIICCTCISY 
FORGETSPACECFRONT)33% 

ENDS 


P¢RESULT AND 1)% GO FX]T3 
INTRINSICLS 
FOR MIX*1 STEP 1 UNTIL MIXMAX DOS 
TF INTABLEROWEMIX}#0 THENS 
BFGIN TF MIX=PQMIX THEN STOP3% 
IF CT © MPPRTCMPX,8)). CCF IJIZFRONT AND TSBACKS 
THEN BEGIN PCAWAKEN)? GO EXIT3 
END} 


ENDS 


FOR MIXe#1 STEP 1 UNTYL MIXMAX DOR 
1F FNTABLEROWELMIX]#0 THEN 
BEGIN SEGNO « MOM,(8:10]"°133% 
STREAMCA « SEGNO AND 3% T © CIENTABLELMIXeSEGNO DIV 43193 
REGIN St « Ts SI © St+At St © SI#AS DT © LOC AS 
Nt «+ D1+6% DS * 2 CHR3 END STREAMING! 


IF CSEGNO © PULYSH)#0 THEN 

TF SEGNO = ®2000 THEN INT13 FLSE 

BEGIN CHAR * PCPRTCMIXe8J}s DUP), 7 3221)3% 
TYPEL3¢sSEGNOS(37IL)5 
SEGNO®SSEGNO AND @47773 SIGNORE TYPE 13 BIT 
S « POLISH INX O03 8S # PRIEMIX®10) CF F133 
SEGDICT «© PRTLEMIXs4])3% 
Xt=SEGDICTrSFGN0),(8#10)3 
IF TYPE13 aND NOT PRICM{X0X1,0281) THEN 

% TyPr 13 REFERENCE ALSO FXISTS AND TYPE 7 REFERENCE IS NOT PRESENT 
INT13 ELSE 

BEGIN 
CODEOVERLAY3 
SEGDICTESEGNO] « C#¥PCDUP))&MOMCFTF 3% 
END? 


ENDS 


FND3% 


22387000 
22388000 
22389000 
22390000 
22391000 
22392000 
22393000 
22394000 
22395000 
22396000 
22397000 
22398000 
22399000 
22400000 


22401000 
22402000 
22403000 
22404000 


22405000 
22406000 


. 22407000 


22408000 
22409000 
22410000 
22411000 
22411020 


22412000 


22413000 
22413010 
22415000 
22416000 
22417000 
22418000 


22449000 
22419500 
22420000 
22420200 
22420500 
22421000 
22422000 
22423000 
22423100 
22423200 
22423300 
22423400 
22423500 
22424000 
22424500 


22425000 


22426000 


Se ee Bee Ieee ee ee ee | 


Se ee ee ee ee ee a 


a Mie ee Mee Mie, Been Meee Mien See Wien Me ee ee ie ee ee ee ee 


~ 


-_ 


031933 
0322132 
03222 
0322t2 
032510 
032713 
032733 
0329%0 
032910 
033384 
033351 
033510 
033510 
033810 
22389000 
033983 
034010 
034310 
034383 
22402000 
034333 
034570 
034510 
034610 
034710 
035080 
035312 
035612 
22411000 
035612 
22409000 
0356:3 
036080 
036140 
0363%1 
036681 
036783 
22417000 
0368!2 
036982 
0372:0 
037691 
037732 
037833 
038133 
038341 
036531 
038732 
0387%2 
038930 
036982 
039110 
0393%3 
22423400 
O393%1 
22420000 
O393t1 


INTRNSCEMOM,£8210])] © CEPCHUP)IRMOMCFTCI32% 
FORGETSPACECFRONT)3% 
PCAWAKFNenFrls, TRUE); 
FXITI 
$ SET OMIT = NOTCNEWLOGGING) 
$ SET OMtT = NOTCWORKSET) 
IF PiMTX NEO O THEN 
OLAYTIMELPIMIX] 22 ¢*P (DUP) I+(CLOCK4+PCRTR)*MCPTEMP) 3 
$ POP OMIT % WORKSET 
PCRTN); 
END OF OVERLAYS REVISyON OF MAY 314% 1967.,, 


22427000 
22428000 
22429000 
22429100 
22429199 
22429210 
22429220 
22429230 
22429231 
22429300 
22430000 


22415000 
039582 
039830 
039833 
040082 
0400%2 
0400%2 
0400%2 
040181 
040433 
040433 
040540 

22230000 
SIZE" 0406 WORDS 


At st st 


STACK¢(F4e1) 
STACK(F42) 


STACK¢(F 43) 
STACK¢F44) 


=i. oY 


PROCE 


BEGIN 


END3:& 


DURE CHANGFABORTCX)3 VALUE X3 REAL X3% 


22900000 


START OF REL SEGMENTS DISK 


ARRAY AC¥],s Bre*)3% 


REAL Js T3% 


Ae lt ME SPACE (210))1821058'38:10]73 
SLEEP CrFTOGLE)]» ABORTMASK) 3% 
LOCKTOGCABORTMASK)3 


DOTSKWATTCRA. LCF] > 210,ESPDISKTOP 4+} )3 
WHILE CACOJ#=XCLOCK+PCRTR)) GE@ WITCHINGHOUR DO MIDNIGHTS 


AC1] «© DATE3% 

Joe 3*PIMIXES 

ArJ] © ALJ+1] © Ardea] « O78 

BeJARROW(PYMYXI]3 SCANT WATCH JAR AND LOSE CONTROL, TOO, 
ArJd+90}] * BIOs 

ArJ+91) + Bi); 

ACJ+92) «© X&BI5](4225893)3 

Af LBO0+PIMIXIJeUSERCODFLPIMIXI3 
DISKWAITCA.CCF]*210eFSPDISKTOP+1)3 

UNLOCKTOGCABORTMASK)3 


FORGETSPACF (AIS 


22901000 


22902000 


22903000 
22904000 
22905000 
22906000 


22907000 
22909000 


22910000 
22911000 
22912000 
22913000 
22914000 
22915000 
22916000 
22917000 
22918000 
22920000 


22921000 
22922000 


T 000030 
ADDRESS # 00758 


T 000030 


T 0000:0 


000030 
000080 
000483 
000631 
22906000 
0009%3 
0012%2 
22909000 
002082 
002143 
002310 
002714 
002841 
0030%1 
0032%1{ 
003531 
003741 
003913 
22920000 
004331 
008481 
22901000 
SizZe2 0045 wORDS 


ass 


Att st ns tt ++ 


“4-4 


PRT(665) = 


STACK ¢F 41) 
STACK¢F 42) 
STACK ¢F 43) 
STACK (F 44) 
STACK¢(F 45) 
STACK(F +46) 
STACKOF +47) 
STACK¢CF +10) 


$ SET OMIT = NOTCNATACOM ) 
REAL SPACESTACKS$ 
sPacrSTack 
SAVE PROCEDURE FORGETSPACFCLOC)3% 


22999999 
23500000 


24000000 


START OF SAVE SEGMENTS BASE 


VALUF LOC} 
REAL LOCH 
BEGINS 

; RFAL R,BACKoFsFRONToLINKe X,T»SIZEI% 

= B 

= BACK 

a F 

FRONT 

L, INK 

Xx 

T 

= SIZE 


LOC « *P(,10C) INX O "23% 
TF (Be MEBACKe CLINKe MCLOC]).CFFII),CCFIFLOC OR 
CFeMrPFRONT*LINKECFI])e£FFI#LOC OR LINK<O THEN 


PUNT(3) 5) ® INVALID LINK 
1F F<O THEN AREA 1S AVALLABLE 
BEGINS 


MCLOCJeLINK &FLICTCI3% Pout To ged Forrodme ager 
MEFI@MPE) & LOCECTFISS made pod rUdows Aten Pout BACK To HELE 
MCTeMCFRONT+2)]6MET) &CX@MEFRONT#1 2) CCTCIES 


MUX+4]¢TS% 
END3% 
TF BK<O¥ 
THENS PRECEDING ABER 18 AVRIL ARLE 
BEGIN 


MCBACK]+BaCTeMCLOCI]CCFIICCTCI3% 
MCTJ©MCTIg BACKECTFI3% 

MEBACK41 JeMCBACK+1LI&CSIZE*T@*BACK@2)(CTFI3% 
ENQE 


ELSE ZBACK IN USE 
FEGING 
MCLOC+2 I] ¢AVaAILsg 
MCLOC+1]¢c¢TeMCAVAILI) &CSIZE*MCLOCI,(CF J*LOC™2CCTF 
13% 
MET+L]¢LOce13% 
MCAVAILJeT gCLOc+1I (CTC 
3 MELOC)e=MELOCI]sZ 
END$% 


IF LOCSLEFTOFF THEN FF MELOCJ,CCFI>LEFTOFF THEN LEFTOFFe*MCLOCILCFF Is 
$ SET OMIT = NOTCDERUGGING OR CHECKLINK) 
FND FORGETSPACESS% 


24001000 
24002000 
24003000 
24004000 


24005000 
24006000 
24007000 
24007100 
24007200 
24008000 
24009000 
24010000 


- 24011000 


24012000 
24013000 


24014000 
24015000 
24016000 
24017000 
24018000 
24019000 
24020000 


24021000 
24022000 
24023000 
24024000 
24025000 
24026000 
24027000 
24028000 
24029000 


24030000 
24030100 
24031000 


T 000030 
T 000030 


T 000030 
ADDRESS #® 00655 
T 000010 
000030 
000080 
000010 


44-4 


000070 
000430 
0009120 
001410 
001594 
001630 
001682 
001842 
0021%1 
O027%2 
002833 
24008000 
0029%2 
003030 
003084 
003083 
003482 
003731 
0042%2 
24016000 
004212 
0042%2 
0043150 
0045140 
0050:3 
005132 
0054'0 
005533 
005732 
24022000 
005930 
006340 
006310 
24003000 
StZee 0065 WORDS 


AAAs HA HH HS 


oe in i i ee 


PRT(666) = 


STACK¢(F42) 
STACK ¢Fa3) 
STACK (F +4) 
STACK ¢F 45) 
STACK ¢F 46) 


SAVF INTEGER PROCEDURE ACTSPACECSIZFE»SAVEF)3 


ACTSPACE 
VALUF STt7FseSAVEFS REAL SYZE$ BOOLEAN SAVEFS 


W MWe He 


BEGIN REAL 


LINK 


LOC 
X 
Y 
T 


24032050 


START OF SAVE SEGMENTS BASE 


LINK» LOC ao Xe VoT$ 


$ SET OMIT = NOTCSTATISTICS) 
RFAL SIZEFal.OS$ 


STACKeF47) = SIZEF 
STACK¢F410) = LOS 


LABEL 


SVSTARTsSVSEARCHs START s OVSEARCHs XX sROCKABYE3 


IF SAVEF THEN ATTEMPT TO ALLOCATE AT START OF MEMORY 


BEGIN 


SVSTART}$ 
SVSEFARCH3 


LINK&t=sMC0O73 

IF CLOCSsLINK,£CF1)30 THEN GO TO ROCKABYE3 

IF CLINK « MfL0c})20 THEN 

BEGIN IF NOT LINK,£2%1] THEN 

BEGIN & OVRLAY ONLY IF POTENTIAL SPACE ADEQUATE 
SIZEF « =93 X + T + LOC} 
IF cY¥eLINK,CFFI]) # 0 THEN 
IF MEY) < 0 THEN SIZEFeMECT+Y)41),0F FI) 

WHILE SIZE>SIZEF AND CYe#MEX1).C1!9)#4 DO 
SIZEF « S|ZEF = X + (CX « Y,CCFI)3 
IF SIZE > SIZEF THEN 
BEGIN LINK « Y3 GO SVSEARCHS END3 


TF OLAYCLOC) THEN & RE*SET "LINK® 
IF CY*MrfLINKeT}))>0 OR Y.CCFIaLOC 
OR MEY) CFF I#LINK THEN 
% MEM LINK AT *"T"* NO LONGER VALID 
GO TO SVSTART ELSE GO TO SVSEARCH 
FLSF GO TO SVSEARCH3 
FND ELSE 


GO TO SVSFARCHS% 
END3S& 


IF CSIZEF © ME T*#LOC+1),CFFI<SIZF THEN GO SVSEARCHS2 
MrACTSPACE §=LOC)tezABSCLINK& iL 2s4724))3 
LyNK « MCTI3 MELINKe1] © Y «© MET4#1I333 
MOY] «© CRPCDUP)&LINKECTCISS 
IF SUZEF>SIZE+DF LTA THEN 
BEGIN MELOC) © ¢X © *PCDUPIIBCY + LOCHSIZE+2)(CTCI3% 
MEX] © c#PCDUP)IBYCCTFISS 
MOY) © X,CCFISRLOC(CTFI3% 
FORGETSPACFEY+293% 
END? 


END ELSE 


IF SAVFF>63 OR TOGLE,MEMNO20 THEN 
BEGIN® ALLOCATE ON "SPACE AVATLABLE™ BASIS 


STARTS 


24032100 
24032200 


24032300 
24032700 


24032800 
24032900 
24033000 
24033100 
24033200 
24033300 
24033400 
24033500 
24033600 
24033700 
24033800 
24033900 
24034000 
24034100 
24034200 


24034300 
24034400 
24034500 
24034600 
24034700 
24034750 
24034800 


24034900 
24035000 


24035100 
24035200 
24035300 
24035400 
24035500 
24035600 
24035700 
24035600 
24035900 
24036000 


24036100 
24036125 


24036150 
24036200 


T 


0000:0 


ADDRESS # 00720 


T 
T 


4+ 


Te 


AAHH HAA OAS HHS 


—t 


aa 


000010 
000020 


000010 
0000:0 


000030 
000030 
0002I4 
000233 
000382 
000533 
000733 
000911 
000933 
0012180 
001333 
001941 
0023141 
002612 
002731 
24034200 
002930 
002933 
0033:2 
003632 
0036%2 
0037:2 
003732 
24033500 
0037:2 
0037:2 
24033400 
0037:2 
0041:2 
0084:3 
0050:0 
0052/1 
005312 
005631 
0060:2 
0063:0 
O0064:4 
24035600 
006434 
24033000 
006at1 
0067:0 
0067:2 


IF CLINK « POLISHCMCAVAIL]» O, SIZE» CFXs LLL 
Os INX» oT»o STD) CFF ISO77777 THEN 
REGINS 
OVSEARCH!% 
IF CLINKSSMCLEFTOFFIJ).£1:2) = O THEN 
BEGINS OVERLAY ONLY IF POTENTIAL SPACE ADEQUATE 
SIZEFsF923 XteLEFTOFFS 
IF CYSSLINK, CCF] # O THEN 
1F MLY) < O THEN SIZEF «© MEY4+1), CFF 3 
WHILE SyZE > SIZEF AND CYeMEXI),Ci227#1 DO 
BEGIN S}ZEFeSIZEFSY.CCFI"XS XeYeCFF) ENDS 
IF SIZE > SyZEF THEN 
BEGIN LEFTOFF «+ Y,CFFI3 
IF LEFTOFF20 OR X20 THEN GO TO XX 
FLSE GO TO OVSEARCH END3 
IF CIF PiMIX#0 THEN 1 ELSE 
IF (XtzLINke(926))#PIMIX THEN 1 ELSE 
CCTWOCX) AND OLAYMASK)#0)) THEN 
tF OLAYCLEFTOFF) THEN GO TO START? 
ENDS 
IF CLEFTOFFeOLINK CFF I250 THEN 
XX$ IF LOS THEN GO TO ROCKABYE ELSE LOS#13 
GO TO OVSEARCH3 
END? 
TF (CSIZEF © LINK EFFI)>SIZE+DELTA THENS 
BEGIN MIT) © LINKRCX « SIZEF@SIZE*2)CCTFIES 
LOC # T+Xoase 
X © CY © MrTe1)dRCTPLICCTE ISS 
MEY) © ¢#PCDUP)IBLOCLCTF IE 
MECT@4) « YRLOC(ICTCI:% 
END ELSE 
RBFGIN 
MCLINK+4) © Y © MET+1I3% 
MCY] © (#PPCDUP)IRLINKICTCI3% 
X « MELOC « T71]3% 
ENDS 
MPACTSPACE $=LOCT#eABS¢X8102847811)3 
FNN FLSF GO TO SVSTART3 % MEMNO#0 


$ SET OMIT = NOTCSTATISTICS) 
MrLO0c41)%=03 
ROCKABYF? 
END ACTSPACES 


24036300 
24036400 
24036500 
24036600 
24036700 
24036800 
24036900 
24037000 
24037100 
24037200 
24037300 


24037400 
24037500 
24037600 
24037700 


24037900 
24036000 
24038100 
24038200 
24038300 


24038400 
24038500 
24038600 
24038700 


24038800 
24038900 
24039000 
24039100 
24039200 
24039300 
24039400 


24039450 
24039500 
24039600 
24039700 
24039800 


24039900 
24040000 


24040100 
24041900 
24042000 
24042100 


AA HARM H ANIA 


AAA AA HHH ABH HAAR A AHHH 


a+ 


4a44-1 


0067!2 
0069i2 
007231 
0072:3 
007213 
007531 
007513 
0077:2 
007931 
0084:14 
0088:4 
24037300 
0094:0 
0094:3 
0096:2 
0096:4 
24037500 
009934 
010131 
010414 
0106:0 
0108:0 
24036800 
0,08:0 
040983 
011210 
0112:°2 
24036500 
011232 
041433 
0118:3 
0120:2 
012430 
0126:1 
0126:3 
24038900 
0128:°3 
01291 
013370 
0135¢1 
013733 
24039450 
0137:3 
014130 
24036150 
014130 
014130 
014340 
0143180 
24032200 


SIZE= 0144 wORDS 


SAVF INTEGER PROCENURE GETSPACECSIZF es TYPES SAVEF) 5 


VALUE STZE>TYPE»SAVEFS3 
REAL S1Z7FeTYPE# BOOLEAN SAVEFF3 
BEGIN 
REAL, COUNT»T»MESS$3 
STACK¢F42) = COUNT 
STACK¢F43) = T 
STACK(F 44) = MESS 


% £156" 
% FIELDS OF SAVEF PARAMETER £156" 
% ¥156= 
FIELD %156° 
NEEDOLAY 2 09139 & THIS FIELD IS NON ZERO IF 
® REQUESTOR WANTS OLAY SPACE 
TYPENOMEMANDRE TURN w 45804 & TF SAVEF,£45102) = 3 THEN 
»JUSTRETURN = 46304 & GETSPACE WILL TYPE OK MEM 
e GETFROMFRONT 2 47304 & YF SUCCESSFULL, %156= 
; %156 
LABEL NEWSTARTS 
SUBROUTINE TELLSPO) 
REGIN PCMESS#0 OR SAVEF,£45%2]%3)3 %156= 
IF CMESSS=<GETSPACE(35022)42)"2 THEN PUNT(3)3 
MeMESS°21,(986) 3203 549" 


STREAMCX8=P8 PiM[ Xs StZEe MESS)3 
REGIN SrishLOc PiMr1X3 nSt22 pecs 
USts8 LrT" NO MEM "3 
DSt=5 DEC# DSte#5 LiT” WOSe"3 
XCDT8sDyri7s DSte2 LIT"OK")3 
END: 


PeDEL)? 
ITOREQUEST(MESS&@274(1:4098], PCDUP)>» 
£1718@231610240:8))3 
END OF TELLING SPO aROUT NO MEMS3 


NEWSTARTS 


1F NOT STOREDY THEN SLEEPCETOGLEJ »STOREMASK )$ 
LOCKTOGCSTOREMASK)3 


£ SFT OMIT = NOTCDEBUGGING OR CHECKLINK) 
PeSPACESTACK,STS)3 
TIteACTSPACECSIZEsSAVEF)3 
PCEMESS1eS8TS)3 
UNLOCKTOGCESTOREMASK); 


tF T#O THEN 
BEGIN NOMEMTOGi=i3 

IF SAVER, JUSTRETURN THEN PeOsRTN)3 £156" 
IF SAVEF,TYPENOMEMANDRETURN THEN 4156 
BEGIN ¥156= 

TELLSPO}3 %156° 

PcCO»RIYN)3 ; %£156= 
ENDS %1568 


NOMEM*NOMEM4$3 
TAREPIMIXI], C2081) 0813 


24042200 


START OF SAVE SEGMENTS BASE 


24042300 
24042400 
24042500 
24042550 


24042555 
24042560 
24042565 
24042570 
24042575 
24042580 
24042585 
24042590 
24042595 
24042596 
24042600 
24042625 
24042650 
24042675 
24042680 
24042700 
24042725 
24042750 
24042775 
24042800 
24042825 


24042850 
240462875 
24042900 
24042925 


24042950 
24043000 
24043100 


24043200 
24043500 
24043600 
24043700 
24043800 


24043900 
24044000 
24044400 
24044440 
24044120 
24044130 
24044140 
24044150 


24044200 
24044250 


T 0000:0 


ADDRESS # 
T 0000:0 
T 0000:0 
T 000030 
T 0000:0 


0000:0 
000030 
0000:0 


00864 


AAA AH AOAVAHANAIANAANAAD 


44-44 


a+ 


“4 


+4 


—+ 7 AMo0o0ov-44 


0000:0 
0000:0 
000070 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
000070 
0001:0 
000381 
OOO7#4 
0010:2 
004230 
0012!2 
001333 
004530 
0016t2 
24042725 
001633 
001730 
001833 
002031 
24042650 
0020%2 
002210 
002530 
24043100 
0028!2 
002812 
O0029N1 
003043 
003132 
24043800 
003530 
00353 
003830 
0039%3 
0040%2 
0041:0 
004230 
0042t2 
24044120 
004232 
O045tt 


IF CCOUNTe#COUNT#+19>5 THEN 
IF MESS®0 THEN TELLSPO; 
SLEEPCECLOCK]s» NOT CLOCK)3% 
NOMEM*#NOMEM™] 3 
TARLPIM?EXJ,62081)%=03 
GO TO NEWSTART#% 
ENDS 


MPGFTSPACE&=TI8=CeP (NUP) IATYPEL SIMO: 6IRPIMIXE9S4296)3 
IF MESS#0 OR SAVEF.C45:2]"#3 THEN TELLSPO$ 
END GFTSPACES 


4156 


24044300 
24044400 
24045100 
24045200 
24045250 
24045300 
24045400 


24045500 
24045600 
24046200 


SL 


T 
p 
T 


004713 
004982 
005210 
005333 
005622 
005910 
005932 
24044000 
005932 
006333 
0068:0 
24042500 


SIZF* 0069 WORDS 


STACK¢F42) = LOC 


PRT(160) 
PRT(161) 
PRT(162) 
PRT(163) 
PRT(164) 
PRT(165) 


= 


tNDEX 
SEG 
CNTRS 
SIZE 
LIMIT 


r 


SAVE INTEGER PROCEDURE DISKSPACECWORDS* MIX» AUX)3 


VALUE WORDS eMI Xe AUX? 
INTEGER WORDSoMIX3 REAL AUX3 
REGIN ARRAY LOCe+2( 4); 


INTEG 


REAL 


LABEL 


OFFIN 
REAL 
RFGIN 


FND F 


SURRO 
RFGIN 


ER INDEX®NT1» 
SEG #NT2>» 
CNTRS=NT3> 
SIZE =NT4> 
LIMIT#®NTS3 
T =NT63 


Lie 
FINAL» 
BADEXIT» 
EXIT} 
FE HEURTSTIC = 283 
SUBROUTINE FINDSEG3 
$8 STREAMCACOET)3 
BEGIN SrelLoc T3 S1#S]4#33 
SCTF SC="0" THEN JUMP OUT TO L3 
Sle#Sle+1*) TALLY*TALLY+1)3 
Ls AeTALLY? 
END STREAMS 


FINDSEG « POLISH 
INDSEG3 


UTINE FIND: 

POLISHC0)3 

T + LOCLINDEX]3 

SFG « T,(9'3)3 

CNTRS « T,C2e7]3 

IF SFG>4 THEN 

IF (SEG © FINDSFG)I35 THEN GO TO FINAL 

ELSE CNTRS «03 

IF S1ZF4+CNTRS>100 THEN GO TO Li3 

P(CDELea CINDEXx256)4SEGx1004CNTRS)3 

STREAMCA¢O!SEGeTerT1)3 

BEGIN SyeT# SyeSy+33 SypeSz+SEG3 
DI*LOC AS DyeDI473 SEGeDI3 
TeSI} DS*CHRS TALLY@AS 
TALLY*TALLY443 AeTALLY3 
S1teSFGS DreT3 pHS*eCHR3 


END STREAM: 


IF CPOLISH#63) OR ¢CCNTRS + CNTRS4SIZE)#100 THEN 


BEGIN CNTRS « O$ SEG « FINDSFG ENDS 


LOCC INDEX) «© TRSEGEIPASEZIBCNTRSpotars7y3 


24101000 


START OF SAVE SEGMENTS BASE 


24102000 
24103000 
24104000 


24105000 
24106000 
24407000 
24106000 
24109000 
24110000 


24111000 
24142000 
24112500 
24113000 
24414000 
247115000 
24116000 
24117000 
24118000 
24119000 
24420000 
24121000 


24122000 
24123000 


24424000 
24125000 
24126000 
24127000 
24128000 
24129000 
24130000 
24131000 
24132000 
24433000 
24434000 
24135000 
24436000 
24137000 
24138000 
24139000 
24139500 
24140000 


24141000 
24142000 


24143000 


T 
ADD 
T 


T 
T 


T 
T 


~4 -t 


AAMT Hatt a 


a+ 


AA ANHA HHH ASH 


4-4 


-" 


0000:0 
RESS = 00933 
0000:0 
0000:0 
000080 


0000:0 
0000:0 
000010 
000080 
000010 
000010 


0000:0 
000010 
000030 
000030 
000080 
0000:0 
000410 
000281 
000233 
0004:0 — 
0004383 
000510 
24117000 
000514 
000521 
24146000 
000513 
000610 
000621 
000731 
000812 
000933 
001032 
004310 
001434 
0016:0 
001842 
0020:0 
0021:0 
002143 
002330 
002332 
002431 
002431 
24135000 
002412 
0027130 
24142000 
002932 


FINALE CDISKSPACE «+ POLISH)#0 THEN 

IN IF SEGe&5 THEN INDEX © O03 
LOCCTO) « LIMIT T&INDEXLCTF)3 
GO TO EXIT: 


FND END FINDS 


IF 
BEG 


$ SET OMIT = NOTCAUXMEM) 
PeDALOCROW(M]X7)3 
S17F © CWORNDS4+29) Div 303 
TF CLIMIT t= LOCLO1,°CF1)#0 THEN GO TO BADEXIT! 
IF CINDFEX « LOCLO),CFFI2#0 THEN FIND3 
INOEX « 23 
NO FIND UNTIL CINDEX te INDEX#2)>LIMIT3 
BADFEXITS 
DYSKSPACE ¢« #33 
EXITS 
$ SET OMIT = NOTCSTATISTICS) 
STRFAMCASORLeLIMIT C4186] eTefLOCrli13))3 
BFGIN SJe«T; ODIe«A3 
LUcSyeST4113 
5¢CrF SC="O" THEN DIeDI+9% SleS141))3 
AeODT3 
END STREAM} 


TF CPOLISH<HEURISTIC) THEN 
IF CCSFG «© TWOCMIX)) AND OLAYMASK)#0 THEN 
BEGIN OLAYMASK « NOT SEG AND OLAYMASKS 
INDEPENDENTRUNNERCPC,GETMOREOLAYDISK) »MIXe100)3 & 
ENDS 


END DySKSPACES 


24144000 
24145000 
24146000 
24147000 
24148000 


24148999 
241450000 
24151000 
24152000 
24153000 
24154000 
24155000 
24155500 
24156000 
24157000 
24157199 
24156000 
24459000 
24160000 
24161000 
24162000 
24163000 


24164000 
24165000 
24166000 
24167000 
24168000 


24169000 


003233 
003383 
003631 
003810 
0038i2 
24145000 
24125000 
003833 
003833 
003983 
004132 
004440 
004830 
004883 
005231 
005231 
005331 
005331 
005331 
005542 
005630 
005613 
005832 
0058+3 
24159000 
005940 
0059%2 
0062'1 
006434 
00652 
24166000 
0065%2 
24104000 
SIZE= 0066 WORDS 


AH AHHH HHA Ht aad 


4A + UH 


PRT¢160) 
PRT(161) 
PRT(162) 
PRT¢163) 


PRTC164) 


STACK¢F41) = LOC 


SAVE PROCEDURE DISKRTNCSEGNOs, SIZE)D3 


VALUE 


SFGNOe SIZEs 


INTFGFR SEGNO, SIZE3 
BEGrN tNTEGER I UNDEX=NT1> 


WORD SNTO>s 


COUNTENT 35 

DRUM SNT4, 

x =NTS3 
ARRAY LOC =#1C*]3 
LABEL Le 


$ SET OMIT = NOTCAUXMEM) 


La 


END 


PCDALOCEP{MIXs*])3 
COUNT © TWOC24=6x¢SEGNO.L39!9] DEV 100))3 
X # CINDEX ¢ O&S5EGN0(4423336))°13 
IF CWORD « LOCLINDEX].£18%30)"=COUNT) 20 THEN 
RFGIN LOCCINDEX] « 03 

If PcLOCLO].CFF12pUP)#40 THEN 

IF LOCLPOLISH#13]«0 THEN PCXIT)3 

LOCLO] + C#PCDUP)IRINDEXICTFI3 

FND FLSF REGIN LOCKINDEXJ« C*PC DUP) )@WORD(188183 30]; 


IF LOCEX1<0O THEN 
IF CWORD DIV COUNT),£42$6)#0 THEN GO TO L3 
END DYSKRTN? 


24200000 


START OF SAVE SEGMENT) BASE 


24201000 
24202000 
24203000 


24204000 
24205000 
24206000 
24207000 
24708000 


24209000 
24209099 
24210000 
24211000 
24212000 
24213000 
24214000 
24221000 
24222000 
24223000 
24224000 


24225000 
24226000 
24227000 


T 0000:0 

ADDRESS # 00999 

T 0000:0 

T 0000:0 

T 000010 

T 000030 

T 000080 

T 000030 

T 000030 

T 000010 

T 000010 

T 000080 

T 000010 

T 000082 

T 000333 

T 000612 

T 000910 

T 001033 

T 001212 

T 001510 

T 001710 
24244000 

T 002020 

T 002110 

T 002333 
24224000 
24203000 


SI1ZEs 0024 WORDS 


e 
& SET OMIT = NOTCHATACOM ) 24499999 TF 000010 e 
& SET OMIT = NOTCSHAREDISK) 24599999 T 000080 
$ SET OM1T = NOTCMATACOM AND DCSPO ) 24999999 T 000030 
$ SFT oMrT = NOTCDATACOM ) 25049999 T 000010 . 
$ SET OMyT = NOTCB6500,,0AD) 27990099 T 000030 
PROCFOURE LLIBRARYHELPCZ)3 VALUE 2% REAL 23 28000000 T 000010 
START OF REL SEGMENT! DISK ADDRESS * 00760 e 
PRT(667) © LIRRARYHELP 
% 28000002 T 000030 
Go ae ak i ROR OR RR RIOR ROOK OR OIGIOK IR NO RR KR ROR OIOR ROR IOI ROR RIOR IORI GR Kk RO iC ge ai ak 28000004 T 000030 @ 
% 28000006 T 000030 
% 28000008 T 000030 
% LIBRARYHELP PERFORMS INFREQUENTLY NEEDED TASKS FOR THE OTHER 28000010 T 000010  ) 
% LIBRARY MAINTENANCE PROCEDURES, 17 SHARES LOCALS BY USING THE 28000012 T 0000:0 
¥ SAMF STACK AS TS CALLING PROCEDURE» LIBRARYCOPY OR 28000014 T 000030 
%  LIBRARYTRANSFER, 28000016 T 000010 ® 
% 28000018 T 0000:0 
% 28000020 T 000030 
x Of A) SETS UP FPB ENTRY FOR {NPUT SOURCF TAPE 28000022 T 000010 e 
x RB) RETURNS DIRECTORY LEAVING TAPE POSITIONED AFTER 28000074 T 000050 
% ENDING LABEL OF DIRECTORY 28000026 T 000030 
* 28000028 T 0000!0  ] 
% 42 RETURNS AFTER SECURING A NEW INPUT SOURCE TAPE 28000030 T 0000!:0 
% 28000032 T 000080 
% et ARORT FROM LIBRARYTRANSFER 28000034 T 0000:0 @ 
3 28000036 T 000030 
¥ 33 SETS UP FPB ENTRY FOR INPUT SOURCE D1SK 28000038 T 0000!t0 
: 28000040 T 0000!0 @ 
% us ABORT FROM LIBRARYCOPY 28000042 T 000030 
% 28000044 T 000030 
x 5: INITIALIZATION OF LYBRARYTRANSFER INCLUDING LOCATION 28000046 T 0000:0 @ 
x, OF SPECIFIED OUTPUT UNIT 28000048 T 000010 
% 28000050 T 000030 
% ét FRROR HANDLING OR REEL SWITCHING 28000052 T 000030 ® 
% 28000054 ¥ 00000 
% 73 WRITING DIRECTORY [Tr NOT REEL 1 28000056 T 000070 
% 28000058 T 000030 rd] 
% &t FXTRA RECORDS DETECTED IN CURRENT FILE 28000060 T 000010 
% 28000062 T 000010 
x O98 BAD HEADER DETECTED ON SOURCE 28000064 T 000010 r 
x 28000066 T 000010 
% 103 INVALTD RECORD S1ZE ON LAST READ OR WRITE 28000068 T 0000!0 
x 28000070 T 000080 ) 
x 44! KEYIN REEL SWITCH 28000072 T 000010 
% 28000074 T 000010 
¥ 28000076 T 000010 e 
OPP CEEOL E SESS SSPE ST SPATE eee CeCe CETTE eeP eT Te eee eee eT S| 28000078 T 000030 
% ; 28000080 t 000010 
BEGIN 28000200 T 000010 ® 
REAL COMMON=@4, 28000400 T 000080 
STACK¢CF*#4) =z COMMON 
MSCWe"2> RCWe+0s 28000500 T 000010 @ 
STackeFu2) = MSCW 
STACK¢F49) = RCW 
Me ID@eRCW41> FIDeMFID41» 28000600 T 000010 ] 
STACK(F 41) = MFID 
STACK(F42) = FID e 
@ 


STACK¢(F43) 
STACK(F 44) 


STACK¢F 45) 
STACK (CF +46) 


STACK EF 47) 
STACK(F 410) 


STACK eF 411) 
STACK ¢F 412) 


STACK¢F 413) 
STACK ¢F 414) 


STACK(F 415) 
STACK (F416) 


STACK(F 417) 
STACK(F 420) 


STACK(F 421) 
STACK(F 422) 


STACK¢F 423) 
STACK(F 424) 
STACK(F 424) 


STACK¢F 425) 
STACK(F 425) 
STACK(F 426) 
STACK(F 426) 


STACK ¢F427) 
STACK(F 427) 
STACK ¢F 430) 
STACK¢F 430) 


STACK¢ F431) 
STACK (F431) 
STACK(F 432) 
STACK (F432) 


STACK(F +33) 
STACK¢F 433) 
STACK¢F 434) 
STACK (F434) 


STACK¢ F435) 
STACK(F 435) 
STACK (F436) 
STACK¢(F 436) 


STACK¢F 437) 
STACKEF 437) 
STACK¢F 440) 


a oft 


AuiwWwia nano annsin # uN oH 


ASMFID 
ASFID 


TMP. 
TEMP 


FA 
FATNFO 


FASZ 
FAIN 


TU 
T 


FPBPTR 
IREEL 


NM 1 
NM? 


DESTIN 
TOGS 


DA 
CCAIN 
OU 


EAN 
OREEL 
NaN 
N 


ASMFINSFINe1» 


TMPEASFING] 


FARTEMP41>5 


’ 


FASZ=FAINFO+1 » 


PUBFAING1, 


FPRPTRs=T +1 r 


NMLETREEL +4 


DESTINSENM24+14 5 


NAZTOGS+t, 


FAYN=CCAING1> 


NA=NATN41>, 


LSXeNASZ744% 


CNTENA, 


OUCELSX» 


POOLSBUMPFA+1» WsPOOL>s 


UNe&INDXe1, 


MAXSSEG+1» 


QzUNe 


TMaMAX, 


ASFIDSASMFID41. 


TEMP& TMP 445 


FAINFOPFA41s 


FAIN=FASZ415 


TelUete 


IREELSFPBPTR+1> 


NM2aNM] 


+1. 


TOGSEDESTINGS» 


OREELEFAINe 


CCAINSDA41 >» 


NAIN@#EAING1 2 


NASZHNA41» 


OU=CCAIN, 


N=NAINe 


INCSNASZ» 


BUMPFASLSX+i» Y2BUMPFA,» 


INDX=POOL41>» 


SIZESINDXs 


SEGRUNe1» JeSEG» 


KeMAX41> 


28000800 


28001000 


28001200 


28001400 


28001600 


28001800 


28002000 


28002200 


28002400 


28002600 


28002800 


28003000 


28003200 


28003400 


28003600 


000030 
omae 
000030 
0000:!0 
0000!0 
000020 
000010 
0000:0 


0000:0 


000030 


000030 


000030 


000020 


000030 


000010 


STACK¢F 441) 
STACK(F 441) 
STACK¢F 442) 
STACK¢(F 442) 


STACK(F 443) 


STACK (F444) 
STACK ¢F +44) 
STACK ¢F 445) 
STACK¢(F 445) 


STACK (F446) 
STACK¢F +46) 
STACK (F447) 


STACK¢F 450) 
STACK (F451) 


tuuwk& 


LeKei.s Ushs 
L 
U 
MIDPTR 
SV 
UNTTNOsMIDPTR+ 
UNIT TNO 
ARRAY 
COASUNTTNO+1E * 
CCA 
H 
xX 
AROW 


PAPSX4+1f*J)»e TONsPAPSel, 


PAP 
10D 
LAB 
LBL=LAB+IC#I» 
LBL 
WRNSZ 
$ SFT OMIT = NoT¢R6500 


MIDPTReL+12 SVeMIDPTRes 


13 


J» HECCAL¥*]» XECCA+1(%*]s AROWSX[*), 


LABePAPs+i[*]e 


WRDSZ=LBL41(0*)3 


LOAD) 


LABFL. TRYNEXTe TRYAGNsF INDI Ts BACs HACK oP 1 oP 2sP35EXITsST» TAPEPARS 


LABEL CASFO,CASFI.C 
DEF TNE 
BACKSPACER 
SPACER 
MM 
SM 
NSED 
UNI TNUM 
SPOUTUNIT 
FORKED 
R6500 
OF 
FROMCOPY 
RFFLSwW 
REFLISTART 
SKIPNIR 
SPACTTSW 
CHKLBL 
COPYING 
OUTAPEPARITY= 
SKIPFILE = 
NUMPDIR s 
SWITCH SWITSECASFOs 
P2-CAS 
OEP SC LSE SS ELE Se Te Ss 
DEFINE NOTCOPIENCNO 
BEGIN NT3%sNOT 
SUBROUTINE NOCOPYME 
LAMESS( ABSCMF 
ook ee ek OK kk Ok Kk 
SUBROUTINE ABORT? 
REGIN 
1F COPYING 
THEN TF OUF18 
THEN BE 


Hou how uu HU Hh an RW on Has 


ASEP+ CASE 30CASEAS CASES + CASEG + CASE» CASED$ 


SRO ZH00LCTFIX> 
S&P yuOOrcTFi#,s 

O377000404Fr 

@37700000#» 

CTERMSFICPIMIX))#» 

r1:S)#, 

OF, 

TOGS,C23:1)]#, 

TOGS,C24s1]#, 

TOGS, [26:1] #, 

TOGS.C2731)%, 

TOGS,(33t1I)#, 

TOGS,C3421)#, 

TOGS,£35:1)#, 

TOGS.C36s1I)#, 

TOGS. C3731 14s 

TOGS.C38t1I)%, 

TOGS, C3981) 4, 

TOGS,C40s1I]#, 

TOGS.C42ri1] 4; 

CASEI CASE2°CASE SS CASES S CASES +CASEOOCASET7 >» 
E9sPLsTAPEPARS 

Se a aR aOR kk ek ak ak i ROR ake 
TCOPTFH1) & 

COPYED13 NOCOPYMESSS END#S 

SS} 


Z148-° 


1D)» FrD. "675 NI35 TINULIUJ» SPOUTUNIT.» 14 93 


2 fe ak agi aia aka kk kk dk aK ok 


GIN PCDITRECTORYSEARCHCMFID®FINs6)+DEL)3 


28003800 


28004000 


28004200 
28004400 


28004600 


28004800 


28005000 
28005800 
26006000 
28006200 
28006400 
28006600 
28006800 
28007000 
28007200 
26007300 
28007400 
28007600 
28007800 
28008000 
28008200 
28008400 
28008600 
28008800 
28009000 
28009200 
28009300 
28009400 
28009600 
28009800 
28010000 
280140200 
28010400 
28010600 
28010800 
28011000 
28011200 
28011400 
28011600 
28011600 
26011810 
28011820 
28011830 


st ns at tt st tH HHO Fs A A Ht 


0000:0 


000030 


000070 
0000:0 


000010 


0000:0 


0000:0 
000030 
000030 
0000:0 
000030 
0000%0 
000030 
0000!0 
00001t0 
0000!0 
000030 
0000:0 
000080 
000030 
000030 
000080 
0000:0 
000030 
000030 
000030 
000010 
000030 
000030 
000010 
000030 
000030 
000030 
000030 
000010 
000010 
000130 
000434 
000434 
000530 
000530 
0005:0 
000682 


FND} 


Sy OR RIOR IOIOR GOR UR IGOR RII IOOIGIOI SIR IUGR IIOIOR RIOR SUE ORR dd Hg 


CLSE BEGIN PCWATTIOCE™M]»@40/0U)sDEL)3 
PCWAITIOCLBL&P5000(CTFI1+@4000U) NEL) S 


END 


OF t205 & NOT OPENED EXCLUSIVE 


END} 


IF NOT FROMCOPY THEN 
BEGIN IF OU GE® 0 THEN 


BEGIN IF OU LSS 16 THEN 

REGIN BLASTQCOU)3 
PCWAITIOCE TM] 5@40+00U)eDEL)3 
SETNOTINUSE ¢(OUs1)3 


ENDS 


STOPTIMING(O,1023)3 


END: 


IF tr. GE@ QO THEN 


IF TU LSS 16 THEN BLASTQCIUDS 


FND ELSE 


WHILE CCALC29)] NEQ O HO 


BEGIN SEGERSCCAL2Z913 DISKWAITC@CCAICF1e30eSEG)3 


FORGETESPDISK¢(SEG)3 


ENDS 


FOR TMPt=0 STEP 1 UNTIL CFAIN DIV 2) DO 
TF CTEMPS=M(FAINFO+TMPJ)).fCFI&18 THEN 


IF TEMP,£1784) THEN ELSE 


PCDIRECTORYSEARCHE*CTEMPe LFF J] 3013020) »DEL)3 
IF OF THEN PCDIRECTORYSEARCHC@MFIDeFIN#®14)»DELDS 


TF FORKED 
THEN REGIN 


END 


FLSE FOR TMPt=5 STEP & UNTIL CNTZS=PRTICPIMyXs3)),78210195 po 
INX ¢TMP+4)] LSS O THEN 

BEGIN IF ¢cTEMPS=MCNT{ INX (CTMP4#3)],036%6]"1) LSS 16 
THEN SETNOT]NUSECTEMP20)3 
STOPTIMINGCTMP,1023)3 


IF ME 


END 


FOR TMPts0 STEP } 
IF LABELTABLEC TMP) LSS O THEN 
TF RNCTABLECTMP),£FAt6)ePiMIX THEN SETNOTINUSECTMP,0)3 
$ SET oMrT = PACKETS 


IF 
IF 


NT1 


TU GEQ O THEN 


IU LSS 16 THEN SETNOTINUSECITU,0)3 
STOPTIMINGCFPBPTRs1023)3 


STREAM(T&sTt=SPACE(5))3 


REGIN DSte?1LIT"LIBRARY COPY ABORTEDe™3 END; 


SPOUT(T)3 
GO INITIATES 


UNTIL 15 DO 


28011832 
28011834 


28011840 
28011850 
28011860 


28012000 
28012010 
28012020 
28012030 
28012040 
28012060 
28032070 


28012080 
28012090 


28012100 
28012110 
28012120 


28042130 
28012140 
28012150 
28012160 


28012800 
28013000 
28013200 
28013400 
28013600 
28013800 
28014000 
28014100 
28014200 
28014400 


28044600 
28014800 
28015000 
28015200 
28015400 
28015600 


28015800 
28016000 
28016200 
28017200 
28018000 
28018200 


280718400 
28018600 
28018800 


28019000 


tts tt 


—4- 


ee ee ee eee ee ee ee 


qa4H444-4 


ttt ot 


414-4 


00090 
0010383 
28011830 
001083 
004283 
004530 
28011840 
001530 
001630 
001731 
001832 
001933 
002131 
0022%1 
28042030 
0022%1 
002311 
28042020 
002331 
002410 
002682 
28012010 
002612 
00292 
003233 
003382 
28012140 
003430 
003831 
004141 
004330 
004631 
OO4984 
004984 
0051314 
005410 
005570 
280;,4000 
005530 
006132 
0064:0 
0068:0 
0070:0 
007440 
28045000 
007132 
007330 
007430 
0079183 
007933 
0082:2 
28018200 
0085#3 
008730 
0087!t2 
28041800 
008733 


BOOLFAN SUBROUTINE LABFLCHECK3 
BEGIN 
TRYNEXT! 
PcWAYTYOCLAB INX @420540000000505 U)sDEL)3 
$ SET OMIT = NOT(BE500L0AD) 
TF @4O#WATTIOCSPACER,@40+1U) THEN 
PCWALTTIOC@4740000005+051U) »DEL)3 
1F DSED THEN ABORT} 
IF CNOT B6500 AND CONFLAGCLAB(OJ).£6%42) FQV "LABEL 
OR (NFLAGCLABL2]),£6:824] FAV “FILE™)#NOT 0)) 
$ SET OMIT = NOTCR6500L0AD) 
THEN BEGIN 
STREAMCAtE(TYNUPIU]] »>T&eTsSsSPACE¢(10))3 
BEGIN STteAsSyteSpe5sNStebLII™, *3NSts3 CHR3 
DSte21 LIT™ NOT A LIBRARY TAPE e"3 
FND3 


SPOUTC(T)3 Tizt3 
END ELSE Tie03 


1F T=0 AND NOT B6500 THEN 
TF NFLAGCLARBL2))2,£30218]=0 AND SKIPOIR THEN 
BEGIN 
SPACITSWS=33 CHKLBLSsFALSE; 
GO TO BACKS &BRANCH NTO SPACIT, 
RAC? 
SPACTTSW%sO03 CHKLBLYsTRUES 
GO TO TRYNEXT3 
FND3 


LABELCHFCK&=T3 
ENDS 


"#NOT O 


FRO OCI GIO GIGI OIGISIOI I IOIGIOI III IOIUISI OIG IGIGIOIOIOR a IGIOIOIOIOI OI IOI I i ik ak 


SUBROUTINE FINDTHETAPES 
BEGIN 
FINDITS 


THEN ABORT? 
NM1 UNTTNUME 203 


TF CLTUSeF PND INPUTONMy oNM2eTREEL oOo 000s 0r0e ie FPBPTR)) « 0 


¥146= 


TREELPeRDCTABLELIUI.£14%10)3 SFORCE REEL CONTINUITY IF JL@ED, 


RRRMECHSeTWOCTU) OR RRRMECHS 
R6ESOOtRPRNTABLETIUI.£221]3 

$ SET OMIT = NOTCBE500L0AD) 
IF CHKLRL THEN IF LARELCHECK THEN 


RF GIN 
SETNOTINUSEC1Us1)3 
GO FYNNITS 
FND3 
% STARTIMINGCFPBPTR,IU)3 DONE IN FINDINPUT 
* MEPRTEPIMPXs3) INX CSXPREEL4+321,02391] = 13 


ROCTABLECTUI,([&&#6])%=PIMyX3 
STREAM CStmPRNTABLEL1U},£16230JeTtal(TI)3 
BFGIN SItmLOc S# NStsBpECs OL teDpe73 OSte6F ILL ENDS 


$ SET OMyT = PACKETS 


28019200 
28019400 
28019600 
28019800 
28020000 
28021800 
28022000 
28022200 
28022400 
28022600 
28022800 
28023600 
26023800 
28024000 
28024200 
28024400 


28024600 
28024800 


28025000 
28025200 
28025400 
28025600 
28025800 
28026000 
28026200 
28026400 
28026600 


26026800 
28027000 


28027200 
28027400 
28027600 
28027800 
28078000 
28028100 
26028110 
28028200 
28028400 
28028600 
28028800 
26029400 
28029600 
280296800 
28030000 
28030200 


28030400 
28030600 
280306800 
28031000 
28031200 


28031400 


Ht ss st te 


HAHAH HAs 


HAHAHAHAHAHA ARM 4S 


a4asas 


+ 


008733 
008830 
0088:0 
0088:%0 
0090%4 
00908 
0092142 
009482 
009830 
0101432 
010530 
010510 
01053 
0409:0 
014094 
O113tt 
28024000 
0113%2 
011532 
28023600 
012033 
012233 
012630 
0126°2 
013050 
043032 
0130:2 
013450 
013432 
28025400 
013432 
013530 
28019400 
0135?1 
013531 
013610 
013630 
0136!0 
043933 
014250 
014433 
01453! 
044730 
0449t2 
014932 
015230 
0152382 
01532 
015430 
28029600 
015430 
0154:0 
015430 
01456%2 
015841 
26031200 
015932 


FYILEMESSAGEC™ IN "&TENUCTUTL62308186),5T>» 
NM eNM2,y7REEL 2+ 0e0s0PNMESS)3 
END; % OF FYNDTHETAPE 


Fo aR ROR RFR gg ROR ROR OR Rik ia OOK tk 
ROOLEAN SUBROUTJNE ENDOFREEL? 
REGIN 
RLASTQC(TU)$ 
TF PCWATTTOCLAB INX @120540000000,@2000040s1U)+NDUP)=O20 THEN 
BEGIN % PAR ON ENDING LABEL? TEST FOR LAST FILE ON TAPECEOF) 
LABCS)2eC*PCDUP)IBCWATTIOCSPACER sO 4Oe LU e@hO) PATI a7i 433 
PCWATTIOCS&O3400LCTFI,@377+ JU) *DELD3 
END? 


£ SFT oMIT = NOTCB6500L0AD) 
NTL ieP3 
IF DOSED THEN ABORT} 
IF CCNOT B6500) AND NFLAGCLABEL4]) AND NT1#640) 
$ SET OMIT = NOTCR6SO0L0AN) 
THEN 8EGIN 
STOPTIMINGCFPBPTR»1023)33% 
SETNOTINUSECTUs0)3 
TREELSSITREEL +13 
& SET OMIT = NOTCR6500L0AD) 
NM@teLAB(2)3 
NMI t2LABC1)3 
FINDTHETAPES 
ENDOFREELS=TRUE3 
END ELSE FNDOFRFEL: =F ALSE3 


FNN3 z OF SUBROUTINE ENDOFREEL 


FE ge I ROR IR ORO I OR ORO ROI OIG GR ORR IGRI i RI dK IOC ak 
SUBROUTINE WRITENDINGLABEL? 
BEGIN 
PCWAITIOCT TM) >B840, 0 epHEL) 3 
PCWAITTIOCLBLROS5SO00LCTFI+®4020U) »DEL)3 
TF DSED THEN ABORT? 
FND$ % OF WRITE ENDING LABEL 


ESTES ESSE S ESS SPSS SL EST ST eT Pe TESST eS ST TSE SST TTC TT TT eT eT ees 
SUBROUTINE SPAC}T3&% 


BEGIN 
BACKS WHILE WAITIOCSPACER»MM,1IU)¢@40 DO 
RFGIN 
TF DOSED THEN aBORTS 
IF STOPSETCPyMIX) THEN STOPM¢0)3 
END3 


IF FNDOFREEL AND NOT SPACTTSW THEN GO BACKS 
IF SPACITS® THEN GO TO BAC$ SBRANCH TO LABELCHECK ELSE EXIT 
FND3 


TO OOO II IOI OI IDI NOR ICICI IGRI IOIGIOI II IOI IOI IGIOI HOE I REI IOI OIE 
SUBROUTINE SHORTHEADER?S 


BEGIN 
POWATTIOCH&@S000rcTr 1920768388103, 840-,0U) DEL)? 


28032000 
28032200 
28032400 


26032600 
28032800 
28033000 
28033200 
28033400 
28033600 
28033600 
28034000 
28034200 


28034400 
28036000 
28036200 
28036400 
28036600 
28037200 
28037400 
28037600 
28037800 
28038000 
28039200 
28039400 
28039600 
28039800 
28040000 


26040200 


28040400 
28040600 
28040800 
28041000 
28041400 
28041600 
28041800 


28042000 
28042200 
28042400 
28042600 
28042800 
28043000 
28043200 
28043400 


28043600 
28043800 
28044000 


28044200 
28044400 
28044600 
28044800 


HAHAHAHAHAHA HHA HHH Ht HHS 


~ 


Ate SAH Ht 


Aaa 


015932 
016132 
016333 
28027600 
016510 
016530 
016580 
016510 
016533 
016832 
016910 
0173%2 
017532 
28033600 
0175%2 
017532 
0176380 
017980 
018132 
0481432 
0162:2 
0183°2 
0184:2 
018533 
018533 
018623 
018733 
0189:0 
0189%2 
28037200 
01932 
28033000 
0193:3 
019333 
019410 
019430 
0195%2 
019713 
0201310 
28040800 
020310 
020310 
020330 
020330 
020533 
0205!3 
020930 
021193 
28042600 
021430 
0217140 
021832 
28042400 
024883 
0218:%3 
0249490 
021930 


WRITENDINGLABELS 
END3 


Fe ORI BOR RRR gg ROR IRR ORR IORI OR SOR ROK IO ak ok 
SUBROUTINE BACKSPACIT3 
BEGIN 
WHILE WAITTIOCBACKSPACER»MM,0U) #€ 840 pO 
RFGIN 
IF DSED THEN ABORT? 
IF STOPSETCPIMIX) THEN STOPM(0)3 
FNDS 
PeWATTTOC ETM] + @40,0U) o> pEL)3 % WRITE THE TM BACK 
FND; 


Fi ie eg RIOR OI OI NOR I ORR ORO IGIGIG RRR ROK IORI IO ROKR OR ok katoi ake aie ak 
BOOLFAN SUBROUTINE NOTLOANDINGFROMREEL1S 
REGIN SKIP LAST PORTION OF FILF FROM PREVIOUS REEL 
SPACITS 
TF LABFLCHFCK THEN P¢0) ELSE 
TF (CNELAGCLAB(2]) EQV "FILEOOO") = NOT O THEN 
BEGIN REELISTART:=FALSES PCL) END ELSE PC(O)3 


NOTLOADINGFROMREEL1‘sP3 
END? 


SR RR ea aR i aR ea aR RO kg NOR i iC ska oka SO aie ak ak ic ke ak 
PCZ»RCWeMSCWeSTFI$ RCWLERCWRPCXCHIECTCI)3 

TEMPi=Ps FROMCOPYt=s(TEMPeQ) OR ¢cTEMPs3) OR (TEMP=4)3 

GO TO SWITCTEMP]3 


CASEO8 
CASE3! 


TMPsePRISPiMIXe313 
FPRPTRt=FPRPTR453 

IF ¢PBPTR GTR 5 THEN 

BEGIN TMPS aGETSPACECFPBPTRsETRLNGo FPBAREAVs 194232 Z167= 
MOVECFPBPTRePRICPIMIX,3],1MP)3 

FORGETSPACECPRIFPIMIX,3);50CFI)3 

NFOCCPIMIX=1)xNOXISSPRICPIMIXe3]3= 

CME TMPII&CFPBPTR+ETRUNG) O82 38210)3 
ENN? 


IF TEMPe3 
THEN REGIN 
STREAMCBtsTMP INX FPBPTR)3 
BEGIN DSt=16LIT*ODsRCTRYODYSK "; OSt=24LyT"O"} ENDS 


STARTIMINGCFPBPTR.18)3 
GO EXT: 
END 


ELSE 

STREAMCNMItsNMiSsCCALCCAINe1L J] eBixz¢C TMP JINX FPBPTR))3 

BEGIN DS#eLIT"0O"3 STtelLOc NMI StseS]44s OSSe7CHRI 
DSteBLIT™OFILEOOO";s nStao4aLyTOMy 

ENn3 


28045000 
28045200 


28045400 
28045600 
28045800 
28046000 
28046200 
28046400 
28046600 
28046800 


28047000 
28047200 


28047400 
28047600 
28047800 
28048000 
28048200 
28046400 
28048600 


28048600 
28049000 


28049200 
28049400 
28049600 
28049800 
28050000 
28050100 
28050200 
28050400 
26050600 
28050800 
28051000 
26051200 
28051400 
28051600 
26051800 


28052000 
28052200 
28052400 
28052600 


28052800 
28053000 
28053200 


28053400 
28053600 
26053800 
28054000 
28054200 


a ee ee ee ee ee ee ee ee 


A444 HAM HAH HAHAHA tC SH? 


a4 


4a~oao4a4-+ 


022231 
022310 
28044600 
022530 
022510 
022530 
022570 
022733 
022733 
023150 
023333 
28046200 
023730 
023852 
26045800 
0238:3 
0238183 
023930 
023910 
024010 
024483 
024434 
28048600 
O2aoty 
024932 
28047800 
024933 
024933 
0252!2 
025731 
026431 
026431 
026434 
026533 
0267:0 
026733 
0271380 
027381 
0275314 
027733 
0281:0 
28050600 
028180 
026111 
028234 
028372 
28052600 
028941 
029081 
029013 
28052200 
029023 
029083 
029430 
029551 
029933 
28053800 


IReeLtet3 28054400 T 030010 
NM steCCALCCAING1 13 28054600 T 030033 
NMOs="F TL EONO"; 28054800 T 030234 
REFLISTARTtsTRUES CHKLBLE=TRUES 28055000 T 030330 
TRYAGN! FINDTHETAPES 28055200 T 030632 
$ SFT OMIT = NOT(BESO0L0AD) 28055400 T 030830 
IF NM2#LABF2] OR JT REEL#¥1 THEN 28056000 T 030830 
TF NOT NOTLOANINGFROMREELL THEN 28056200 YT 031010 
REGIN STREAMCASELTINUCYTUII,T&=TisSPace(10))3 28056400 T 033231 
REGIN STPsAsSyrzSpT+5sO0SteLyT, "308i e3CHR3 28056600 T 0316:0 
DSt=20 LyT" NOT A LIBRARY TAPES 28056800 T 031781 
DSt=LyThe3 28057000 T 032010 
END} 28057200 T 032032 
28056600 
SPOUTCT)$ SETNOTINUSFC IU )3 28057400 T 032033 
TREEL&=13 28057600 T 032330 
GO TO TRYAGN3 28057800 T 032333 
END; 28058000 T 0326:0 
28056400 
NMiseLARrids 28058200 T 0326:0 
SKIPDTR:=TRUF3 28058400 T 032730 
Xs=rpMeT#=SPace¢1024))12102378238310)3 28058600 T 032833 
PCWATTIOC( 28058800 T 033310 
$ SET OMIT = NOTCRS6500L0AN) 28059000 T 033381 
X)ROSAOOLCCTFI0,1U) DELI 28059600 T 0333!1 
$ SET OMIT = NOTCR6500L0AN) 26059800 T 033584 
IF nS&N THEN ABORT? 28061800 T 033531 
XterMrGETSPACECDAS=M(T"#1],0,1)+2)1&8DALH8838:10)3 &% RET XTRA SPACE 28062000 T 0336:0 
MOVE CD A®T®X>3 % AND MAKE Xx SAVE 28062200 T 034382 
FORGETSPACFCT)3 28062400 T 034571 
CHKLBL&=FALSES 28062600 T 034630 
TMP3=03 28062800 T 034713 
TF @40aWATTIOCLAR INX @120540000000,840,1U) THEN 28063000 T 0348%2 
IF R6500 THEN PCWAITIOCLAR NX ®120540000000,0,[U),DEL) ELSE 28063200 T 035130 
IF NOT TMP THENS CHECK ENDING LABEL IF NOT LAST FILE OR B6é500L0A0 28063600 T 0360%2 
IF ¢CNOT B6500) AND CNFLAGCLABE1J2EQ@V NM1)#NOT O OR 28063800 T 0361:0 
CNFLAG(LAB(27) ESV WFITLEO00")4NOT 0) 28064000 T 036433 
$§ SET OMIT = NOTCBE500LO0AD) 28064200 T 03661 
THEN BEGIN STREAMCASSCTINUCTUI],TMPtSTMPtexSPACE(10))3 28065000 T 036634 
REGIN SI t= AS ST t= Sy+53 DS be LIT, "3 DS te 3 CHR 28065200 T 037033 
nS tx 29 LIT ™ BAD FILEO00 ON LIBRARY TAPE} 28065400 T 0372:0 
FND3 SPOUT CTMP)3 ABORT3 28065600 T 037680 
28065200 
END} 28065800 T 037930 
28065000 
CHKLBLIsTRUES 28066000 T 037930 
S$ SET aoMrT = NOTCB65S00L0AD) 28066200 T 03680:3 
GO FXyTs 28067000 T 038083 
CASE13 28067200 FT 038380 
FINNTHETAPES GO EXIT: 28067400 T 038330 
CASE2! x FROM LIBRARYTRANSFER 28067600 T 0384!2 
CASE4!t & FROM LIBRARYCOPY 28067800 T 0384a%2 
ABORT3 28068000 T 0384:2 
CASES: | 28068200 T 036610 
OUteUte=13 DAtse®777773 & INT TYTALYZE 28068400 T 0386:0 
FPBPTRI=03 28068600 T 0O388!4 


CHKLBLSa TRUE? SKIPDTRieTRUES 
1ODs=rMrGETSPACE(69094)+27))82(8338210)3 
WROSZte4 INX LOD3 
AROW!=? INX JOD3 
AROWLOVS=(MEGETSPACE(902+001)+2)18901(83 3821013 
AROWL1 J FAROWLOIRCGETSPACE(9029001)42)°CTC]3 
Ht=rpMETYPEDSPACE C42»DISKHFADERAREAVII] & 30(8:338310)3% 
TF DESTIN,UNJTNUM & 49 THEN 
BEGIN 
COMMONt=1F DESTIN. £4286) NEQ O THEN DESTIN OR M ELSE 
IF DESTIN. £4081) THEN 4 OR M FLSE 
IF DESTIN, C4181] THEN 2» OR M ELSE O3 
OU:=183 
STREAMCBE2PRTIGPIMIX*3) INX 093 
BFGIN DStel6LIT"ODIRCTRYODISK "3 ODSss24LITVO"s ENDS 


STARTIMINGCO20U)3 
ENn 


ELSE 
BEGIN ORFELi243 
TMe aOR" eM 12378E41)73 


%167* 
3146= 


LBItarMCTAPELABELCDESTIN,NM2% =F [LE000%) 1515100) ))&10(83 38210953 


IF COUtsLABELASCRATCH¢(LBL)) LSS 0 THEN ABORTS3 
STREAMC(NSSDESTIN+SBE=PRICPIMIX*s3) JINX O93 
BFGIN NStaLTT"OwWs SpstsLoC Ns STteSlo1s NSt=7CHRs 
NStsBLYTVOFPTLEONOOMS DStsPaL ITO; 
ENDS? 


STARTIMINGCO20US 

PRNTARLECOUV&@ec*eP(NUP)) @ ¢€100)C015t33115)3 

SVs=MrFAINFO]3 

MEFASFASZI2=@443 & TO REMAIN COMPATIBLE WITH EARLIER MCPS 
PCWAITTIOCFA&(CFASZ+1 218238810 )&8@5000(CTFI+.@40,0U) DEL) 
MCFATNFOJ]%«SV$3 

WRyrTENDINGLABELS 

ENN? 


GO FXYTS 
CASE6? 
IF Yef7%1] AND YeC27!1] THEN % END OF TAPE 
IF Y¥,(2491) 
THEN % FOF ON SOURCE 
REGIN 
IF NOT ENDOFREEL THEN 
RFGIN 
PcWAIT10¢@4740000020,0377-1U)eD0EL)3 
TEMPt=mi1s & FOR NOTCOPTED MESSAGE AT P4 
1ODF1IFSLODLO]ESIOMASK: GO P43 


END3 

TF WATTIOCTODCW] INX @16040540000000sSMe TU) NEQ O 
THEN GO Pq} 

IF TODfIPWILE731) AND Y,C3#4)8100C1"W),0324)] THEN 
REGIN 


TF WATTIOCTODCL°W1sSMey7U) NE@ O THEN GO P13 
1TONC1*WI8HxC*PCOUP)) OR [OMASK$ 


26068800 
28069000 
28069200 
28069400 
28069600 
28069600 
28070000 
28070200 
28070400 
28070600 
28070800 
28071000 
28071200 
28071400 
28071600 


28071800 
28072000 


28072200 
28072400 
28072600 
28072800 
28073000 
28073200 
28073400 
28073600 
28073600 


28074000 
28074050 
28074200 
28074400 
28074600 
28074800 
28075000 
28075200 


28075400 
28075600 
28075600 
28076000 
28076200 
28076400 
28076600 
28076800 
28077200 
28077400 
28077600 
28077800 


28078000 
28078200 
28078400 
28078600 
28078800 
28079000 


i ee ee ee 


an 


ee 


ee 


ANA AMAA 


| 


0389:0 
0392:2 
039634 
039733 
O0399%4 
040312 
040730 
041083 
0412:0 
0412%2 
041532 
041840 
O42qti 
0422:0 
042430 
26071600 
042933 
0430133 
28070400 
043033 
043033 
043333 
0435%2 
043933 
044310 
044531 
044652 
0451:0 
28073400 
O451%1 
045att 
045520 
045632 
04582 
046230 
046312 
046530 
28072400 
046510 
0468:0 
046810 
046943 
O47081 
047110 
047122 
0473314 
0473183 
O475%1 
047631 
048030 
28076800 
048030 
048230 
048310 
048711 
048723 
049083 


@ 
@ ENDS 28079200 T 049331 
28078600 
FND 28079400 T 049311 
e 28076400 
ELSE : 28079600 T 049391 
REGIN % EOT ON DESTINATION 28079800 T 049381 
@ TF TOOT TAI, C731) aNn Y,c3ta)s1O0ri1"#W),03%4) THEN 28080000 T 049610 
RFGIN 28080200 T 050011 
SLFEPCLIONL LN) ]>1OMASK)3 28080400 T 050083 
e IF fODri7W).f28%1] THEN GO P33 28080600 T 050310 
rONLiSWI.fe78L)i x03 28080800 7 050511 
e FNDS 28081000 T 050841 
28080200 
TAPEPARELAL(4]t=C*PC(DUP)) OR 13 28081200 T 050884 
IF LBLO2],¢30818)]20 THEN &FTLEOOO LAST FILE 28081400 T 051013 
® STREAMCAL#J+2eBt2(LBLI2)1)5 28081600 T 051153 
BEGIN SISsLOC A$ Ditent+53 pSt#3 DEC ENDS 28061800 T 051410 
28081800 
e POWAITIOCETM)s@40s0U),DFL)3 28082000 T 051530 
POCWAITIOCLBL&@5000°CTFI,040,0U) »DELDF 28082200 T 051682 
POWATTIOCLTM12@40e0U),DEL)3 28082400 T 0518183 
& STOPTIMING(0+1023)3 28082600 T 052001 
SFTNOTINUSE (OUe1)3 28082800 T 0521391 
LALA] &eC*PCDUP)) AND NOTC1)3 28083000 T 052281 
@ STREAMCOREELS=OREELtSORFEL+4 eLBL) 5 28083200 T 052412 
BEGIN SyJ%#L0C OREEL? 28083400 T 052633 
DLtepl+243 NSt=3 PEC 28083600 T 052710 
@ END: 28083800 T 052712 
28083400 
IF COUteLABELASCRATCH(LBL)) USS O THEN 28084000 T 052733 
e BEGIN COPYINGI=FALSE$ ABORT? ENDS 28084100 T 052933 
28084100 
STARTIMING(O,0U)3 28084200 T 053330 
® PRNTABLFLOUJS=C*PCNUP)) & CrONIL151338495]3 28084250 T 0534:0 
DUMPD{Rt=sTRUES XDUMP NTRECTORY 28084400 T 053683 
END 28084600 T 053812 
© 28079800 
FLSE 28084800 T 053812 
IF Y.r721] % TAPE PARITY 28085000 T 053832 
@ THEN TF Y.62491) 28085200 T 054010 
THEN BEGIN & PARITY ON INPUT TAPE 28085400 T 054131 
Pi: COMPLEXSLEEPC CC C1ODF0) AND 10Df11]) AND ITOMASK) NEQ 0) 28085600 T 0542:%2 
@ OR DSFD)3 28085800 T 0542:2 
20582440 ACCIDENTAL FNTRY AT 1 
NOTCOPIFDC274+¢CTEMPa10)X12)4CCTEMP=(91))%6))3 28086000 T 055210 
] 28086000 
IF DSED THEN ABORTS 28086200 Y 055730 
SKTPFILESsTRUES 28086400 T 0560!0 
@ P23 BLASTQCIU)3 28086600 T 056133 
PCWAITI0C@4740000020,@37751U) +DEL) 28086800 T 056233 
IF J NE@ CCFASZ DIV 2)"1) THEN SPACIT3 28087000 T 056411 
\ IF 0U21B 28087200 T 056830 
THEN PCOTRECTORYSEARCH(MFID®FID»6) DEL) 28087400 T 056831 
ELSE BEGIN 28087600 T 057033 
 ] BACKSPACITS 28087800 T 0573%0 
SHORTHEADERS 28088000 T 057430 
e ENDS 28088200 T 057510 
e 


P33! 


END 


FLSE BEGIN ® PARITY ON OUTPUT TAPE 
IF TU LSS 416 
THEN BEGIN 


WHILE WAITIOCBACKSPACER»sMMeJU) NEQ@ 840 DO 


BEGIN 

IF DOSED THEN ABORTS 

IF STOPSFETCPiMIX) THEN STOPM(0)3 
END3 


PCWAITTIOCSPACERs @40e1U)sDELI3 % READ TM 


PCWATTIOCC#LAROWSO}) D8@5400PCTF 1202000000» [U),DEL, 3 
$ SET omMTT = NOT ¢B4500L0AD) 


IF MCAROWLO) INX NOT 0] NE@ 30 THEN ABORT? 
END 


BACKSPACITS$ 
PCWATTIOCHRES5000LCTFIs@40e0U)sNEL)S 
OUTAPEPARITY%2TRUES 

GO TAPEPAR} 


END 


FLSF BEGIN & DISK PARYTY 
SKIPFILE&sTRUE; 
RACKSPACYTS 
SHORTHEANERS 
NOTCOPIED(35)3 


PCDIRECTORYSEARCHC™CDASLFFII+13220) eDEL)S 
MEOFAINFO+J],C17%4]%a13 ® MARK CLOSED FOR ABORT 
MEFAINFO4+J1],(841)%s03 % DONT REMOVE YF UNLOAD 
END3 


GO FXI{T3 


CASE7? 


POMrFA+1ll]eMPFA})3 % SAVE NAME FOR UNLOAD 
MOF A]#@=O@1143 MEFAS1 TF SC Uti )x2S%FLAG COJ, OFFSET £1) 
LBLr2),(30?48]t203 SFILEOOO 
PCWAITTOCLALR@SOOOLCTF )+@40,0U)»DEL)3 
POWAITIOCLETMJ 2 @4000U epELys3 
IF nSEN THEN ABORTS 
1LOD¢O]2*sOs Wists SIZEMeFAS7413 
TMPLeMPFASFASZ)3 MEFA+FASZ1330143 
IORFQUESTC@#CIODCWI1%2(FA INX ®500000000)8 
S1ZE 682388408 TNUCOUIC3S#395)) OR 02047700000, 

LODCWJ eC LODCWIIROULI2:4236))3 

COMPLEXSLEEPCCCCIODCW}) AND IOMASK)#0) OR DSED)3 


ACCIDENTAL FNTRY AT 1 


MCFA¢FASZ)2=aTMP}3 

NT1:=P3 MECFAJ&SaNTIis MCFAt+1 ]3sPCXCH)? % REPLACE NAMES 
IF nSED THEN ABORT3 

GO FXIT3 


CASE93 


IF DESTIN, UN[TNUM & 19 
THEN GO ST 


¥757= 


x757= 


£757" 


%148= 


28088400 


28088600 
28068800 
28089000 
28089200 
28089400 
28089600 
28089800 
28090000 


28090200 
28090400 
28090600 
28091200 
28091400 


28091600 
28091800 
28092000 
28092200 
28092400 


28092600 
28092800 
28093000 
28093200 
28093400 


28093600 
28093800 
28093900 
28094000 


28094200 
28094400 
28094500 
28094600 
28094800 
28095000 
28095400 
28095600 
28095800 
28096000 
28096200 
28096400 
28096600 
28096800 


28097000 
28097100 
28097200 
28097400 
28097600 
28097800 
28098000 


SS | 


aa ts 


AAAHsAs AAAS 


AAHA HHH HOH HOH SG 


ee sr 


28087600 
057510 
28085400 
057510 
0575:2 
057533 
057633 
057982 
057982 
0583:0 
0585!3 
28089400 
058930 
059430 
0593%2 
0593:2 
059810 
28089000 
059810 
059910 
060131 
060310 
060730 
268088600 
060730 
060712 
060934 
061030 
061110 
28093400 
0613:0 
0615%1 
061832 
0621433 
28092600 
062133 
062211 
062211 
0625%2 
0630:0 
0632!2 
063413 
063681 
063980 
064214 
064644 


064783 


065111 
06532 


066111 
066311 
0667391 
067030 
067430 
067410 
067530 


ELSF BEGIN 
SHORTHFADERS 
1F ~Us18 THEN 
BEGIN 
PCDTRECTORYSEARCH(C@CDAcLFF])#13920)+DEL)3 
MEFAINFO+JT CL 17¢ti]3=13 % MARK CLOSED FOR ABORT 
END FLSE 


REGIN 
STs H(2]%sLARBl2)3 
SPAC]TS 
IF Hr2) NEQ LABP 2] THEN ABORT? 
END} 


FND3 
NOTCOPYED(43); 
GO ¢X{T3 


FXIT? PeOsRNSeOsXCHoPRP(CTEJsSTF)S 
FN OF LIRRARYHELP?3 


28098200 
28098400 
28098600 
28098800 
28099000 
28099200 
28099400 


28099600 
28099800 
28100000 
28100200 
28100400 


28100600 
28100800 
28101000 


284101200 
28101400 


T 
T 
T 


0675314 
067583 
067730 
067753 
0678?4 
068082 
06833 
28098800 
068333 
068454 
068533 
068710 
069010 
26099600 
06900 
28098200 
069080 
28100800 
069230 
069212 
069510 
28000200 


SIZE= 0696 WORDS 


PROCEDURE LIBRARYTRANSFERS 


START OF REL SEGMF 


PRT¢670) = LIBRARYTRANSFER 
% 


SB ee ag ae te a ae eet a Ke a a OK kK ke aa 


BQ DA DE DE PR BE FR DA DA FA FE DR DE AE FA BQ BR OS RE 2G DA FA BL VE DA BE BA NA BA DA De BE FA |e BL SR Fe 2G FA Ae BE Fe 9O HE Be BL SQ PL BL FE 3a 9Q 


LIBRARYTRANSFER PERFORMS THE ACTUAL PHYSICAL TRANSFER OF FILES 


BASED ON TNFORMATYON SUPPLIED BY LIBRARYCOPY, BASICALLY» ALL 


LIBRARYTRANSFER NEEDS FROM LIBRARYCOPY YS "FA" CTHE FILE ARRAY 


WHICH CONTAINS THE NAME PAIRS TO BE TRANSFERRED)» “FAINFO" 
(THE FILE ARRAY INFORMATION, WHICH CONTAINS NECESSARY INFO, 
ABOUT EACH NAME PAIR)» AND "DESTIN® (THE USER SPECIFIED 
DESTINATION). . 


TRANSFERS MAY BF MADE FROM TAPE TO TAPE, TAPE TO DISKp OR 
DrSk TO TAPE, LIBRARYTRANSFER WILL ATTEMPT TO TRANSFER DATA 
FROM THE INPUT SOURCE SPFCIFIED IN THE *®FAINFO" ENTRY TO THe 
UNIT SPECIFIED THRU "DESTIN®, THE BULK OF LIBRARYTRANSFER 15S 
JUST LOOPING THROUGH "FAINFO" USING ONE ENTRY AT A TIME UNTIL 
THEY ARE EXHAUSTED, AT EACH CHANGE OF INPUT SOURCE THE FPB 
1S FIXED UP DIFFERENTLY DEPENDING UPON WHETHER THE JOB WAS 
FORKEN OR NOT ¢REFER TO DOCUMENTATION), 


DA | CURRENT "FAINFO" ENTRY 
ofCF) IF OTSK THEN 148 
; IF TAPE THEN UNIT NUMBER OF THE TAPE 

wr FFE) IF OLSK THEN DISK ADDRESS OF FILE HEADER 
IF TAPE THEN NUMBER OF THIS FILE ON TAPE 

erty] SPECIFIES LATEST VERSION WANTED 

0621) FILE To Be ADDED 

»f8624) FILE To BE UNLOADED 

oft3ii] FILE TO BE ADDED C¢CNOT ON DISK) 


NOTE: ANY OPTIONS SET THAT pO NOT APPLY TO A PARTICULAR 


CIRCUMSTANCE WILL BE TGNORED 


Tu CURRENT INPUT UNIT 

Ou id OUTPUT "™ 

1REFL CURRENT INPUT REEL NUMBER CIF TAPE) 

OREFL " OUTPUT " " 

FA FYLE ARRAY OF NAME PAIRS TO BE TRANSFERRED 
FAINFO TRANSFER {tNFO. FOR EACH NAME PAIR 

FPBPTR CURRENT FPB FNTRY ;NDEX 

H CURRENT FILE HEADER 

LAB LAST INPUT LABEL READ 

LBL LAST OUTPUT LABEL READ 


%160 


28200000 
NTS DISK 
28200002 
28200004 
28200006 
28200008 
28700010 
28200012 
28200014 
28200016 
28200018 
28200020 
28200022 
28200024 
28200026 
28200028 
28200030 
28200032 
28700034 
28200036 
28700038 
28200040 
28200042 
28200044 
28200046 
28200048 
28200050 
28200082 
28200054 
28200056 
28200088 
28200060 
28200061 
28200062 
28200064 
28200066 
28200068 
28200070 
28200072 
28200074 
28200076 
28200078 
28200080 
28200082 
28200064 
28200086 
28200088 
28200090 
28200092 
28200094 
28200096 
28200098 
28200100 
28200102 
28200104 
28200106 


T 


ADDRESS = 00764 


AHA HHH HAHAHAHAHA HAHAH OA HAHA tA HA A A tA SA 


000030 


000010 
000030 
000030 
0000130 
000030 
000080 
000030 
000070 
000070 
0000!0 
000010 
00000 
000010 
000030 
000030 
000040 
000080 
000010 
000010 
000010 
00000 
0000!0 
000030 
0000:0 
000010 
000010 
000010 
000010 
000010 
000070 
0000:0 
0000:0 
0000:0 
000080 
0000:0 
000030 
0000:0 
000030 
000030 
000030 
000010 
0000!0 
000030 
0000!0 
0000!0 
000030 
000010 
000010 
000010 
000010 
000070 
000030 
000030 
0000:0 


STACK¢(F #4) 


STACK¢(F#1) 
STACK(F +0) 


STACK¢F41) 
STACK(F +2) 


STACK¢F43) 
STACK¢F44) 


STACKeF45) 
STACK ¢(F+6) 


STACK ¢F47) 
STACKeEF 410) 


STACK ¢F 411) 
STACK ¢ F412) 


STACK¢F 413) 
STACK¢F 414) 


STACK¢(F 415) 
STACK ¢F 416) 


STACK(F 417) 
STACK (F420) 


STACK¢F4e21) 
STACK¢(F 422) 


STACK(F +423) 
STACK¢F 424) 


STACK¢(F +25) 
STACK(F 426) 


STACK (F427) 


BR BE BE FA DR WA BE DR FA BQ FE OQ DL DE 


RRR ORR ROR ROR GROG IO ICICI OOO IOI IORI III IORI IOIOIOIOIOIOI i nOIO ICR aCK 


% 
REGIN 


TOGS.f 21°41] 
C2381] CFORKED) 


re6t1) (OF) 


62831) CSOMFCOPIED) 
(38341) CCOPYING) 


C4084) CSKIPFILE) 


REAL COMMONs@4, 


COMMON 


MSCW 
RCW 


MF ID 
FI 


XX] 
XX? 


TMP 
TEMP 


FA 
FAINFO 


FASZ 
FAIN 


ru 
T 


FPBPTR 
TREEL 
NM4 
NM2 


DESTIN 
TOGS 


NA 
OU 


MSCWR™1> 


ME INSROWS! » 


XXLSFID+1» 


TMP=XXRel, 


FAsTEMP4+1,> 


FASZ=FAINFO+1 > 


TUSFAING1» 


FPBPTR=T4#141> 


NMJFITREEL+12 


DESTINSNM241 0 


NA=TOGS4+1>5 


ORFFL20U41, 


CNT N41» 


(BHS) 


INDICATES BAD HEADER 

NOT ORIGINATING LIBMAIN/DISK 
CURRENT <MFID>/<FID> HAS BEEN 
OPENED EXCLUSIVE 


AT LEAST ONE FILE HAS BEEN 
TRANSFERED 

NOTES STAGE OF PROCESSING FOR 
USE BY ABORT 

USED TO INDICATE ABRUPT EXIT TO 
NEXT FILE SHOULD BE TAKEN 


RCW=¢O0> 


FIN=eMFID+1» 


XX2@aXXit1s 


TEMPeTMP 44> 


FAINFOSFA41, 


FAIN@EFASZ415 


TeyTU+is 


IREELSFPBPTR+1. 


NM2PENM1 +10 


TOGS#DESTING1» 


OUSHAs1e 


NSOREEL +14 


INCeCNT#1¢ 


28200108 
28200110 
28200112 
28200114 
28200116 
28200118 
28200120 
28200122 
78200124 
28200126 
28200128 
28200130 
28200132 
28200134 
28200136 
28200138 
28200200 
28200400 


28700800 


28201000 


26201200 


28201400 


28201600 


28701800 


28202000 


28202200 


28202400 


28202600 


282702800 


28203000 


28203200 


HAA HAHAHA HAA HH HA 


~ 


0000:0 
000030 
0000:0 
0000:0 
000030 
000030 
0000:0 
0000:0 
0000:0 
0000:0 
000010 
0000730 
000040 
000010 
0000:0 
000010 
0000:0 
000030 


000010 


0000:0 


000030 


0000180 


000030 


000010 


0000:0 


000030 


0000:0 


000030 


000030 


000030 


000010 


STACK(F 430) 


STACK (F431) 
STACK¢F 432) 


STACK¢F 433) 
STACK¢F 434) 


STACK ¢F +35) 
STACK ¢F +436) 


STACK(F 437) 
STACK(F +40) 


STACK (F441) 
STACK (F442) 


STACK ¢F 443) 
STACK ¢F 444) 
STACK¢(F 445) 


STACK(F 446) 
STACK(F 447) 


STACK¢(F 450) 
STACK¢ F451) 


STACK ¢F +3) 


“ou 


UNyTNO 


H 
AROW 


10D 
LAB 


LBL 


WRDSZ 
ARRAY HDR=XX1C*)}5 


HDR 


OlICSINC HL» 


WsYe1o 


QeSIZE+ 1. 


TMeJe! ® 


Usk+i» 


UNTTNO®SV413 


HeEUNTTNO+¢ 5 *) >» 


TODH=AROW+1(¥*]> 


LBL=LAB+ifxl» 


YsOUC4el> 


SIZFEWsle 


JeQe15 


KSTM+1> 


SVsUels 


AROWZH+1[*)> 


LABs[OD+1[*])>» 


WROSZSLBL41r*3$ 


$ SET oMtT = NOTCB6500L0AD) 


DEFINE 


DOSED 
SPOUTUNTT 
SPACER 

MM 
FINOTHETAPE 
ARORT 
SVITCHREELS 
UN, TNUM 
LATEST 

ADOV 

UNLOAN 
MUSTADD 

BHS 

FORKED 
R6500 

OF 
SOMECOPIEN 
REELSW 
SKIPOIR 
SPACYTSW 
CHKLBL 
CORYING 
OUTAPEPART TY 
SKIPFILE 
NOLBL 


Ce i i ee ee | | | | 


TERMSETCPYMIX) bs 
OF» 
FROLAOOLCTF)]#» 
@37700040#>, 
LIBRARYHELPC1)#, 
LIBRARYHELP(2)#, 
LIBRARYHELPC 11) #s 
ritS)#>» 
DA,r5s1)4, 
pDA,f6silé, 
DA.rBsil#, 
DAsrisiil#s 
TOGS.-C21ty]#s 
TOGS»f23!1)#, 
TOGS C2481 I #» 
TOGS.( 2631] #>s 
TOGS.f28t1I#> 
TOGSe(f3321)#, 
TOGS.C35%4)#s 
TO0GS,(368%4 )#, 
TOGS¢C3784)#» 
TO0GS.f3824)#,> 
TOGS sf 3984 1 #» 
TOGS,chO% 1] #e 
TOGS.rait¢)]#> 


%160= 


%160= 


28203400 


28203600 


28203800 


28204000 


28204200 


28204400 


28204600 
28204800 


28205000 


28205200 


28205400 


28205600 
28206400 
28206600 
28206800 
28207000 
28207200 
28207400 
28207600 
28207650 
28207700 
28207800 
28208000 
28208200 
28208300 
28208400 
28208600 
28208800 
28209000 
28209100 
28209200 
28209400 
28209600 
28209800 
28709900 
28210000 
28210200 
28710400 


a 


A AHHAR AA HH AANA OAH AHO AH 


000030 


000030 


000070 


0000!0 


000030 


0000:0 


0000:0 
000010 


000010 


0000:0 


000030 


0000:0 
000010 
000010 
000030 
0000:0 
000010 
0000:0 
000010 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
000030 
000030 
000070 
0000:0 
0000:0 
0000:0 
000010 
000010 
0000:0 
0000:0 
000010 
0000:0 
000010 


NUMPDIR 


% 


% * READS BEGINNING LABEL 
% CORRECTNESS OF LIBRARY TAPE SOURCE 


% 


= TO0GS.(64231) #3 
LABFL UPsBAC eWATE eLOOP» BACK, TTPF sBHe OKs WY sBADHDRPRES 
LABFL TRYNEXTsPARERR» HANDLERR> NEXT» SKIPPERS FALLOUTS 
he he age Me he ae aM aR A i te Me i ME ak ke Re ge ak a ae ak ok Kk Kok 
DEFINE NOTCOPIFDCNOTCOPIEnI) = 
REGIN NT3teNOTCOPTED(? 
SUBROUTINE NOCOPYMESS3 
LRBMESS¢ ABSOMFID)» FrD, 
Ee OR ORI OR IGRI RGR RR RIKI RRO KOK I ke ae 


NOCOPYMESSS END#?3 


"67> 


NT 39 


TINUE IU» 


SPOUTUNIT,» 4 33 


AND TAPE MARK CHECKING FOR 


Bo RIOR IORI ERO gk OK OOF OR ROI SOIOROIC RIOR IGN 8 OR NGO ak ok 


% 


ROOLEAN SUBROUTINE LABFLCHECK? 


BEGIN 
TRYNEXT! 


TF WATTIOCLAB TNX 8190540000000 s8@40&P20FCTFJey;U) 2040 AND 
* PREMATURE FOT 
REGIN STRFAMCT%eTtaSPACE¢5))3 


NOT B6500 THEN 


ENDS 
NOTCBE6500L0AD) 


$ SET OMYT 


PRE: 


1F C4O¢WAYTIOCSPACER, @40s 1) THEN 
PeWA1T10¢@4740000005,0- 7U) eDELI3 


BEGIN DSt=16LIT". 


IF DOSED THEN ABORT? 
IF CNOT B6500 AND (CCNFLAGCLABLOJ),£6842) EQV "LABEL 
OR CNFLAGCLAB(2]),(6124] EQV “FILE")#NOT 0)) 

$ SFT oMyT 


NOTCB6S00L0AD) 
THEN BEGIN 
STREAMCASECTINUGPIUJ] »TIsTt=SPACEc10))3 
BEGIN STPteAsSystaSpe53pSteL IT", "3pS%=23 CHR} 
nSt=?1 LIT* NOT aA LIBRARY TAPEe™3 


Tix} 


END ELSE T2003 


TF TsO AND NOT B6500 THEN 


IF NFLAGCLABL2]),630818720 AND SKIPDIR THEN 
BFGIN 
SPACITSWis13 


CHKLBLY=F ALSE3 


GO TO BACKS SBRANCH INTO SPACIT, 


BACs 


SPACITSW8e03 
60 TO TRYNEXT3 
ENN: 


LABELCHECK t=T3 


END} 


CHKLBLi=TRUES 


PREMATURE E0QT#"3 


END3 


")FNOT O 


FORO ROR RII ORR RIOR RO RIOR RIOR ROR IOS ROI ROK SOR ROR ROI aK th 


% 


28210600 
28210800 
28211000 
28211200 
28211400 
28211600 
282911800 
28242000 
28212200 
28212201 
28212202 
28212203 
28212204 
26212205 
28212206 
28242400 
28242600 
28242800 
28943000 
28213200 
28213400 
2824 3600 


28213800 
28214000 


28214600 
28216400 
28216600 
28216800 
28947000 
28217200 
28217400 
28218200 
28218400 
28218600 
28216800 
28219000 


28219200 
28219400 


28219600 
28219800 
28220000 
28220200 
28220400 
28220600 
28220600 
28221000 
28221200 


28221400 
28221600 


28221800 
28221601 


AHMAR AHAB OHH 


AA ANH HHA HA HTH AAT 


4-4 


000030 
0000:0 
0000:0 
0000:0 
0000:0 
0000:0 
0000:30 
0004:0 
0004:4 
000424 
o004:1 
0004:4 
000431 
0004:1 
O0004a?4 
000434 
0005:0 
0005:0 
000530 
0008!:0 
000931 
0012:2 
28233600 
00145:0 
004730 
28213400 
001720 
0017:90 
001924 
002454 
002470 
002732 
0031:0 
003130 
003%4:3 
0035:0 
0036!1 
0039!1 
28218600 
00392 
00442 
28218200 
004513 
004733 
005430 
005182 
005510 
0055%2 
0055i2 
0059:0 
005932 
28220000 
005932 
006030 
28212600 
0060t4 
006031 


% = REANS ENDING LABEL CHECKING TO SEE IF YNPUT TAPE 
i Ref SWITCHING IS tN ORDER 
x 
TR ROR RO RIG RGR GIO GIO OIIGI ORKUT OR I RIOR ICIOIOR OR HORII Of ake ak 
% 
RBOOL.FAN SUBROUTINE ENDOFRFEL; 
REGIN 
BLASTQC(IU)$ 
IF PCWAITIOCLAR INX @120540000000-@2000040s1U)sNUP)=2@20 THEN 
BFGIN & PAR ON ENDING LABELS TEST FOR LAST FILE ON TAPECEOF) 
LABC4JisC#PCOUP)IRCWALTTIOCSPACER» O40, 1U) O40) (472478433 
PCWAVTIOCS&@3400(CTFI,@377e1U)sDELDS 
END? 


$ SET OMIT = NOTCB6500L0AN) 


TF R6500 THEN PCDFL) ELSE NT12aP3 
1F DSED THEN ABORTS 
CCNOT B6500) AND NFLAGCLABL4]) AND NT1#@40) 


IF 
$ SET OMIT = NOTC(B6500L,0AD) 


THEN BEGIN 
STOPTIMINGCFPBPTR, 1023933 
SETNOTINUSEC1TU+0)3 
IRFELSeREELo13 


$ SET OMIT = NOTCR65S00L0AN) 


NM2teLAB([2)3 

NM18zLABL1]3 

FINDTHE TAPES 

FNNOFRFELS 2TRUE 3 

END FLSE ENDOFRFELSSFALSES 


END3 % OF SUBROUTINE ENNOFREEL 


FoR RRO RIOR OIRO IG RGR IRR RIGOR GR II HORROR RR IOI IR IOIOI IO a ak 
SUBROUTINE SPACIT#% 
BEGIN 


BACK! WHILE WATTIOCSPACER+«MM,7U)#4@40 DO 


RBFGIN 

TF DOSEN THEN ABORT? 

IF STGOPSETCPaM]X) THEN STOPM¢0)$3 
FND3 


IF ENDOFRFEL AND NOT SPACITSW THEN GO BACK 
TF SPACTTSW THEN GO BAC# % BRANCH TO LABELCHECK ELSE EXIT 
END; 


ROR RIOR IOI IORI IOI UR ROI ORR ROR ROR IGOR IGICIOR UR IOIIOIOIGR IO OIGR IOI GR GIG IOI a i BOK ai OK IR ae 
SUBROUTINE WRITENDINGLABELS 
BEGTN 
PcWALTTIOCL IM) ,@40,0U opel ds 
PCWATTTOCLBL&CS5000FCTE 3 +@40,0U) DELS 
1F DOSED THEN ABORTS 
END: % OF WRITE ENDING LABEL 


TOR IUGR RICO IOI IIOIOI IOI I FOR OI IGIOIOR ORI ICING IR GR IOI SOHO 
% 

2 = HANDLES 10"S FOR DISK=TOWTAPEs TAPE=TO=DISKe OR TAPE= 

% TO*TAPE TRANSFER INCLUDING 86500 TAPE SIZE ALTERATIONS 


28221802 
28221803 
28221604 
28221805 
28221606 
28222000 
28222200 
28222400 
28222600 
282226800 
28223000 
28223200 
26223400 


28223600 
28225000 
28225200 
28295400 
28225600 
28226200 
28926400 
28226600 
28226800 
28227000 
28228200 
28228400 
28228600 
28228800 
28229000 


28229200 


28229400 
28229600 
28229800 
28230000 
28230200 
28230400 
28230600 
28230800 


28231000 
28231200 
26231400 


28231600 
28231800 
28232000 
28232200 
28232600 
28232800 
28233000 


28233200 
28233201 
28233202 
28233203 


AHH AHHH AHS 


AA AHHH HHS 


AAM HHH FH HH OY 


AAA 


006011 
006031 
006011 
0060314 
006031 
0060t1 
006110 
006130 
006133 
0064%2 
006530 
006912 
007132 
28222800 
007182 
007142 
0077%2 
O0B0tY 
008233 
0082323 
0083:3 
008433 
008533 
008730 
0087:0 
008830 
008930 
008933 
009084 
28226200 
0091 %1 
28222200 
009132 
0091?%2 
009230 
009230 
009483 
009433 
0097!2 
01008 4 
28230200 
010210 
040510 
0106132 
28229800 
010633 
010633 
010730 
010730 
0108%2 
011083 
0113%2 
28232000 
011510 
011530 
011580 
0115190 


% 
FORO OI OI IGOR RRR OIOIOIOIOIGI III RII III I GIG AGI OI KOK ie gek 


% 
SUBROUTINE 103 
BEGIN 
SyZEs%syF ¢N*CNT) GTR 30 THEN 900 ELSE (N@CNT)x303 
1F U LSS 46 
THEN 
REGIN 
TMP$=@5000000003 
TF 1ODEW), C2411) 
THEN TMPt=TMP+B6500 
FLSE BEGIN S|IZEt#SyZF+B65003 WROSZEWItSSIZE3 ENDS 


TOREQUESTC@CTODEWI§ eC AROWPW) TNX TMP)& 
STZ7E£883881078 
TINUCUTC 3832578 
CNOT TODEWI)IF24224211) OR @2017700000, 
1ODCW), 
CIODEWIIRULI2I4 336) )3 

FND 


FLSE 
RE GIN 


NISKTOCTODC WI] »>CAROWPW) INX BO6500"1IRCNOT LODCWIIC1324e1)5 


SIZE e Q4+CNT 3 


$ SET OMIT = NOTCSTATISTICS) 


ENDS 
END$ 


ee Tee CCCP eT eee PS SET CS ESET CCST ETE TT Tee TTT eT TT TT Te TTT eT eT ht 

% 

® = cOPYS FACH ROW OF a Frbr CHECKING FOR ERRORS» INCORRECT 

% RecORD SItZF IN TRANSFER, AND KEYIN REEL SWITCHING 

% 

ee I RO NOIR ROR RIGOR RR ROR OR ROK KRG RRR IIR TOK KK i ios ak 


z 
SUBROUTINE COPYAROW$ 
BEGIN 

Nis 


$ SET OMIT = NOTCB6500L0AD) 


Hr 813 

QteH(K4+9]3 
CNTSsWteINct203 OUCt=s="303 
1LONLOIV=HTONC1LIZ=1OMASK; 
Ute lus 


LOOP: 


103 


WATE? 


Witz 1"W3 
1F rOOrW) NEGO FOMASK THEN 
COMPLEXSLEEPCCCC10D0FrW)) AND [OMASK) NEQ@ 0) OR DOSED 


ACCIDENTAL FNTRY AT 1 


IF NMSED THEN ABORT} 
IF CY¥%s]OneW1), £2722) NEG O 
THEN BEGIN LIBRARYHFLP(6)3 


28233204 
28233205 
28233206 
28233400 
28233600 
28233800 
28234000 
28234200 
28234400 
28234600 
28234800 
28235000 
28235200 


28235400 
28235600 
28235800 
28236000 
28236200 
28736400 
28236600 


28236800 
28237000 
28237200 
28237400 
28237600 
28238200 


28238400 


28238600 
28238601 
28238602 
28238603 
28236604 
28238605 
282938606 
28238800 
28239000 
28239200 
28239400 
28240000 
28240200 
28240400 
28240600 
28240800 
28241000 
28241200 
28241400 
28241600 
28241800 
28242000 


28242200 
28242400 
28242600 


AXMHAaHs A HHH tt 


Aaa 


Se ee ee ee ee ee 


44-4 


011530 
011530 
011530 
011520 
0115:0 
011530 
O119e4 
041932 
0120190 
012032 
012191 
012142 
042320 
28235200 
012930 
013083 
043133 
013330 
013533 
013681 
013880 
28234400 
013830 
0138:0 
014030 
014510 
014691 
014634 
286237000 
014631 
28233600 
01462 
014632 
044682 
0146182 
0146%2 
014612 
014612 
0144632 
044780 
014730 
014730 
014730 
014810 
014932 
01521 
015442 
015531 
015531 
015620 
015630 
0157101 
015644 


016681 
016980 
0170382 


“ IF OUTAPFPARITY OR SKIPFILE THEN GO HANDLERR?S 
END 


FLSE tF ¢cYef 781) AND ¥,£24%4]) 
THEN TF CMrpAROWPW) :NX NOT OJ) NEQ WRDSZEW] 
THEN BEGIN LIBRARYHELP(10)3 
GO HANDLERR3 
FND FLSE ELSE 


TF JARFPIMIXo91e0421) 2 RC KEYIN 
THEN BEGIN 
JAREPIMPXe9] ssCePCNUP)) & OF13478133 
SWITCHREELS? 
ENDS 


TE TONTWI, £2481) & LAST THING DONE ON THIS BUFFER WAS READ 
THEN BEGIN UteOUs CNTI1e0UC! s0UC4+307 G60 LOOPS ENDS 


1F CCNTSe¢NCte7NC+30) LSS N & MORE READING NECESSARY 
THEN REGIN UtsIU$ GO LOOPS END3 


IF LONCt*W) NEG LOMASK 
THEN BEGIN JODCWJ3#LOMASK$ GO WATE? ENDS 


HANDLERR? 
ENDS 


toe PRPS SSE SE CSS S SSE SES SSS PSPS LS SESS CLC SSeS SSS ESS SSS See ee eee ee 
POMSCWsSTFI$ RCWPERCWRPC, LIBRARYTRANSFERsLODI[CTC]? 

IF fFASZ GTR O THEN LIBRARYHELPC(S5) ELSE JUtROUSeCEPBPTRi=20)913 4134" 
FOR Jt=0 STEP 4 UNTIL CFASZ DIV 2)"1 DO 

BEGIN 

COPYINGI=FALSES 

% 


Fok RII OR ROR IR ORR ROR ROI IG IOI OI IONIC gk 
% FPR FYXUP UPON CHANGE OF INPUT SOURCE 
FEST EPRICE SSS SL CSRS STA SSeS eee ECC CSS CL SS eee ee 
% 
IF nA.P CR] NEQ@ CTMPtsMrpSVseraAINeO4J)],(CF J) THEN 
BEGIN JF TU NEG@ c@12 THEN 
BEGIN yF YU LSS 16 THEN SETNOTINUSE(IUL0)3 
STOPTIMINGCFPBPTR»1023)3 
ENDS 


IF FORKED THEN 
REGIN 
STARTIMINGCFPBPTRIZSe TMP)3 
IF TMP LSS 16 THEN 
STRFAMCMF S=MULTITABLEC TMP] >F4sLABELTABLECTMP)> 
Bt=PRT¢PimyXe3] INX 5)3 
BEGIN SE%sLOC MF$ OSiz16CHR 
END 


ELSE 
STREAMC(BE=PRTIGCPIMIXe3] JINX 5)8 
BEGIN DSt#16LyT*"O0TRCTRYODISK "3 ENDS 


28242800 
28243000 


28243200 
28243400 
28243600 
28243800 
28244000 


28244010 
28244020 
28244030 
28244040 
28244050 


28244200 
28244400 


28244600 
28244800 


+4444 


ee 


28245000 T 
28245200 T 


28245400 
28245600 


28245800 
28246000 
28246200 
28246400 
28246600 
28246700 
28746701 
28246702 
28246703 
28246704 
28246705 
28246800 
28247000 
28947200 
28247400 
28247600 


28247800 
28248000 
28248200 
28248400 
28248600 
28248800 
28249000 
28249200 


28249400 
28249600 
28249800 


44 


AA HHH HA NH HHH HA 


a1 


017231 
017483 
28242600 
0147483 
017620 
017933 
0161%2 
018210 
28243600 
018232 
0483383 
0185:0 
018830 
0188:3 
28244020 
0188t3 
018940 
282448400 
019331 
019540 
28244800 
019791 
019831 
28245200 
020330 
020130 
28239000 
020131 
0201191 
020431 
020980 
021323 
021313 
0215192 
021522 
021532 
021532 
0215t2 
021552 
0219%2 
0221:0 
022313 
022413 
28247200 
022433 
022582 
022610 
O22712 
0228?) 
023030 
023183 
023231 
28249000 
02321 
0232132 
023520 
28249800 


ROCTABLELTMPI, F688 yO] t=PyMyX 
END FLSE 


WHILE (TEMPS =MrCNTAissCPRTIGPIMyXo3) INX CFPBPTRI« 
FPBPTR+5)))+3).£3686]"1) NEQ@ TMP DO 
IF MCNT144) LSS 0 THEN % NOT AREADY STOPPED 
BEGIN IF TEMP LSS 16 THEN SETNOTINUSECTEMP,0)3 


STOPTIMINGCFPBPTR#1023)3 
END} 


TUS=TMP3 % AT THIS POINT IU CHANGES 
IF TU LSS 16 THEN 


TREELS*ROCTABLEr1Uy,£14%10)3 % Prck UP REEL NO, 


£ SFT omMrT = NOTCR6500L0Ap) 


ENn? 


DAtsaMcSV}3 
MFINteMrFAsUx27]3 FIDIEMP FAs edxo)3 
SKIPFILES eFALSE3 
1F yUse18 
THEN REGIN 
% 


ZR IOI IO IOIOR A IOIOIO RIOR GI IR IGRI IOI ION NORIO ie sated sea 


% INPUT SOURCE DISK 
Fk OOOO IOR ORIG gO ROR KR RO OK RII Gk tO te ake ak 
x 
NYSKWATTOC#H.ECFI,30,0NA.CFFI)3 
IF DESTIN, UNITNUM = 19 
THEN BEGIN 
ABoRT3 
END 


ELSE BEGIN 
% 
eT eC ECE SLCC SC ESL ESC STS STC Te LS Te eT TTT TT ETT Ty 
% OUTPUT TO TAPE 
(ESSERE SOE E SES ESS ETT SEES eee ee TT eee eT eT eee) So 
x 


TTPE? STREAMC(CAtsJ41-B8% 27 LBL(2]])3 


RFGIN SrtexlOc AD tapnye52OStz3 DEC END} 


LABELTABLECOU)tseLBL¢2)s % ENTER FILE ID FOR OL MESSAGE 


HP9iacePeNUP)) AND 313 

TF NOLRBL THEN NOLBLYt=FaLSE ELSE 

BFGIN 
PCWAITLOCLBLR@5000( CTE 1s@40-0U) oDEL)3 
PCWAITTIQOCL TM] +@40,0U) »pEL)3 

END? 


TF BHS OR CPCTHE 9) +LON»s DUP) #0 OR PCXCH) GTR 20) 


THEN BEGIN 


BANHDR8 LIBRARYHELPC9)3 


UP 


GO NEXT3 
END} 


PCWAITIOCH&B5000L CTF 1»@4020U).DEL)3 
COPYING teTRUE3 


%148= 


28250000 
28250200 


28750400 
28250600 
28250800 
28251000 
28251200 
28251400 


28251600 
28251800 
28252000 
28252200 
28252800 


28253000 
28253200 
28253400 
28253600 
28253800 
28253801 
28253802 
28253803 
28253804 
28253605 
28254000 
28254200 
28254400 
28254600 
28254800 


28255000 
28255001 
28755002 
28255003 
28255004 
26255005 
28255200 
28255400 


28255600 
28255800 
28256000 
28256200 
28256400 
28256800 
28257200 


28257400 
28257600 
28257800 
28258000 
28258200 


28258400 
28258600 


Anns 


+4 tt 


AHHHH AHHH HHH 


ee ee 


“4-4 


0237182 
024030 
28248000 
024080 
0241482 
024711 
024911 
025230 
025310 
28251000 
025332 
0254814 
025510 
025710 
025730 
26247000 
025710 
025832 
0264140 
026513 
026630 
026710 
026710 
026730 
026730 
026780 
026730 
026983 
027083 
O271%2 
027291 
28254400 
027241 
0272383 
027283 
027233 
027213 
027283 
027233 
027432 
28255400 
027512 
O27731 
02791 
028211 
026213 
0265:0 
028612 
28256200 
026612 
0289381 
0290%2 
029141 
029330 
28257600 
029310 
029581 


IF DOSED THEN ABORT; 
FOR Kte4 STEP ¢t UNTIL HOE9].0C4325] pOX WRITE OUT FILE 
TF HEK4+9)#0 THEN 
BEGIN 
COPYAROWS 
1F QUTAPEPARITY THEN 
BEGIN 
OUTAPEPARITY:=FALSE3 
GO UP3 
FNDS 


IF SKIPFILE THEN GO NEXTS 
IF STOPSFTCPIMIX) THEN STOPMC(O)5 
ENDS 


COPYINGtarALSeE3 
1F OU LSS 46 THEN WRyYTENDINGLABEL? 
1F t{U LSS 16 THEN 
$ SET OMIT = NOT R6500L0AD 
IF WATTIOCSPACERsMMetU) NEQ @40 THEN 
RFGIN NOTCOPIED(56)3 LIBRARYHELP(8)3 GO NEXT3 END3 


$ SET OMtT = PACKETS 

RFGIN 

STREAMCMFID,FIDeSAtETINUC TU] BtaTINULOU),T&alizSPACECI0))3 

BEGIN SftisLOC MFIDS SyseSy+ys DSta7CHRs OStaLy Tess 
StieSp+y# OSts7CHR? DSt=43LIT" COPJED FROM "3 
SpieS]+5! OSts3CHR$ OStsaLIT” To "3 SyexS]4+53 
DSte3CHRS NStaL Tens 

FND3 


SPOUTFRCT»OrI.IBMSG) $3 
END3 


SOMECOPITENSSTRUES 
1F yU2{8 THEN 
REGIN PCHDTRECTORYSEARCH(C@(DA.LFF))913920)eDEL)3 
MEFAINFO*U) .Ca78i diets 
FND3 


TF OUs18 THEN 
REGIN PCNTRECTORYSEARCHC@MFIDsFID.14)*DELI: OF%s03 END? 


IF DUMPDIR THEN 
PFGIN LIBRARYHELP(7)3 
IF ¢¥t2=7ONrW1).¢27!2] NEQ@ O THEN 
IF ¥,C28t1) THEN 
BEGIN STREAMCTt&eTr=SPACECT))$ 
BEGIN DSs=31LIT*PARITY WHILE WRITING DIRECTORYs"3 
ENDS 


SPOUT¢T)3 ABORTS 
END ELSE 


LIBRARYHELP(6)3 
IF NOT 1ODcw),€27!1) THEN 


28258700 
28258800 
28259000 
28259200 
28259400 
28259600 
28259800 
282760000 
28260200 
28260400 


28260600 
28260800 
28261000 


28261100 
28261200 
28261400 
28261600 
28262200 
28262400 


28262600 
28263200 
28263400 
28263600 
28263800 
28264000 
28264200 
28264400 


28264600 
28264800 


28764900 
28265000 
28265200 
28265400 
28266000 


28266200 
28266400 


28266600 
28266800 
28267000 
28267200 
28267400 
28767600 
28267800 


28268000 
28268200 


28768400 
28268600 


Aas HHH HAH HH 


4~AoaaaaS 


ee 


ee i ee ee ee ee 


+-4 


029730 
029983 
030431 
030533 
030631 
030730 
030733 
030884 
031080 
0312!0 
28259800 
031230 
0313%2 
031631 
28259200 
031633 
031842 
032130 
032193 
032133 
032432 
28262400 
28262400 
033030 
033030 
033020 
033411 
0335%2 
0338:0 
0339!2 
O3408) 
28263600 
034082 
034231 
28263200 
034291 
034430 
0344383 
034732 
035033 
28265200 
035013 
035442 
26266400 
035582 
0356:1 
0357%2 
0359%2 
036033 
036410 
0368611 
28267600 
036812 
037032 
28267400 
037082 
037133 


BEGIN WRITENDINGLABEL$ DUMPOIR?©03 END ELSF NOLBL3e18 
FND$ 
tr YU USS 16 THEN 
&§ SET OM?T = NOT R6500L0AN 
GO FALLOUTS 
FNS 
FND 
ELSE RFGIN 2 SOURCF TAPE 
x 
Se i ate Me he eR RnR I Ni fe nC ROKR ge i iC age ote 
% INPUT SOURCE TAPE 
i ie KORO I ORR IO ak IO OR IOI tk ak ai ke ik 
% 
SR ROR IO Oi kk i a IR GOR ORO H Rika ok ¥160= 
% CHFCK IF FILE IS TO BF ADDED %160« 
SE ee ee Ri ie ak i OK ake ak ak NOR a ea kak ak £1600 
% %1608 
TF ANDDV THEN %1608 
IF NOT MUSTADD THEN %160# 
tF DESTIN UNTTNUM = 49 THEN® TAPE TO O1SK ¥160= 
TF DIRECTORYSEARCHC=@=MFID»FIDs5) NEQ OF ALREADY ON DISK ¥160" 
THEN BEGIN %1608 
LBMESSCABS(MF ID) oF IDe@67+68eTINUCIUJ »SPOUTUNITsL I BMSG)3 
IF STOPSETCPimIX) THEN STOPMC(O)3 %160" 
IF DSED THEN ABORT3 %160* 
GO NEXT} %160= 
END %160= 
FUSE BEGIN MEFAINFO+J) efi3%i]%a15 MUSTADDi #3 END3 %¥160= 
1F LABELCHECK THEN aBORT3 
$ SET oMTT = NOTCR6500L0AN) 
% 


TOO ROK OGIO ISO IIIOI IIRC IO IOI ICI IO KOiriok 
% POSTTION THE TAPE TO CORRECT FILE 


% US] 


NG INFO, 


IN 


"FATNFO" ENTRY (DA) 


OP PSEC SLE LISLE SETS SPSL Pee eT Tree h eee ce re | 


% 


STREAM(BteLABLelsSVi=zcSVI)3 
REGIN SytsLOc Bs SpteSI4+53 OStez30CT? END? 


1F SV NEG DAFF THEN BEGIN JteJets GO SKIPPERS END3 


TF WATTIOCC*CAROWLO}IIRSSAOOCCTE1,@200000001U) #20 


THEN BEGIN P¢1)3 GO BHE FND? & RD HOR CHKING FOR PARTY 


MOVE €3045xR6500sAROWL0].(CFJ+B6500eH)3 
$ SET oMyT = NOT R6SOOLOAD 

Tis"43 

IF cNOT R6500) AND ¢MrAROWLO) INX NOT 07 NEQ 30) 


THEN PC1) 
FLSE 


BEGIN STREAMCAteOISnizhH)s 


282768800 
28269000 


28269400 
28269600 
28270200 
28270400 


28270600 


28270800 
28270801 
28270802 
28270803 
28270804 
26270805 
28270806 
26270807 
28270808 
28270809 
28270810 
28270812 
28270814 
28970816 
28270818 
28270820 
282970822 
28970824 
28270896 
28270828 


28270830 


28271000 
26271200 
28272201 
28272202 
28272203 
28272204 
28272205 
28272206 
28272400 
28272600 


28272600 


28273000 
28273200 


28273400 
28273600 
28275800 
28276000 
28276200 
28276400 
28276600 


4 - 


444-4 


~ 


ANOOANAIAQAANANAAANnNI AA AAA HF 


ee ee ee ee 


“4 


4+ 


4AaHHA HH 


037320 
28268800 
037920 
28266800 
037930 
037933 
037983 
038031 
28255000 
0380!]4 
28253600 
038091 
038033 
036013 
0380!3 
0380:3 
038083 
0360:3 
038033 
038013 
038033 
038083 
0381%2 
038330 
038433 
0387!0 
038713 
039141 
039480 
039633 
O0397%1 
28270818 
039781 
28270830 
040213 
0405414 
0405%1 
040521 
040531 
O0405%14 
040544 
0405t1 
0405131 
040632 
28272600 
040732 
28272800 
041110 
041392 
28273200 
041780 
042210 
042230 
042350 
0492611 
0427%2 
042782 


BFGIN SIt=ps 30C1F SR THEN BEGIN TALLY#=13 JUMP OUT END 
ELSE SyteSy+8)3 AtZTALLY3 


END? 
IF P THEN PC1) 


ELSE YF CNTi%#hHe9),74325)) GTR 20 OR NT130 


THEN PC(}) 
ELSE 
BEGIN SV:=03 
FOR Ws=10 STEP 1 UNTIL 29 DO 
BEGIN SVteSVecNT2te(H(W] NEO 0))3 
If W GEO NT1#10 THEN JTF NT? 
END3 


JF CCW234) OR (SV GTR NT1) OR (CSV 
(Hr6)20))) 


THEN Peq) 
ELSE P(0)3 
END’ 
ENDS 
BH: RESt=PCXCH)3 
IF RHS THEN 


JF DESTINJUNITNUM = 19 THEN GO BADHDR ELSE GO 
IF DESTINZUNJTNUM = 49 
THEN 
REGIN 2 TAPE TO DISK CLOAD) 
% 
Se he oie eae RR ak iC ge ia ga a ete 
% OUTPUT TO n1SK 
eT ESE SEL eee eee eT ee eS ee. Lee ee 2 | 
x 


THEN Wits313 


NEQ@ 0) AND 


TTPES 


1F MUSTANDD THEN Tt20 FLSEX ADD FILE NOT ON O1SK 
TF cT8sDTRECTORYSEARCHCMFID&(344X(ADDVI IF 18G538375 


FrD»sd+ADDV)) GEO 2 
THEN 
1F T=? THEN NOTCOPYED(25) 
ELSE BEGIN 


IF ¢SVtenOT ADDV AND MECT4+2) NEQ O AND 


CCUSERCODEEPIMIX] EQV ABS¢MCP)) NEO 


NOT 0) AND 


%148= 
7148 


¥160- 


CCUSERCODFIPIMIX] EQV ARS(CMIT42])) NEQ NOT 09) OR 
CLATEST AND ME£T43),030818] GTR H£3),£30:18)) THEN 


BEGIN 
HEADERUNLOCKCABSCMFID) oF IDs T)3 
Ttee13 

NOTCOPIED¢ 64"SVx23)2 


END: 
END 
ELSE 


IF Tet THEN ® IT WAS “IF*ED" 
BEGIN Tt="13 


28276600 
28277000 


28277200 


28277400 
28277600 
28777800 
28278000 
28278200 
28278400 
28278600 
28278800 
28279000 


28279200 
28279400 
28279600 
28279800 
28280000 


28280200 


28280400 
282860600 
28280800 
28281000 
28781200 
28281400 
28281401 
28261402 
28281403 
28261404 
28281405 
26281550 
28281600 
28281800 
28282000 
28282200 
28282600 


28282600 
28282800 
28283000 
28283200 
28283400 
28263600 
28283600 
28284000 


28284200 
282844600 
28284600 


28284800 
28285000 


4a wae 


i eee 


aq4—-4-4 


~ 


AAH AAO BAHU 


atta tH 


a 


042932 
043083 
28276800 
043291 
28276800 
043212 
043384 
043630 
043712 
043782 
043833 
044080 
044212 
044533 
28278600 
044830 
045032 
045113 
045283 
045312 
28278200 
045312 
28276600 
045312 
045591 
045610 
045813 
045933 
046010 
0460!2 
046012 
0460!2 
0460:2 
046032 
046012 
0462!2 
046610 
006814 
0468!3 
047010 
28282400 
047242 
047543 
047833 
048233 
048711 
048713 
048913 
049083 
28284000 
049410 
28283400 
049410 
28282400 
049410 
049420 
O495t4 


28242000 


OK: 


wy 


ACCINENTAL FNTRY AT 5 


NOTCOPIED(C45)3 


END FLSE IF DSEND THEN ABORT$ 


OF'=CT GEO 64): 
IF TzO OR (CT GEO 64 AND NOT ADDV) THEN 
REGIN %& LOAD IT 


IF T GE® 64 THEN 

TIF MeT+8)#H(8)] THEN 

BEGIN 
FORGETSPACFE(T)3 
PCDIRECTORYSFARCHCMFIDsFID.6) DEL) 
Tis03 

END? 


tf Tz0 THEN 

BEGIN 
TISGETSPACE( 30*eDI SKHEADERAREAVs1)4+233% Z167* 
MOVE (30,T™40T)3 
MET+4]$eORSYSNOP4ta6t 21a (ora7ei ys 

END ELSE 


TMPSmT,(18215])3 

HOR se rMCT)) & 30(8338:10)3 

FOR wizH(9),¢4325)410 STEP 4 UNTIL 29 DO HEWIJt203 

IF CHDORE9OI]te¢*#Pe DUP) AND 34) © O THEN HORE 7] i2°13 

FOR Wi2HDR[9)4+10 STEP 1 UNTIL 29 DO HDREWI]?#03 

W:i=03 

WHILE CW8sW+1) LEO H(9].(4325) DO 

IF HE94#WI40 THEN 

IF CHE 9+WI]2sHOREI94W)) LE@ O THEN 
TFCHC9*#W I tsPETUSERDISKCHLB) OR MeCOMMON)) LSS 1 THEN 
BEGIN 
TEMP? ®SPACFCI1O)$ 
STREAMCJUSFJARROWEPPAIMIX] ePIMIXeHSSHE BJ) eMSaMF [Hef tek De 
TEMP)3 

BEGIN DSt#q14 LIT "#NO USER DISKEMS SytaUsSiteSto13 
DS#e7CHRIDSteaLITe/@s ST teSlegiDSte7CHRiOStahLyTte"$ 
ST#SLOC PIMIXFDStS2DECSUtaNy SNL seD Le 2sOStaFILLsortsds 
NSseLIT Tc sSpreLoc MIST teSs +1 30S se7CHR3S) t2Sy7443 
OSt=LIT*/*sDSte7CHREDSseaLyTIKMSSTtezLOC HIDS2HB DEC 
DStzs7LIT" SEGSee*s DI teDT"158 DSta7F ILL! 
ENDS 


SPOUTCTEMP)3 
REPLYCPIOMIX)] 2 @CTEMPBeVIFaVWYS 3624256)8 
VOF (3024296) &VOK(2424286))3 
COMPLEXSLEFPCREPLYLPIMIX)20 OR DSED 
OR PRTCPIM1Xs@25)35)3 


IF NOT WHYSLEEPCTEMP) THEN GO TO WY3 

IF REPLYCPyMyX]ezVOK THEN GO TO OK3 

IF REPLYCPIMIX]2VOF THEN 

BEGIN COMMON t& COMMON AND NOT M3 GO TO OK$ FNDS 


FOR WiewW STEP "1 UNTIL 4 DO 
IF HC94+W1#0 THEN 


28285200 
28285400 


26285600 
28785800 
28286000 
28286200 
28286400 
28286600 
28286800 
28287000 
28287200 
28287400 


28287600 
28287800 
28288000 
28288200 
28288400 
28288600 


28286800 
28289000 
28289200 
28289400 
28289600 
28289800 
28290000 
28290200 
28290400 
28290600 
28290800 
28291000 
28291200 
28291400 
28291600 
282991800 
28292000 
28292200 
28292400 
28292600 
28292800 


28293000 
28293200 
28293400 
26293600 
28293800 


28294000 
28294200 
28294400 
28294600 


28294800 
28295000 


AAMAHAAH Aa 


4a4-43 0-44 


ee ee 


44 Aas At 


049683 
26285200 
049930 
28285000 
0502%4 
050412 
050712 
0508:0 
0508:3 
051182 
051230 
0512133 
051434 
05145:0 
28286600 
051530 
051543 
051641 
0518'2 
05202 
05243 
28287800 
052413 
052632 
052613 
053512 
0540:0 
054631 
054730 
0550:0 
055132 
055510 
055931 
0559383 
0562:0 
056313 
05642 
0567:0 
0568?3 
O570%4 
0574°3 
057382 
057534 
28291600 
057532 
057633 
057832 
056133 
058193 


0590!2 
059433 
059324 
059481 
268294600 
059683 
059830 


$ SET OMIT = 


END 


IF HOR(94+WI]=20 THEN 
FORGETUSERDISKCH[94#W] 5 "HL B))3 

FORGETSPACFEC(T)3 

IF DSED THEN ABORT? 

IF HDRE9I]#0 THEN 

BEGIN 
PCOITRFCTORYSEARCH(MFIDe FID 14)eDEL)3 
OF tx03 

ENDS 


NOTCOPTED(31)3 


IF J NEQ ¢CcCFASZ NIV 2)"1) THEN SPACIT3 
GO NEXT3 
END3 


STREAMCAT=(.HE1]1]»DSeDATE)3 

BEGIN SyteLOc DsDy F=eLOC NFDStzB OCT 
SprteSTasOptcAIOS ted CHR} 

FEND3 


He4)taMeT+4 QnA) 8 F623 )ROl11 84781 IHL 4I17 368 3626) 
RHP 4](43%4321]3 
HOV], C258 23) teXclLOcKePCRTR)3 
IF HOR‘ 9I]=9 THEN 
ENTERUSEREYLE CABSCMF ID sFIDeHeL[CFI91) 
ELSE 
BEGIN WtelF HeO97 LSS HDROY) THEN HOR(9) ELSE HE9]3 
FOR Witswe+9 STEP #1 UNTIL 10 DO 
IF HOWJ20 THEN 
IF HORE WI#0 THEN Z EXTRA ROW IN DISK FILE 
FORGETUSERDISKCHDROW)»+HOR([8]) ELSE ELSE 
NOT SHAREDISK 
SOISKWATTCH INX 0,305TMP)3 
END$ 


FORGETSPACE(T)3 


GO UP} 


% OF LOAD IT 


FLSE IF JsCCFASZ DIV 2)"*1) THEN GO NEXT ELSE GO SKIPPFR3 


END 


% OF TAPE TO DISK 


FLSE GO TTPES 

SKTPPERs NO UNTYFL WAITIOCSPACERsMMe1U)e@40 OR NSED3 
rF STOPSET(P1iMyX) THEN STOPM(0)3 
IF DSED THEN ABORT? 

FALLOUT: IF ENDOFREEL THEN GO SKIPPERS 


END 


NEXT 
END$ 


IF nOT SOMECOPYED THEN 
BEGIN STREAMCT&£2T? =SPACE(5))3 
BEGIN DS?2=18LIT"NULL LIBRARY COPYe*s END} 


28295200 
28295400 
28295600 
28295800 
28296000 
28296200 
28796400 
28296600 
28296800 


28297000 


28297200 
28297400 
26297600 


28297800 
28298000 
28298200 
28298400 


28298600 
28298800 
28299000 
28299200 
28299400 
28299600 
28299800 
28300000 
28300200 
28300400 
28300600 
28300800 
28301600 
28301800 


28302000 
28302200 
28302400 


28302600 
28302800 


28303000 
28303200 
28303400 
28303600 
28303800 
28304000 


28304200 
28304400 


28304500 
28304510 
28304520 


AAHaA AAS 


| 


Aste AHH MH HH HH 


~ 4 ee a 


4-4 


059932 
0604%2 
060632 
060734 
061030 
06111%0 
0611%2 
061340 
061433 
28296200 
0614383 
28297000 
061710 
062030 
062082 
28290800 
0621380 
062201 
062310 
062333 
28298000 
062430 
062833 
0631814 
06341 
063531 
063534 
063833 
064330 
064731 
064831 
064933 
065241 
0652314 
0655%1 
28299800 
065581 
065610 
065810 
28286000 
065810 
066131 
28281400 
066171 
0661391 
066533 
06682 
067184 
067393 
26270800 
067410 
067430 
28246600 
067730 
067830 
0681 ?1 
28304520 


SPOUTCT)3 
ENn3 


IF oU GEQ O THEN & WE HAVE AN OUTPUT UNTT 

IF ¢DESTINGUNITNUM#49) THEN PCWATTIOCE TM] 5@40,0U)sDEL)3 
1F 1U Ge@ O THEN & WE HAVE AN INPUT UNYT 

1F 1U LSS 16 THEN SETNOTINUSECIU0)3 

JF FORKED 

THEN STOPTIMINGCFPRPTR» 1023) 


¥1308 
¥14B= 
£130= 


ELSE FOR TMPteFPBPTR STEP 5 UNTIL CNT1S=PRTCPIMIX23]).f88101"5 DO 


TF MENT TNX CTMP44)) LSS O THEN 


REGIN IF CTEMPS=MENTyY INX CTMP43)),73616)"1) LSS 16 THEN 


SETNOTINUSECTEMP.0)3 
STOPTYMINGCTMP,1093)3 
ENDS 


IF OU GEQ O THEN & WE HAVE AN OUTPUT UNYT 
IF oU LSS 16 THEN SETNOTINUSE(COUP1)3 
STOPTIMING(021023)3 
$ SET OM]T = PACKETS 
TMPszFASZ DIV 2 13 
FOR Jt=O STEP 4 UNTYL TMP 00 
TF (CNAteEMEFAINFO+U]).°CF 1818 THEN & FROM OISK 
tf UNLOAD THEN 
RFGIN MFYDieMCFAgIXO)3 FIDteM(FA+14eJx2)3 
PCDIRECTORYSEARCHCEMFINSIC 324784 IeFIDe 7) oDELD3 
JF DSED THEN GO TO INITIATES 
FND$ 


GO NITJATE3 
FND OF LIRRARYTRANSFERS 


%130@ 


%7572 
“757 
“7S7e 
%757= 
x757= 
£757e 
%757= 
47578 


28304530 
28304540 


28304590 
28304600 
28304700 
28304800 
28305000 
28305200 
28305400 
28305600 
28305800 
28306000 
28306200 
28306400 


28306500 
28306600 
28306800 
28307000 
28307700 
28307705 
28307710 
28307715 
28307720 
28307725 
28307730 
28307735 


28307800 
28308000 


068450 
068521 
28304510 
068511 
068630 
06892 3 
069082 
0693314 
069381 
069581 
070210 
0704:2 
070930 
071082 
O711%2 
28305800 
071230 
071233 
O715%2 
071682 
071632 
071631 
0719340 
072210 
072341 
072931 
0732:0 
0734°2 
28307720 
073633 
073731 
28200200 
SIZE= 0738 WORDS 


a+ 


AAA aH HHO OVO 


OHO rmaanoo a+ +o 
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PROCEDURE LIBRARYCOPY3 


YEP CESS PEELS SES ELS SESS ERE SCE PEPE SEP EES ES SESS SESS ES CCST CCS SLE C See Se ELSES TS 


we DR DE DQ Be FE FR BE. TE DR BR He FE DE FE FH FE BR BA DA BR SE BA 9A BA AA AE DE FR OE FA FA VE DA DR SE DQ WA BR BL VQ DR BQ aA DA DE FQ OE AQ BE BC BR BG 


28400000 


START OF REL SEGMENTS DISK 


LIBRARYCOPY PERFORMS THE INITIAL SETUP OF FILE NAMES AND 
fTNFORMATION BASEN ON DATA PASSED THROUGH FSPDISK FROM THE 
PROCFNURE CCLIB. THIS INFORMATION WILL BE PLACED IN THE 
FrLr ARRAY *FA® AND ITS COUNTERPART "FATNFO” FOR USE LATER 


TN LIBRARYTRANSFER, IT OPERATES ON EACH «COPY SPECIFICATION? - 


CREFER TO BNF DOCUMENTATION) ONE AT A TIME UNTIL THE CONTROL 
CARO HAS BEEN EXHAUSTED, 


THERE ARE TWO METHODS OF FINDING FILES ON A DISK INPUT SOURCE. 
ONE 18 TO USE yT AS IF JT WERE A LARGE TAPE» USING THE DISK 
DIRFCTORY LIKE A LARGE TAPE DIRECTORY (NOHASH)3 THE OTHER IS 
TO USE THE PROCEDURE SEEKNAM TO OBTAIN NAMES VIA A HASHING 
TECHNIQUE, JRREGARDLESS OF THE NAME FINDING METHODs ONCE YOU 
HAVE A NAME PATR THE PROCEDURE FOLLOWED IS THE SAME? 


1§ DETERMINE [F NAME PAIR HAS BEEN ASKED FOR BY CONTROL CARD 


2: CHFCK To SEE IF IT APPEARS IN THE "EXCEPT" LIST FOR THAT 
NAME PAIR 


3: IF DISK» MAKE SURE J{T IS ACCESSABLE 
43’ CHANGE NAME IF SPECIFIED BY "AS" CLAUSE 
5! CHECK THAT NAME PATR HAS NOT ALREADY BEEN PROCESSED 


6:  tNSERT NAME PATR INTO "eat 
INSERT NAMF PAIR [NFORMATION INTO *FAINFO" 


AT STFP 65 1T MUST BE DETFRMINEN AS TO WHETHER THE USER 
SPECIFIED MAXIMUM NUMBER OF FILES PER OUTPUT UNIT HAS BEEN 
EXCFENDFD, TF SO» AN ATTEMPT TO FORK ANOTHER LIBMAIN/DISK To 


HANDLE THE CURRENT "FA" Wri BE INITIATED ¢REFER TO DOCUMENTATION)» 


AND THE PROCESS WILL CONTINUE WITH A NEW MFA", A LINKED LIST 
OF wFA*S 1S KEPT RY THE ORIGINATING LIBMAIN/DISK FOR THE 
CONFLICT RESOLUTION OF STFP 5, 


COMMON, £221) INDICATES ORIGINATING LIBMAIN/D] Sk 


1F ORYGINATOR,.. 


of 3°6) UNTTNO FOR PACKETS 
0€989) MAXIMUM NUMBER OF FILES PER OUTPUT UNIT 
CCF) FIRST ESPD1SK SEGMENT ADDRESS 


IF NOT ORIGINATOR gs. 


003945) OLSK ADDRESS OF WFAA" AND "“FAINFO" FOR THIS 
FORKED LIBMAIN/DISK 


28400002 
28400004 
28400006 
28400008 
28400010 
28400012 
28400014 
28400016 
28400018 
28400020 
28400092 
28400004 
284000296 
28400098 
28400030 
28400032 
28400034 
284800036 
284600038 
28400040 
28400042 
28400044 
28400046 
28400048 
28400050 
28400052 
28400054 
28400056 
28400058 
28400060 
28400062 
28400064 
28400066 
28400068 
28400070 
28400072 
28400074 
28400076 
28400078 
28400080 
28400082 
28400084 
28400086 
28400088 
28400090 
26400092 
28400094 
28400096 
28400098 
28400100 
28400102 
28400104 
28400106 
28400108 
28400110 


T 


000030 


ADDRESS & 


ABA AHH ADH HA HH HH A A A AH HA THA AAA A A HH 


000030 
0000!0 
0000:0 
000030 
0000:0 
000030 
0000:0 
0000:0 
0000:0 
0000!0 
000030 
0000:0 
000030 
000030 
000010 
000030 
000030 
000010 
0000:0 
0000:0 
0000!0 
0000:0 
000030 
00000 
000030 
000030 
000010 
000030 
0000:0 
000030 
000030 
000030 
0000:0 
000030 
000030 
000030 
000080 
000010 
0000:0 
000030 
000030 
000010 
000030 
000010 
0000!0 
000010 
000030 
000030 
0000:0 
000080 
000030 
000030 
000080 
000030 
000030 


00809 


STACK ¢ Fea) 


STACK (Fal) 
STACK EF 42) 
STACK¢F 43) 
STACKOF 44) 
STACK¢F45) 
STACKEF 46) 


Ci ee ee ee 


BE BR DA JQ FE FD Fe DR FA DE DR BE OR PR DR BA DR |e DE BR BE BA OA PA ae DE DE BE AE BE FQ BE BE FE VR BA ae FE FL FA DL FE QC 


FIR RIOR IORI ORR OR ROK RO OR RR ORR ROR ROR ROR ROKR KOR KORO GR RGR OR ok 


% 


FA 
FAINFO 
FAIN 
FAS? 
MEIN 
FID 
ASME ID 
ASF1D 
FPBPTR 


DESTIN 


TOGS.F3!1] CACCESSD) 


FILE ARRAY FOR NAME PAIRS 


TRANSFER INFORMATION FOR ASSOCIATED NAME PAIR 


INDEX JNTO "FA" 


SIZE OF "FA" 


MULTIT"FILE ID 


FILE ID 


MULTIWFILE ID AFTER STEP 4, 


FILE 


ID AFTER STEP 4G, 


CURRENT INDEX OF FPB ENTRY 


USER SPECIFIED DESTINATION 


of481) CEXPTRED) 
e£724] CNOHASH) 


01824) 
009984) 
02081) 


°C23t1) 
002521) 


BEGYN 
FEAL COMMONe@4, 


- COMMON 


MFID 
FID 
ASMFID 
ASFID 
TMP 
TEMP 


COK) 
CINXLST) 


SPECIFIES CHECK acceSS) BIT 
CHECK FOR FILE BEING EXPIRED 
USE DISK SERIALLY 

FILE HAS PASSED STAGE 3, 

FILE OCCURRED IN "EXCEPT" LIST 


CWETRDFORK) SoME ALTERATIONS TO "FA" ARE 


(FORKED) 


NECESSARY BEFORE FORKING 
NOT ORIGINATING LIBRARYCOPY 


CSOURCEFILEFOUND) AT LEAST ONE FILE FROM THIS 


SOURCE WAS USED 


HOLDS ESPD1SK SEGMENTS FROM CCLIB 


USED IN PRFEPROCESSING CONTROL CARD INFO, FROM 
CCLIB FOR USE BY LIBRARYCOPY 


USER SPECIFIED MAXIMUM NUMBER OF FILES PER 
OUTPUT UNIT 


DIRECTORY OF CURRENT SOURCE (TAPE OR HOHASH) 


MFIDsFID»sASMFID*SASFIDe TMPoTEMPs & ADD NEW LOCALS BEYOND HERE 


FAeFAINFOsFASZ»FAINe 


28400112 
284001414 
28400116 
28400118 
28400120 
28400122 
284001294 
28400126 
28400128 
28400130 
28400132 
28400134 
28400136 
28400138 
28400140 
28400142 
28400144 
28400146 
28400148 
28400150 
28400152 
28400154 
28400156 
28400188 
28400160 
28400162 
28400164 
28400166 
28400168 
28400170 
28400172 
28400174 
28400176 
28400178 
28400180 
284600182 
28400784 
28400486 
26400188 
28400190 
28400192 
28400194 
28400196 
28400498 
28400200 
28400202 
28400300 
28400400 


28400600 


28400800 


AMAA HHH MH HHA OH HH A A A ta HH AH A a tt 


~4 


000030 
000030 
000030 
000020 
0000320 
000030 
000030 
000030 
000010 
0000180 
0000380 
0000!0 
000030 
000030 
000010 
000080 
000030 
000010 
000080 
000010 
0000!0 
000030 
000010 
0000480 
0000180 
000010 
000030 
000030 
000030 
000030 
000030 
000080 
000030 
0000390 
000030 
0000:0 
000030 
0000380 
000080 
0000%0 
000080 
000030 
000020 
000030 
000010 
000010 
000030 
000010 


000010 


000020 


STACK¢(Fse7) = FA 


STACK ¢F 410) 
STACK ¢Fe11) 
STACK(F 412) 


STACK ¢F 413) 
STACK (F414) 
STACK¢F 415) 
STACK(F 416) 
STACK¢F 417) 
STACK ¢F 420) 
STACK¢ F421) 
STACK(F 422) 
STACK ¢ F423) 


STACK(F 424) 
STACK(Fe25) 
STACK(F 426) 
STACK (F427) 
STACK (F430) 


STACK ¢F 431) 
STACK (F432) 
STACK ¢F 433) 
STACK (F434) 


STACK(F 435) 
STACK ¢F 436) 
STACK (F437) 
STACKC(F 440) 
STACKCF 441) 
STACK¢F 442) 
STACK (F443) 


STACK ¢F 444) 
STACK ¢Fs45) 
STACK(F 446) 
STACK (F447) 
STACK¢F 450) 
STACK¢(F 451) 


HHUA HH 


nHueweu4 aeanaun 


wu Hw eH a 8 


FAINFO 
FASZ 
FAIN 
UsToFPBPTReEA®NM sNMOPDESTIN» TOGSoDAr 


CCAIN*SFAINsNATNeNA@NASZ> 


LSX»RUMPFAsPOOLsINDX, 


UNe SEGo MAX eo Kel eo MIDPTREUNITNO3 


ARRAY CCAL*) oXr*}ePAP(*]e+LABC¥IsL BLE *)] +WROSZ[*]3 


WRNSZ 
$ SET OMIT = NOTCB6500L0AN) 
LABFL NEXTNAME + BACK-UP, QUI T,NEXTSEG#NXT» TRANSFERS 
LABFL NEXTSOURCE sCONTINUF,ON»BANNM3 


% 

EPP eS ESOC SESE SS CCE SCS SECT CPCS Se SC CET SCC eee Pee TP ELS Se 2S 

z 

DEF yNE 
ACCESSD = TOGS,¢3%t)#e 
EXPTRED = T0GS,¢4%4)]#>s 
NOWASH = TOGS.E7i1)#> 
OK = TOGS.r18:11]4» 
INXLST = TOGS.6193114> 
WETROFORK = TOGS,( 20:1) #e 
FORKED = TOGS.f23%1)#» 


B6500 ms TOGS, 24:1 )#> 
SOURCEFILEFOUNND#TOGS, C25%11#. 
RFELISTART#T0GS.( 3424183 


28401000 


28401200 


28401400 


28401600 


28401800 


28402000 
28402800 
28403000 
28403200 
28403400 
28403600 
28403800 
28404000 
28404200 
28404400 
28404600 
28404800 
28405000 
28405200 
28405400 
28405600 
28405800 


AHA HHH Ht tt 


0000:0 


000030 


000030 


0000:0 


0000:0 


0000!:0 
0000:0 
000080 
000010 
0000:%0 
0000:0 
0000:0 
0000:30 
0000140 
000030 
000010 
0000:0 
0000:0 
000010 
0000180 
000030 
000030 


x 28406000 T 0000:0 
Cee eS ESE CESSES CS ECCS ET eee Te SES eS SCSI CC SSC SLO Le LS Se es 28406200 T 000030 
I 28406400 T 0000:0 
DEFINE OSED = (TERMSETCPIUMIX) )#> 28406600 T 0000!0 
ABORT = LIBRARYHELPC4)#> 28406800 T 0000:0 
RR5 s O36777777777777778» 28407000 T 0000:0 
RRA = @3577777777777777#. 28407200 T 0000:0 
NUMOPT = 6#, 28407400 T 000010 
UNTTNUM = cit5 )#, ¥146= 28407500 c 000030 
SPOUTUNIT = O#3 28407600 T 000010 
Ei i a RO ROR ORO OOK ORO ROR KIRK IONOK SOR RO pO aie ak 28407700 T 0000:0 
DEF NE NOTCOPIFDCNOTCOPIEN!) = 28407800 T 0000:0 
BFGIN NTLteNOTCOPyEDys NOCOPYMESSS END#; 28408000 T 000030 
SUBROUTINE NOCOPYMESSS3 28408200 T 000030 
LAME SSC MFIDs FID, *67, NTt»e TINULU]s SPOUTUNYI Ts 1 23 , 28408400 P 000110 
: 28408600 T 0004:0 
Fe ROG OR IIR IOIOR IOI ROI IOI NOIR IOIO IC ae RO iC fe ie ie aie 28408800 T 000410 
k 28409000 T 000430 
SUBROUTINE GETASEGMENT; 28409200 T 0004:0 
BEGIN 28409400 T 000480 
SFGtSCCAL2913 28409600 T 000430 
DrSKWATTC@CCA,FCF12300SEG)3 28409800 T 000530 
FORGETESPDISKCSEG)3 28410000 T 000734 
CCATINIE O35 28430200 T 0008:0 
END; 284140400 T 000813 
28409400 
% 28410600 T 000930 
FOI ICI IOI III IG IO OR IOI IG I IOIGIS IOI OR IO IG ID koto tok 28410800 T 0009:0 
% 28411000 T 000930 
&* = USED TO CHECK THAT FILE NAME PAIRS HAVE 28441001 T 000930 
% NOT APPEARED BEFORE 1N THIS OR ANY OTHER "FA® 28411002 T 000930 
% 28441003 T 000930 
ie oie aie 2 ee ae a ie ak a a i ake ec ke ade ak ake ak ak oi Re sig i ak a okie fe a OK ai ak 28411004 T 000930 
% 28431005 T 0009:0 
REAL, STREAM PROCEDURE RESOLVECDIRADDRsMFIDI3 VALUE DIRADDRS 28411200 T 0009:0 
BEGIN LABEL FOUNDeFINISs AGAIN? 28411400 T 000930 
SYt=2DIRADDRS 28411600 T 000934 
AGAJNS Nrs=MFID3 28411800 T 0009%2 
JF Scs"0" THEN 28412000 T 000983 
REGIN S]8aS 1783 28432200 T 001031 
IF 16 SCRDC THEN GO FOUND} 28432400 T O0040!2 
Spte2S1"243 GO AGAIN 28442600 T 0011#1 
FND FLSE 28412800 T 001133 
28442200 
IF SCs+" THEN GO FINIS ELSE 28413000 T 0042:0 
TF SCe"&e THEN BEGIN SIt=St+53 StezSCt GO AGAIN? ENDS 28413200 T 004310 
28443200 
FOUND! RESOLVE? «S13 28413400 T 0043431 
FINTS3 28413600 T O0044:2 - 
END$ 28443800 T 004482 
28411400 


z 
GO RO RIOR IOI OR IOI IOIOIG IOI IG HOR IR IRI OK I 4O ik ok 


% 
* = USFD TO RESOLVE CONFLICTS AND PROCESS 
% OPTTONS ASSOCIATED ONLY WITw DISK SOURCES 
ys 
SER te Rete tN Ra te RO i IR ROO RGR OI ak took a ak 
% 
SURROUTINE SEARCHDIRECTORYS 
BEGIN 
OKt=FALSE3 
re NOT SYSTEMFILECMFID,FID) 
AND CCMFID FQV "BADTSK ") NEQ NOT 0) %1638 
THEN TF ¢T#eDrRECTORYSEARCHCMFID&1C03847841-F TD OR Me3)d) LSS 64 
THEN 
IF T=q THEN NOTCOPIFD(45) FLSE NOTCOPIED(15) 


ELSE BEGIN 


IF M[ET+2) NEQ O THEN 

IF CUSERCODECPIMIX] EQV ABS¢CMCP)) NEQ NOT O THEN 

IF CUSERCODECPIMIX] EQV ABSCMET4+2J))) NEQ NOT O THEN 
BEGIN 

PCDIRECTORYSFARCHC=MFIDeF IDs 13) eDELD3 
NOTCOPIEDC41)3 


GO NEXTNAME 3 
ENDS 


IF EXPIRED OR ACCESSD THEN 

IF EXPIRED THEN 
BEGIN 
STREAMC(TssOcAtsCALCULATEPURGEC@MET43),(2810]))3 
BFGIN SrtsLOc A$ DIt=LOC Ts DSts8OCTs END} 


IF P GTR MET43),012218) THEN OKiaTRUE FLSE 
P(CDIRECTORYSFARCHC@=MFIDoFIDs13)eDEL)# 
END ELSE 


TF MCT+43,01121] THEN OK%sTRUE ELSE 
PCDIRECTORYSEARCHCeMF ID oF IDs 13) eDEL) 
ELSE OKtaTRUES 
END 


FLSE BEGIN NOTCOPIED(C25)3 Tis23 ENDS 


NEXTNAME?S 
IF T GEG 64 THEN FORGETSPACECT)? 
ENDS 


% 

FORGO IO IOIOIII IOI IOI IOC IOI IOI IOI GR IOI I I AOIOI I Koi Hak 
z 

& = USFN TO DETFCT THAT A PARTICULAR NAME PAIR 

x 1S WANTED,..BASED ON NATA SUPPLIED BY CCLIB 

% 


28414000 
28414200 
28414400 
28414401 
28414402 
28414403 
284, 4404 
28414405 
28414600 
28444800 
28415000 
28415200 
28415250 
28445400 
284145600 
28415800 


28416000 


284146200 
28416400 
28416600 
28416800 
28417000 
28417200 


28417400 
26417600 


28417800 
28418000 
28418200 
28418400 
28418600 


28418800 
28419000 
28419200 


28419400 
28419600 
28419800 
28420000 


28420200 


28420400 
28420600 
28420800 


28421000 
28421200 
28421400 
26421401 
28421402 
28421403 


er er ee ee 


A HAART ATH AAA 4S 


44-4 


4444 4-1 


aaa sta 


0015:%0 
0015:0 
001530 
0015:0 
004510 
001530 
0045:0 
0015:0 
001530 
0015:0 
0015:0 
001633 
OOTY 
0049%2 
002372 
0024:0 
26415800 
0028:0 
28416000 
003232 
003432 
0037:3 
004152 
004210 
004333 
28447200 
0046:0 
0046:2 
26416800 
0046:2 
004831 
004922 
0050:0 
005333 
28448600 
0054:3 
005934 
0061:2 
28418200 
00614%2 
006631 
00682 
007013 
28416000 
007033 
28420200 
28420200 
007333 
007333 
007513 
284714800 
0076:0 
007680 
007630 
007610 
007610 
0076:0 


SY oh he ake i Rn RNR I OK kp aOR a ROOK OK OK Rk 
¥ 
REAL STREAM PROCEDURE COMPARECMFID,STR)3 VALUE STR 
REGIN LABEL AG»eFINTS? 

SytsSTrR3 
AG! DPtemMF ID} 

IF SC=">" THEN GO FINIS# % END OF NA 

IF SC=2"+" THEN BEGIN SyizS14+8s DL seD[ +83 END 


ELSE IF 8 SC NE@ DC THEN BEGIN SItsSt+83 GO aGs END} 


TF SCHte" THEN STs2S 748 
ELSE IF 8 SC NE@ NC THEN GO AG3 
S1t=S]"163 COMPAREtsSI}3 
FIN]S! 
END 3 


28421404 
28421405 
284271600 
28421800 
28422000 


/ 28422200 


28422400 
28422600 


28422800 


28423000 
28423200 
28423400 
28423600 
28423800 


4+ AHH Hae 


aAaHAaAs 


0076:0 
007610 
0076:0 
0076:0 
007631 
0076%2 
007633 
007752 
28422600 
00782 
28422800 
007933 
OO0B8OtyY 
0081:2 
0086210 
0082:0 
28421800 


% 


FOR ROR ORI OR IOI IOI ORR IUIDI SR IOIOI ROI I IOI III IOI II Oia 


% 


SUBROUTINE ASIT3 


BEGYN 
1F PAP CFF) 
THEN BEGIN ASMFIDSstF CNTOSeMCNT{PePAP, CCF I+C(PAP,EFF] DIV 2))) 


ENDS 


END 


END} 


LSS 0 THEN MFID ELSE NTQ3 


ASFIDS=IF CNT2t=MCNT141]) LSS O THEN FID ELSE NT23 


ELSE BEGIN ASMFID&S=MFIDS 
ASFIDt ek IDs 


TO RIOR ORR IOI IOI RIG IG IO IGIGIOIIGIOR go iI i ICI OK dob 


DO FZ VE BR HE FO FQ 


= THIS ROUTINE 
OF AN “FAN 


1S RESPONSIBLE FOR EXTENDING THE SIZE 


UNTIL IT NFEDS FORKINGe AT WHICH TIME IT 
WILL ATTEMPT TO START ANOTHER LIBMAIN/DISK TO HANDLE 
THE CURRENT “FA, PROCESSING SHOULD CONTINUE WITH 

A NEW *EA® CREFER TO pOCUMENTATION) 


SER ge ee RR i aOR II aR gi RG ORR Rk kkk OK i R e gok Ro 


% 


SUBROUTINE INSERTORFORK3 


BEGIN 
TF RESOLVECFASFAING1,ASMF IN) #0 
THEN IF CFAIN? =FAING2) LSS MAX 


ONS 


CONTINUE: 


THEN BEGIN 


ELSE 


IF FAIN GEO FASZ 

THEN BEGIN 
TMP 2sSPACE(CFASZ32FASZ4BUMPFA) + 

CFASZ DIV 2)42)413 

METMP*LJ]ieMCFAe1y3 
MOVE (TEMPS =FASZ™@BUMPFAs FAs TMP) 3 
MOVECTEMP DIV 2sFA+TEMPsTMP+FASZ)3 
FORGETSPACECFA#1)3 
FA:=TMP3 
FAYNFO®S eFA4FASZ3 
ENnS 


MUONTISeFAtPFAINJS=ASMFIDS 

MCNTi4¢1] 8@aSFIps 

MEFAINFO+CFAIN DIV 2)]8=TRUCCTCIs 
SOURCEFILEFOUNn? x TRUES 

END 


BEGIN 
IF CU NEQ 18 AND USMC FAINFOSCFAIN DIV 2)"413,0CF)) 
THEN IF LSX=0 THEN GO ON ELSE 
BEGIN 
MPCEAINS @SPACECFASZ+(FASZ DIV 2)42)41) #t{)] 32 
CFAFLSX1)ahOM 13438573 


28424000 
28424200 
28424400 
28424600 
28424800 
28425000 
28425200 
28495400 
28425600 
28425800 


28426000 
28426200 
28496400 


28426600 


28426800 
28427000 
28427200 
28497201 
28427202 
28427203 
28427204 
28497205 
284297206 
28427207 
28427208 
28427400 
28427600 
28427800 
28428000 
28428200 
28428400 
28428600 
28428800 
28429000 
28429200 
28429400 
28429600 
28429800 
28430000 
28430200 
28430400 


28430600 
28430800 
28431000 
28431200 
28431400 


28431600 
28431800 
28432000 
28432200 
28432400 
28432600 


AaAot HAAR ANAS AS 


4 


a+ a4 


4aAaAAAAs 


AAA BATH AA AA AA RAHA HAA AHHH 


0082:2 
0082%2 
0082!2 
0082:2 
008350 
0083:!0 
0083:0 
008733 
009132 
0096:0 
286425200 
009630 
OO97T#Y 
0098:0 
28426000 
0098:0 
28424800 
009834 
0098:1 
0098314 
0098:4 
0098:4 
0098t4 
0098:14 
0098:4 
0098: 4 
0098:4 
0098: 4 
009831 
009930 
009930 
0101°3 
0104:0 
0105:0 
0105:1 
010634 
0106!%4 
011182 
011433 
O11791 
O120%1 
012112 
O122:1 
0123i2 
28828600 
0123:2 
0126:0 
0126:0 
0131:0 
0132:3 
28428200 
013213 
013351 
0136:0 
013930 
0139:2 
014433 


MOVECCSEGISFAIN@™LSX) eFA+LSXeEAIND 3 

MOVECSEG DIV 2eFAINFO+(LSX DIV 2)> 
EAIN+FASZ)3 

WETROFORKS=TRUES 

FAINSSLSX3 

ENDS 


MOVECFAIN DIV 2eFAINFOsSFA+FAINDS 
FOR TMPis5 STEP 5 UNTIL FPBPTR*5 po 

IF McPRTCPIMIXe3] INX CTMP4+4)] LSS O THEN 

STOPTIMINGCTMPs1023)3 
LRMESSC"*LIBMAIN'» "DISK %250202e0sSPOUTUNT Tel D3 
MUCCTMPSeGFTSPACEC12eCONTROLCARDAREAV20)4+4)"4] X%167" 

sAREAMIXF 82038 

IF CINDOXs#USERCODELPIM:X)])= ABS CNOT 0) THEN 

BEGIN INDX38=03 UNt#31%3 END ELSE UN?#263 


EAt=MrFAw1]3 
COMMONS SGETUSFRDISKCCCTEMPIESFAINGOCFAIN DIV 26 
2) DIV 30)+41)38 
MUCFA™ (J) 82FAIN3 
MCFA+TEMP@2)] 82nESTIN3 
IF TEMP GTR 900 THEN 
BEGIN NaAINteMrra+898)3 
DISKWAITCFA+899,TEMP*900sCOMMONs 30)3 
TrMPia9Q03 
MPFA+S9BI]IE=NAINS 
END$ 


DISKWAITCFAt1e TEMP 2 COMMON) 3 

MUFA*{]2sEa3 

STREAMCINDX »COMMONsTMP)3 

BEGIN NStsBLIT*cc USER="s SyseLOc INDX$ SyssSyet3 
DS*27CHRe OSte24LIT*3FX LIBMAIN/DISKICOMMONS"$ 
DS'#sBDEC# NSts6LIT™SEND, O83 

ENDS 


OMrT = NOTCPACKETS) 
IF PSEUNDOMYXCPIMIX] GEQ 32 THEN 
NYLONZIPPER(P{MIX)],.0281)2203 
oMyT : 
TMPERTMPRPEMIXPIBS4236]RUNE 38438593 
INDEPENDFNTRUNNERC(PC,CONTROLCARD) » TMP »192)3 
OMIT = NOTCPACKETS) 
IF PSEUDOMYXLPLMIX] GEQ 32 THEN 
SLEEPCENYLONZ:PPERCPIM[ XJ] 2@1000000000000000)}3 
OMYT 
IF WETROFORK 
THEN BEGIN 
FAteEAINS 
FAINFOS=FA4FASZ}3 
FAINS3SEG3 
WEYROFORKIsPALSE3 
END 


ELSE BEGIN 
TMPtsFA+FAIN™1LS 


28432800 
28433000 
28433200 
28433400 
28433600 
28433800 


28434000 
28434200 
28434400 
28434600 
28434800 
28435000 
28435040 
28435200 
28435400 


28435600 
28435800 
28436000 
28436200 
28436400 
28436600 
28436800 
28437000 
28437200 
28437400 
28437600 


28437600 
28438000 
28438200 
28438400 
28438600 
28438800 
28439000 


28439200 
28439400 
28439600 
28439800 
28440000 
28440200 
28440400 
28440600 
28440800 
28441000 
26441200 
28441400 
28441600 
28441800 
28442000 
28442200 
28442400 


28442600 
28442800 


4H 444A 


AHHAAR AHA AIO UHH 


AAHAAaAH 


AAR HH AA HAA HAHAH 


a- 


0144732 
015082 
015320 
015410 
015583 
015612 
26432200 
0156?2 
0159:0 
016331 
01663%2 
016832 
017033 
017382 
0176:0 
017830 
28435400 
018313 
01485183 
018533 
019011 
019214 
019433 
019582 
019830 
020033 
020182 
020312 
28436800 
020312 
020531 
020731 
020832 
021031 
0213:%3 
021580 
28438400 
021531 
0215!1 
021691 
Ooqatt 
0219t4 
022210 
022334 
022311 
0224514 
022682 
022612 
0226:2 
022733 
022812 
022933 
023032 
023271 
28441400 
0232¢1 
023410 


MOECFAS=SPACE (CF ASZI=BUMPFAI4+(CFASZ DIV 2342) 
+1 “1L]tsTMPa"are 18439573 

FAYNFOSSFASFASZ3 

FAINS=08 

ENDS 


LSX1=03 

IF DESTIN UNITNUM#19 THEN ¥1488 
BEGIN 
STREAMCALEMIDPTRIONES S1eMINSsCDESTINI D3 
BEGIN SItsLOC ai SIteSy+73 IF SCs"0" THEN 

BEGIN TALLYt=23 SItsMyDs SyteSye23 

5CIF Sc="* " THEN JUMP OUTS SyteS14+13 

TALLYSSTALLY41)% AteETALLYS DI SeDI4A3 
DSseL rT 
END ELSF REGIN DIPSDI+A$ STt#sS14163 DStzAnNs END} 


ENDS 
MIDPTRs=P3 
ENDS 
GO CONTINUF? 
END 
FLSF TF UstB THEN Pc(DYTRECTORYSEARCHC@MFIDsFI1D913)+NELIS 4137" 
END$ 
% 


FOR OR RGGI UR IOI ORR IOI IR Ok a I RIGO a IGG aR yok a oka 
% 
SUBROUTINE SCANEXCEPT: 
BEGIN 
FOR Lte0 STFP 2 UNTIL TMP pO 
TE CPAPCLY EQV MFrb)= NOT 0 OR PAPrLy LSS O THEN 
TF cPAP{L441 EQV FIDS2 NOT O OR PAPECL4+1) LSS 0 THEN 
REGIN INXLST#=TRUES 
TF NOT CPAPCLIJef1%11 OR PAPCL41),6151)) 
THEN BEGIN 
PAPCLJ&=PAPLTMP)3 
PAPLL+1]8=PAPCIMP+1 33 
PAP C8810): sPaAP,(88740)"23 
END$ 


Li=TMPs 
ENDS 


END?3 


% 

Fok OR ROR RRR ROR ROK KOR OK ok aOR RoR SK OR O K t 
% 

% CODE STARTS HFRE 

x 

CET OCT SS ESTOS PC ESC CL Pee Pe PSST eS TCL PCPS TCT C Les et ee 
% 


28443000 
28443200 
28443400 
28443600 
28443800 


28444000 
28444100 
28444150 
28444200 
28444400 
26444600 
28444800 
28445000 
28445200 
28445400 


28445600 


28445800 
28445900 


28446000 
28446200 


28446300 
28446400 


28446600 
28446800 
28447000 
28447200 
28447400 
28447600 
28447600 
28448000 
28448200 
28448400 
28448600 
28448600 
28449000 
28449200 
28449400 


28449600 
28449600 


28450000 


28450200 
28450400 
28450600 
28450800 
28451000 
28451200 
28451400 


4A AH 


AAA AHHH UH 


ee ee ee, 


4 +A 


Se 


0235:3 
02353 
024331 
024482 
024531 
28442600 
024524 
024610 
024731 
024713 
024931 
025031 
025110 
0252:2 
025333 
025431 
28444600 
28445400 
0255132 
286444400 
025533 
025631 
28444150 
025681 
0256:3 
28431600 
0256:3 
0260t4 
28427600 
026012 
0260%2 
026052 
02603:2 
026170 
026420 
026210 
0265:0 
0269:2 
0271°3 
0273°%?2 
027521 
027683 
027921 
0282382 
28448600 
0282:2 
028331 
28446200 
028512 
28447400 
028513 
028533 
028513 
028513 
028533 
0285:3 
028523 


STREAMCBtSPRICPIM[Xs3])% REGIN 2CpSts4OLIT70")5 ENDS 


LABts ARRAYDESC(15»LABELAREAV)3 ¥167 
tF NOT COMMON,( 221] THEN 
BEGIN 
DISKWAYTC*ETEMP]»1»*COMMON)3 
FAte2TYPEDSPACECTMPItxeTEMP+¢TEMP DIV 2)4+2eD0ATAAREAV I 413% ¥167= 
FAINFOteFA+TEMPS 
IF TEMP GTR 900 THEN 
BEGIN NAINSsMrFA+898)3 
DISKWAITC™(CFA+899),TMP*900+COMMON#s 30)3 
TMPtx=9003 
MCFA+89RB)F=NATNG 
ENnS 


DISKWATTC*CFA™) )» TMP ®COMMON)D$ 
FAINt@SCFASZISTEMP)@23 
DESTINt@M(FAINFO+CFASZ DIV 2)]3 
FORKED te TRUE? 

LIBRARYTRANSFERS 

ENDS 


CCAI= SAVEARRAYDESC(30,ESPDTSKAREAV)3 %167= 
CCAP29)%=COMMON,(CFI3 

GETASEGMFNTS 

DESTIN@eCCAr1)3 & DESTINATION 

CCAINE=23 

MAXS=COMMON,[9891«23 

UNI TNO?tSCOMMON,[336)3 

FAtsTYPEDSPACECCRUMPFAtSFASZ821F MAX > 128 THEN 128 ELSE MAX)+ &%167* 


CFASZ DIV 2)4+20eDATAAREAV)4+313% %167« 
FAINFOS=FA+FASZ} 
MEFAwY)]¢=203 % MARK INITIAL DIRECTORY 
FAINE 323 
NEXTSOURCE? 
Xt=Q} 


SOURCEFILEFOUNHS sFALSES$ 

TOGSPHORCCALCCAING LIL 383*NUMOPT]3 & STORE OPTYONS 

LSXssFAIN423 

POOLtECEALSCNASZSPACECUSSCNASZ2SCCALCCAINGL] CCF I41)+ 
CTieCCACCCAINGe LJ ¢CFFI)+¢NASZ DIV 2)))4NASZ)4T3 

z 

CET eT TCE TESS CEST CCST CCC CPSC Cee VTS et Ss s 

% PREPROCESSING OF DATA FROM CCLIB 

x INTO A RECOGNIZABLE FORM FOR LIBRARYCOPY 

eee TESE SIT CC TPCT CesT CeCe eee Perree rey So | 

z 

MOVE CU,NA@1—NA)3 

FAINI aNAING 223 


BACK! 


UP: 


IF ¢CCAINt®CCAIN+2) GEQ 28 THEN GETASEGMENT? 
TrecCarCCAIN]3 


1F 12@14 THEN GO QUITS 

IF T,f£4!2)80 THEN 

BEGIN MCNASC(CNAINSSNAING 29] 88T3 
MUONA+NAIN+L JP 2CCALCCAINGS 3 


28451600 


28451800 
28452000 
28452200 
28452400 
28452600 
28452800 
28453000 
28453200 
28453400 
28453600 
28453800 
28454000 


28454200 
28454400 
28454600 
28454800 
28455000 
28455200 


28455400 
28455600 
28455800 
28456000 
28456200 
28456400 
28456600 
28456800 
28457000 
284857200 
28457400 
28457600 
28457800 
28458000 
28458200 
28458400 
28458600 
28458800 
28459000 
28459001 
28459002 
28459003 
28459004 
28459005 
28459006 
28459200 
28459400 
28459600 
28459800 
28460000 
28460200 
284660400 
28460600 
28460800 
28461000 


ee er ee | 


a 


A AMMA MAA HHH HA HA DH HAA 


028533 
28451600 
030333 
030732 
030832 
030930 
031082 
031531 
0316%2 
O317%1 
031913 
032213 
032332 
032582 
28453200 
0325%2 
032712 
032951 
033133 
03332 
033430 
28452200 
033410 
033783 
03392 
034110 
03420 
034233 
0344:2 
034513 
0345:3 
035380 
0354114 
03562 
035732 
03572 
035811 
036010 
036242 
0363!3 
036333 
037480 
037430 
037430 
037410 
037430 
037430 
037430 
0376180 
0377%2 
03772 
038120 
036210 
038210 
038334 
038412 
0388:0 


0 
ENn FLSE 


G 


RAC 
Kis 


K$ 
0} 


WHILF T.05%1]) po 

BEGIN MENT{ SSF AeCEAINGZFAING'2)) 22°07 AND RBS)3 

IF KwO THEN MCPOOLS+CNAIN DIV 2))33CMENT11]3 
MENTL4¢725(CCALCCCAING1] AND RBS)3 

Kitx2KkK423 

IF CCCAINS=CCAINt2) GEQ@ 28 THEN GETASEGMENTS 
TSeCCALCCAIN]$ 


ENn3 


MENT2tePOOLSeCNAIN DIV 2))2(8810)82K3 
MENT2)8=(*#PCDUP)IBCKX2)(°CTFI3 & NEEDED TO FIND "AS" 
IF T,f431] THEN 

BEGIN MINTY SRE ASCEAINE REAING 2) J 38a¢T AND RB4)DS3 

IF MECNT2)30 THEN MENT2])2e(M(NT13]8153284781) 


QUITS 


MENASNAING 27 2e0R ">" 194395)3 
z 


ELSE MrNT2)] teC*PCDUP) 8103284731 )3 


MENTI41] $=C°CCALCCAING1) AND RBA); 
GO BACKS 
ENn ELSE GO UPS 


% MARK END OF Na 


TTC ETT CTT TC CTT TT TPCT TTT TTT LT TT TTL LT TT TT 


% 
% 


% 


RFGIN PROCESSING THE PREPROCESSED DATA 


ACCORDING TO THE S1X STAGES DETAILED ABOVE 
SRR OO ORR IOI RO RR RRR RIOR Gioia 


IF cCAFCCAINGI) UNTTNUM=19 


THEN REGIN 


% SOURCE DISK 


LyBRARYHFELP¢3)3 


Us 


trp NOHASH 
THEN REGIN 


NEXTSEG!: 


=183 


® GO SERYTALLY THRU DYRECTORY 


XterMr SPACE (30) 117830682 38%40)3 
DAt=3+DTRECTORYTOP? 

DISKWAYSTC™X.CCFI],300DAL=DAt16)3 
FOR K%=28 STEP =2 UNTIL 0 DO 


BEGIN 


IF NSED THEN ABORT? 


IF (MF IDtex€K1)=C7914 THEN GO TRANSFERS 
FIDteXpKei 13 

IF MFIDs@44 THEN ELSE 

TF CINDX#=sCOMPARE (CMF 1D,NA)) #0 


THEN 


ELSE REGIN PAPS=MENTissPOOL+CCINDX*NA) DIV 2773 


IF NOT PAP,f67241 THEN MENT1), C721) 8al3 
INXLST&=FALSE3 
IF cTMP8=PAaP,(8%10]"2) GE@ O THEN %EXCEPT LIST HERE 
SCANEXCEPT; 
IF NOT INXLST THEN 
REGIN SEARCHDYRECTORY3 
TrzORTCETFIRTOGSL3IESINUMOPT)3 
IF OK THEN BEGIN ASITS [NSERTORFORKS ENDS 


ENn$ 


%148 


28461600 
28461800 
28462000 
28462200 
28462400 
28462600 
28462800 
28463000 


28463200 
28463400 
28463600 
28463600 
28464000 
28464200 
28464400 
28464600 
28464800 


28465000 
28465200 
28465201 
28465202 
28465203 
28465204 
28465205 
28465206 
28465400 
28465600 
28465800 
28466000 
28466200 
28466400 
28466600 
28466800 
28467000 
28467200 
28467400 
28467600 
28467800 
28468000 
28468200 
28468400 
28468600 
28468600 
28469000 
28469200 
28469400 
28469600 
28469800 
28470000 
28470200 


28470400 


~~ 


AAA ass 


Se 


AHHH HHH HHH HHA HH A DAH A tt 


=" 


039330 
0394%1 
039881 
040242 
0405:3 
040710 
041010 
0411180 
28461800 
041310 
041731 
0420:0 
042083 
042541 
042910 
043413 
043810 
044010 7 
28463800 
044030 
044030 
044332 
0443382 
044312 
044332 
044312 
044342 
0443!%2 
044534 
0446130 
044613 
044712 
O44a7t2 
044833 
045212 
045383 
045730 
045880 
046013 
046283 
0464314 
0465%2 
046831 
046833 
O4a74at2 
047930 
0480!3 
0483814 
048510 
0486:0 
0488:0 
049034 
28470200 
0494610 


END; 
FND$ & OF K LOOP 


GO NEXTSEG3 
END % OF LINEAR SFARCH 


FLSE REGIN % USE SEEKNAM 

FOR Kts0O STEP 2 UNTYL NaSZ=3 00 

BEGIN 

NMP2=eMENTLsteNA+K]3 

NMOteMONTisi d3 

Lis03 

PAPS=MfFPOOL4(K DIV 2)73 

NXT? IF NOSED THEN ABORT; 

IF (NM1 OR NM2) LSS O 
THEN SFEKNAMCNMI ep NM2,LeMFIDeoF IOs DAsPAP) 
FLSF BEGIN MFIDPFNM13 FIDiaNM23 Lteis ENDS 


Ip L NEQ O THEN 

RFGIN SEARCHDIRECTORYS 
THrORTCRTFIATOGS: 38 3tNUMOPT)I3 
TF OK THEN BEGIN ASITS [NSERTORFORK) ENDS 


IF ¢NM1 OR NM2)9 LSS 0 THEN GO NXT 
END 


FLSE YF NAzO THEN LEMESSCNMY oNM20767915e0eSPOUTUNIT, £95 
END’ % OF K LOOP 
FND % OF HASHED SFARCH 
FND 
ELSE RFGIN % SOURCE TaPE 
LYBRARYHELP(0)3 
£ SFT OMIT = NOT R6500L0AD 
FOR Kt=cIF Xp012@414 AND NOT REELISTART THEN XC€1) ELSF 0) 
STEP 2 UNTIL DA@2 DO 
BEGIN IF DOSED THEN ABORT3 


TF CCOMFID@=xXeK)) OR cFYO8eXLK41I29,0185) NEQ O 
THEN BEGIN NOTCOPTED(37)% GO BADNMS ENDS 


TF CINDX§sCOMPARE (CME ID,NA) 80 
THEN 
ELSE BEGIN PAPSeMCNT1isePOOLeCCINDX*®NA) DIV 2)]3 
IF NOT PAP,[C7314) THEN MENT1),¢729)%=43 
INXLSTIzFALSE3 : 
IF CTMPte#PAP,£8240)"2) GEQ O THEN & EXCEPT EXISTS 
SCANFEXCEPTS 
IF NOT INXLST THEN 
BFGIN T8s2O08CCK DIV 2241) (CTF IRTOGSL38 3ENUMOPT]3 
ASIT#® JNSERTORFORKS 
END3 


%5898 


¥5898 


%123" 


26470600 
28470800 


28471000 
284713200 


28471400 
28471600 
28471800 
28472000 
28472200 
28472400 
28472600 
28472600 
28473000 
28473200 
28473400 


28473600 
28473800 
28474000 
28474200 


28474400 
28474500 


28474600 
28474800 


28475000 
28475200 


28475400 
28475600 
28475605 
28475600 
28476000 
28476200 
28476400 
28476600 


28476800 
28477000 
28477200 
28477400 
28477600 
28477800 
28478000 
28478200 
28478400 
28478600 
28478800 


AHHH HHH 


AV OF AHS 


~ 


=" 


AA AR HO 4H 


at at se st st 


28469800 
049430 
28468600 
049410 
28467400 
049681 
0496383 
28466400 
049633 
O4g7iy 
050412 
050132 
050410 
050630 
050683 
050984 
051280 
051283 
05152 
28473400 
0519180 
051933 
052130 
052371 
28474200 
052720 
052833 
28473800 
052833 
053330 
28471800 
0533:2 
28471400 
05332 
28465600 
053352 
0534:0 
053433 
053433 
0539%2 
0542383 
054532 
0548%3 
28476600 
28476600 
055232 
055483 
0555!1 
056132 
056610 
056733 
057031 
057230 
0573!0 
057633 
057980 
28478400 


END3 
BANDNM? FND$ % OF K LOOP 


TRANSFER? 
FOR K#20 STEP 1 UNTIL CNASZ DIV 2)"4 NO 
te MEPOOL INX K),06754] THEN ELSE 
BEGIN MFIN§sMENT{ 2 eNAe(Kx2))3 
FINS=MCNT14113 
NOTCOPIEDC17*¢Us18)x2)3 


FND$ 
FNN3 


IF CCCAINt2CCAIN+2) GEQ 28 THEN GETASEGMENTS 
IF NOT SOURCEFILFFOUND THEN 
BEGIN IF U LSS 16 THEN SETNOTINUSECUCO)3 
STOPTIMINGCFPBPTR,1023)3 
ENDS 


1F x NEFQ O THEN FORGETSPACECX)3 

FORGFETSPACECNAD; 

IF cCCAPCCAINI]=@114 THEN BFGIN FASZiaFAINe?$ 
FORGETSPACECCCA)3 
LTBRARYTRANSFER3 
END 


FUSE GO NEXTSOURCES 
END OF LIBRARYCOPY3 


286479000 
28479200 


28479400 
28479600 
28479800 
28480000 
28480200 
28480400 


28480600 
28480800 


28481000 
28481200 
28481400 
28481600 
28481800 


28482000 
28482200 
28482400 
28482600 
28482800 
28483000 


28483200 
28483400 


4a ants 


—_ 


~ 


a i 


qaA4a4Ha44-4 


T 
T 


057930 
28477200 
057930 
28476200 
057982 
057912 
05841 
058613 
059011 
059211 
28480400 
0596:0 
28480000 
059612 
28475400 
059612 
0600180 
060110 
0603383 
0604%3 
28481400 
0604683 
O607%4 
060880 
061083 
061183 
061271 
28482400 
061291 
0612%1 
28400300 


SIZE® 0613 WORDS 


STACK(F #4) 


STACK¢(F41) 
STACKEF 42) 
STACK ¢F 43) 
STACK(F 44) 
STACK¢F 45) 
STACK ¢F 46) 
STACKeF +7) 
STACK¢F 410) 
STACK ¢F 441) 
STACK ¢ F442) 
STACK (F413) 
STACK ¢Fe14) 


STACK ¢ F415) 
STACK (F416) 
STACK¢F417) 
STACK (F420) 
STACK (F421) 
STACK¢F 422) 


a-H-@ HN: @ -W 


Hue OR 


HHH Hn 8 


PROCEDURE LIRRARYZEROS 


BEGIN 
REAL COMMONs"4;3 
COMMON 
REAL TYPE sSEGaTpJsKoNisQeNoWro ls THINGe ZEROINGS 
TYPE 
SEG 


THING 
ZEROING 
‘ ARRAY Sr#)sXC¥]+RSULTE I +>BUFFADRE*] LOD *) sHE*]3 
x 
RSULT 
BUFFADR 
100 
H 
LABEL GETONE»LOOPs WATE, ARDS 
DEFINE DPSED=TERMSETCPIMIX)#3 
FORO RO OR ROI IORGIOIOR OIG RR IOROR IR IOI OIOIGIGR IR RR KRONOR OR RII RIG HO ge 
SUBROUTINE GETASEGMENTS 
BEGIN 
SEGIRS(29)3 
DISKWAITC@S,CCFI930s5EG)3 
FORGETESPpHISK(SEG)3 
1'nO3 
FNDs & OF GETASEGMENT 


FR ORO RIO RGGI ORR OIDIOR ROR III ROR ROKR ROI I ONOIOK OOK 
SUBROUTINE ABORT 
BEGIN 

IF ZEROING THEN 

BEGIN 

H(4),C438o} tat? 

Hr4),f£2%1)] 2203 

DISKWATTCTHING. CCF J »30- THING CFF I)3 

FORGETSPACECH)3 

END ELSE 


WHILE S(29) NE@ 0 DO GETASEGMENTS 
GO INITIATE! 
END§ % OF ABORT 


Tee TEP ESTE COSC ESSEC eT TTT LTT CTT TC TCT TTT TTT TTT TTT TTT 
SUBROUTINE 103 
BEGIN 
STREAMCDSKADRtsQ4+N,DtecBUFFADR INX (2xW)))8 
BEGIN SItsLOC DSKADR} pSte8DEcs ENDS 


28800000 


START OF REL SEGMENT$ DISK 


28801000 
28802000 


28803000 


28804000 


28806000 
28807000 
28808000 
28809000 
28810000 
28811000 
28812000 
28813000 
28814000 
28815000 


28816000 
28817000 
28818000 
28821000 
28821500 
28822000 
28822500 
28823000 
28823500 
28824000 


28824250 
28824500 
28827000 


26828000 
28829000 
28830000 
28831000 
28831500 


T 9000:0 
ADDRESS = 00830 
T 000010 
T 000030 


T 0000:0 


T 000030 


000010 
0000:0 
000030 
000030 
000110 
0001:0 
0002:0 
000431 
000530 
000533 
28810000 
000610 
000610 
000610 
000610 
000631 
000633 
000934 
004123 
001430 
001530 
28821500 
001510 
00182 
001910 
28838000 
001931 
001981 
002010 
002030 
002233 
28831500 


ii ee 


AHHH HH HH 


a+ +4 


ass 


RSULTIW] $203 
TOREQUEST¢*JODCWNI8O3776 2584086)» 


JODEWI&CIF CTI=NyY"N) LSS 63 THEN 5124T ELSE 512463) 


CCTFJeCW INX RSULT))3 
N3=N+633 
FNDs % OF I0 


Tk II ORO I IOI OI SOIC ORG TONG OIRO ORO OR OIG Bi kk 
SUBROUTINE ZFROAROWS 


BEGIN 
NitsHeB]3 ZNO, OF SEGMTS/ROW 
QizHekKs9)3 %¥D1SK ADDR OF ROW 
Wis03 ZBUFFER NO, 
Ntx03 ZINDEX OF SEGMTS 
103 
Wi=13 ZSWAP BUFFERS 


IF N GE@ Ni THEN RSULTC1]%eRSULTE1] OR JOMASK ELSE 


LOOP! 103 
WATE? COMPLEXSLEEPCCCCRSULTELI°W]) AND JOMASK)#0) OR DSED)3 
ACCIDENTAL FNTRY AT 1 


TF DSED THEN ABORT? 

WetF CRSULT£O} AND RSULT£41 AND fOMASK)#40 THEN 1°W ELSE 
CCRSULTC1] AND 1tQOMASK)#0)3 

IF N<Nt THEN GO TO LOOPS ROW IS NOT FINISHED 

COMPLEXSLEEPCCCCRSULTI14*°N]) AND JOMASK) NEQ 0) OR DSED)3 


ACCIDENTAL ENTRY AT 1 


IF OSED THEN ABORTS 
ENNsZ0F ZEROARONK 


ok ORO IOI RIOR IOIOIG IOI R ROR OR RGR RIOR IIR IIR OR OR ORI Kk 
St= ARRAYDESCC30eFSPDISKARE AV) 

Xtee Me §PACEC1023))18102378238810)3 

TYPriscCOMMON, CFFI]3 

Sr29]7tsCOMMON, PF CFI3 

GETASEGMENTS 

Xp Oyiz@14} 

MOVE C1O22>Xo(Xr1)))3 


GETONE3 


IF pSen THEN ABORT? 
XcJytaeSc1)3 
XCdei)s2S(141)3 
Jiaye2as 

IF clte1+2) GTR 26 THEN GFTASEGMENTS 
IF Sf1] NE® @14 THEN GO GFTONES 
FORGETSPACECS)3 


2167° 


B ZEROING IMPLIES S RETURNED, 


MOVE C S41 oXeStaGETSPACE( J445021)42)3% RETURN UNUSED SPACE AND MAKE X 


FORGETSPACE(X)3 
XteemMeS)I&C 4190823821073 
TOD re(MCGETSPACE( 8909194231828: 38310)3 
RSULTie¢2 INX 10D)&816(8138%40)5 

BUFFADR?2(4 [NX 100)847¢8!38:10)3 
TODrO]:sCBUFFADR INX 0)8178238840]8305t463:2)3 
1ODr1Je=(BUFFADR INX 2)8178:38240)83(5t4682)3 
Jimny 

ZEROING? #13 

WHILE X(JeJ4+2)#014 nO £ 

BEGIN 


% INTO SAVE SPACE, 


28831600 
28832000 
28832500 
28833000 
28833500 
28834000 


28834500 
28835000 
288635500 
28836000 
28836500 
28637000 
28837500 
28838000 
28838500 
28839000 
28847000 
28848000 


28849000 
28650000 
28851000 
28852000 
26852100 


28852200 
28853000 


28854000 
28855000 
28856000 
28857000 
28856000 
28859000 
28860000 
28861000 
28862000 
28863000 
28865000 
28866000 
28867000 
28868000 
28668100 
28868200 
28868300 
28868400 
28866500 
28869000 
28870000 
28871000 
28872000 
28873000 
28877000 
28878000 
28879000 
28880000 


Te es ee ee ee ee ee ee ee 


an 4 44 


a4 


AAA H HHA Ht At ta ttt 


0023%2 
007433 
002633 
OO3191 
003320 
003431 
28830000 
003432 
003412 
0035:0 
003530 
003640 
003782 
003831 
0039180 
0040!:0 
0040383 
00404:0 
0046150 


005433 
005830 
006210 
006430 
006541 


007313 
0077:0 
28835500 
007781 
OO7T7I1 
0086314 
009030 
0091441 
0093:0 
009410 
009531 
009731 
OO97?4 
0100130 
0101%2 
010410 
010581 
040930 
011092 
011182 
011691 
0117814 
012031 
012420 
01262 
012930 
013380 
013780 
013810 
013833 
014134 


ARD? 


ENDS 


Htz( ME THINGS SO TRECTORYSEARCHC XC J) XC U41305)1)8 300883824073 
IF DSEN THEN ABORT} 
IF THING#O THEN GO To ARD3 
IF MCTHING+4).£42t3]=3 THEN 
BFGIN FORGETSPACECH)3 
GO TO ARD;3 
END? 


HP4ISeCePCNUPIIRSC4ASE4Os [Sail es:d47 sy JRaSYSNOL414622]3 
NTSKWATTCTHING. CCE)» 30, THING, CFF ID3 


LEMESSC Xrdle XCdet], 625 Or0eU» 1 23 ® BEING BLANKEA OUT 
FOR Key STEP 1 UNTIL HO9).64385) DOS WRITE OUT FILE» ROW BY ROW 


{F HOK+9)40 THEN BEGIN ZEROAROW3 
IF STOPSETCP1iMIX) THEN STOPMCO)3 
END$ 


Hf4},£4382)2203 & NO LONGER SENSITIVE OR BEING ZEROED 
DISKWATTCTHING, CCF] 30, THING CFF IDS 

FORGETSPACECH)$ 
PeNTRECTORYSEARCH¢CXE JI eXCJ41125),0FL)3 


END3 


60 


INITIATES 


B® OF |,TIBRARYZERO 


28881000 
28882000 
28882100 
28882120 
28882140 
28882160 
28882180 


28882200 
28882400 
28883000 
28884000 
28885000 
28885500 
28885600 


28886000 
28887000 
28888000 
28889000 
28889550 
28890000 


28891000 
28892000 


014101 
014630 
014910 
015081 
0:52:3 
015481 
015483 
28882140 
015433 
015934 
016192 
016433 
016934 
017210 
017433 
28865000 
O175t1 
017733 
016010 
018130 
0183%2 
0183%2 
28880000 
018430 
0184t2 
28801000 
SIZE= 0185 WORDS 


AtAH eH HH 


aAH44a4sa 4 


“4+ 


PRT(671) #® 


STACK¢F 41) 
STACK¢(F 42) 
STACK¢F 43) 
STACK ¢F44) 
STACK ¢F 45) 


STACK ¢F 46) 


$ SET OMIT = NOTCAUXMEM) 


COMMENT 


FRRORMFSSER 1S CALLED BY FRRORFIXFR CTF OPTION 33 1S ON) TO 
TYPE OUT A PSEUDO@=TFRMINAL MESSAGE, 1T DOES ABOUT THE SAME 
THING AS THE FIRST PART OF TERMINALMESSAGE3 


PROCEDURE FRRORMESSERCTYPE)$ VALUE TYPES REAL TYPE? 


ERRORMESSER 
BEGIN INTEGER S*ADRo BF. SALINE 


S 
ADR 
BF 
SA 
N 


5D 


La 


26999999 
30900000 
30901000 
30902000 
30903000 


START OF REL SEGMENTS DISK 


NAME SD3 


LABEL 3 

BFeSPACE¢40)3 

SDe*PRTCPIMIXe4]3 

NT1eSpc0y3 

ADReMCPRICPIMIXs8)].0CF]3 

FOR Sei STFP 1 UNTIL NTI NO 
IF CSA*SD0CS1,(18%15))>1023 AND SASADR AND SDES]>0 THEN 
IF MeS$A%11.0183495)+S5SA>ADR THEN GO L} 

§<«0}3 

SD«+CMr SPACE CTERMSGS7)3)3 

ADR*ADR@SA3 

NTSKWATTC*CSD INX Os TERMSGSZ»MESSAGETABLE[1).(22826])3 


Ne TF TYPEs} THEN 141 ELSE  F TYPE®2 THEN 9 ELSE IF TYPE=4 THEN 


7 ELSE JF TYPE#8 THEN 13 ELSE 53 
STREAMCMe fl SDENJ Je Jer JARECPIMIEXe OJ) ePIMIXeSeADReXe+S#O0seBF) 3 
REGIN Stems SteSye#23 DS*6 CHRS BFeDIZ DfeLOC M3 SyeStat3 
D1leDI+75 OSeCHR3 OleBFs DSM CHRS DSeB LIT* BRANCH #3 
Sted? SpeSr+13 DSe7 CHR? DSeLIT*/"3 
SteSt+13 DS*7CHRs DSeLIT"a™s SpeLOC PiMiX; 
DSe2DECs BFeDts Dlenl"25 DSeFILLE DIleBF3 
X¢eNSe5 LIT*s S 3 ST+hLOC S3 DSe4 DECS OSe5 LIT» A ae 
DSe4 DEC BFeDI? DteDJ] "43 OSe3 FILLS 
N1eBFs OleNnt#13% OSe3 FILL)! 
DIleBFF NSe LIT*e3 
END? 


FORGETSPACE(SD)3 
SPOUTERCBF»Q»FRRORMSG)3 


END EFRRORMESSER3 


30904000 


30905000 


30906000 
30907000 
30908000 
30909000 
30910000 
30911000 
30912000 
309343000 
309744000 
30945000 
30946000 
30947000 
30948000 
309;9000 
30920000 
30921000 
30922000 
30923000 
30924000 
30924500 
30925000 
30926000 
30997000 
30998000 
30999000 


30929500 
30930000 
30931000 


T 000030 
T 0000:0 
T 0000:0 
T 000030 
T 0000:0 
ADDRESS = 00837 


T 900030 


+4 


0000!0 


0000:0 
0000!0 
0003t3 
000581 . 
000630 
0008133 
001030 
0015%4 
002152 
002231 
002533 
0027:°0 
0030:2 
0035'4 
OO39t1 
004314 
0044!3 
004731 
0046:2 
004913 
005110 
005410 
005530 
0056!0 
005633 
30921000 
0057:°0 
005733 
005982 
30904000 
SI1ZE= 0060 WORDS 


AHA AHHH AHHH AHH HA ow ot st 


444 


STACK ¢F a1) 
STACK ¢Fe2) 


STACK¢F43) 


STACK (CF 44) 
STACK ¢F 45) 
STACK ¢F 43) 
STACK¢(F 46) 


a ee 


PROCEDURE FRRORFIXERCTYPE)3 


AND HANDLES THEMs 


RETURNING 


VALUE TYPE} 


BEGIN ARRAY AIT(C¥I]ePRTOL£*y3 


t» GOT» ADREADDR,LABLE; 


AIT 
PRTD 
NAME ANDR3 
ADOR 
PE AL 
I 
GOT 
ADR 
LABLE 
CHECKSTACKSPACES 


&§ SET OM)T = 


FND; 


INTEGER TYPES 


IF TYPE =2 THENSOVRFELW 
TF JARCPIMIXe®23ef381) THEN 
IFCPRICPAMIX*@51] AND @20)#0 THEN 
BEGIN IeMCADRePRTICPIMTXe#8) INX O73 
STREAMC TCT INX O)&1£3011082]5G0T*¢LG0T1)3 
BEGIN SIelsSleSle2:01eD1463DSe2 CHR END} 


TF GOT,(45%3]85 THEN MLADR@3)6@77777777777773 


MCADRe21e@777 7777777777773 

PRTCPYM1X0@51),£45t21¢23 
GO TO INITIATE: 
END3 


PRTD «+ PRTROWEPIMyXI3 


WHILE CAIT*PRTN 


MAKEPRESENTCPPRTD 


TeATT CO] +143 


NO Jered UNTILOCGOT* CADDR*AITEIJ) OWNBIT AND € ANR, ECF) 


fAITNDX]).PBIT=0 DO 


CAITTNDX]] INX 093 


=TYPE)) OR¢+$1)23 % LOOK FOR ENTRY 
IF GOT THEN & WrLL REINITIATE THE GUY» SO SET HIM UP 
BEGIN IF (LABLE«+Mf ADR,MOM])#0 THEN 
IF LABLE#15 THEN 
IF LABLEsBLKCNTR¢E (PRIDE 16)+CLABLE »MOM#0) THEN 


BEGIN IF PRTD 
BEGIN PRTD 


ENDS 


PACKETS 


ASR 


CCURBLKCNTR)>LABLE«BLKCNTR THEN 
CCURBLKCNTRI*+LABLE,BLKCNTR+1$ 


TF CADDR*LABLE .MOM)#0 THEN 


LABLE.»MOM*ADDRePRTD(10),MOM+25. 
ADDReADNR&ADR( 3383301513 


FRRORMESSERCTYPE)3 

IF PRTOPLABLE,£CFJJ,PByTeO THEN 
MAKEPRESENTCEOPRIDECLABLE.CCFIJIICFY)3 
DO UNTILC®CADDR*HUNTCADDR4+1))),C1237843 


ADDR 
ADDR 


CLABLE)(18%18315)8PRTD 
PRTD 
GO INrTTYTATES 


END} 


C8J+PCDUPsLODIACADDR INX 2)(33233845)3 


CiJeMEPRTD 
C2JeMCPRTD 


(8) NX NOT O33 
FOI IROCLOF1032 58 
CCLABLE).€CF 310338339159) 


00000 


310 
START OF REL SEGMENTS DYSK 
COMMENT LOOKS FOR RUN@T]MEF=FRROR ACTION LABELS IN ALGOL PROGRAMS» 
ONLY IF NO LABEL GIVEN3 


31001000 
31002000 
31003000 


31004000 


31005000 


31005010 


31005050 
31005100 
31005200 
31005300 
31005310 
31005320 


31005330 
31005350 
31005400 
31005500 
31005600 


31006100 
31007000 
31008000 
31009000 
31010000 
31011000 
31012000 
31013000 
310413050 
31013100 
31014000 
31015000 
31016000 
31047000 


31017100 
31017200 
31047209 
31017220 
31017300 
310147400 
31018000 
31019000 
31020000 
31021000 
31022000 
31023000 
31024000 


a 


i | 


Se 


Ant tt 


0 
DDRESS # 90839 


0000:0 


0000:0 


0000130 


0000:0 
31005010 
000583 
0006:2 
0008!2 
004410 
001433 
0017314 
31005320 
0018632 
0022t3 
002411 
002731 
002783 
31005300 
002743 
002813 
003121 
003610 
0037:2 
O0040!4 
004313 
00440 
004730 
004831 
005183 
005383 
005632 
005710 
31045000 
00586:3 
0062114 
0063%2 
006382 
006411 
006631 
006833 
0072140 
OO75HY 
007831 
0080!2 
0083:9 
0083:%2 


FNQ FRRORFE IXFR? 


31014000 
31013000 
31025000 T 008332 
31003000 
S1ZE= 0064 WORDS 


PROCEDURF JORMFSS(MYX+Q,AsBsC2D)3 


REAL, MIXsQeAeBsCeoDi% 


COMMFNT = THIS PROCEDURE CAN BE USED TO BUYTLD AND SPOUT A MESSAGE 
THAT {8 To BE PRECEEDED BY A «JOB SPECIFIER> WHICH IT 
RUILOS AUTOMATICALLY FOR THE MIX GIVENS 


REGrN REAL BUF, T#% 
STACK¢ Fel) = AUF 
STACK¢F42) = T 
$ SET OMIT = NOTCPACKETS) 
: REAL UNITNO} 
STACK¢F43) = UNYETNO 
$ POP oMyT 
LABEL EXITS 
RUF « SPACE(9)3 
IF MIX = 0 THEN 


BEGIN Te=SPACEC 3023 DESKWAITC=@=T+3000)3 


STREAMCMS#Me 144 045XSYSNO] oF 8 eMC T41149*XSYSNOI],BUF)$ 


BEGIN DS#33 LIT™ OF", STRHELOC M$ STteS[+is DSts7 CHRS 
NStEL ITSM SST taST+LIDStE7CHRIDStaaLiTM= OM; 


END3 

FORGETSPACECT)3 

Tie ¢(BUF4+2)&5f£ 303 
END ELSES 


IF JARROWPMIXJ#0 THEN 


RFGIN? STREAM(C*#OtRe Jr CTe PRYOREMIX1])<0O THEN T ELSE T INX O+ 


Jo « JARROW(MIXSsMIXeA © TF JARCMIX,0]<0 THEN JAREMIX, 30) 


ELSF O-,BUF D3 
REFGIN DS « LIT * 3 St 


4523]3 


« LOC R3 DS « 6 NECIS 


VALUE MIXsQ@sAsBo Co D3 


Dr # Of"63; DS « 5 FILLS DO] © BUFS DI © DL4¥73% 


NS « LIT "i"3 Sy 
tr Scwt+" THEN 


BEGIN SJ « 
SI « 
SI « 
END ELSE 
BEGIN SI « 
SI -¢ 
END} 


NS « LIT *3"s Sy 


« J} 


S1+#13 0S # 7 CHR} 
Sl#13 DOS « 7 CHR} 
LOC AS SI « Ste} 


SI1+13 DS + 7 CHR3 
St+13 DS «+ 7 CHR 


« LOG MIX} DS « 2 


C+ DIF DI «© DI "23 NS + 2 FILLS 


FND STREAM} 


T t= POLISH3 
$ SET OMIT = NOTCPACKETS) 


oS Lit ” "3 
DS LIT 7/3 
DS «+ 7 CHRS 
DS LIT "7"; 
DECI 


TF Q,CCFIJeMIX THEN UNIT TNOSePSEUDOMIXEMIX]S 


£ POP OMIT 
END ELSE 


% NO SUCH MIX 


BEGIN FORGETSPACECBUF)3 


60 TO EXIT? 
ENDS 


32000000 


START OF REL SEGMENTS DISK 


32000100 
32000110 
32000120 
32000130 
32000200 


32000249 
32000250 


32000251 
32000280 
32000300 
32000400 
32000500 
32000510 
32000520 
32000530 
32000540 


32000600 
32000650 
32000700 


32000750 
32000800 
32000840 
32000812 
32000850 
32001000 
32001100 
32001120 
32001140 
32001160 
32001180 
32001200 


32001220 
32001240 
32001260 


32001300 
32001400 
32001450 


32001475 
32001499 
32001500 
32001501 
32001550 


32001575 
32001600 
32001625 


T 


0000:0 


ADDRESS = 00842 


4a44 44 


44 


ee | 


Te ee i ee ee ee eee ee ee ee ee ee 


aAqHAaAS 


4 


+ 


000030 
0000180 
000030 
000030 
000030 


0000!0 
000050 


0000:0 
000010 
0000:0 
000330 
0003:3 
0008;:0 
001333 
0043531 
0047:0 
32000520 
004734 
001630 
0020381 
32000500 
002074 
0021:3 
002632 
0030:0 
00314:2 
0032:2 
003332 
003434 
003433 
003533 
003633 
003732 
32001140 
003733 
003833 
0039114 
32001220 
003931 
0040%1_ 
004110 
32000850 
004141 


004413 


004133 
0044t2 
0044:2 
32000800 
0044t2 
0045:3 
004631 
32001575 


STREAM( Aer Als ZeOeT)F% 
REGIN ST « A$ DS « LIT ™ "3% 
4err Sc # "+ THEN 
BEGIN TALLY « 73 SI « Sf] +13 % 
6cLi IF SC = "0" THENZ 
BEGIN TALLY « TALLY + 633 Sy] « SI + 43 
END ELSE JUMP OUT)3&% 


Z « TALLY? DS © 2 CHRES 
FND ELSE ST ¢ St + 893% 


DS « LIT %e™33 
END STREAM}% 


SPOUTFER(BUF & QL9I989],UNTTNOS1)3 
EXIT! 
END JOBMESS3% 


32001700 
32001600 
32001900 
32001910 
32001920 
32002000 
32002050 


32002070 
32002090 


32002100 
32002200 


32002300 
32002350 
32002400 


0046214 
0047%2 
004831 
0049:0 
004922 
0050?1 
0050:3 
32002000 
005133 
0052:2 
32001910 
0053%1 
0053:3 
32001800 
T 005430 
T 005631 
T 005611 
32000200 
SIZEe 0057 WORDS 


44 SAHA aa 


44 


PROCENURE MIXPRINTCQ)3 VALUE @3 REAL @3 32100000 

START OF REL SEGMENTS DISK 

COMMENT THIS PROCEDURE JNVOKES JOBMESS TO TYPE THE JOB SPECTIFIERS 32100010 

OF FACH ACTIVE MIX3Y 32100020 

; BEGIN REAL TelJ3 32100100 
STACK¢(Fe1) a T 
STACK¢(Fe2) = I 

FOR Ie1 STEP 4 UNTIL MIXMAX DO 32100200 

IF JARCI»o#) # 0 THEN 32100300 

REGIN JOBMESSC( 1+ Q5"*0,"0570,"0)5 T + $ ENDS 32100350 

1F NOT T THEN®S NULL MIX 32100400 

BEGINS STREAM(T#TeSPACE(2))93 DSe11LIT ™ NULL MIXe™3 32100500 

SPOUTCT & 8£6939:39)7)3% 32100600 

FND NULL MIX3 32100700 

END MYXPRINT3% 32100600 


T 
A 
T 
i 
T 


on ie 


4AH4 


~ 


000010 


DORESS = 90844 


0000:0 
000030 


0000:0 
0002:0 
0003:0 
32100350 
0009:2 
0010:0 
00454 
0017°2 
32100500 
001742 
32100100 


SIZE® 0018 WORDS 


DcSPO ) 
B VALUE TeAsBs REAL OKoTeArBoZ 


34999999 
36001000 


START OF REL SEGMENTS DISK 


PRT(672) = NOLITTLE 


STACK¢F el 
STACK¢F=14 


28852100 


BEGIN COMMENT FILE Q&A} 
LARFL E,L! REAL @3 NAME N=Z3 
> 3 Q 
YN 
DEFINE XSREPLYCPIMTX1#s DSeTERMSETCPLIMIX)#3 
1F OK THEN GO F3 
L? FILEMESSCAPBsNFOY ONC LIONC2I ONC 3]eN(4))3 
TF AUTONS THEN TERMINATE CPUMIX&610CTFI) ELSE 
BEGIN XewT&ye2847t4)5 COMPLEXSLEEPC(X>0 OR O¢0K OR DS)3 ENDS 
ACCIDENTAL ENTRY AT 4 


IF OS THEN GO EFS IF NOT @ THEN TF NOT WHYSLEEPCT) THEN GO L3 
Fi NT64¢X3 XeO0 
FND OF pPOLITTLES 


4747 
Z747= 


36002000 
36003000 


36004000 
36005000 
36006000 
36006500 
36007000 


36008000 
36009000 
36010000 


T 000030 

T 0000:0 

ADDRESS = 00845 

T 000030 

T 0000:0 

T 0000:0 

tT 0000:0 

T 0001%4 

C 000633 

P OO0O09TY 
36007000 

T 002033 

T 0025!0 

T 002632 
36002000 


SI1ZE= 0028 WORDS 


@ @ 
@ REAL PROCEDURE FINNOUTPUTCMSD,FIDeREEL s+ CDATE sCYCLEs TYPE sFORMSsKINDDS 37000000 T 0000:0 é 
START OF REL SEGMENT? DISK ADDRESS = 00846 
VALUF MID»sFID»RFELoCDATEs CYCLE» TYPE» FORMS} 37001000 T 0000:0 
@ REAL MIDeFIDsREFL + COATE sCYCLE» TYPE sFORMS,KIND3 37002000 T 0000:0 | 
| BEGIN INTEGER GOTLsGOTT+GOTBrGOTP»GOTCS 37003000 T 0000:0 
STACK(Fse2) = GOTL 
e STACK¢F43) = GOTT 4 
STACK¢F44) = GOTB 
STACK¢F45) = GOTP 
@ STACK(Fs¢6) = GOTC 6 
REAL US 37003100 T 0000:0 
STACK(F47) = U e 
e LABEL, EXITsSWrONSONTs AROUND» OUK 1D eX + ROUND »CLAIMT» THERE » SOMEWHERE S 37004000 T 0000:0 
REAL MID@MID$ &FAKE OUT COMPILER 37004100 T 0000!0 
STACK¢F@10) = MID 
e $ SET OMIT = NOTCPACKETS) 37004199 T 000010 e 
REAL FREEFS LABEL FREEL$ & FILE TO BE PRINTED ALONE 37004200 T 0000:0 
STACKEF 410) = FREEF 
@ $ POP OMIT 37004201 T 0000:0 @ 
LABEL W3! 37005000 T 0000:0 
NEFINE DSED = TERMSET¢CPIiMIX) #3 37006000 T 0000:0 
e LABEL CPeMTsSUsPP,CKEM, 0] TOVER: %P 37007000 T 0000:0 e 
DEFINE PNTOGs(TYPE=0 OR TYPE GEQ 20)83 37007100 T 0000:0 
DEFINE MAYRECMAYBE1)=CIF FORMS THEN MAYBE] ELSE 02¢30t4zteI#3 37007200 T 0000!0 
@ DEFINE UNITNUM = [19S])#3 %148= 37007300 C 000070 e 
SWITCH TYPESWeCP»ROUND »MT» SUsROUNDs SUsROUND PP PP oMTS xP 37008000 T 0000:0 
REAL SUBROUTINE PRINTER3S 37009000 T 0000:0 
@ BEGIN IF LABFLTABLE[20]=s0 THEN BEGIN Ue203 PC1) END ELSES 37010000 T 000430 e 
37010000 
1F LABFLTABLEL21)20 THEN BEGIN Ue2is PC1) END ELSE P(003% 37011000 T 000312 
e 37041000 @ 
PRINTER«GOTLEP3% 37012000 T 0007!1 
END PRINTERS 37013000 T 000830 
 ] 37010000 8 
REAL SUBROUTINE PTPUNCH3S 37034000 T 0008:4 
BEGIN IF LABFLTABLEL26)20 THEN BEGIN Ue?6s PC(1) END ELSES 37015000 T 000930 
e@ 37045000 @ 
IF LABELTABLE[29]=20 THEN BEGIN Ue29s Pct) END ELSE P(093% 37016000 T 001132 
37016000 
@ PTPUNCH«GOTPEP $3 37017000 T 0015314 e 
END PTPUNCH3® 37018000 T 0036!0 
37015000 
@ | REAL T1sT2-T33% 37019000 T 001631 @ 
STACK EF 411) = Tt 
ACK¢F4i2) © 12 
e STACK¢ F413) = 13 ) 
REAL SUBROUTYNE PUNCHSS 37019100 T O016%4 
BEGIN IF LABELTABLE{22)=20 THEN BEGIN Ue2?sPC1) END ELSE Pr0)3 37019200 T 001780 
@ 37049200 e 
PUNCH#GOTCeP3 37049300 T 002034 
END PUNCH 37019400 T 0024330 
@ 37049200 e 
REAL SUBROUTYNE MAGTAPE3S 37020000 T 002131 
BFGIN IF NOT(GOTL OR GOTB OR GOTC) THENS 37021000 T 0022:0 
& BrGIN JF cUSeT1,UNITNUM) # O THEN #146 37022000 P 00232 e 
BEGIN UteUets P(LABELTARLELUJ20)3 GO OWT? ENDS ¥148~ 37022100 ¢ 002533 
0 
° 3702210 e 
Yd] @ 


FND3% 


OwT: 
END MAGTAPE3% 


SUBROUTINE BADFMS3 


BFGIN 


1F T4 # 0 THEN 
BEGIN FOR UeO STEP 3 UNTIL 15 DOB 
IF CMULTITABLECTU] EQV Ti)eNOT O THENS 
IF LABELTABLEU)<0 THEN? 
IF RDCTABLELU],£CA:6)]2PimMIX THENS 
IF (CT3*PRNTABLE(CU}) <0 THENS 
¥8 T3.£15815740 THEN % DONT USE NONEXYSTENT 
MCMCT3,015315)°3) INX 51,74181] THEN? 
ark Poq)s GO OWT ENDS 


END32 


FOR UeO STEP 1 UNTIL 15 DO% 
TF LABELTABLECU]S0 THEN BEGIN PC(1)3 GO OWT ENDS 


P(O)3% 
MAGTAPFeGOTT*P3% 


#RU1LO AND SPOUT BAD FM MESSAGE % 


Tye¢SPACE(40)3 

STREAMCAsTINULUJaMXePIMIXeTL)3 

REGIN DSe19 LIT "INVALID INPUT UNIT "3 
STe*LOC MX3 DOSe2 DECs DS*2 LITEM"? 
StTe*eLOC AS ST*S1453 HSe#3 CHR 
DSeLIT "es Dpepi=8s DS*FILLS 

ENDS SPOUTCTI23 


LABELTARLF(UJ*#@4143 READY*READY AND CUeNOT TWOCU)) 
RRRMECHeRRRMECH AND UF SAVEWORD*SAVE WORD AND U3 


END BADFM SUBROUTYN3 


RFAtL, SUBROUTINE BKUPTAPES# 
BFGIN IF NOT¢CGOTL OR GOTC) THEN 


AROUND? 


FOR Wed STEP 1 UNTIL 15 DOS 
IF (LABELTABLECU] EQV T3)eNOT O THEN 
TF ¢MULTITABLECU EQV T2)eNOT 0 THEN? 
BEGIN PC1)$ GO AROUND END33 


P(O)3% 
BKUPTAPE*«GOTBeP3% 


END BKUPTAPE?S% 


$ SET OMIT 


FR 


$ POP omMmrT 
If TYPE>1 AND TYPE#4 AND TYPE#6 AND TYPFe15 THEN GO SOMEWHERE? 


ROUNDS 


IF 
tF 


TF 
IF 


IF 


= NOTCPACKETS) 
EEF teTYPE,£12118 TYPE &sARS(TYPE)3 


TyPes1 OR TyPee4 OR ¢CTYPE>16 AND TYPE«19) THEN 
PRINTER THEN BEGIN KIND+13 GO CKFM ENDS 


TYPesO OR CTYPE>20 AND TYPE) THEN 
PUNCH THEN BEGIN KIND#*6$ GO CKFM ENDS 


TYPEs4 OR TYPEs6 OR TYPE#16 OR TYPES18 OR 


FIB 


ZYRYR 


ZRHR 
ZRYWR 
ZRHR 
ZRHR 
ZRHR 
ZRHR 


; 
ZRHR 
ZRHR 


%148= 


%546= 


xP 


37022200 
37023000 
37024000 
37025000 
37026000 
37027000 
37027500 
37028000 
37029000 


37030000 


4AAO AAA AHO 


| 


37031000 T 


37032000 
37033000 


37034000 
37035000 
37036000 


37036100 
37036200 
37036300 
37036400 
37036500 
37036600 
37036800 
37036900 
37037000 


37037100 
37037200 
37037300 


37038000 
37039000 
37040000 
37041000 
37042000 
37043000 


37044000 
37045000 
37046000 


37046004 
37046005 
37046006 
37046020 
37046040 
37046060 


37046070 
37046075 


37046080 


4454 


Stet ts st st 


a44 Aaa 


44 AAMAS 


inal 


002910 
002933 
003130 
003233 
003431 
003631 
0038t14 
004030 
004434 
37029000 
004733 
37023000 
004733 
0049:0 
37032000 
005332 
37022000 
005312 
005313 
005412 
37021000 
005433 
005510 
005510 
O0571t1 
005833 
00612 
0062%2 
006331 
006431 
37036500 
006533 
006912 
007210 
37036200 
007231 
007330 
007410 
007610 
007733 
008030 
37043000 
0083t2 
0086333 
0084:2 
37039000 
008413 
008413 
009010 
0090:0 
009482 
009884 
37046060 
010230 
O0104at] 
37046075 
010820 


(TYPE GFQ@ 29 AND NOT TYPE.64631)) 
BFGIN T1«03 T2eIF TYPE GEQ 20 THEN 


134012221234 25464473 


THEN 
"PUTMCP " ELSE “PBTMCP w3 


IF BKUPTAPE THEN GO THERES gp 
IF MAGTAPE THEN ZP 
CLAIMT3 REGIN MULTITABLECUI]*T2$ LABELTABLE(U)«"T33 zP 
RRRMECHeTWOCU) OR RRRMECHS ZP 

IF REEL#O THEN REEL@13 
ROCTABLECU]*PCDUPsLODIGREELI14$ 38210) %745= 
RCDATEL24831 81 7I8CYCLEC412418733 ¥745@ 
TIeGETSPACE(1020,0)443 zP 


STREAMCUSSTINUCUJsNSsPRNTABLE(U],£308186)> 
AtREELeBeDATE es CeCYCLE sDeOsPNe TYPE GEQ 20> 
TeT1"2)3 

BEGIN DS«12LIT" NEW PBT ON") ST*+LOC U3 SypeSr453 zP 
PNCDeDIS DleD1"63 DSe2LIT"UT"S Dlep3 

DS«3 CHREDSe25LIT%* LABEL OPBTMCP OBACK=UP"ES xP 
PNCD*O13 DieDiw14s DSe2LIT*UT"s DredD)3 
SI t'® LOC Ab OS t= 3 DEC3 

SyptaSP+3sPSteSCHRISlieSle7 sD sehr ei sOSseCHRs 
1H¢(DSts2 LIT*OM sprsedyr1isSpselLOc N3 
ps3s5 oFC3 


ENDS xP 
PCWAITIO(CT1&B8688 38810385521 24583)20,U) sDEL)3 zP 
SPOUTCTY #293 
T1,012111]22@17373 
PCWAITIOCET1)»O5°U NEL) xP 
THERE? LABELTABLELU}.0C1:5)«@203 KINDO73 GO EXIT xP 
ENDS ENDS zP 


le CTYPF GE@ 15 AND TYPF LE@ 48) OR TYPE GEQ 22 THEN 
BFGIN 
$ SFT OMIT = NOTCPACKETS) 

IF CTItZPSEUDOMIXPPIMIXI)#0 AND TYPE<2?2 AND NOT FREEF THEN 

RFGIN 
Ti%=T1"323 
T2:=PACKETPBOT1]3 
T3¢C{NTABLET1,6),(6:24]3 
IF Tae0 OR T320 OR (T2410)>1000 THEN GO FREEL} 
PaCKFTPBD(T1)&s724103 


FND ELSE 
$ POP OMIT 
BEGIN 
$ SET OMyT = NOTCPACKETS) 
FREEL 3 
$ POP OMIT 
T32@NEXTCDONUMC193 
T2ts0013 
ENDS 
KIND&s123 
STREAMCT3IeT2eDs2T1 tzu tsSPACE(30))3 
BEGIN 


0Se8 LITMOG4),.013%3DSe24 LITO? 


37046090 
37046100 
37046110 
37046120 
37046140 
37046160 
37046170 
37046175 
37046177 
37046178 
37046180 
37046190 
37046192 
37046194 
37046200 
37046205 
37046210 
37046212 
37046215 
37046247 
37046220 
37046221 
37046240 


37046260 
37046270 
37046280 
37046300 
37046320 
37046340 


37046350 
37046360 
37046369 
37046370 
37046380 
37046390 
37046400 
37046410 
37046420 
37046430 
37046440 


37046441 
37046450 
37046459 
37046460 
37046461 
37046470 
37046480 
37046490 


37046500 
37046520 
37046530 
37046540 


a tt HOO st oe se Ht Ht SH 


ee Se ee ee ee ee 


AM Hawa 


4-4-4 


011193 
011430 
0118!0 
011833 
012083 
0122:0 
012581 
012730 
012980 
013031 
0133%2 
013583 
0137%2 
013934 
0140181 
0142t2 
044412 
014831 
01503814 
015083 
015210 
015332 
0153%3 
37046200 
015480 
0157382 
015981 
0161380 
0162t2 
016632 
37046160 
37046100 
03470:0 
017233 
017331 
OL73hY 
017682 
017720 
017831 
017933 
048433 
0165383 
0388:3 
37046380 
0188:3 
018813 
0189314 
018981 
018931 
018934 
019032 
019184 
37046450 
019481 
019291 
019630 
019630 


DS%=7 LiIT™B400000"%sHSiai0 LITO" 
Stt=LOc T33Sy,teS7443 DSIe4 CHR 
STtSLOC T23 OoS$%=3 DEC} 
46(DS"4 LIT*"O")3 

FND$ METL¢LleM(T14+8]¢ PBRDROWSZ413 


$ SET OMIT = NOTCSHAREDISK) 


W33 


36007006 


OukKIN$ 


CKEM! 


MeTisSl]eMIDO&cCTYPE GE@ 22)(33478113 % CP RK UP TOG 
GO EXIT xP 
END} ZP 


FILEMESS¢(™s " 
SCIF TYPe = 6 OR TYPE ® 20 THEN #& 
FLSE CIF PNTOG THEN "CP" FLSE "LP®))012836842) 
& CIF TYPE < 2 THEN * ~ 
ELSE IF TYPE GE@ 20 THEN *PUT" ELSE *PBT")£30830218), 
wo. ROD" & CIF FORMS THEN "FM" ELSE ™ )(1223624923> 
MIDs FIDs REEL*® CNATE* CYCLE)3 
tF AUTONDS THEN TERMINATECPUMIX&64E0CTFI) ELSE 747 
BEGIN Z747= 
REPLYCRPIMyX] t= tvWwY & VOU 3634226) & MAYBECVEM)3 
COMPLEXSLEFEPCCCIF ¢TYPE#6 AND TYPE#20) THEN ITF PNTOG THEN 
PUNCH ELSE PRINTER FLSE 0) OR REPLYCPIMIX] 
>0 ORCIF TYPE>1 THEN BKUPTAPE OR MAGTAPE ELSE 0) OR 


ACCIDENTAL FNTRY AT 1 


DSED))3 x747@ 
PADS Z747@ 
IF DOSED THEN GO TO X$3 %747= 


IF NOTCGOTB OR GOTT OR GOTL OR GOTC) THEN 
BEGIN 1F NOT WHYSLEEPCVWY8VOUL 3624226 18MAYBECVFM) ) 
THEN GO TO wW33 
IF REPLYCPIMyX] = VOK THEN GO TO W33 
IF REPLYCPIMIX].CCF) = VFM THEN BEGIN 
LABEL TABLECUSeREPLYCPIMIX),CFFIJ) 32 =FID3 
MULTITABLE(U) t= MYDS KIND t& UNITLU),f484a)3 
Go EXITS 
ENDS 


TF PNTOG THEN BEGIN UsteREPLYCPIMIX]CFF I$ GO CP ENDS 


TYPEeIF CUCREPLYCPIMIXI,CFFJ)*#t THEN 4 ELSE %P 

JF Us2 THEN 1 ELSE JF Ue3 THEN 6 ELSE 153 
REPLYCPIMIXJ+0# GO ROUND? ¥P 
FADS REPLYLPLIMIX 3403 £P 


TF GOTB THEN GO THERE ELSE IF GOTT THEN GO CLAIMT ELSE 
IF GOTC THEN KYINDe6 FLSE KINDedd 


1F FORMS THEN %P 
BEGIN LABELTABLECU)¢eF 103 MULTITABLELCUJ*#MID3 xP 
DOLITTLECFALSE» 


VWYRVOKE36SA4OS6JAVOUL3IOL4 ASG IAVEML O43 42te), 
“heee FMMATINUCUILI12330°18),"RQD t,MID)3 
Te NT62VOK THEN GO EXITS 
TF DSED THEN GO TO INSTYATES 
KIND &tsLABELTABLFIU] SemMULTITABLECU) teGOTLesGOTPi2U1203 
IF NT6,(CFISVFM THEN 


37046560 
37046580 
37046590 
37046600 
37046620 


37046624 
37046630 
37046640 
37046660 


37046680 
37046685 
37046690 
37046700 
37046710 
37046720 
37046730 
37046735 
37046737 
37046740 
37046760 
37046770 
37046780 
37046800 


37046805 


37046810 
37046820 
37046825 
37046826 
37046829 
37046830 
37046835 
37046840 
370466845 
37046850 


37046855 


37046860 
37046880 
37046900 
37046920 


37046940 
37046950 
37046960 
37046980 
37047000 
37047010 
37047020 
37047100 
37047250 
37047500 
37047600 


Aan AH 


aaa 


PVPAAAAOO Asstt 


oO 


AAAs A HHRMA HA AHO 


ARH 


020032 
020331 
020410 
020482 
020583 
37046530 
021031 
021031 
021333 
021441 
37046360 
021431 
021481 
02141 
021431 
021471 
021431 
021454 
0231191 
023333 
024410 
024910 
024930 
024920 
024910 


027010 
37046737 
027010 
027210 
027430 
0277383 
027984 
026013 
028253 
0286532 
028812 
028970 
37046830 
028980 
37046855 
029381 
0296%2 
0301411 
030310 
37046825 
030431 
0305!2 
0309%2 
030933 
0313!0 
0313%2 
031683 
031930 
032041 
032233 
032711 


IF CUS=NT6.CFF 1) #4 20 AND U # 24 AND KIND = 1 
U # 22 AND KIND = 6 THEN 
BEGIN BADFM$ GO ROUND END ELSE 


REGIN LABELTABLFECUIJePF ID: 
MULTITABLECUI]*M7O3 KINDeUNTITOCUI, £19493 
GO EXIT3 


END FLSE BEGIN REPLYCPIMIXJ«NT6) GO OUKIDS ENDS RHR 


FADS GO X3 


SOMEWHERE? IF NOT FORMS THEN GO SWS 
DOLITTLECFALSE »VWY8SVEMs 3624286] e"#FM RODMZ0eMID)} 
tf NOT DSED THEN 
IF U LSS 16 THEN 
IF PRNTABLECU],C121] THEN FLSE 


zP 


USeNT6,fFF 3 


¥764@ 


REGIN LABELTABLF(U]%e=(*P(DUP))3G0 TO SOMEWHERESENDS &764= 


qo TO x3 
SW; GO TO TYPESWrTYPEJs% 
CPs TyPEeIF Uset THEN 21 ELSE YF Us3 THEN 290 FLSE 
1F UsS THEN O ELSE 223 REPLYLPYMIX]«03 GO ROUNDS 
PP3 DALITTLECPTPUNCHPVWY."#PP RODM>OeMIDIE GO X3 


37046800 ACCIDENTAL FNTRY AT PTPUNCH 
SUt Ti*F ID, C6218) 3% 
FOR UeO STEP 3 UNTIL 31 DOS 
IF TINUCU),£30218)=Ty THEN GO ONSS 
GQ TO MT33% 
ON? DOLITTLECLABFLTABLELUJ=O*VWYe"#, oe "RT1012130918)>, 
37085000 ACCIDENTAL FNTRY AT O 
"ROD ",MIN)$ GO X3 
MT3 TieMID3% 
DOLITTLECMAGTAPE® VWY."4MT RQD%/ TF MIN, UNF TNUM#0 THEN 
37190000 ACCIDENTAL FNTRY AT MAGTAPE 


"ON eee "&TINUCMID UNI TNUM™4 9630830838) 
ELSF O»MID)3 
IF NSEN THEN GO TO X; 
Ip CTL*ePRNTABLE(U].,(15215])#0 THEN 
BEGIN FILECLOSECT1&83718333215])3% 
MEMETL°23) INX 5),f 3924 Je 13% 
ENDS 


Xs Ir DSEN THEN Uemt ELSE 
BEGIN KINDeUNITCUD, £12473 © 
LABELTABLECUJe*FIDNS MULTITABLELUJ]«M 
RNCTABLECUJe©PCDUP,LODIRREELL14%3931 
SCYCLEL4SLP4is7)3 
ENDS EXITS FINDOUTPUT+U 


1D3% 
OJRCNATEC 24931917) 


END FINNOUTPUTSS 


%146- 


%148= 
21480 


37047605 
37047610 


37047645 


37047625 
37047650 
37047660 
37047670 


37047700 


37047800 
37048000 
37048100 
37048200 
37048300 
37048310 


37048400 
37056000 
37058000 
37059000 
37085000 


37096000 
37097000 
37098000 
37099000 
37100000 


37100010 
37112000 
371143000 


37113100 
37413200 
37121000 
37122000 
37123000 
37124000 
37125000 


37172000 
37173000 
37174000 
37174100 
37174200 
37175000 


37176000 


VHA AAW AHHH ODA HH ee 


Aaa O 


~AaAAsHA 


T 


032832 
033233 
033433 
37047615 
0339480 
034110 
034420 
0344192 
37047625 
37047670 
034613 
37046980 
034731 
034810 
035210 
035312 
035433 
035683 
37048340 
036191 
036133 
036733 
037433 
0381!0 


038910 
039031 
039410 
039594 
039583 


040234 
040610 
040633 


0413%2 
041533 
041733 
041933 
0421:3 
042332 
0428:0 
37123000 
042610 
043130 
043533 
0438:2 
044083 
044310 
37173000 
044330 
37003000 


S1ZE= 0445 WORDS 


REAL PROCENURE FINDINPUTCMI DoF I pe REPL oe COATES CYCLE s COBOL s UL» OF MODE D> FNDS 
START OF REL SEGMENTS DISK 


STACK¢F+2) = T1 
STACK¢F 43) = T2 
STACK(F44) = U 
STACK(F45) = LO 
STACK¢(F46) = HI 
STACK¢Fe7) = FIRST 


STACK¢F 410) = IL 
STACK¢Fe5) w A 


STACK¢F411) = § 
STACK¢F 412) = COUNT 


STACK¢F 410) = USAS] 


STACK¢F+5) = FPB 


VALUE MIDeFID»sREEL»CDATE,CYCLE »COBOL» 


OF »MODE »FNES 


REAL MIDeFIDeREF Ls COATE +CYCLE sCOBOL»UL* OF eMODE oFNSS 
BEGIN REAL, TiseToeUs,LOeH]T eF IRSTo IL? 


REAL, AsCOBOL3 


INTEGER SeCOUNTS 


INTEGER USASISIL3 
ARRAY FPBsLOre}3 


LABEL LOOKsSFEeSRCHOUT? 

LABEL STARTSWHY eSXITsXeV¥eREADALABELSREWS EXITS 
LABEL. ONN»DUN,FAILS 

DFFINE UNLABELED = UL#3 

DEFINE UNYTNUM = CEtsy#s 


REAL SUBROUTINE DSED$ DSEDteTFRMSETCP4MIX)3 


%146= 


SUBROUTINE CHECKTERMIX$ & LET CALLER ATTEND HIS RESPONSIRILITIES, 


BFGIN 
IF DOSEN THEN 
RFGIN 
1F JARTPIMIX,9) -SYSJORF THEN 
REGIN 
Usa~q3 
GO TO EXITs 
END FLSE GO TO INTTIATES 


FND: 


ENDS % CHECKTERM]X 


RrAL SUBROUTINE SFARCHSg 
BEGIN COUNTS 03 
tF NOT DSFD THEN 
BEGIN 
IF CLO¢@eCHItsMID,UNITNUM#1)) GEQ O THEN 
IF LABELTABLE[LO] GTR #314 THEN 
BEGIN COUNTeCOUNT4+13 PCLOeXCH)? 
MIDeMULTITARLELLOJ3 GO SEE} 
END3 


$ SET OM1T = NOT PACKETS 


IF CLOtECHISePSFUDOMIXEPIMIX]))#0 THEN 


$ SFT OMIT = PACKETS 


% MCP JOB 


$1480 
£148" 
¥146= 
£1486 
K148= 


37177000 


37178000 
37179000 
37480000 


371804100 


37160200 


37180300 
37180400 


37180500 
37180600 
37180650 
37180700 
37180800 
37180990 
37181000 
37185300 
37185310 
37185320 
37185330 
37185340 
37485350 
37185370 
37485380 
374865390 
37185400 


37185410 
37185420 


37185990 
37186000 
37186500 
37186750 
37187000 
374874100 
37187110 
37487120 
37187130 
37187140 


37187200 
37187250 
37487375 


T 


000010 


ADDRESS = 00861 


T 
T 
T 


~ 


AMAA HAH HA OH 


Oo9NNN9 H4AHWMs 4 4 


~a4~ 


000070 
000010 
000010 


000080 


000080 


000010 
000030 


0000:0 
000030 
000010 
000080 
000010 
0000:0 
0000:0 
0003:0 
000330 
000330 
000310 
000410 
000482 
000630 
000682 
00072 
000880 
37185370 
000930 
37185340 
0009180 
37185320 
000984 
000981 
001080 
0010:3 
001291 
001243 
0015%2 
001730 
001981 
002083 
37187120 
002083 
002083 
0022:3 


37113000 


ACCIDENTAL FNTRY AT O 


ONN? 


NUNS 


LOOK: FOR Utel,0 STEP y UNTIL HI DO 
RFGIN IF S GEQ 0 THEN 


END 3 


FATL? 


IF CLABFILTABLECU] EGQV ¢*0@14))=NOT 0 THEN 
COMPLEXSLEFPCCLARELTABLE(U} EQV (#@14))#NOT 0 OR 
CIF Ue3? THEN UNITOCUI,£C1325]216 ELSF 0))3 


IF CLABELTARLELUI EQV FINISNOT O THENS 
IF CMULTITABLFELU] EQV MyIDI=NOT O THENS 
IF CCTIeRDCTABLEC(UJ).CI4t1OJ}mREEL) OR CREEL=0) THENE 
IF CT1e0C24t17)2CDATE) OR CCDATE#O) THENS 
TE CT4eC4it7I=CYCLE) OR (CYCLE20) THENS 
BEGIN 
COUNTS aCOUNT413 PCUrXCH)} 
FEND3 


1F LO = Hr THEN IF COUNT = 1 THEN GO SEE FLSE 
TF LOsO THEN TF CLOSeJAROCP (MIX 26),(286])823 OR LOw?4 
THEN HI 8sL0 ELSE gO TO ONN ELSE 


BEGIN LO&te?33 HI t=e43 END FLSE %754= 
tF L0s23 THEN BEGIN LOte 0; HI%#153 END ELSE GO TO DUN; 
GO TO L,00K3 
IF CYCLE,C181) THEN & PBT 
BEGIN 
IF cOUNT=O THEN IF FID,£1857<3 THEN 
BEGIN FIN. C1tSJ*F ID. 61353413 
LO«O3 Hle153 GO LOOKS 
END ELSE FID. C1t5J«13 
GO SRcHOUTS 
FND3 
1F COUNTsO THEN 
IF MID#0 THENE 
1F NOT COATEsf 181) THEN &% NOT LIBMAIN/DIESK 
FOR UeO STEP 4 UNTIL 15 DO 
TF CMULTITABLECU) FQV MID)ZNOT O THENS 
TF CROCTABLEIUI].£C24817]eCDATE) OR CCDATE#O) THEN 
IF LABELTABLETU]>0 THENS 
REFGIN COUNTe+COUNTS13 
P(UeXCH)3 
END ELSES 
1F RDOCTABLECU.,£836)mPiMIX THEN 
IF CTLeMPMECPRNTABLE(U),£615%459"3) INX 53),04181] THEN 
IF 71,64331] OR T41,04084)80 THENS 
BEGIN COUNTeCOUNT#13 PCUsXCH) ENDS 
SEE: 
END} 
SRCHOUT! 
SEARCH«+S*#COUNT>O3 


37188500 
37188750 
37189000 
37189250 
37189500 


37190000 
37191000 
37192000 
37193000 
37194000 
37195000 
37195030 
37195040 


37195050 


37195100 
37195200 
37195250 
37195280 
37195300 


37195400 


37195450 
37195500 
37195550 
37195600 
37395650 
37195700 
37195750 


37195800 
37195850 


37196200 
37197000 
37197500 
37198000 
37199000 
37199100 
37200000 
37201000 
37202000 
37203000 


37204000 
37205000 
37206000 
37207000 


37207500 
37208000 


37208500 
37209000 


Se ee ee ee | 


ee ee ee i ee ee | 


oe 


AH HAHAHAHA 


ee a 


002213 
0024350 


002413 
002711 
0027%4 


003713 
003912 
004133 
004594 
004830 
005013 
005134 
005340 
37195000 
005310 
37168750 
005511 
0055!1 
005791 
006133 
006333 
37195300 
006533 
37195400 
006910 
006912 
0070!4 
007033 
007331 
0076%2 
0078t2 
37195650 
0080:3 
008181 
37195550 
0081t 
008210 
008381 
008433 
008630 
008783 
009083 
009214 
009440 
009412 
37201000 
009412 
009612 
0101%2 
010441 
37207000 
040833 
010883 
37187000 
010833 
010883 


FND SFARCHSS 


Re aL SUBROUTINE RESEARCH? 
BrGtN 
Stan?s 
PCSFARCHI3 
DO PCDFL) UNTIL CCOUNTSsCOUNT#1) LSS O8 
RESFARCH}S3 
END RFESFARCHS 


Re AL SUBROUTYJNE REED32% 
BEGIN TF CHIeWAITIOCT1sL08@377(18%33215).U) AND @367)#0 TWEN 
IF CHI AND NOT LO)#0 THEN 
BFGIM BLASTQ(U)3 SETNOTFNUSECU20)2 STOPTIMINGCFNS1023)5 
FILEMESSCe "PARITY "s"ON og, “&TINULUJL24330216)5% 
MINeoFIDeREFLe CDATES CYCLE DSS 
END33 


IF OSEN THEN 

REGIN 
SETNOTINUSE(U,0)3 
STOPTIMINGCFNS 1023) 
CHECKTFRMY X3 

FND$ 


REEN*HTs3% 
FND REEDSS 


SURROUTINE SFARCHCOMs % FILE SEARCH FOR COM 30 
BEGIN PCNELIS 
IF NOT SEARCH THEN Uste=1 ELSE 
TF COUNT#1 THEN UtsP ELSE 
BEGIN 
StsCOUNT Ty t203 
COUNTS=]F COUNT>& THEN 8 ELSE COUNTS 
WHILE CCOUNTI=COUNT#=1) GEQ@ 0 00 
BEGIN Ut=P3 


IF Ti THEN 
BEGIN 
T1$sO03 MEA], £30818] taTINUCU],(30818)3 
Atza+13 
END ELSE 
BEGIN 
Titsis MCAD, CL2¢18) teTINUCU),630:18)3 
END? 
FENN 3 
Uran"S3 
FND3 
GO FXIT3 


ENn} 


37210000 


37210090 
37210100 
37210150 
37210475 
37210200 
37210250 
37210300 
37210400 


37210990 
37211000 
37212000 
37243000 
37214000 
37215000 
37216000 
372147000 


37218000 
37218100 
37218200 
37218300 
37218400 
37219000 


37220000 
37221000 


37221090 
37221100 
37221120 
37221140 
37221160 
37221180 
37221200 
372291220 
37221240 
37221260 
37221280 
37221300 
37221320 
37221340 
37221360 


37221380 
37221400 
37221420 
37221440 


37221460 
37221480 


37221500 
37221520 


AHHAeS os 


a ee ie ion i i ee eee 


ie eee eee 


4 AAAs 


44 


O110%1 
37186500 
011082 
0110%2 
011130 
0414140 
011210 
041310 
0115!2 
011630 
37210150 
0116?) 
011631 
011770 
012031 
012211 
012532 
0125t2 
012932 
37214000 
0129%2 
0131:0 
0131°2 
013232 
013332 
0135:!0 
37218100 
0135:0 
0135%2 
37242000 
013830 
013810 
0138:0 
013631 
014033 
014330 
014332 
014465!0 
014733 
015030 
015032 
015033 
O15i%4 
0155t2 
015633 
37221300 
015623 
O1S7ti 
0161!2 
37221380 
016132 
37221260 
016230 
016330 
37221180 
016330 
016352 


371489500 


START3% 
IF UL<O THEN SEARCHCOM ELSE 
1F UL THEN GO TO WHY ELSE & 
Tf NOT SEARCH THENS 
WHYS RFEGIN FILEMESSCTENO FIL™e TF MID,UNITNUM#0 THEN 
"ON ,,e@8TINUPMID UNI TNUM"?19630130!18) 
ELSE O»MIDeFID»sREELSCDATEs CYCLE )3 
FIRSTteVOK&VWYs 3634086) RVULC 308d 2s6IRVILI2424216)3 
JF COBOL THEN 


£146= 
%148= 
%148= 


FIRST#sPyRSTSCVOFXOF C18 E42tG6IRCVERXULIC128423613 


IF AUTODS THEN TERMINATFCPIMIX&861°CTF)) ELSE 

BEGIN 

REPLYCPIMIXJePETRSTR1C 22478143 

COMPLEXSLEEPCRESEARCH OR CREPLYLPIMIXJ>0) OR DSED)3 
ACCIDENTAL ENTRY AT DSED 

ENDS 


CHECKTERMIX3 
IF S THEN SeSEARCH FLSE 
BEGIN 1F NOT WHYSLEEPCFIRST) THEN GO TO WHYS 
TF cCT2¢ecTissREPLYCPUMIX]).£FFI) GTR 64 THEN 
BEGIN STREAMCT23)3 
BEGIN SytaTo3 


¥7 47 
¥747= 


Z747@ 


® YL 
% MID/FID 


LL SysaSyo4as IF SC#PL" THEN GO TO LL3 


SpisSy4 1s TaseSy3 
ENDS 


T2teP3 
NAMEINCHIT®T2)3 MIDSeHITs NAMEIDCHI T2903 
NAMEINCHIeT2)3 FID eHy3 
FORGETSPACEC(T1.0FF1*1)3 
GO TO Y3 

FNDS 


TF TisVOK THEN GO TO Yi 
1F NOT CrLtsT1,CCFI]sVIL) THEN 
BEGIN Ute=ts 
REPLYPPUMIX] #203 
GO TO EXITS 
ENDS 


UNLABELED «*LARELTABLECUeT1, (618215) ]5@3143% 

Pcllys 

COUNTS =13 

IF LABELTABLE(LUIJ=0 THEN 

BEGIN MULTITABLECU]¢=MIp?3 
LABELTABLECUJtaFID3 

ENN ELSE 


BEGIN MIntaMULTITABLECU],(614213 
FIDSsLaABFLTABLELUI,(6242)3 
END} 


FNDS 


% OK 
x OF, FR 


37221990 
37222000 
37222100 
37222500 
37223000 
37224000 
37224100 
37224200 
37225000 
37225050 
37225100 
37225800 
37225900 
372726000 
37227000 


37227100 


37228000 
37229000 
37229500 
37230000 
37230250 
37230500 
37230750 
37231000 
37231250 


37231500 
37232000 
37232250 
37232500 
372327350 
37233000 


37233250 
37233500 
37233750 
37234000 
37234250 
37234500 


37235000 
37235100 
37235250 
37235500 
37235750 
37236000 
37236250 


37236500 
37236750 
37237000 


372368000 


AAA HH HH HHH HH HAH OD HNO AHO VHA 


4A AAA 


a-tH 


37221120 
016333 
016333 
01662 
0169:0 
016933 
017291 
017283 
017233 
018030 
0483183 
018420 
018884 
019033 
019430 
019632 


020411 
37225900 
020481 
020530 
020732 
0209314 
021230 
0213%2 
021383 
021433 
0215%1 
37230500 
021582 
0216140 
021683 
0220%2 
022241 
022233 
37230250 
022233 
022430 
0226:0 
0227%2 
022833 
022951 
37233750 
022911 
023221 
0232%2 
023311 
023491 
023630 
023731 
37235750 
023731 
024030 
02424 
37236500 
Opbety 
37229500 


SX1T$ 


REPLYCPYMIX]2203 


END SE 


Ie COUNT <0 THEN GO TO STARTS 
Ip COUNT>1 THEN 


BFGIN FILFMESSC*#NUP "e*PF IL "eMIDeFIDsREELSCDATESCYCLE)S 


WHILE CCOUNT*COUNT@=4)20 DO 


REGIN TF CUeP)<16 THEN TF MID#0 THEN 
TF CTL*PRNTABLECU),£15915])#0 THEN 
FILECLOSF(T18@12718%33215))3 
STREAMCXeC TINULUJ ] 2 DeSeSPACE (10993 
BEGIN SIleXs SyeSf+53 OSe8 LIT ® DUP ON *3 


DSe3 CHR? DSeLIT et) 
Xepy3 
FND3 


T1+P3 


TF U232 THEN TF CIYDROWCY =32)40 THEN 
"3202]5T1)3 
REGIN DI*DI*1! DS*6 LIT "sDECK "3 
SIr#LOC DKS SieStet1! DS+7 CHR3 


STREAMCOK*CIOTABLELU 


FNS 


SPOUT (593 
END3 


REPLYCPIMIX]F= “Vw avOK 36242:6)aVILE 308 4216)3 
COMPLEXSLEEPCDSED OR CREPLYEPIMIXJ>0))3 


37227000 ACCIDENTAL FNTRY AT O 


Y! 


X$ 


CHECKTERMIX3 


IF CTiteREPLYLCPIMPX]) ef 338i5I]eVv~IL THEN 


BEGIN REPLYCPIMyX] «03 


TF TistFF) > 64 THEN GO SxYT3 


P¢«T1.£18%15))3 
ao TO x3 
END3 


IF NOT WHYSLEEPCVWYRVOKS 3684236)8VIL(3014216]) THEN 


BEGIN St2SEARCH#GO SXIT ENDS 


ReEPLYCPiM[X]#s08 GO TO STARTS 
ENN 


LARELTABLE(LUGPI,(1%5) «0203 

Te NOT UNLABFLED THEN 

BEGIN FPBt=sPRT(PiIMIX.3)3 
FPBCFNJ]3=@MID3 
FPBEFN4) )isF 103 

END? 


Ir U LSS $6 THEN 
IF MID#0 THEN 
REGIN JF CTLePRNTABLFELU).615815]240 THEN 
REGIN FroechOSecT1&83618:33815) 93% 
MOMCT1°%3) INX 5SI,p39C4J] e132 
ENDSS% 


37239000 
37240000 


37240050 
37240100 
37240200 
37240300 
37240400 
37240500 
37240600 
37240700 
37240800 
37240900 
37240940 
37241000 


37241010 
37241020 
37241030 
37241040 
37241050 
37241060 


37241100 
37243200 


37241300 
37241400 


372461500 
37241510 
37241520 
37241525 
37241530 
37241540 
37241550 


37241600 
37241610 


37241700 
37241800 


37241810 
37241900 
37242000 
37242100 
37242200 
37242300 
37242400 


37242600 
37242800 
37243000 
37244000 
37245000 
37246000 


aAnAwA as H 


44 


aA tt 


AA AnH 


4-4 


A444 4445 


a4 


44 


a 


O242t1 
024312 
37224000 
024312 
024483 
024512 
024812 
0250183 
025340 
02552 
025711 
026013 
026282 
026344 
026312 
37240800 
026333 
0264814 
026710 
026913 
027110 
027183 
37241040 
027230 
027334 
37240400 
027610 
027912 


028604 
028730 
028980 
029033 
0292:2 
029384 
029333 
37241520 
029333 
029633 
37241610 
029930 
030033 
37240200 
030083 
030033 
0303142 
030410 
030630 
030784 
0309:0 
37242100 
030930 
030933 
031110 
031332 
031531 
031913 


REANALARFEL: 
Rew 


RRRMECHeTWOCU) OR RRRMECHS STARTIMINGCFNeUD3 
IF UNLABELED OR IL OR CYCLE+f181) THEN GO EXITS 
T1 © SPACE(C119810783388,0IRMODE2424781)2% 
830232466:2)3% 
LO*@403 FIRSTe13% 
IF REEN # 0 THEN TF FIRST THENS 
REGIN FIRST*WATTI0C@4200000000,0.U)2 GO READALABEL FND FLSE 


BEGIN SETNOTINUSECU,1)3 FORGETSPACE(T1,£331215))3 
STOPTIMINGCFN,1023)3 GO TO START END3 


STREAMCY2aOtX$e20,T4)3 
BEGIN DItaeLOc Xs DSi#B LIT "VOLLHORI*3 
Sltsl13s pltep1+83 
IF 4 SCsNc THEN TALLY&s4 ELSE 
REGIN SIs=Ti2 IF 4 SC#DC THEN TALLY ¢w2} ENDS 


YteTALLyYs 
ENDS 


IFCUSAST2=P)>0 THEN USASITAPECTI.CCFIPUSASI o20Ur0)3 
STREAMEMeOe FeO pReOs Hes Ce0iSeT4 JINX 193% 
REGIN SyeSt DreLOc Ms DSe? WDOSS DSe3 OCTIE 
DSts5 OCTsOSte2 OCT3 
ENDS % 


IF CPscYCLE OR CYcLE=0) AND CPCXCHI=CDATE OR CDATES0) ANDS 
CPCXCH)SREEL OR REFLSOJAND (CCPCXCH) EQV FID)SNOT 0) ANDS 
CCPCXCH) EQV MtD)=NOT 0) THENS 

BEGIN FORGETSPACE¢T41.033215])3 1T1+@34000000533% 

LO*OSTIeREENS GO TO EXITS2 

END3% 


IF FIRST THEN GO REWS% 


LO%2@603 HO UNTIL CFYRST&sREEDI.64281413 DO UNTIL REED, faery] 
tF USAST?=0 THEN DO UNTIL REED. £4284] FLSE FIRSTIsREEDS 


ENDS 


LO*@403 GO READALABEL? 


FXIT? FINN TNPUTeUS¢ 
END FINnDINPUT32 


37248000 
37248500 
37249000 
37250000 
37251000 
37252000 
37253000 


37254000 
37255000 


37255100 
37255200 
37255300 
37255400 
37255500 


37255700 
37255800 


37255900 
37256000 
37257000 
37256000 
37259000 


37260000 
37261000 
37262000 
37263000 
37264000 
37265000 


37266000 
37267000 
37267050 
37267100 
37268000 


37269000 
37270000 


AAHAHA TH HHH HH HA HAH OFA HAH 


ee ee 


as 


37244000 
031933 
0322:2 
032510 
0328:0 
033081 
0331193 
0334%14 

37253000 
033810 
034033 

37254000 
034241 
034383 
0345%4 
034533 
034613 

37255500 
034733 
034810 

37255200 
034831 
035230 
035433 
035533 
035631 

37257000 
0356:2 
0360:0 
0363:3 
0365:2 
0368:0 
0372:0 

37263000 
0372:0 
037310 
0379:0 
0384:2 
0385:3 

37243000 
0385:3 
038613 

37480000 


SI1ZE# 0388 WORDS 


STACK¢F41) = FPB 
STACK(Fs2) = | 
STACK¢(F43) = J 


PROCEDURE STARTIMINGCFN®U)S VALUE FNeUS REAL FNOUSE 


BEGIN ARRAY 


37271000 


START OF REL SEGMENTS DISK 


FPBr*]3 INTEGER 1,38 


FPRePRTICPIMIXs3)3% 
IF U<32 THEN 
BEGIN TF FPBCFN+4)20 THEN 


BEGIN 


$ SET aMyT 


$ FOP oMIT 
$ SET OMIT 


IF CIl*FPBLFN43),£3686])40 THENS 


IF 1 NEQ U+t OR FPBEFN421,£8810) NEQ ROCTABLECLUI,(14810) 


THEN 
JF CleFPB,£8#10))<(1023=ETRLNG) THEN 
BEGIN JeGETSPACECT+ETRLNG2 20194238 
= SHAREDISK 
MOVECT*®FPBe J) 3% 


= NOT SHAREDISK 
MOVECETRLNGs CFPBCENJ JoJo) 3% 
FORGETSPACECFPBeL33819I))3% 
NFOCCPIMTX™4)xNDX Je 
PRTCPIMIXe3}eFPBepMCJII&CT+ETRLNG) (8238840) 8% 
FPBCFN¢41¢05 FPBLFN43),C24812)608% 

ENDS 


FPREFNS4 JeFPBCFN44 ]eCLOCK@=PCRTR)D3Y 
FPBEFNS31, C3586) eats 
IF U LSS 16 THEN® RDC & PRN LOG ENTRIES 


BEGIN 3 


STREAMCRESROCTABLECUJ.CI4910] +pteRpocTABLECU], (24317), 


END 


CtsROCTABLEFUJ.C4Li7]eTiecFPREFN +2))9)5 


BEGIN SpealLOc RsNSee3DECsOSts5DEC3DSIazDEC ENDS 


FPBLFN 


ENDS 
END ELSE 


43),66217]2=PRNTABLELUI,£6313817]3 


BEGIN Tre CYssFPRCFN+4)) LSS O THEN 

BFGIN FPBLFNe4 ]ef4+CLOCKsPCRTRI$ [*FPBLFN43),(3686)°13 
FPBLFNG33,C24012]¢PC DUP), C24812)4CJeTINULCII,C198812393 
IF 1<16 THEN 


END END END TIMING$ 


IF J>0 THEN FILEMESS("# 1O"&TINUC]] 
[12830318] ,"RETRIES"s FPBLFNI oFPBLFN4G1 Jode0r0)3 ¥715@ 


TINUCTI),£18212)+03 


37272000 


37273000 
37273100 
37274000 
37275000 
372776000 
37276010 
37276100 
37277000 
37277999 
37278000 
37278001 
37278099 
37278200 
37279000 
37279100 
37280000 
37281000 
37282000 


37283000 
37284000 
37284100 
37284110 
37264120 
37284130 
37284140 


37284150 
37284310 


37285000 


37285100 
37285200 
37285300 
37285305 
37285310 
37285320 
37285400 
37285500 


T 9000:0 
ADDRESS = 00874 


T 000030 


0000:0 
000231 
000330 
0005:0 
000810 
001142 
001283 
001583 
001930 
001910 
002033 
002083 
002033 
002310 
002432 
002610 
003033 
0035%2 
37277000 
003512 
0039:0 
0042t2 
004331 
004333 


AA ANH HH HAHAH AAR HHH 


0046:0 
004831 
37284140 
0049:2 
0053%1 
37284110 
0053%1 
37275000 
37274000 
005331 
005573 
0061:2 
006613 
0067%2 
0068133 
0074:0 
007632 
37285200 
37285100 
37272000 
S1ZEs 0079 WORDS 


AH Aa aAHAA HHA 


AAVaA ss 


STACK ¢Fs2) =z [| 


STACK¢(F43) = T 
STACK¢F 44) = V 


REAL PROCFRURE DISKANDRESSCMINoFIDeFPB32AeHs 10238 


VALUF MIDeFINeFPB3eAeHoy O03 % ¢SHM) 
REAL MIDeFIDeFPB3,A,103 % ¢SHM) 


% CSHM) 
START OF REL SEGMF 


ARRAY Hr¥)]3 
BEGIN LABFL EOF» EOF?3 
INTEGER I 


REAL Tes V3 


Ip AZO THENS 
BEGIN TeCA DIV HCO], 7308197) xHL0),04286)3% 
IF Hf9) LEO Ttectle HOE1}e0 THEN O ELSE T DIV HO1)) THEN 
GO TO FOF3 
IF HPTtet+10)50 THEN % NEW ROW NEEDED, 
JF 10 THEN Go To EOF ELSE % EOF ON A READ, 
IF [022 THEN ¥ CALLED FROM FILEOPEN SO 
BEGIN % DONT EXPAND THE FILE YET, 
Tests 
GO TO E0F23 
END 


ELSE 
IF HO4] THEN ® IN DIRECTORYs UPDATE HEADER. 
PEDIRECTORYSFARCHC=MIDoFINe@H&ICCTFI) »DEL) 


FLSE % NOT IN DIRECTORY, 

BFGIN % ¢SHM) 
IF (V8=FPB3.r1835)) GTR O THEN & EU SPECIFIED % ¢SHM) 

VsecIF V GTR 20 THEN O ELSE =V) ELSE % ¢SHM) 
IF (V8eFPB3.71622)) GTR O THEN & SPEED SPECIFIED X¢SHM) 

Vt=scIF V GTR 2 THEN O ELSE V) ELSE % ¢SHM) 
Vts03 * NO SPEED OR EU SPECIFIED % ¢SHM) 
Hr]] = PETUSERDISKCH(8IJ,V)3 % ¢SHM) 
ENDS % ¢SHM) 


TeHrT)+1eT MOD HEYISS- 
STREAM(DefT])% BEGIN SteD$ DSe8 DEC ENDIS 


END FLSES 
FOF! TeO3¥% 
fOr?! 
DISKADDRESS#T3% 


END DISKANNRESS33% 


37286000 
NT$ OFSK 


37286100 
37286200 
37986300 
37287000 
37287250 


37287500 


37288000 
37289000 
37290000 
37290100 
37291000 
37291200 
37291400 
37291600 
37291800 
37292000 
37292200 


37292400 
37292600 
37292800 
37293000 
37293210 
37293220 
372932930 
37293240 
37293250 
37293260 
37293270 
37293330 


37294000 
37295000 


37296000 


37297000 
37297500 
37298000 
37299000 


T 0000:0 
ADDRESS ® 00877 
000030 
0000:0 
000030 
000010 
000030 


AAaAH 


000030 


— 


0000:0 
000433 
000532 
0040:0 
0010:2 
0012:2 
0013°1 
001453 
0045t4 
0016:0 
001622 
37291600 
001682 
001642 
00147%2 
0020:3 
002033 
002171 
002330 
0026:2 
002823 
0032:0 
0033%1 
0035:°2 
37293210 
T 003572 
T 003834 
37295000 
T 003933 
37289000 
003933 
004140 
0041430 
004153 
37287000 
S1ZEs 0043 WORDS 


AAAAMA SAHA 


AHA HHH 4H 


aosaa4-4 


PROCEDURE SFTNOTINUSECU,RWL)$ VALUF Us» RWLS REAL UsRWL3 37302000 T 0000:0 
START OF REL SEGMENT’ DISK ADDRESS 2 00879 

BEGIN REAL LJ? 37303000 T 0000:0 

STACK¢Fsei) = 1 
STACK(Fs42) = J 

Ip Uet6 THEN PCWATTI00©4200000000 +03774)eDEL)3 37303200 T 0000:0 

SLEEPCETOGLEJ»+>STATUSMASK)3 37304000 T 000331 

RRRMECHeCOCLeTWOCU)) AND SAVEWORD) OR CCLe*NOT 1) AND RRRMECH)3Y 37305000 YT 000433 

RFADY*READY AND 13% 37306000 T 0008:3 

Tr RWL, THEN 373372000 T 00;10:0 

BEGIN 37313000 T 0010:1 

STREAM( Ser TENUCUJ) »MeMULTYTABLEC UJ) >FeLABELTABLECUI]>» 37314000 T 001073 

Ne TF Uei6 THEN PRNTABLECU].030318) ELSE Os 37314100 T 0012%2 

Tt=sMULTITABLEfUJs05 TTteU GEQ 165 Diazyta2SPACE(10))3 37314200 T 001522 

BEGIN SIl#S3 SleSI+S3 DSeLIT "#2 DSe#3 CHRIS 37315000 T 001933 

DSe6 LIT ™ RW/L “3s ST*LOC Ms S]oSl443 37316000 T 0021:0 

DS+7 CHR; DSeLIT * *3 SteSi+43 OS¢7 CHR} 37316100 T 002212 

TOMeDI SDT eNIeySFDSe7FILLSDI eM) TTC UUMP 37316200 T 0023:3 

OUT TO LAS DSe#LIT "C3 DSe5 DECE DSeLIT*)*3 37316300 T 002630 

LA! DS*LIT "e"3 37316400 T 0028:0 

FND3% 37317000 T 0028:2 
37315000 

SPOUTCU)3 37318000 T 002813 

LABELTABLE(U}+f2143 37318100 T 0030:0 

END FLSe LABELTARLFEIUJ]+@1143 37319000 T 0031:1 
37313000 

MULTI TABLELUI+RNOCTABLELUI+03 37319010 T 003431 

If Uct6 THEN PRNTABLELUJSCO 3 37319020 T 0036!2 

ENN SETNOTINUSE3 37319100 T 003930 
37303000 


SIZE 0040 WORDS 


STACKEF4s1) 2 1 
STACK(F42) = X 


37241400 


VALUE Us 
BEGIN 


PROCEDURE RLASTQCU); 


37320000 


START OF REL SFGMENTS DISK 


REAL U3 
REAL ToX3 
BOOLFAN SUBROUTINE CHECKIO3 
BEGIN 

CHECKIOS scp FsUNTTFUI).65%8340 OR €7,049481) AND 1,013959#@31)3 
ENDS 


IF CHECKIO THEN COMPLEXSLEEPCNOT CHECKIOD3 


ACCIDENTAL FNTRY AT CHECKIO 


IF 7.61691) THEN 2 SKIP 7/0 |N PROCESS 
BEGIN TteNFLAGCLOCATQUE( Xaey. 0 FF ]))3 
LOCATQUE(LX], CFF 1]?=@777773 
UNITCU] CCF] &=Xx3 
END ELSE 


UNTITCUIT,CS§43722(NOT 09,018230]3 
WHILE CY tel, CFF JI#O77777 nO 
BEGIN RETURNIOSPACECI)3 


Pt=eNFLAGCLOCATQUECII)3 
END$ 


END BLASTQS% 


37321000 
37322000 
37323000 


37323100 
37323200 
37323300 
37323400 


37324000 


37326000 
37327000 
37328000 
37329000 
37330000 


37331000 
37332000 
37333000 


37334000 
37335000 


37336000 


T 


0000:0 


ADDRESS # 00881 


Aaa 


~a~4Aa4 


T 
T 


T 


0000:0 
0000:0 
0000:0 


0000:0 
0001:0 
0004:0 
0005:3 
37323200 
0006:0 


001431 
004530 
001713 
004983 
00213 
37327000 
0024:°3 
002731 
0029:2 : 
37333000 
003213 
0034:0 
37333000 
0036:0 
37322000 


S1ZE= 0037 WORDS 


PRT¢673) = RUILOLABEL 


BS 1ZEsRS (ZF )F% 
VALUE LABLE »MID»FIDsREEL »sCDATE +CYCLE »PFACT »PTNeoBLKODE » 
BSIZE,RSIZE3% 
ARRAY LABLES*)3% 
REAL MIDsF IDs, REELS CDATE sCYCLE »PFACT »PTN»oBLKONE o& 
ASYZERSIZEs% 


BEGINSSTRFAMCDerPFACTI)$ BEGIN SleNs St#S1453 NSe3 OCT ENDS 


FND 


PFACTeCALCULATEPURGE (PFACTIS& 

STREAM(Sef MIN] »>LABLED 3% 

BEGIN DSe*8 LIT * LABEL “3 SteS3 DSe? WDOS3 
NDSe3 DEC# DSe5 DECE DSee DEC SyeS14+33 DSe5 CHRIS 
NSe14 LIT "O'S DSe5 DECs STeSl+73 DSeCHRIS 
DS*5 DEC? DS*5 DEC DSeqi LIT "Org 

END}% 


IF CRSTIZE*LABLE.€8#10)2>10 THEN 
STREAMCJ#JARROWCPIMIXI] spefLABLEL103193% 
BEGIN SteJs Si*St+ts DSebLrtT * "3 OSe7 CHR3E 
SleSt+43 DSeLIT “s/s DOSe7 CHR 32(NSe2 LIT ™ ")5E 
END GUILDLABFEL&Z 


oF 3 
OF REL SEGMEN 


7337000 
Ts DTSK 
37338000 
37339000 
37340000 
37341000 
37342000 
37343000 
37344000 


37345000 
37346000 
37347000 
37348000 
37349000 
37350000 
37351000 


37352000 
37353000 
37354000 
37355000 
37356000 


T 000030 
ADDRESS = 00883 


0000:0 
000010 
0000:0 
0000:0 
0000:0 
0000:0 
000030 
37344000 
000433 
000330 
000434 
000630 
0007?14 
001030 
001231 
37347000 
001282 
001422 
0016:2 
001733 
001933 
37354000 
37344000 
S1ZE= 0021 WORDS 


Aaa 


AAAs HH HS 


& SET OMIT 
$ SET OMYT 


= PACKETS 
= NOTCPACKETS) 


PROCEDURE FILEMFSSAGECT + KoMek so Re Ne Cs TYPE D3 


37356999 
37357299 
37357300 


START OF REL SEGMENTS DISK 


VALUF JeKoMeF eRe De Ce TYPES 


REAL 1» 


$ POP OMIT 
BEGIN REAI, 
STACKCFe1) 


s 2 
STACK(F+2) = L 


KoMoFeRe De Ce TYPE 


73% 


LeSPACE(12)3% 
STREAMCZI Tel] J > JeLJARCPIMIXe*} J oPIMIXeL D3 


BEGIN 


END3% 


Sle 3 
IF SC#%-" THEN BEGIN TALLYe13 DSeLIT "="3 SyeSl+1 END FLSES 


BEGIN SreSt+13 TF Sc#"#" THEN DSeLIT * * ENDS 


DS+7 CHR? DSeLIT * #3 LeDIs® 
2CDye*LOC Zs’ TF & SC#¥DC THEN BEGIN Dl els SteSle73 DSe7 CHRIS 
DS+LIT * "3 LeDI ENDDS% 


DOle*Ls SpreSt+1} DSe7 CHR: DSeLIT * "3 LeDy38 
3(DleLOC Z3 IF 8 SC#OC THEN BEGIN DieLs SteS!t=83 DSe7 DEC} 
LeDI3 DileDI"73 DSe6 FILL? 
DleLs DSeLIT " "3 Ledys 
END)3 


NL*Ls HNreDIst# OSebLyT Messy 

ZeTALLYS ST#LOC Z3 SiS p4+73% 

TF SCa"0" THEN BEGIN SleJ? SfeSf443 DS¢7 CHR DSeLIT "ssE 
SfeS]+1s DSe«7 CHRS DSeLIT "="3¢¥ 
S]+*#LOC PIMJX3 DSe2 DEC3 
LeDIls DieDI723 DSeFILLE DleL END} 


NSeLIT "tes z 


tr P THEN BEGIN TERMINATECPIM?IX)3 TERMINALMESSAGE(™L) ENDSS 


SPOUTERCL,»OsTYPEDS 
END FILEMESS:% 


37357400 
37357500 
37357501 
37359000 


37360000 
37361000 
37362000 
37363000 


37364000 


37365000 
37366000 
37367000 


37368000 
37369000 
37370000 
37371000 
37372000 


37375000 
37376000 
37377000 
37378000 
37379000 
37379500 


37380000 
37381000 


37382000 


37383000 
37384000 


T 
T 
T 


0000:0 
0000:0 
0000;0 


ADDRESS = 00884 


T 


T 
T 
T 


+4 tH 


0000:0 
0000:0 
000030 
0000:0 


000010 
000213 
0005380 
000584 
37363000 
000730 
37364000 
000834 
O0009T4 
001450 
37366000 
0012730 
0013:2 
0015:1 
0016:0 
001730 
37369000 
0017!%1 
O014ei4 
0041930 
002033 
002133 
0022: 1 
37377000 
0023%1 
002333 
37362000 
0024:0 
37382000 
0026:?4 
002782 
37359000 


S1ZE# 0028 WORDS 


STACK ¢F 41) 


STACK¢F42) 
STACK (F 43) 
STACK(F +4) 
STACK(F45) 


STACK ¢F 43) 
STACK (F 44) 
STACK ¢eFs5) 
STACK ¢Fa1) 
STACK ¢F +6) 
STACK¢F 47) 
STACK¢F#4) 
STACK¢F#3) 


STACK¢Fe2) 
STACK ¢ Fe) 


CT i | 


# W.-H 


PROCENURE FILLBUFFFRSCCURRENT.FINAL,COBOLeNR)3 


BEGIN 
LOCAT 


oOAC 


FIRSTLOC 
PREVLOC 
CURLOC 

T 

4 


NF 


37385000 


START OF REL SEGMENT? DISK 


VALUF CURRENTsFINAUe COBOL,NR$ 
RrFAL CURRENT,FINAL + COBOL,NRS 
ARRAY LOCATr¥]3& 


INTEGER JToUek.D32 


INTEGER FIRSTLOCEUePREVLOCSK pCURLOC=D} 


REAL T=LOCAT3 
Real, 1413 


REAL NFsTy413 & MUST BE AT THE TOP OF THE STACK 
LABEL LINK3 
REAL BSIZFSCURRENTsNeF INAL sUSCOROL»ALPHASNRS 


If ALPHA<€S12 THEN 
BEGIN 
PeNR*(COBOL GTR 0))3 
IF COBOL THEN FINALteCURRENT3 
JeFINAL SC 33215)] Ke CURRENT, C33:15]3% 
De28CNOT CURRENT) (1$222413% 
LOCAT¢MEK4D]3 NReNR@13% 
FOR teil STEP 1 UNTIL NF NO’ 
BFGIN TOREFQUESTCFLAGCFINAL) »CURRENTsLOCAT)3& 
MCLOCATIJ*MELOCATI80( 2622687] AND NOTCM OR TOMASK)32 
IF NOT COBOL THEN 
TF T=t THEN IF PCFINAL, £325)» QUP)=6 OR PCXCH)S7 THEN 
BEGIN 
SLEEPCLOCAT & 0 (3%3:30]»10MASK)3 
STREAM( NCO, LeOtNDVG4e0+BACCeTI*FINAL, C781] 
BUF « CMCLOCAT] INX Tid"C1"T1)93 
REGIN 01 LOC N3 S] «+ BUFS BACCCS] « Sy+#4)3 
IF SC#DC THEN GO OWT 
m1 LOC Ns RACCCS1 « BUF): DS ¢ 4 OCTS 
S1 LOC L3 nt « LOC BACCS Sy «+ S{"23 DI «+ DIM43 
nS 1 CHR# SI « BUFS 
Ct « Cr+Baccs GO FWD 
NoIV64cSy « Syo328 Sy © SyH32)3 Sy «© STAN3 Sy « Syaas 


® INITIALIZE NF 


* #¢ *@ =F 


GO ON} . 
FWD! NDIV64CS! « S1+323 ST © St4#32)3 SY «© SY+N3 


ON$ Dy « LOC L3 pS « 4 OCT? 
OWT? 
END STREAM} 


Ti « P3 


37385500 
37386000 
37387000 


37388000 


37388100 


37388200 
37368250 
37368275 


37388300 
37388400 


37388500 
37388600 
37368700 
37388800 
37389000 
37390000 
37391000 
37392000 
37393000 
37394000 
37394025 
37394050 
37394100 
37394150 
37394200 
37394250 
37394260 
37394280 
37394300 
37394350 
37394360 
37394400 
37394450 
37394460 
37394500 
37394550 
37394560 
37394600 


37394650 


T 
A 
T 
T 
T 


T 


AA HAHAHAHA AHH AAA AHA HH 


— 


0000:0 


DDORESS = 00885 


000030 
000030 
000070 


000050 


0000:0 


000070 
0000:0 
0000:0 


0000:0 
0000:0 


000030 
000281 
000213 
0004:0 
000532 
0008114 
001034 
0013%2 
001530 
0016:3 
0021:3 
002234 
0026:2 
002730 
002933 
0032t1 
0035%1 
003633 
0037%2 
003910 
004030 
004032 
00414114 
004341 
004332 
004531 
004583 
004523 
37394260 
0046:0 


ae PCDUP)=&0 OR PCXCH)#T1 THEN TERMINATE CPIMIX&108{CTFI)3 
FND; 


TF NR>O THEN STREAMCNRe TeMELOCATIsLOCAT)3&% 
BEGIN SI*LOCATS SypeS14+8s OSeNR WOS3S 
SIT*LOC Ts DSeWNS ENDS 


CURRENT £33215 1¢KeMPKeD] 1 8t15I3% 
FINAL .¢ 33215] «K+J3% 
END END ELSE 


BEGIN 

TeALPWARUL1224216) OR M3% 

FOR teN=1 STFP =-1 UNTEL O POs 

REGIN MCALPHA+! ]*CCURLOCeGETSPACE(CBSIZE+42201)4+2)42$3 

£$ SET OMYT © NOTCRREAKOUT) 
IF FIRSTLOCSO THEN FIRSTLOC*+CURLOCS2 
MECURLOC+1]«O3 MOVECBSIZE4+1°+CURLOC4#1»CURLOC42)3 
LINKS’ MCCURLOCTeFLAGCTIACPREVLOC+2ZI (18833815 I3% 

MECURLOCH+BSIZE+3IeFLAGCTIRCPREVLOC+BSIZE41)£18333215)3% 
PREVLOC+CURLOC$% 

FNDES 


IF TaC"l1) THEN BEGIN CURLOC*#FTRSTLOCS GO TO LINK END3SS 


FND FND FrLl OR GET RUFFERS3 


37394700 
37394800 


37395000 
37396000 
37397000 


37398000 
37399000 
37400000 


37401000 
37404000 
37405000 
37406000 
37406099 
37407000 
37408000 
37412000 
37413000 
37414000 
37415000 


37416000 


37417000 


44 


a 


co eee Ree Mite ee ee ee ee 


— 


0046:2 
0050:0 
37394100 
005030 
005333 
005433 
37396000 
005512 
005930 
0060!3 
37393000 
37388600 
006310 
006382 
0065183 
007080 
007530 
007530 
007710 
008210 
008483 
0086930 
008913 
37406000 
009031 
37416000 
0093:0 
37401000 
37387000 


SIZE= 0094 WORDS 


REAL PROCFOURFE FILFHFADERCMIDeFIOsNROWS* SJ] ZEsBLENeRLEN» SIS 


37418000 


START OF REL SEGMENT DISK 


VALUE MIDoFIDeNROWS eS] ZEsBLENeRLENS SSS 
REAL, MIO,F IDF 
INTEGER NROWSsSIZE»BLENe RLEN, S3% 


BEGIN REA|, QeLPFEReSPFRE ARRAY Te Ql*1} 


STACK(F42) = Q 
STACK(F43) = LPER 
STACK(F 44) = SPER 
STACK(F42) = T 


STACK(F45) = NI 
STACK(F46) = Ri 
STACK¢F47) = Li 
STACKCF410) = W 


INTEGER NioRisliewWe 


SET OMy;T = NOT SHAREDISK 
LABFIL TIFILLSEXITS 
SPERe(BLEN+29) DIV 303% 
IF SPER>63 THEN 
FILEMESSC@"INVALID@’»"RLOCK ",MIDsFID»sRLEN» BLEN»s SPER) 3 
IF 8,€42%61=0 THEN KLENeBLENS 2 
SFT OMIT = SHAREDISK 
Q:=S.71383)3 
POP OMYT 
SFT OMIT = NOT SHAREDISK 
LPFReBLEN Div RLENS® 
te CNROWS4S176920 THEN 
BEGYN 
IF CNiseSECURITYCHECKCMIDsFIDsUSERCONELP4MIX)29)) LSS O THEN 
SET oMTT = NOT SHAREDISK 
GO TO EXITS 
SET OMIT © NOT SHAREDISK 
TtEN{&PC.TeLODeXCH)ICIFI3 
SET OMIT = NOT SHAREDISK 
Nie*TL7) 413 
IFCL1©T(CO),£1814})20 THEN Lie303 
Ri+TLO),£30812)3 
We eNd piv R1 * TLO],£42861%30 4N1 MOD R1XxL43 
Tr7]© We W OIV 30 NYV SPERxLPER 
+#(W NIV 30 MOD SPERx30 + W MOD 30 + RLEN#1) 
DIV RLEN@W13 


TIF ILLS TE1J*¢(T£8) DIV SPER)x SPER} 


TOA] %=ceP COUP) )R0L1484781) OR 13 
END FLSES% 


£ SFT OMIT = SHAREDISK 


BFGIN T8=M OR CGETSPACEC 30+ 891 2+@360000700002)3 
STREAMCT)3 BEGIN 60¢CDS*4 LIT "O") ENDS 


$ POP OMIT 
S$ SET OMT = NOT SHARENDI SK 


TLID*XCLOCK+PCRTIRD} 
TE7) + #13 
TCUDIATCHVIACCSLZFeCLPER@1)IDIV LPERIx SPERS 
TCO] © NROWS3 
ENDS% 


37419000 
37420000 
37421000 
37422000 


37422100 


37422399 
37422300 
37424000 
37424100 
37424200 
37425000 
37425499 
37425500 
37425501 
37495599 
37426000 
37497000 
37428000 
37428100 
37428199 
37428300 
37498399 
37429000 
37429099 
37430000 
37431000 
37432000 
37433000 
37434000 
37435000 
37436000 
37437000 
37437500 
37439000 


37439999 
37440000 
37441000 


37441001 
37441099 
37441500 
37442000 
37443000 
37444000 
37445000 


‘T 


000080 


ADDRESS = 00889 


T 


444 


AHHH HH HMA A ot Ht 


447 


4444444 


000050 
000030 
000030 
0000%0 


000030 


0000:0 
000010 
000030 
000313 
000432 
000713 
00141081 
001081 
001182 
004132 
001132 
004223 
004430 
004412 
0017314 
001741 
004733 
001733 
0019%2 
001932 
0021140 
002431 
0025133 
003084 
003230 
003620 
0036:2 
004130 
004430 


37428000 


004430 
004410 
004933 


37441000 


00521 
005231 
005231 
005430 
005532 
005983 
006180 


37440000 


TrO] +SPFRALPERI 30% 3631219 BLENI15%33t15]@RLENC1234214)3 
FrLFHEADER «© NFLAGCT)3 

FXITS 

FN) FILEHFANERSS 


37446000 T 006110 
37447000 JT 0065!1 
37447500 T 006682 
37448000 T 006632 
37422000 
S1Ze¢2 0068 WORDS 


STACK ¢Fe1) 


STACK ¢F 40) 
STACK ¢F42) 


STACK¢Fe2) 


= 


PROCEQURFE PURGFITCU)3 VALUF Us INTEGER U3 


37449000 


START OF REL SEGMENTS DISK 


REGIN ARRAY LABLFRes(*)]3% 


LABLE 
REAL RCWee Oe, EOF a+ 2s% 
RCW 
EOF 
REAL MSCWe93 
MSCW 


P(%.0)3 
PeWATTIOC6C@®4200000000,0377,U) »NnEL)i 
LABLEeCMCSPACE(10)1781078:38870385(21:4523)3% 
BUILDLARELCLABLE eO> "X51 20e1eOeoPRNTABLECUI]., C3021 8} 202000332 
PeWAITTIOCLABLE ®@377000000U) »DFL) 3% 
FOF e+@1737000000000000;% 
POWATTIOCCEOF ]2@37700000rU) »DELIES 
FORGETSPACECLABLE.£33215) 93 
SrINOTINUSE(US0)3 
KrLLCPrMSCW))3 

END PURGEIT3% 


37450000 


37451000 


37451500 


37453000 
37453100 
37454000 
37455000 
37456000 
37457000 
37458000 
37463000 
37464000 
37465000 
37466000 


T 000030 

ADDRESS & 00892 

T 000030 

T 000010 

T 0000:0 

T 000030 

T 000032 

T 000210 

T 000683 

T 004410 

T 001283 

T 001382 

T 009530 

T 001632 

T 001782 

T 0071884 
37450000 


SIZE# 0022 WORDS 


PRT(674) «= 


STACK(F ai) 


STACK ¢Fe2) 
STACKEF43) 


STACK¢F 44) 
STACK¢F 45) 
STACK (CF +6) 
STACK ¢F 47) 


PROCEDURE KRUNCHERCH)$ ARRAY HL*]3 


KRUNCHER 


RFGIN DFFINE ESHC7)#,RL=HO1)#,RPBeH(0),L30°12)#, 


$ SET omMIT = 


& SFT omiT s 


AGAIN? 


DONE? 


MAXROWS&H[ 9] &> 
BCLEHLO),£42:6)#,BRLAHLSI43 
ARRAY A[¥*]: 


LAREL FORGET» EX tT sAGATNeDONES 
INTEGER NBeNBRS 


REAL ToJeKoT3 


At=(MrPSPACE(41)}]840(8838!10]3 
MOVEC4SL SA. LCR Iti 9 A)s 
IF — LSS 0 THEN GO TO EXIT3 
Npise NyV RPBs 
NBR%*eRL DIV BCL} 
IF RL NEG BRL THEN 
FOR yt310 STEP 4 UNTYL, 29 DO 
IF Hey? NEQ O THEN 
SHAREDISK 
FORGETUSERDISKCHEIJ+RLsBRL@RLI3 
NOT SHAREDISK 
BRLie«RL3 
IF NB LSS NBR THEN 
BEGIN ALO] PsHCNT2:210)3 
NT43xl} 
RLi=CNBe1)xBcL3 
GO TO FORGFT; 
END3 


Tie(Ktadie1)4NBRe203 
IFONTLE2NBR OHITV J)=0 THEN GO TO NONE3 
TF CNT2%=NB NIV NTL) GTR 19 THEN GO TO DONE? 
IF NBR MON Je0 THEN 
REGIN IF ¢CNT323NTIXNTO#NT1) LSS T THEN 
BEGIN KseJds TESNT33 NTGsanToe1 ENDS 


ENN} 


JtaJdel} 
G0 TO AGAIN3 
If Kel THEN GO TO EXITS 
NT2%e@NB DIV NBR + 103 
RLIBRL NIV K3 
FOR 4210 STFP ¢ UNTIL NT2 DO 
REGIN TF CNT(taH€rI"*RLI GTR O THEN 
FOR Jiey STEP 1 UNTIL K 90 
ACCT TLIO) xK+ JRL JP SNT1+uxRLS 
END: 


FOR K33NT4 STEP 1 UNTIL 19 DO ALKI1203 


37500000 


START OF REL SEGMENTS DISK 


37501000 
37501500 
37502000 
37504000 


37505000 
37506000 


37507000 


37508000 
37509000 
375190000 
37511000 
37512000 
37513000 
37514000 
37515000 
37515995 
37516000 
37516050 
37847000 
37520000 
37521000 
37521100 
37521200 
37521300 
37521400 


37522000 
37523000 
37524000 
37525000 
37526000 
37527000 


37528000 


37529000 
37530000 
37530100 
37530200 
37531000 
37532000 
37533000 
37534000 
37535000 
37536000 


37538000 


T 9000:0 
ADDRESS = 00893 


000030 
000010 
000030 
000030 


aA 


T 000030 
T 000030 


T 000030 


000030 
0005!2 
000882 
001030 
O0012%4 
0014%2 
0015%t3 
0017%0 
001830 
001810 
0023%3 
002333 
002581 
002610 
00262 
002941 
003231 
003233 
37521000 
003233 
003582 
003733 
004030 
0041%1 
0044:30 
37527000 
004731 
37526000 
OO47I1 
0048%2 
004910 
0050!1 
005210 
0054:0 
005510 
OO57 41 
005930 
006513 
37533000 
0068:0 


st ts at st st 


Te ee Nee ee ee ee ee ee ee ee! 


~4 


FORAFT: 
$ SET OMIT = 


$ SFT OMIT = 


FXYT3 


ENDS 


TF MAXROWS LSS ¢NTS8B(NT4#20)4NT4) THEN MAXROWStENTS3 

Tr NB4+1 NEQ@ NBR THEN 

SHAREDTSK 
FORGETUSERDISKCALNT4"1]4¢RLe(NT2@9)xBRLENTUXRE D3 

NOT SHAREDISK 

MOVE C20eAe(HIF10)))3 

BRLieRl3 

FORGFETSPACE(A)3 


37538500 
37539000 
37541995 
37542000 
37542005 
37543000 
37544000 
37545000 
37546000 


007212 
007613 
0072830 
007810 
0083%2 
008312 
008512 
008730 
008810 
37501000 
SIZF= 0089 wORDS 


AAA HHA 


PROCEDURE NISKFILEOPENCALPHA)3 VALUE ALPHAS INTEGER ALPHA3 38000000 r o0000:0 
START OF REL SEGMENTS DISK ADDRESS #® 00896 
PRT(675) = nISKFILFOPEN 
BEGIN REAL RCWE+OeMSCWE=23 38001000 fT 000010 
STACK¢F40) = RCW 
STACK¢(F=2) = MSCW 


REAL TOM=IOMASKs ]OMASKs4y3 38002000 T 0000:0 
PRT(362) = 10M 
STACK¢Fe1) = JOMASK 
. INTEGER NBUFSa+2eFNUMe+ 3,RLENS+ Oe TYPE S45 [O24 6eBLENZ47pUEHBe 38003000 T 0000:0 
STACK¢F 42) «= NBUFS 
STACK¢F43) = FNUM 
STACK¢F +4) = RLEN 
STACK(F 45) = TYPE 
STACK¢F +6) = 10 
STACK(F47) = BLEN 
STACKEF+10) = U 
KIND s49+MODE S490, D7RECHe411 eFORMS2412,COBOLa4+13, 38004000 T 0000190 
STACK¢F 411) = KIND 
STACK¢F 412) = MODE 
STACK¢F413) = DIREC 
STACK¢(F 414) = FORMS 
STACK¢F 415) = COBOL 
UNLABELED=+14,0PTIONALS+15eCNICTL2+163 38005000 T 0000180 
STACK¢Fei6) = UNLABELED 
STACK(F +17) = OPTIONAL 
STACK¢(F 420) = CNTCTL 
REAL T154t17+T2=418sMASK=419+STATES+203 36006000 F 000080 
STACK(Fe21) = TI 
STACK(F 422) = T2 
STACK¢F 423) = MASK 
STACK¢F424) = STATE 
REAL MFIDS4?1-eFID=+223 INTEGER REEL#4+23eCDATE=+24,CYCLE=4+253 38007000 T 0000:0 
STACK EF 425) = MFID 
STACK(F 426) = FID 
STACK¢CF 427) = REEL 
STACK¢F 430) = CDATE 
STACK¢F 431) = CYCLE 
ARRAY FIBS4+26r*]+FPB=427;*] 32 38008000 T 0000:0 
STACK¢F 432) = FIB 
STACK(F 433) = FPB 
. INTEGER ACCESS#+28,F1B7%4293 38009000 T 000010 
STACK¢F434) = ACCESS 
STACK ¢F 435) = F1B7 
LABEL AGN EXITS 38009100 T 0000:0 
ARRAY HEANER#4+30(4I)3% 38010000 T 0000310 
STACK¢F +36) = HEADER 
REAL TOGH+319% 38010100 T 0000:0 
STACK¢F 437) & TOG 
SURROUTINE DISKSETUPSS% . 38011000 T 0000:0 
BEGIN IF STATE e£4241}3 THEN’ 38012000 T 000110 
BFGIN 38013000 T 000133 
IF Me]D=0 AND USERCODFEPIMIX] # O THEN %126= 38013010 ¢ 000231 
BEGIN %126« 38013020 c 000484 
FPBCFNUM J%eMFINt$sFID3 2126" 38013030 c 000413 
FPBCFNUM4+1}%eFID SeUSERCONECPIMIXI3 %126" 38013040 ¢ 000632 
END3 %126" 38013050 ¢ 000930 


IF NELAGCFIBI1417¢FLAGCFILEHEADERCMFID 
& SET OMIT = NOT SHAREDISK 
sFIDSFIBP5)]71845%4)-FIBC8),(2085) 
»FIB(8],625923)sBLEN»RLENs STATE) ))<6 THEN 
BEGIN PCDEL)} 
TOGi= 13 
$ SET OMIT = NOT SHAREDISK 
GO 10 EX]IT3 
ENDS 


IF FYB(¢8).£20828140 THEN FPBrFNUM42),C182830)eDATE ELSE 
BEGINZ OLD FILE,VERTIFY LABEL EQUATION DATE IF ANY 
HEADER tx FIB(14})3% 
STREAMCHS=HEADFR(3),0630%838)-B3a(T9))3 
BEGIN SIteLOC HS DS#s& DECS ENDIE 


AGN’ IF CDATE NfFQ@ G AND CDATE NE@ HEADERE3),.£30118) THEN 
BEGIN® WRITE OATE CHECK MESSAGE 
DOLITTLECFALSE> 
VWYBVOFL 3684226] 8VOKL 3084016)» 
*EDAT CK, cOODOOMRT2F1 6827488 30) eMFIDDS 
IF TERMSETCPYMIX) THEN 
BEGIN 
FORGETSPACECOIRECTORYSEARCHCMFIDeF IDs 
$ SET oMYT = NOT SHAREDISK 
F1BL(5).01393)4+10))3 
GO TO INITIATES 
ENDS 


IF PONT6sNUP)=VOK OR PCXCH)=VOF THEN CDATF+O3 
GO AGN 
END3% VERIFICATION 


FPBCFNUM42),016t30)'sT23% BCL DATE 
END OLD FILESs% 


STARTIMINGCFNUM,18)3% 
FPRt=PRICPIMIXs3]3 
FND$% 


® STARTIMING MOVES THE FPB 


HEADER*+FIBC14)3% 
KINDe 43 UselBsE 
MODE ¢O3% 
IF NOT COBOL THEN UNLABFLED©13% 
CNTCTL#BLENS102033¢ 
$ SET OMIT = NOT SHAREDISK 
IF COBOL>O AND CFI1B0433,02281) OR TYPE=10 OR TYPE#26) THEN 
BFGIN COBOL t #33 ZIF COBOL*10 OR COBOL#RANDOM 
BLEN ts BLFEN + RLENS % THEN CHANGE BUFFSIZe TO 
FNDS Z BUFFSIZE + RECSIZE 


GETBUFFERSCCIF CNICTL THEN BLENG. 
ELSE CCBLENS29) DIV 30)x30)44,% 


NBUFS»Us ALPHA) 3% 
IF COBOL = 3 THEN IF COBOL*IO OR COBOL#RANDOM 
BEGIN COBOL tm 13 % THEN CHANGE BUFFSIZE TO 


38013100 
38013199 
38043300 
38013400 
38013500 
38043510 
38013519 
38043600 
38013700 


38013900 
38014000 
38014100 
38014200 
36014300 


38014400 
38044500 
38014600 
38014610 
38044620 
38014700 
38014800 
38044900 
38044949 
38015000 
38015400 
38045200 


38015400 
38015500 
38015600 


38015700 
38015800 


38015900 
38015950 
38016000 


38020000 
38021000 
38022000 
38023000 
38024000 
36024004 
38024100 
38024200 
38024300 
38024400 


38025000 
38026000 
38027000 
38027100 
38027200 


em a ae se 


a+ +t 


a4 


SS 


414-44 


386013020 
000930 
000933 
000933 
0011323 
001630 
001633 
0017382 
001712 
001830 

36043500 
004830 
002320 
002332 
002432 
0026! 4 

38014300 
0027180 
002831 
003010 
003082 
003283 
003433 
003631 
003633 
003783 
003733 
003983 
OO40t4 

38044800 
OOa0t4 
004382 
0044380 

38014500 
004630 
004930 

38044000 
004910 
005010 
005142 

38043000 
0051:2 
00S2t2 
0054%0 
005433 
005612 
005713 
005733 
006113 


006310 


0064i1 
38024200 
006431 
006514 
006691 
006931 
007080 


BLEN ®* BLEN = RLEN} ® BUFFSIZE = RECSIZE 
ENDS ® (SEE ABOVE 


FIBFI6JeMPALPHAYRCNTCTL 2324731 81002424781 9% 
&(CBLEN+29) DIV 30)£278422618% 
&CIF CNTCTL THEN BLEN ELSE 1023)(8438110)8 
&8TINUC18}£3233:5) OR M OR sOMASKIS 
FIRG16),C2t1 I] teCHrAnNER. 63122) AND ¢€1041))#03 
FIBCS),Ci%179%= NOT FYBL16),corziys 
IF FIBEL5).01%11 THEN 
FOR MASK8=10 STEP 4 UNTIL 29 DO HEADER(MASK]1=03 
FIBLi9J«CIF DIREC THEN BLEN*RLEN*] ELSE 1) 
INX FIBL16]e0L27%2736)3 
IF STATE ,C4682)#0 THEN FIBL19),¢8310]¢RLENSE 
FSEPIMIX»(T2¢2(FNUM DIV ETRLUNG)),£4084] Je(ePC(DUP)) OR 
CTWOCORT2(4334434])xCCNOT HEADER).(3122])))3 
T2eyF cCCBOL THEN O FLSE FIBCI9],033235)"F18716),£33815)3 
FIBF103,C03815]:=@mMCALPHAJ "23 ZHEAD OF BUFFER RING 
FOR MASKeO STEP 1 UNTIL NBUFS®#1 DO 
MOALPHA+MASK Je PEnUPrL0n)+T2)% 
SPCFLAGCFIBL19"ABS(3xCOBOL)))eXCH)IECTC]?3 
FIBLI6)t=FIBE16) OR M3 
FIBCS] 645811603 
IF PCCFIBEL4I),LOD) CFF J#2 THEN FIBC5S).CiLsA@le13 INPUT ONLY. 
IF HEADER(4].01034] AND NOT IO THEN 
FILEMESSC*#"CODE "esMFILe “sMFIDeFID®02000)3 


$ SET OMIT = NOTCPACKETS) 


IF PSEUDOMIXGP1IMIX]#0 THEN 

If NOT FIBE5),€4121] THEN 

FYLEMESSAGEC CIF ITO THEN * IN * ELSE ™ OUT) 
STINULUJ(6%30818), IF ACCESS#0 THEN * SER id 
ELSE IF ACCESS#; THEN IF TYPFe26 THEN " PRO " 
FLSE ™ RDM " FLSE ® UPD ", 

MEF IDs FID202020s64)3 


$ POP aMmyT 


END NISKSETUPSS 


PeRCWaMSCWeSTF YS 
RewWteRCWRPCXCHILTCTCI)3 
DrSKSETUP3 
Tr COROL<O THEN % ADJUST UPPER BOUND FOR COBOL 68 
BEGIN MASK « CIF 10 AND NOT F1BE13],(2231] 
THEN HEADERE7) 
ELSE CCCHEADERE9] x HEADERT1})) DIV 
HEADER(O}],€64286)) * HEADERTO),(30819}) = 4)3 
IF FIBC3)20 OR FIBC3}>MASK THEN FIBC3}*MASKS XLESSOR OF 2 EVILS 
ENDS 


IF PCTYPE,DUP)#10 OR P¢XCH)&26 THEN 
BEGIN 
IF COBOL<1 THEN % ALGOL OR COBOL 68 
FOR MASK « O STFP 1 UNTIL NBUFS#1 DO 
IF COBOL THEN MreMrALPHA+MASK] JINX NOT 2) « NOT 0 
ELSE MLALPHA+MASKIJ+¢PCDUPsLODIRIC 278678193 

FIBCOJeFIB(7]e03% 

FIBCI7J¢]F 10 THEN O ELSE BLEN3S 
END FLSE 


38027300 
38027400 


38028000 
38029000 
38030000 
38031000 
38032000 
38033000 
38034000 
38035000 
36036000 
38037000 
38038000 
38039000 
38040000 
38041000 
36041100 
38042000 
38043000 
38044000 
38045000 
38045100 
38045105 
38045110 
38045120 
38045149 
38045150 
38045155 
38045160 
38045200 
38045300 
38045310 
38045400 
38045501 
36046000 


38047000 
38048000 
38049000 
38049200 
38049300 
38049400 
38049500 
36049600 
38049700 
38049800 


36050000 
38051000 
38052000 
38053000 
38053500 
38054000 
38055000 
38056000 
38057000 


4-4 


AA AH AA AMM HHH HAH HHA A He 


Se | 


007131 
007232 
38027200 
007232 
007531 
007731 
00793 
008381 
0086t0 
00914t2 
009282 
O09Tt2 
010033 
010310 
010731 
011031 
011483 
011832 
012231 
012682 
012833 
013201 
013431 
013633 
014132 
0143%4% 
014682 
014632 
014782 
014931 
015183 
0154182 
0157383 
015984 
016130 
0161380 
38012000 
017030 
017130 
017231 
017330 
04733 
017433 
017683 
017833 
0186483 
018631 
38049300 
0186%4 
018834 
018833 
018932 
049484 
0197183 
020310 
020534 
0208:0 


BrGIN 
T2¢(MF 
FIB7JeF 
IF COR 
BEGIN 


ENn €L 


BEGIN | 


FNDS&S 


IF ¢€ST 
1F MCA 
FOR T4 
BEGIN 


ID*F1BL£16)),7332315)3% 

}BI7I13 

OL THEN 

IF CORBOL>O THEN 
IF NOT CFIB7#0 OR FYBC13),£2281)) THEN 
BEGIN FIB? « FIB7 = 43 
OPTIONAL * NBUFS = 13 

END ELSE OPTJONAL « NBUFS © 2 


ELSE BEGIN % COBOL 68 
OPTIONAL «+ NBUFS = {3 
1F OIREC THEN FIB? © FIBE7] «+ FIBE3)3 


FND? 
FID]FIBL16)3% 
MASKeO3% 

SFR 


OPTIONALeNRUF S133 
MASKeCFIDeFIBL19]),. 633815)" T23% 


ATE.(463:2)40 AND NOT COBOL) OR JO THEN 
LPHAJ»0231] THEN 
«0 STEP 14 UNTIL OPTIONAL DO 
IF (MET@Jis 
DISKADDORESSCFPREIFNUM)» FPBIFNUM4+1)5° FPBLFNUM+3 Je 
FORMSt eC CHEADERLO] «C3081 2IXTIIADIRECEI LSAT IJ +F IB» 
HEADER, yORCNOT HEADERG4)9(046247813)) > 1 THEN 
BEGIN 
IF CUSERCODFELPIMIX]) EQV MCP)#NOT O THEN 
IF POMC MF ID] +DUP),C3%26)]80 AND 
P(XCH)<DIRDSKXDSKTOG THEN 
BEGIN £ 
TERMINATECPIMIX)3 
TERMINALMESSAGE (303 
END} 


IOREQUESTCFLAGCFID) sMFINRICS]4F47 3A I eMET2"2)9935 
MCALPHAJ*=FLAGCMFIN)&0f 2642687) AND NOT 
(M OR yOMASK)3 
END ELSE 


IF M{T2)]=0 THEN % EOF IF INPUTe FULL HDR IF OUTPT 
MCALPHAI S@®P(DUPoLODIR1L2784741] AND NOT M3 
IF COBOL<O THEN MEMCALPHA] |INX NOT 2] «& 
CIF FORMS20 THEN FORMS DIV FIBfi1] ELSE NOT 073 
STREAMCNeNBUFS™15TeMCALPHA) »pALPHAI3& 
BEGIN ST*ALPHAS STe#SI14+83 DSeN WOS3B 
S1+LOC T3 pSeWDS3% : 
END3% 


MFID, C3381S}eT2eMeT 292) ,7 18895158 


END 3% 


FID. F33tgS)eTAeMASKSS 


38058000 
38059000 
38060000 
36061000 
38062000 
36062500 
38063000 
38063500 
38064000 


38064200 
38064400 
38064600 
38065000 


38066000 
38067000 
38068000 


38069000 
38070000 
38071000 


38072000 
38073000 
38074000 
38074500 
38075000 
38075500 
38076000 
36076500 
38077000 
38077500 
38078000 
38078500 
38079000 
38079500 
38080000 


38080500 
38081000 
38081250 
36081500 


38081750 
36082000 
36082400 
38082500 
38083000 
38084000 
38085000 
38086000 


38087000 
38088000 
38089000 


st st 


er | 


4-1 +4 


AAA HH HHH st OS 


a4 


AAs Ht 


38051000 
020810 
020882 
021082 
021182 
O211483 
021310 
021523 
021782 
021813 

38063000 
021912 
022110 
0222%1 
022530 

38064200 
022530 
022610 
022633 

38062000 
022633 
022832 
023130 

38069000 
023130 
0233:2 
02352 
0237180 
023733 
024012 
024320 
024732 
024830 
025082 
025311 
025531 
025533 
025612 
025731 

38078500 
025714 
026110 
026331 
0265130 

38076500 
026580 
026730 
027180 
027482 
027611 
028033 
028133 
028281 

36084000 
028282 
028630 
028783 


IF CNBUFS@1240PTTIONAL THEN FIBI16).0330153*MC ALPHA] 3% 
FORMS+(FORMS*FIB7 MOD HEADERCO1¢£ 30812])xRLENS 
SLEEPC EME ALPHA) ]» 1OMASK)3& 

IF COROL 2 0 THEN % NOT COBOL 68 

IF FIBLL3Ie L223, THEN MCALPHAJ C333 1SJ*FIBCIOJINX 1 FLSF 
MEALPHAT, (33815 )6F 18016), 033815] +FORMS41 3% 

IF CNBUFS@1)#O0PTIONAL AND 10 AND NOT FIB0133.02284) THEN 

FIRC 17 1¢0 ELSE 
FIRCI7J¢1F DIREC THEN FORMS+#RLENS 
ELSE BLEN@FORMSS® 
ENNIS 


FXYT? 
PcePRRCWEOCTCI]sGeRNS#OsxCHe PRPICTFE I] «STF 
FN DISKFILEOPFN3 


38090000 
38091000 
38092000 
38092900 
38093000 
38094000 
38095000 
38096000 
38097000 
38098000 
38099000 


38099100 


38100000 
38101000 


in eee | 


T 
T 
T 


38074500 
0290380 


029432 
029782 
029932 
030084 
030531 
030983 
031320 
031413 
031683 
031930 
38058000 
031990 
031980 
032182 
36001000 


S1ZEs 0322 WORDS 


PRT(676) = 


STACK(F +0) 
STACK ¢(F #2) 


PRT(362) = 
STACK ¢Fe1) 


STACK(F 42) 
STACK ¢F 43) 
STACK¢F 44) 
STACK¢F 45) 
STACK (F +6) 
STACK¢F 47) 


oT 


10 


a-uo ow Hon on 


PROCEDURE OTHERFEFILEOPENINCALPHA)S VALUE ALPHA’ INTEGER ALPHAS 


START OF REL SEGMENTS DISK 


HF RF ILE OPENIN 
BEGIN REAL RCWB40eMSCWH@23 

RCW 

MSCW 
REAL TOM=TOMASk»s TOMASK=413 

M 

JOMASK 
INTEGFR NBUFS=4+? oF NUMet So RLENS+Oe TYPE 45s [OSt6e BLENS4/ 2 USeBy 

NBUFS ; 

FNUM 

RLEN 

TYPE 

10 

BLFEN 


STACK¢F 410) = U 


STACK¢F at!) 
STACK ¢F 412) 
STACK¢F 413) 
STACK(F 414) 
STACK ¢F 415) 


STACK(F 416) 
STACKOF 417) 
STACK(F 420) 


STACK(F421) 
STACK (F422) 
STACK¢(F 423) 
STACKEF424) 


STACK ¢ F425) 
STACK¢F +26) 
STACK¢F427) 
STACK¢F 430) 
STACK¢F 431) 


STACK (F432) 
STACK ¢F 433) 


STACK ¢F 434) 
STACK¢F 435) 


STACK(F +436) 


u@guii 


KIND®49eMONE S410, 0;REC2411 °F ORMSa412eCOBOLa413>» 
KIND 
MODE 
DIREC 
FORMS 
COBOL 
UNLABELED=+14,0PTIONALe+i5*CNTCTLs+163 

UNLABELED 
OPTIONAL 
CNTICTI 

REAL TIS417oT2s+18eMASKE419eSTATES+203 
T! 
T2 
MASK 
STATE 

REAL MFIDs+21,F102+223 INTEGER REELE4+23,CDATE=4+294,CYCLE +95) 
ME YD 
FID 
REEL 
CDATE 
CYCLE 

ARRAY FIB3+26r 4%) oF PB=4077* 3% 
FIR 
FPR 

INTEGER ACCESSa4+28,F 18724993 
ACCESS 
FIB? 

ARRAY HEADER=+30F¥* 22 
HEADER ‘ 
REAL TOGs+313 


STACK(F+37) = TOG 


REAL USASTENT{, RHEADSHEADERS 


PRTC160) = USAS] 
STACK¢F 436) = RHEAD 


LAREL FIND»DCN,DC193 
SURROUTINE TYPEOPENSS 
BFGIN 
TitsCOPNMESS AND (CTP He yJARLPIM]X%2012>0 OR 
COPNMESS AND 14<0))3 
$ SFT oMIT = PACKETS 


38102000 


38102100 


38102200 


38102300 


38102400 


38102500 


38102600 


38102700 


38102800 


38102900 


38403000 
38103100 
38403200 


38103300 
38103400 
38103500 
38103600 
38103700 
38103800 


ADDRESS s 00907 


T oOO000%0 
T 000030 
T 000030 
T 0000:0 
T 0000180 
T 000080 
T 000030 
T 000030 
T 000030 
T 000010 
T 000030 
T 000010 
T 0000:0 
T 000030 
T 000030 
T 000330 
T 000140 
T 000333 
T 000682 


BEGIN NT2:=03 
IF Uei6 THEN 
STREAMCStsPRNTABLECUI,£C30818]»5 Dt HC(NT2))3 
BEGIN Sy «© LOC S# OS «+ B DECS ¥ 
Dr ¢ pni77s DS « 6 FILL? % 
END3 4 


FILEMESSAGECC™ IN ")8 
TINUCU]T6430848)5 NT2, FPBLFNUM)» FPBCFNUM44 Jo 
IF KIND#2 OR KIND#®9 THEN PCREEL»CDATE) ELSE 
P(CO»0)» Pa CYCLEe 1T41)3 
END? 


ENDS 


SURROUTINE REEDFS 
BEGIN IF (T2ewWAJTTTOCT1+¢MASK OR @40)8@377CCTFIJ,U) AND ®367)9#0 THEN 
IF ¢(T2 AND NOT MASK)#0 THEN 
BEGIN STOPTIMINGCFENUM®1023)3 BLASTOCU)S SETNOTINUSE(UL0)3 
FILEMESS¢"PARITY ",40ON 2,4 "ETINULUI( 24930818108 
MFIDsFED,REELeCDATE sCYCLE DI 
FND32 


IF TERMSETCPIMIX) THEN 

REGIN STOPTIMINGCFNUM® 102323 SETNOTINUSECUS0)3 
GO TO INITIATES 

FNN3 


END REEDS% 


REaL SUBROUTINE CNTLBITS33 
CNTLBITS+lOMASK&MODEL 2124781380 TREC( 2284784 J8CNTCTLE 2384721) 
BIOC243 4731 RCKINDS7 OR KIND>9 AND KINDS12)020194731) 
&CIF KIND&10R KIND=70R KINDe12THEN@20ELSE 0)£9784216)3 
SURROUTING LABELAREASS 
METLPSALPHA™2@]2@M OR CGETSPACEC(CTLRSMLTIJ, SIZE) ade 2167s 
LABELARFAVe1244) & TICSIZE) & CNILBYITSCFTFI3 
PeALPHA)® % PETERMINE If BRANCH TO 0019 
PcRcWeMSCWoSTF)3 
RewWt=RCwRPCXCHIECTCI3 
te P=2 THEN GO 00193 
Ie STATE, £44247 THEN 
BEGIN UeF 1BL45), 02595152 
END FLSES% 


BEGIN IF CUeFINDINPUTCMFIDeF IDs REEL» CDATE »CYCLE sCOBOL >» UNLABELED» 
OPTYONAL » MODE» FNUM))<0 THENS 
BEGIN FIBE[5].63924}4¢9% GO TO FIND ENDS& 


STARTIMINGCFNUMs ITF U>31 THEN 18 ELSE U)3 
FPResPRTICPIMIX,3]3 % STARTIMING MAY HAVE MOVED [T. 
KiNpterp U GTR 34 THEN 41 ELSE UNyTCUI,c19413 
TYPFOPEN?S% 
IF U<i6 THEN BEGIN RRRMECHeTWOCU) OR RRRMECHE 
PRNTABLECU], (15815 ]¢ALPHASSZ 
ENDS 


TOW 


38104400 
38104200 
38104300 
384104400 
38104500 
38104600 


38104700 
38404600 
38104900 
384105000 
38405100 


38105200 


38105300 
38405400 
36105500 
38105600 
38105700 
381058600 
38105900 


38106000 
38106100 
38106200 
38106300 


38106400 


38106500 
38106600 
38406700 
38106800 
38406900 
38107000 
38107100 
3681409000 
38140000 
38110500 
38441000 
36441500 
36112000 
36412500 


38113000 
38413500 
38114000 


38144500 
38115000 
38445100 
38115500 
38146000 
38116500 
38417000 


38417500 


ee 


— 


a4 4a 


eee ee Mee Mee ee ee ee ee ee ee 


4-44 


ee 


~ 


000642 
000781 
000830 
001081 
001083 
001181 
38104400 
001142 
004230 
004520 
0018!14 
0019182 
38104100 
001982 
38103500 
002110 
002110 
002412 
002633 
003010 
003080 
003410 
38105600 
0034:0 
0035%2 
0038:0 
0038%2 
38106100 
0036:2 
38105400 
004130 
004430 
004312 
0048:0 
005310 
0055:0 
005933 
006330 
006531 
006631 
006732 
006832 
006934 
0074%1 
38442000 
OO7191 
007333 
007583 
36114000 
0079314 
00821 
008333 
OO87t 
0088:0 
009450 
009332 
38116000 
009382 


Pen OG TAGE U}.(14849))40 THEN REELST1B 
je 
END3% 


If KIND&O THENZ 
BrGIN JF Usz23 THEN BEGIN TIeRFADERAS READERASO ENDS 


FLSE BEGIN T1*READERBS REANERB+O END?2 


MCALPHA@2JS=CMCTIIIQAIOLC BS 3BI10TR TP O4sa7 sy a3s 
MET{*4]8=P(DUP»>LOD) RRIMIXLAREAMIXF J&LABELAREAVCAREATYPEFIE% 
IF MODE t% (MODE®0O) AND BLEN®20 THEN #301 
SAVE WORD: 3SAVEWORD OR TWOCUD$S ¥301" 
CNT CTLesNyYRECte03Z 
IF RLENKT1¢CMONE41)x10 THEN BLENe TIS 
END FLSES% 


Ip KINDe2 THENS 
BFGIN IF NOT UNLABELED THEN BFGINS 
IF DIREC ANN NOT FI1B(16}.£22%1) THEN 
BEGIN TF NOT STATF.6£4081] THEN BEGIN? 
T1#5K3(723246%9] OR MIS 
MASK*O3 REED?% 
MASK2=@60; pO REEN UNTIL T2,(4231]3 
nO REED UNTHL T2,74281)3 
MASKeO$ REEDS FND3% 


FND; 


CNTCTLei? LABELAREAS3 
TILteNFLAGCMS ALPHA#2) 5% 
IF DIREC THEN Ti2%sT1,.C8210)"71 INX Tise 
MASK#s@403 REED: 
STREAMCYSSO01X8e0e Ke zOoXeszO0eZt=xT1 3 
BEGIN DIt2LOC X# DS%e24 LIT "VOLIHDRIHDR2EOFI EOF PEOVI"S 
Dirr+#Loc xs 
6CTALLY2aTALLY413 
S]:=Z}3 
IF 4 S¢=nC THEN 
JUMP OUT TO B);3 
TALLY sO} 
Bs 
Yt=TALLY} 
ENDS 


IF CUSAST2#P)>0 THEN 
USASITAPFCTIs(CFIAUSAS] ,4eUeDIREC) ELSE 
IF MCT? YNX 67,62486)51 THEN 
BEGIN 

REEDS 

MASK«€603 

T1¢593723346:2) OR M3 

T2203 
END; 


IF T2 NeEQ @40 THEN DO REED UNTIL T2.€4281) ELSE 
FOR CNTICTL©OIREC STEP 1 UNTIL 2 DO% DIREC = O OR 4 Z0B8 


38448000 
38418500 
38119000 


38119500 
36420000 


38420500 


38121000 
38121500 
38422000 
38422100 
38122500 
38123000 
38123500 


38124000 
38124500 
36125000 
38125500 
36126000 
38126500 
38127000 
38127500 
38128000 


38128500 


38129000 
38129500 
38130000 
38130500 
38131000 
36131500 
38132000 
38132500 
38433000 
38133500 
38134000 
38134500 
38435000 
38135500 
38136000 


38136500 
38137000 
38437500 
38138000 
38436500 
36139000 
38139500 
38140000 
38140500 


38141000 
38141500 


444 


AAAOVU4 


at ttt a 


+ 


AHHH A HAS 


ee 


+4 


0093%2 
009683 
009832 
38113000 
0098:2 
0099t4 
38420000 
010282 
38120500 
010482 
010980 
O113si 
011532 
011783 
011910 
0122%2 
38120000 
0122%2 
012323 
0125%1 
0127180 
0129380 
013191 
0133:%0 
013681 
043891 
38125500 
014030 
36125500 
014010 
044230 
01451 
014781 
0149:0 
015110 
015412 
015413 
015501 
015532 
015610 
015633 
015730 
015710 
O157%¢1 
386131500 
0157%2 
0158:2 
016191 
016431 
016423 
0166180 
016633 
016930 
016983 
38136000 
016983 
017331 


PCWATTIOC@47TAOODOOOSR (NOT DIRECIL22347813083779U) »DELISzDB 
FND3* 


CNTCTLeRLENS1023;% 
END FLSES% 


Ip KiNne? THENS 

BFGIN UNLARELEN*CNTICTLO1 3% 
DIREC+03% 

END FLSES% 


Ip KINND&11 THEN 
BFGIN TL*CIDROWECU"32),0618:15)3 
CIDROWLU"3277.018245 )«03 
MCALPHATPISECMPTII IR 1OLC BS 38s LOR 1L C243 4781I)3% 
METAP4] t=PCOUPsLONIRPIMIXCAREAMIXF JRLABELAREAVCAREATYPFFI3% 
MODE i=0;% 
CNTCTLeaDIRECteO3¢Z 
FIRFIZT,CAS9OIeNBUFSe13 FIBCI3],c1089IJe13 
IF BLEN«€10 THEN BLFEN©|103 
END ELSE 


DCN? FrLEMESSC#"1/0 ERR" sOeMFIDoF IDs REEL se CDATE sCYCLED 3% 
Pe1y3 
IF BLENzO THEN GO TO DCN3% 
TF NOT FIBL18)],r41%1] QR P THEN 
GETBUFFERSCBLEN,NBUFS es Us ALPHA) $ 
GO FINNS 
oci19t 
$ SET OMIT = NOTCDATACOM AND RJE ) 

FIRCI4]teNBUFS? 

Us=303 KINNS3433 

FIB6133.01t91« NBUFSeo23 

FIBCISBJsscePCDUP)IRCALENSSRLENIC3S33315 &BLENECTFIS 

TF MFTO>0 THEN 

REGIN ; 
STREAMCACOPBeOtMF IT DeFIDsCeO)33 
BEGIN 
St* LOC MFFDs Dre LOC AB 
2cCe SIs 8¢le SC2>0 THEN TF SCS9 THEN TALLY© TALLY+1 
ELSE JUMP QUT ELSE JUMP OUTS Sre Sy4i)3 

es C3 Ce TALLY! OSe C OCTS TALLY«e O38 Ste Loc FID) 
ENDS 


FrNe P3 
MFIDePS 
END3 


MrALPHA@™2] «© O€MF INCI 4424 err pl tas aa7ad3 
FIND? 3 
PcP&RCWECTC],0eRDSe Os xXCHeoP&PLCTF J) »STF)3 
END OTHER FILE OPEN JN3 


38142000 
38142500 


38143000 
38443500 


38144000 
38144500 
38145000 
38145500 


38146000 
384146500 
38147000 
38147500 
38148000 
36448500 
38449000 
38149500 
38150000 
38150500 


38151000 
38151500 
38151800 
38151900 
38152000 
38452100 
38152250 
38452500 
38456500 
38157000 
38457500 
38158000 
38358500 
38359000 
38159500 
36160000 
38160500 
38161000 
38161500 
38162000 
38462500 


38163000 
38163500 


38164000 


38164500 
38191500 
38192000 
38492500 


38424500 
0180:0 
018t31 

38124500 
018131 
018323 
0185%2 
018631 

38144500 
018611 
016712 
019030 
0192:2 
019750 
020184 
020230 
020381 
020833 
0210:3 

38166500 
0210:3 
021433 
021540 
021634 
021733 
0219:3 
0222:0 
022230 
022230 
022331 
0224: 3 
0227133 
023131 
023210 
0232:2 
0234:2 
023432 
023570 
023633 
023910 
024023 

38160000 
0241:0 
024152 
0242:0 

36159000 
024210 
0246:0 
024620 
024812 

38402100 
SIZEs 0249 WORDS 


44 


Ne ee ee ee ee ee ee eee 


4434 


aaa 


a 
PROCEDURE OTHERFILFOPENOUTCALPHA)3 VALUE ALPHAS INTEGER ALPHA 38200000 T 0000:0 6 
START OF REL SEGMENT! DISK ADDRESS # 00916 
PRT(677) = OTHFEFREILEOPENOUT 
REGIN REAL RCW240+MSCW=e23 38200100 T 000010 e 
STACK¢F40) = RCW 
STACK¢Fe?) = MSCW 
REAL JOMSIOMASKs IOMASKs41$ 38200200 T 000030 : 
PRT¢362) = 10M 
STACK¢(F 41) = tOMASK 
INTEGER NBUFS=42sFNUMet3,RLENZ44,TYPES455 10246 eBLENS47 pUR4B> 38200300 T 0000:0 ® 
STACK¢F42) = NBUFS 
STACK¢F43) = FNUM 
STACK(F44) = RLEN  ] 
STACK¢F45) = TYPE 
STACK(F46) = 10 
STACK¢F47) = BLEN ] 
STACK¢F 410) = U 
KIND S49 eMONE S410, Dy RECw+11 eFORMS2412,COBOLa+13> 38200400 T 0000:0 
STACKOF 419) = KIND e 
STACK¢F412) = MODE 
STACK¢F+13) = DIREC 
STACK¢F 414) = FORMS e 
STACK(F 415) = COBOL 
UNLABELEDS4+14,0PTIONALet+15eCNTCTL=4163 38200500 T 0000:0 
STACK(F 416) = UNLABELED @ 
STACKCF +17) = OPTIONAL 
STACKEF420) = CNTCTL 
REAL Tiz+17eT2=41O>MASK=419eSTATE=+203 38200600 T 0000:0 r 
STACK¢Fe21) = TI 
STACK¢F 422) = T2 
STACK¢ F423) = MASK @ 
STACK¢F424) = STATE 
REAL MFIDS+21,FID=+223 INTEGER REELS4+293>CDATES+24,CYCLE=4+253 38200700 T 0000:0 
STACK¢F 425) = MFID @ 
STACK¢F426) = FID 
STACK¢F4+27) = REEL 
STACK(F 430) = CDATE @ 
STACK¢F431) = CYCLE 
ARRAY FIB=426(4]eFPB2427* 45% 38200800 T 0000:0 
STACK(F 432) = FIR ®@ 
STACK¢F 433) = FPB 
INTEGER ACCESSs+28eF 18724293 38200900 T 0000:0 
STACK¢F 434) = ACCESS ) 
STACK¢F 435) = FIB7 
ARRAY HEADER=430(*) 3% 38201000 T 0000:0 
STACK(F 436) = HEADER @ 
REAL TOG24313 38201100 T 0000:0 
STACK¢F 437) = TOG 
REAL USASI#NT1i» RHEADSHEADER? 38201200 T 0000:0 @ 
PRT¢C160) = USAS! 
STACK¢F 436) = RHFAD 
LABEL LPSsFIND + NCN,PBS3 38201300 T 000010 @ 
SURROUTINE TYPEOPEN?S 38201400 T 0000:0 
BEGIN 38201500 T 0004:0 
TY t=2COPNMESS AND ¢CT1PESJARLPIM1X203)>0 OR 38201600 T 0004:0 S 
COPNMESS AND 14<0))3 38901700 T 000333 
$ SET aoMIT = PACKETS 38201800 T 0006:2 e 
] 


BEGIN NT23s03 
IF Uect6 THEN 
STREAMCS#ePRNTABLECU],£30218]» DssfNT2I1)3 


BEGIN St * LOC S3 DS + 8 DEC; % 
D1 * NI77s OS + 6 FILLS % 
ENDs % 


FILEMESSAGECC™ OUT™)& 
TINUCUI£6230918)5 NT2, FPBCFNUMJ» FPBEFNUM+44 J» 
IF KINDe2 OR KIND=9 THEN PCREEL*CDATE) ELSE 
P(CO»03s Pa CYCLE» T1)3 
END? 


ENN: 


SURROUTINE REEDSS 


BFGIN 


IF CT2e¢WAITIOC TL» ¢ MASK OR ©40)8@377(CTFJ5U) AND @367)#0 THEN 
IF ¢T2 AND NOT MASK)#0 THEN 
BEGIN STOPTIMINGCFNUM®1023)3 BLASTQCU)S SETNOTINUSE(U20)3 
FILEMESSC=@="PARITY ",°0N ,,, "ETINUCUITC 24230918) o¥ 
MF TDeFIDsREELSCDATESCYCLED I 
ENDS % 


IF TERMSETCPIM]X) THEN 

REGIN STOPTIMINGCFNUM®1023)% SETNOTINUSECU,0)3 
GO TO INtTfraTes 

END} 


FND REFDS& 


REaL SUBROUTINE CNTLBITS3% 


CNTLBITS+{OMASK&MODEL2ZLE472 1 IRD TRECE 2234724 &CNTICTLe23ta7it) 
R1OP2484781 78 CKIND®7 OR KIND>9 AND KINDS12)£2084731] 
&RCIF KIND=10R KIND=70R KIND#12THEN@20ELSE 0)62784226]3 


SURROUTINE LABELAREASS 


PcRCWe 


METISSALPHAS2)taM OR (CGETSPACECCTIIeM(TIIJ,SIZE) 44> %167= 
LABELARFAVse1)+4) & TICSIZE] & CNTLBITSEFTFY3 
MSCWeSTF D3 


ReWteRCwWRPCXCHITCTCI3 


$ SET OMIT 


$ POP OMIT 


IF STATE.C4t?t) THENS 
BEGIN UeFIBl15],025:5]3% 
END ELSES 


BEGIN T2:sFPBLFNUM43]3 % SAVES COPIES FOR BACK UP 
IF CUSSFEFINDOUTPUTCMF IDs FIDsREEL se COATE sCYCLE s TYPE 
= NOT PACKETS 
RFPBCFNUM43)71823721) 


»FORMSs KIND) )>40 THEN 
BEGIN FIBE14],£3%75]eu3 
FPBEFNUM+2),f15%30)+DATE3 
TF MCPENOT¢"=0) THEN MECUs2)¢USERCOpErPIMyX)3 
MEU+S3]©XCLOCKH+PCRTR) 
T42=SPACE(30)3 
MOVE (30eU,T193 
STREAMCDATE s+ Bi aT143)3 
REGIN STtelLOC DATEFOSssBOCTIDN  seDI"BIOSteaLIT*+2"sENN3 


38202100 
38702200 
38702300 
38202400 
38202500 
38202600 


38202700 
38202800 
38202900 
38203000 
38203100 


38203200 


38203300 
38203400 
36203500 
36203600 
38203700 
38203800 
38203900 


38204000 
38204100 
38204200 
38204300 


38204400 


38204500 
38204600 
38204700 
38204800 
38204900 
38205000 
38205100 
38210000 
38210500 
38211500 
38712000 
38242500 


38213000 
38213500 
38214000 
382734500 
38215000 
38215500 
38216000 
38236500 
38217000 
38217500 
38248000 
38918500 
38219000 
38249500 


AAA AHHH NM HAHA SH 


4~ats 


~ 


AAA HH UU HHH 


AHH HHH 


0006:2 
0007: 1 
0908:0 
0010:14 
001033 
001424 
38202400 
0011%2 
004230 
0015:0 
001831 
001982 
38202100 
001932 
38201500 
002130 
0021:0 
0024!:2 
0026:3 
003030 
003010 
0034:0 
38203600 
0034:0 
003532 
0036:0 
0038:2 
38204106 
00386:2 
38203400 
004 1:0 
004130 
0043!2 
0048:0 
0053:0 
005510 
005933 
0063!0 
0066:0 
006731 
006810 
007040 
38212000 
007030 
007230 
007332 
007382 
0074:3 
007433 
OO7TTEYL 
0080? 
008321 
008880 
00902 
009233 
009431 
009533 
38219500 


$ SET OMIT 


$ POP OMYT 
$ SET OMTT 


$ SET OMPT 


MPTl¢iJeCXCLOCK+PCRTR) 8 
MeTi+4)3= O&8SYSNOPARAB82 
MUCT14¢5]¢CePC OUP) 8102347 
RJE AND DATACOM 

P¢0)3 


£6130%48)3 
}3 


eo em 
—= pos 
tt ot | 
wer 4 

Ne 


RTED PBD TOG, 


NOTCRUJF AND pATACOM) 
MeT1+61¢PCXCH)3 
MpUs()32EUF CIF TYPE NEQ@ O AND TYPE LSS 20 THEN 


"PRD " ELSE "PUD “sMCUs6)oTiwiy3 
FORGETSPACECTI)3 
PACKETS 


FILEMESSAGECCIF TYPE GE@® 20 OR TYPE*0O THEN “PUD,...” 
FLSE "PBDesee*I&MEUFOI( 2416824] 5 
"OUT "SM(U46)530230818), 
MF IDeF ID re Or 050, 
CPBOREL OR OPNMESS))3 
STARTIMINGCFNUM,Ue18)3 
FPB&SsPRTI(CPIM]X*e3}3 % STARTIMING MAY HAVE MOVED 7T, 
END ELSE 


Ir U LSS 0 THEN %0SED 
REGIN FIBL5],(039%4)'393 GO FIND END ELSE 


REGIN 
STARTIMINGCENUM*UDSS 
FPR&=PRTPPIMIXe3]$3 % WATCH OUT FOR STARTIMING, 
TF KIND=7 THEN FPBCFNUM43) t= (&PCDUP))&T26152151813 
TYPEOPENS% 
tF TYPE25 OR TYPes8 OR TYPE=9 THEN UNLABELED 413% 
IF U<16 THEN BEGIN RRRMECHeTWOCU) OR RRRMECHI 
PRNTABLECU),CISti5J]*ALPHASS 
ENDS END3 


FN 3% 


Ip KINN®6 THENE 
RrGtN BLEN?=403 


FIRri8jy:=c*PC DUP) ERLENTCTCISBLENCCTF I&BLENC 3233215373 
MODFeDIRECeCNTCTLe O88 


END FLSFE% 


Ip KIND=t THENS 
BFGIN MONFeDITRECeCNTCTLeO3% 


LPS: 


IF NOT COBOL THEN McALPHA@2]+081578838310)3% 


END ELSES 


tp KINDs12 THEN 
BrGIN TYPrelF CTYPE#0 AND TYPF<20) THEN 15 ELSE 223 
PBSt MODEeNIREC*O$ FIBC131,C1'9JeNRUFS*CNTCTLe1? FIBL13),f1089j}e13 


BLENe IF TYPE220 THEN 10 ELSE IF BLEN>17 THEN 17 ELSE BLENS 
METLEGETSPACE (C92 eset H2VeME TIL JefMCALPHAJI&CTI+2(°CTFI8& 


Uri2tars6y3 


DISKTOCRHEADO @Tim75ett» JARCPIMIX*6),1CFIJ)3 
MEALPHAJ Pati +23 


38220000 
38220500 
38221000 
38221500 
38222000 
38222500 
38223000 
38226500 
38227000 
38227500 
38228000 
38228500 
38230000 
38230500 
38231000 
38231500 
38232000 
38232500 
38233000 
38233500 


38234000 
38234500 


38235000 
38235500 
38236000 
36236010 
38236500 
38237000 
38237500 
38238000 
38938500 


38239000 


38239500 
38240000 
38240500 
38241000 
38241500 


38242000 
38242500 
38243000 
38243500 
38244000 


38244500 
36245000 
38245500 
38246000 
36246500 
38947000 
38247500 
38248000 


AAA AHHH SA a ot tt 


See ee 


—_ 


+A 


Aaa 


AAsaaA HAHA 


OO97TTY 
0102:0 
0106:0 
0109:1 
010931 
0109%2 
0109%2 
010932 
011132 
0114:3 
011981 
012080 
012080 
012233 
012533 
0128:1 
012932 
013132 
0133:0 
013482 
38216000 
0134:2 
014033 
38234500 
014431 
014433 
014533 
014721 
015132 
015320 
015740 
016030 
0162:2 
38237500 
3868235000 
0162%2 
38243000 
0162:2 
016331 
016432 
016830 
01416933 
38240000 
046983 
017120 
0173%1 
017331 
O1L7731 
38242500 
O17731 
017882 
018233 
019030 
019413 
020082 
0202:2 
0206:0 


FIRG1T4JeC#PCOUP) RCTIF2CCTCI&CT1i+56)(CTFI3 
FIBCIBJeC*PCOUP) D&BLENEICTCIRBLENICTFIRBLENCO3!33215)3 
STRFAMCDeTI+¢193 2¢36(D0Se8 LIT@OW))3 
FIRCSI.PFFIeCMeCT 1491 Je FP BLSI CFE IRIC188 4781439413 
SLEFPCRRHEADJ] »1OMASK)3 
HEADER Se(MCT1)}&9208838310)3 

HEADER(7&J}eMF ID; 

HEADERI7SJeF INS 

HEADER(87]+FORMS3 

HEADERE88122T2,.015t8)3 % COPIES 

HEADERL89 JS sUSERCODFIPIMIX]$ 1329 

HEADER(I7T61*ABS(UARIPIMIX20))3 

HEADERC77J*ABSCUARLCPIMIX011)3 
RFELeROCTABLELUI.£1431033 %& GET ACTUAL REFL NUMBER 4745= 
GO TO LPS3 

END FLSE 


Ip KYNDs? THEN 
BEGIN TYPEeIF ¢(TYPE#O0 AND TYPF<20) THEN 6 ELSE 203 
IF SVPBT THEN SAVEWORD?sTWOCU) OR SAVEWORD? 
GO TO PBS} 
END ELSES 


Ip KIND=? THEN 

BEGIN IF PRNTARLECUJ20 THEN GO TO DCN33% 
CNTICTLeMONE3 3% 

FND FLSES 


IF KIND=s8 THEN? 

BFGIN UNLABELEDeCNICTL«41 39 
DIRECeO3% 

ENDS & 


IF UNLABELED THEN 
BFGIN IF COBOL THEN? 
BEGIN MASK«O3% 
1F KIND=_ THEN BEGIN 71+@40001000003 REED END ELSE 


IF KIND=7 OR KINDst1? THEN 

BEGIN 

IF TYPE «< 20 THEN 

BEGIN 
HEADER(733@1540176000,000008FIBrSIrFTC)$ 
FIBCSI¢CFFIsFIBLSI,CFFI+13 
FIBCL4), CFF )%37T1+383 

ENDS 


GO FIND: 
END} 


FNN 3% 
END FLSES 
BFGYIN IF COBOL THEN® 


REGIN MCALPHA™2JePCDUPsLODISCNTLBITS( 18216415 93% 
IF U<16 THENS 


38248500 
38249000 
38249500 
36250000 
38250500 
38251000 
38251500 
38252000 
38252500 
38253000 
38253100 
38253500 
38254000 
38254100 
38254500 
38255000 


38255500 
38256000 
38256500 
38257000 
386257500 


38258000 
38258500 
38259000 
38259500 


38260000 
38260500 
38261000 
38261500 


36262000 
38262500 
38263000 
38263500 


38264000 
38264500 
36265000 
38265500 
38266000 
38266500 
38267000 
38267500 


38268000 
38268500 


38269000 
38269500 
38270000 


38270500 
38271000 


ie he 


~AaAs HAAS 


AAA AA HH ARH HS 


4-4 


a+ 


0208:0 
021132 
0215:0 
021833 
0224:3 
022631 
022652 
022913 
023130 
023231 
023430 
0235:2 
023733 
0240:0 
024182 
0242:0 
38245000 
024230 
024331 
024732 
025032 
025130 
38256000 
0251:0 
025214 
025431 
025530 
38258500 
025530 
025631 
025870 
0258:3 
38260500 
025813 
0259:0 
025913 
026120 
38263500 
0264:0 
026713 
0268!1 
026930 
026942 
027132 
027413 
027734 
38265500 
027731 
027930 
38264500 
027920 
38263000 
027930 
38262500 
027930 
027933 
028313 


STREAMCNePRNTARLETU).C3I0318] + DeMLALPHA™2) 3% 
BEGIN SI*LOC NB DleDt+533 DS*5 DEC END3% 


FNS FLSFS 


BEGIN tr REELSO THEN REFLO1 3% 
1F CYCLESO THEN CYCLES13% 
TF CDATEsO THEN STREAM(DATE sCD#[CDATEJ)3% 
BEGIN Sfte*LOC DATES St+St#3s DS+5 OCT FENDI 


LABELAREAS&% 
BUTLOLABFLCMEALPHA™2] *¢MFIDeFIDeREELe COATES CYCLES 
FIBC4),CIF U<i6é THEN PRNTABLECU],(30#18) 
ELSE O)sSTATE,64629)5% 
BLEN®RLEND #% 
ENDS % 


MEMPALPHA#2) INX PCDUP), (8210) 14@37000000000000003¢ 
IF CPCKINDeDUP)&7 OR CPCXCHeDUP)212 OR PCXCH)@1)) THEN 
IF KIND=7 AND FY Bri13).€62881034ABRS(COBOL) THEN GO FIND FLSE 
BEGIN FF TYPE GE@ 20 THEN & MAKE CP BACKUP LABEL 
BEGIN MEMELALPHA®2] INX &)PsFLAGCNABSCUARECP{MIX00)))3 
MEMCALPHA™2) INX SI]&=FLAGCJARECPIMIEX01I81761243851)3 
STREAMCASS(M{MCALPHAS2] INX 63])3 
REGIN DSt2=15 LIT™ PUNCH BACK#UP "3 NStSLITS*3 
2° OStsh LITMEERZASAA")3 
ENDS 


FND ELSE % MAKE LP LABEL 


BEGIN Tit=sMeMCALPHA=2) INX 3)3 


DISKIOCTAs,NABSCMLALPHA*2)INX LdetLeJARCPIMIXe6).°CF1)3 


MEMCALPHA™2})INX 13] 32FLAGCNABSCJARLPIMIX20)))3 
MEMCALPHAT2ZVINX 14] 3=2FLAGCJARECPIMIXe1I&170124385) 93 
SLEEPCLT2) 5 10MASK)3 

MEMCALPHA™2) JINX 3) 32713 


FNDS 
MEMEALPHA™2] JINX 1]8=MFI03 
MEMCALPHA™2] INX 2)t2FID3 
IF KINDS1 THEN MCALPHA™2]*PCDUP»LOD) & ¥150« 
CIF SEPARATE THEN 1 ELSE @20)(2714216) %150° 
ELSE %150° 
REGIN HEADERE 73] *¢FIBL5),°0FF] OR @36017010000000098 
CTYPE<20)£32384731)3 
IF NOT SEPARATE THEN ¥150- 
IF (CTYPE<20) THEN %150" 
HEADERL73J*PCOUPsL0D0)&8(@20)(£2784236)3%150" 
FIBLESJ*PCOUPPLODsOeloCRXe4)3 
STREAMCLeMCLALPHA 2] eBefHEADER(56]])3 
BEGIN SyeL3 DS#17 WDOS END3 
FIBCIG], CFF I*CHEADERL38])]3 GO FINDS 
FND3 ENDS 


TI*NFLAGCMCALPHA™2] 93% 


38271500 
38272000 


38272500 


38273000 
38273500 
38274000 
38274500 


38275000 
38275500 
38276000 
38276500 
38277000 
38277500 


38278000 
38278500 
38279000 
38279500 
38280000 
38280500 
38281000 
38281500 
38282000 
38282500 


38283000 


38283500 
38284000 
38284500 
38285000 
38285500 
38286000 
38286500 


38287000 
38287500 
38288000 
38288100 
38288200 
38288500 
38289000 
38289100 
38289200 
38289300 
38289500 
38290000 
38290500 


38291000 
38291500 


38292000 


a4 


| 


AAHAHNNMNAHONOD Vast HATTA ON ABA AHS FHS 


~ 


028412 
0268:0 
38272000 
0289:0 
38270500 
028930 
0291432 
029332 
029533 
38274500 
0296:3 
029870 
0304:0 
030330 
0305:1 
0306:0 
38273000 
030610 
030933 
03413:0 
0316?1 
03173 
032233 
0328:0 
0331350 
033333 
0335:2 
38281500 
033533 
36280000 
033533 
0344:1 
0345:3 
0350:2 
0355:3 
O0357:1 
03602 
38283500 
036032 
036333 
036730 
037010 
037211 
0373%2 
0376:0 
037830 
0379:0 
O0380+1 
038314 
038533 
0388:4 
38290500 
0389130 
039330 
36288500 
38279500 
039330 


MASK*0O3 REEDS 

IF KINn#2 THEN 

BEGIN T2«@1737000000000000;3 
TICNFLAGCET2193% 
REED3& 

ENDSS 


ENDS? 


PcO)} 
IF BLENszO THEN 
NCNs: FILEMESSC*"1/0 ERR se Oe MF IDeFIDeREELSCOATE CYCLE)? 
TF NOT FrBL18)].¢1%841] OR P THEN 
GETRUFFERS(CBLEN«NBUFSsUsALPHA) 3 
FINNS8 
PePRRCWICTCI,O¢RDS*OsXCHe PRPI( CTF ISTE 3 
FND OTHrR FrlLe OPEN QUT; 


38292500 
38293000 


38293500 
38294000 
38294500 
38295000 


38295500 


38296000 
38296500 
38296750 
38297000 
38297500 
38298000 
38298500 
38299000 


0395!1 
0397:0 


039733 
0399:0 
0400:0 
04014;0 
38293500 
040150 
38270000 
0401:0 
040124 
040230 
040533 
040771 
OaOdt?’ 
040981 
041202 
382001400 
SI1ZE=® 0415 WORDS 


4a aAanaA+aS 


AAA AHA 


PRT(700) «= 


STACK ¢F 40) 
STACK¢( Fe?) 


STACK ¢F 41) 
STACK (F 42) 
STACK¢CF 43) 


STACK¢F 44) 
STACK¢CF 45) 
STACK (CF +6) 
STACK¢(F 47) 
STACK ¢F 410) 


STACK¢F 411) 
STACK¢Fe12) 
STACK ¢F 413) 
STACK(F 414) 


STACK¢F415) 


STACKEF 416) 
STACK(F 417) 
STACK(F 420) 
STACK (F421) 
STACK(F 422) 
STACK¢(F 423) 
STACK(F 424) 


STACK(F 425) 


STACK(F 426) 
STACK (F427) 


STACK¢(F 430) 
STACK¢F 431) 


STACK ¢F 432) 


STACK¢F433) = 


STACK(F 434) 
STACK¢EF 435) 


STACK ¢F 436) 


PROCEDURE DISKCLOSECALPHA)$ VALUE ALPHA’ INTEGER ALPHADS 


Nr SKCLOSF 


BEGIN REAt, RCW240eMSCWH=23 


=» RCW 
a MSCW 


= FIB 

=z FPB 

= HEADER 
Z2E 


KIND 
NBUFS 
U 

BLEN 

= CODE. 


uoawua 


ARRAY FIBetir*)»FPB=4+2f«],HEADER=+3[*132% 


DONT ADD ANY DECLARATIONS BETWEEN *"HEADER® AND "KINO" &%% WCP 
INTEGER KINO#+4eNBUFS=4+5eUS+65BLEN@4+7 sCODE=+8» 


UNLABFLEDs+9s COBOL s4+10-e Lae ie Jao Pe 


zs UNLABELED 


COBOL 


nn Ow 
— 


u 
al 
Zz 
Cc 
= 


fo WR HH 
oa 


= STA 
2 Td 
= T2 
= 3 
= 10D 


=z SEGO 
SKEL 


= T 
= ACCESS 


= COMPG0 


FNUMs41 33 


REAL MIDS414sF1D8+15,R2416sD54179CH+18eFORMSet19,STATE E4205 


LABFL, L1eL2oL3»+E0F »CLEANUPS 
LABEL ORJTYPEsDUMMY3 
REAL STAR+213% 


REAL T1=422+T2=4230T32424, 100842532 


ARRAY SEGO*4+267*)],SKELE427(¥*13% 
REAL T=+28sACCESS=+293% 


BOOLFAN COMPG0%4303 


$ SET OMrT = NOT SHWAREDISK 


SUBROUTYNE COOLOFF3 
BrG1N FOR [+0 STEP 1 UNTIL NBUFS#1 DOg 
BEGIN IF NOT MCALPHA4I],(01991) THEN 
SLEEPCCMLALPHA+I J] + 1OMASK)33% 
IF KIND#4 THEN 
IF MEALPHA+1],£2731) THEN GO TO EOF’ 


3 
START OF REL SEGMFN 


8355000 
TS OTSK 


38356000 


38357000 


38358000 
38359000 


38360000 


38361000 
38362000 


38363000 
38364000 
38364100 


38365000 


38366000 
38366010 


38366020 


38366099 
38370700 
38370800 
38371000 
38372000 
38373000 
38374000 
38375000 


ADDRESS = 00930 


T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 000030 
T 000030 
T 000030 
T 0000:0 
T 000050 
T 000030 
T 000030 
T 000010 
T 000030 
T 000080 
T 000040 
T 000030 
T 0000:0 
T 0001:0 
T 000584 
T O0OTS2 
T 002032 
T OO118 1 
T 001432 


EOFS END COOLOFF3% 


BOOLFAN SURROUTINEG WRITTENONS % PICKS UP THE ACCESSED BITS FROM 
BEGIN Jts03 % THE BUFFERS, 
IF ¢TeeF1B6103,73:815))2 NE@ O THEN 
BEGIN 
FOR Jt=NBUFS@4 STFP ={1 UNTIL O DO 
IF MCTI.£1121) THEN Jterimey, ELSE TseMC(TI,CFF)°23 
ENDS 


WRITTENONS =J3 
END; 


DEFINE RFWECODE. (4724 )4#,% 
KRUNCHSENOT CODE. 422ila, 
RELSCODE.(4691]#,% 
TIMFECONDE .C4521)# 2% 
LOCK=NOT CODE, (C44t4]#o% 
PURGESNOT CODE,( 43211833 
OFFINE TECH=STATE.C4682)#, OPENS OSFIB(13],[22:1]#, 
WRITBACKSF1B(013]),(2391]4> LASTIO*@FIBC13).(46811#, 
WRITEAFTEREOFeEFIRC13] 6442218»  INPUTSSTATE.C43t11#3 


START OF CODE 


Be DE BO 


PcRCWeMSCWSTF)3 
HEADER « FIBP14]3 
If COROL THEN 
BEGIN IF COROL > O THEN % COBOL 61 
BEGIN IF WRITBACK AND TECH®0 AND LASTIO AND 
COPENIO OR NOTCINPUT)) THEN 
IF ACCESS#1 AND WRITEAFTEREOF #0 THEN 
BEGIN FyBC7} « *PCDUP) = 13 
HEADERE7] «© *PCDUP) = 43 
END FLSE WRITEAFTEREOF « O3 


RCW * RCW & PCXCHIECTCI! 
ACCESS «+ FIBL4],£2733)3 


IF TECH=0 THEN JF WRITEAFTEREOF®2 THEN 
BEGIN FIB[7] « *PCDUP) + 43 
HEADER(7) «+ ePCDUP) + 45 
END ELSE IF WRITEAFTEREOF 21 THEN 


BEGIN FIBEC7) « *PCDUP) = 93 
HEADER( 7] «© *PCODUP) = 43 
END3 


WRITEAFTERFOF © 03 
ENnS 


IF AccESS=1 THEN % 1F RANDOM 
REGIN JF COBOL > 0 THEN % COBOL61 
BEGIN ACCESS « 43. 
IF F180133,71039) = 2 THEN & SEEK IN PROCESS 
BEGIN 
$ SET OM)}T = NOT SHAREDISK 


38376000 


38376500 
38377000 
38377200 
38377400 
38377600 
38377800 
38378000 
38378200 


38378400 
38378600 


38379000 
38380000 
38361000 
38382000 
38363000 
38384000 
36385000 
38385400 
38385500 
38385600 
38386000 
38386010 
38366020 
38387000 
38388000 
38389000 
38389100 
38389200 
38389300 
38389400 
38389500 
38389600 
38389700 


38389800 
38389900 
38390000 
38390100 


38390200 
38390300 
38390400 


38390500 
38391000 


38391010 
38391020 
38391025 
38394030 
38391035 
38391039 


AAA HMaa 4 


+44 


AHHHHHHHM HHA tS 


4-40 444 SHH 


jAa4 445-1 


38371000 
001510 
38370800 
001531 
001541 
0016:0 
00163 
0048:3 
004981 
0023%2 
003012 
38377600 
0030:2 
0031:0 
38377200 
OO3141 
OO34%1 
003491 
0031%1 
OO3L4E 
003181 
003421 
003421 
0031°1 
003431 
003121 
003131 
003141 
0031421 
OO034at14 
003633 
003730 
0038814 
004212 
004530 
004810 
0050:2 
0052t2 
38389500 
0055:2 
0058:3 
0061%1 
0063! 
38389900 
0065!1 
006733 
006983 
38390200 
0069:3 
007233 
38389200 
007241 
0073:0 
007424 
0075!2 
007710 
0077%2 


ENDS 


COOLOFF$S F1B(132.€10:9) «+ 13 
END 


FND ELSE IF FIBL17]<BLEN THEN ACCESS«43 &% COROL6B 
ENDS 
IF FIBF133,023%13 AND ACCESS=®0 THEN 
BEGIN FIB(7J+P(NUP»LOp)=173 


ACCESS¢43 
END3 


Ip NOT STATE.£4181] THEN 


BrayN 


S$ SET oMrT 


TF ACCESS=1 THEN 

BEGIN 

e NOT SHAREDISK 
COOLOFF3 

END ELSE% 


IF ACCESSs0 THENS 
BEGIN COOLOFFS JF NOT STATE.C4331) THENS 
IF FIBL17)<BLEN AND STATE,[4682J)#40 THEN 
BEGIN RteSPACE CCC BLEN+29) DIV 30)x3041)93 
IF CMrRJ*MCFIBL16)}¢% 


DISKADRARESS(MIDeF IDs FPBLFNUM+335FIBI7I™1sHEADER*20)) NE@ O THEN & ¢SHM) 


$ SFT oMIT 


BEGIN 
PCWAITIOCFIBL16)8102484734I]8RE33%33%15),% 
O+U)>DELIIS 
MOVECFIBLI7}+R+BLEN@FIBCI7I] 419% 
FIBC16) INX BLEN@FIBC17)41)3% 
PCWAITIOCFIBL16)*#09U) »DELI32% 
IF NOT FIBEC161,02484] THEN HEADERC4) 4011911643 
END3 
FORGETSPACECR)3% 
ENDS% 
END ELSE 
BEGIN 
= NOT SHARED! SK 
COOLOFF:; 
IF CFIBPi7ILSS BLEN AND STATE,(C4682]NEQ 0)0R ACCESSa4 THEN 
REGIN IF ACCESS#®4 THEN 
IF FIB613),023813 OR NOT STATE.C4381] THEN 
ACCESS3223 


IF CMCFIBCIGIItB=DISKADDRESSCMIDsFIDeFPALFNUM43)]—5 %& ¢SHM) 
FYIBCTI+HEADERs0))#0 THEN ACCESSI8a) 
IF ACCESS#4 THEN 
BEGIN PCWAITIOCFIBL16)&06 2482489) ,0eU Pe DELS 
HEADERE 4), C1124 3413 ENDS 


END} IF ACCESS = 4 THEN ACCESS ts 23 


END3% 


38391050 
38391055 


38391060 
38391070 


38391080 
38391090 
38391100 
38391110 


38392000 
38393000 
38394000 
38394099 
38394300 
386395000 


38396000 
38397000 
38398000 
38399000 
38400000 
38401000 
38403100 
38402000 
38403000 
38404000 
38405000 
38406000 
38406500 
38407000 


38408000 
38409000 


38410000 


38411000 
38411009 
38411030 
38411100 
38411200 
38411300 
38411400 
386411500 
38411600 
38411700 
38441750 
38411800 


38411900 


36412000 


ass +44 


+a 


en ee 


4-4 


“+ 


Ante 


007782 
0081:2 
38391035 
008482 
38393025 
0084%4 
38391020 
0084!4 
0086!1 
0088:3 
008932 
38391090 
38389100 
008912 
009012 
009433 
009251 
00924 
0093:!0 
38394000 
0093:0 
00941 
009730 
010010 
010433 
0106%2 
011133 
011231 
011432 
0115%2 
0118%2 
012170 
012233 
012730 
38401100 
012750 
0127383 
38399000 
012733 
38397000 
012733 
012831 
012881 
0129:0 
013230 
0133:3 
0136:2 
013713 
0140%2 
O14arit 
014510 
0148114 
384141750 
0150383 
38411200 
015283 
38411000 


ENDSE 


HEANER( 4), C43%4)]$eFPBEPNUM4+3),(1521)3 
IF «NOT ReEW) OR LOCK OR Rel OR TIME THEN 
BEGIN 
FORMS¢HEADERE 3173 
STREAMCPFeLFIBL AJ] »DeFPREFNUM4+2).018830),H*fHEADERE3)),SerTI1)3 
BFGIN STePFESyeS7453NSe3 OCTESTeLOC Ds DyeHs DS*+8 OCT ENDS 


HEANFRE 3] + CP CHUP LOD, SSN) I&CPCDUP)I£1213081818T062238:310)3 
PND3 


Ip LOCK OR HraneRe4),¢£4381] THEN 
BEGIN JF NOT WEADERES) THENZSF ILE IS BEING CREATED 
BEGIN 
IF KRUNCH THEN KRUNCHERCHEADERD3 
HEADER(4],.7933]%a53%3 MARK AS NEW FORMATSACCESSED 
IF JAREP@MIx20)] < O AND FYBLa),(29%1] THEN 
% COMPILFR CLOSING CODE FILE WITH LOCK #8 eto ek eRe ee Ok 
BEGIN 
SEGOt=CME TYPEDSPACE(62,SEGZEROAREAV)JI&30£SIZE]3 
SKEL ¢ 31 INX SEGOS T3 « JAREPIMIX?2),CFFI3 
% READ IN SEGMENT ZERO 
DISKWAITC*SEGO.CCF),30/,HEADERL101)3 
% READ IN SKELETON SHEET 


rr DISKWAITC*SKEL.(CF1.30,T3)3 


IF SkKelp20)<0 THEN SKELIE20) ¢ SEGOL7).¢FFI3 
IF JAREPIMIX221,08810}21 THEN 
BEGIN % COMPILE AND GO ¥eeeee ed ee dee 
SKELE 6] SeJARCPYMIX 5678 
CPRTEPIMIX03),68t10}4206CTFI3 
DISKWAJTCSKEL,£CFJ)s305T3)3 
COMPGO « TRUE) 
ENn 


ELSE 
BEGIN & COMPILE TO LIBRARY eee keke gee 
FOR T1 + 15 STEP 1 UNTIL 22 00 
SrGOcT1] «+ SKEL(T1I3 
1F (T2 ¢ SKEL£C137) = O THEN GO TO £33 
SKELC13) « OF & IN CASE 1 CALL TERMINATE 
NISKWATTCSKEL, (CCF J0305T3)3 
IFCTLt=eDISKADDRESSCMID,FIDeFPBCFNUM+3) +HEADER(7]#= % ¢SHM) 
C#PCDUPII+#1»HEADER*®0))@0 THEN 
FrLEMESS(#"pySk ","OVRFLOW" sMINeF IDs 
ReDeC)$ 
SEGOL15]) « Ti # HEADERE7)3 
Lis DISKWATTC*SKEL CCR Ie 300T2)3 
FORGETFSPDISKCT2)3 
1F (CT2eSKELE29)) m O THEN GO TO L2s 
IFCT3%eNISKADHRESSCMIDeFID#FPACFNUM#3) ®HEADERE?J$= & CSHM) 
C¥PCDUP)) 41 e¢HEADER,0))80 THEN 
FILEMESSce*pySK = ","OVRELOW" SMI De FID» 
ReDs)3 
SKELE29) «© T3 ¢ HEADEREI7)3 
DISKWAYTCSKEL. CCF 12306 
TeHEADERE TI DIV HEADER(8)410) + 


38412100 
38412200 


38419000 


38420000 
38421000 
38422000 
38423000 


38424000 
38425000 


38426000 
36427000 
38428000 
38429000 
38430000 
36431000 
36432000 
38433000 
38434000 
38435000 
38436000 
38437000 
38438000 
38439000 
38440000 
38441000 
38442000 
38442100 
38442200 
38443000 
36444000 
38445000 


38446000 
38447000 
38448000 
38449000 
38450000 
36451000 
38452000 
36453000 
38454000 
38455000 
38456000 


38457000* 


38458000 
38459000 
38460000 
38461000 
38462000 
38463000 
38464000 
38465000 
38466000 
38467000 


aAsataAaa st Ht 


+4 


AAA AHHH HH HHH HHH HH 


AAA HHH A HH 


015233 
38393000 
015233 
015632 
016033 
016131 
01621 
046582 
38493000 
016721 
04742%0 
36420000 
017110 
O173%1 
01742 
0175:0 
017782 
018020 
0182:3 
018203 
018331 
018533 
019032 
019032 
0193130 
019320 
019514 
0198:3 
020033 
020171 
020233 
0205!:2 
020782 
02081 
38442000 
0208!1 
0208?1 
0208:3 
0210:0 
021383 
021533 
021770 
021930 
0227%1 
0224:3 
022433 
022810 
023010 
023211 
023330 
023510 
023781 
024033 
024033 
0244:0 
024610 
0247%2 


T1 MOD HEADEREBI)3 
T1 « T33 
G9 TO Lis 
Los NISKWATTCSKEL.&CF 1230,» 
JeHEADER(CT1 DIV HEADEREC814+10) + 
Ti MOD HEADER(8))3 
L35 SERGOL6] «+ PCDUP»LOD»SSN)3 &% "NEW FORMAT 
HFADERS4],C1O84J¢133MARK AS PROGRAM FILE 
NISKWAITCSEGO, CCF I -+30eHFADERL10))3 
END cOPY OF LABEL EQUATION CARDS!) 


FORGETSPACECSEGO)3 
IF HEADERE71<HEADER(8I"1 THEN 
REGIN FORGETUSERDISKCHEADERCIOJ+HEADERI7 I415 
HEADERC7)*HEADERS 814493 
HEADER(§) « HEADER( 7) 4413 
END} 


FOR Tqyte=1 STEP 1 UNTIL 4 DO 
DUMMY 33 IF PC, OBJTYPE Tl e+eLODZABSCJAREPIMIX*20}) THEN 
HEADER 41, (3686) 8=T14+23 
ENDS 


HEADER(C 1] *FORMS&HEADER(L3)(6830838)3 
IF CHEADER(C2)°aUSERCODECPIMIX1]).Citi] OR 
MCPeNOT(*°0) THEN HEADERE2)«03 
HEADER 5] %= HEADFRE6) t= 03 
1F COMPGO THEN 
BEGIN PRTICPIMIXs@26]*1ONeGETESPDISKS 
DISKWAITCHEADERs(CFJ930210D)3 
END ELSE 


BEGIN 
ENTERUSERFE ILE CMIDe FIDeHEADER.CCFI9193 
ENDS 


FND3& 
FND 3 & 


If REW AND NOTCLOCK OR REL OR TIME) THEN 
BEGIN 
IF HEADERS 4) THEN 
If WRITTENON THEN HEADERC AI Ciisiidt=43 
STATE. (39t4J)8u23 
END ELSE 


BEGIN 
HFANERE I Je FORMSEHEADER(3376%30%18]3 
TF WEADER( 4] THEN?FILE ALREADY EXISTS 
BEGIN 
JteWRITTENON OR HEADERC4),£6118113 
$ SET OMIT = SHAREDISK 
TeIF FIBC5}.£131)] OR NOT J THEN FIBE5),£132334+10 ELSE 
CHEANDER INX 0)8F1B651(3084313)3 
$ POP oMIT 
$ SET OMIT = NOT SHAREDISK 


38468000 
38469000 
38470000 
38471000 
38472000 
38473000 
38474000 
38475000 
38476000 
38477000 


38478000 
38479000 
38480000 
38481000 
38482000 
36483000 


38484000 
38485000 
38486000 
38488000 


38489000 
38490000 
38491000 
38492000 
38494000 
38495000 
38496000 
38497000 


38498000 
38499000 
38500000 


38501000 
38502000 


38503000 
38503200 
38503400 
38503600 
38503800 
38504000 


38504500 
38505000 
38506000 
38507000 
38507500 
38507799 
38507800 
38808000 
38508001 
38508599 


Oe ee ee ee er 


ee 


4a 44-4 


| 


AAs 


ee ee 


024931 
025191 
025210 
025510 
0256%2 
025831 
026081 
026210 
026432 
026633 
38447000 
026613 
026733 


026982 


027210 
027480 
027610 
38480000 
027630 
027730 
027912 
028531 
38433000 
028531 
028733 
028933 
029333 
0296:0 
029631 
029931 
0301!1 
36495000 
030181 
030133 
0304:2 
38498000 
0304:2 
38426000 
030482 
38497000 
030412 
0308183 
030981 
03093 
031430 
031583 
38503200 
0315343 
031684 
031883 
031931 
031983 
032233 
0322%3 
032710 
032983 
032913 


TFCTeDIRECTORYSEARCHCMIDeFID&IL324721]5729#0 THEN 
IF PURGE THEN 


IF MEY+4),71294 ]20 THEN 
TF NOT SYSTEMFILECMIO*FID) THEN 
IF SECURITYCHFCK(MIDoFID»eUSERCODELPIMIXJe1),£4531) THEN 
PCDIRECTORYSEARCH(@MIDsFID»+7)sDEL)3 
JF | NEQ O THEN FORGETSPACE(I)3 
EXD ELSES 


If NOT LOCK THENS 
TF HEADERS 4J,64331] THEN PCDIRECTORYSEARCHC@MIDoF IDs 7) eDEL) ELSE 
BEGIN 
& SET OMIT = NOTCOTSKLOG) 
FOR +410 STEP 1 UNTIL 29 NOR 
IF HEADER YI40 THEN FORGETUSERDISKCHEADERE 1] s"HEADERL 81) 3% 
END3; 


FORGFTSPACECHEADER) 3 
STATE, £3984] e132 
FND3 


If NOT COBOL THEN FIBt4).(52713)¢33 
GO CLEANUPSS 


OBUTYPFtt? "BASIC "» &1% 
"ALGOL ", %2% 
"COROL ", £33 
"FORTRAN"» %4% 
"TSPOL ", £52 
"XALGOL ", 26% 
O$ XDUMMYX 


CLEANUP: 
PePRRCWLCTCI +O RDS#OexXCHo PRPLCTFI>STF)3 
FND DISK CLOSE3 


38509000 
38510000 
38511000 
38532000 
38543000 
38545000 
38516000 
38517000 


38518000 
38518500 
38519000 
38520000 
38522000 
38523000 
38524000 


38525000 
38526000 
38527000 


38528000 
38529000 
38530000 
38531000 
36532000 
38533000 
38534000 
38535000 
38536000 
38537000 
38538000 
38539000 


032983 
033310 
033432 
033782 
0339334 
034230 
0344314 
034684 
38507000 
034631 
034782 
035131 
035413 
035483 
035330 
035832 
38519000 
035882 
035982 
036431 
38504500 
036131 
036433 
0365314 
036730 
0368:0 
036930 
037030 
037150 
037230 
037310 
037330 
037532 
38356000 
SI1ZFe 0376 WORDS 


oe ee Mee See ee 


AAAs 


43441 


St st Ht 


PRT¢(701) = 


STACK¢F 40) 
STACK¢Fe2) 


STACK ¢Fa1) 
STACK(Fe2) 
STACK¢F 43) 


STACK ¢F 44) 
STACK ¢F 45) 
STACKCF 46) 
STACK(F 47) 
STACK ¢F 410) 


STACK¢(F 411) 
STACK (F412) 
STACK¢F 413) 
STACK¢F 414) 


STACK¢(F 415) 


STACKCF 416) 
STACK OF 417) 
STACK ¢F 420) 
STACK(F 421) 
STACK¢(F 422) 
STACK¢CF 423) 
STACK (F424) 


STACK ¢F 425) 


STACK (CF +26) 
STACK ¢F 427) 
STACK(F 430) 
STACK¢F 431) 


STACK(F 432) 
STACK(F 433) 


PROCEDURE RACKCLOSFCALPHA)$ VALUE ALPHA? INTEGFR ALPHASS 


RACKCLOSE 


BEGIN RrAL RCWe40,MSCW="23 


= RCW 
= MSCW 


ARRAY FIBstif te) -FPBe42( eI) ,HEADERH+3(¥* 15% 


= FIB 

= FPR 

=x HEANER 
ZEZ 


INTEGER KINDe4+4oNBUF Se4+5 0UE4+6,BLEN=47 sCODE=48» 


KIND 
NBUFS 
U 

BLEN 
s CODE 


UNLABELED 
COBOL 

I 

J 


ou ue 


FNUM 


RFAL MIDt414eF 1D5415eR=4162D5417 905418 es FORMSz419,STATER4203 


non tf ae 8 
iw] 


UNLABELED=+9,COROLz+1O+[etils Jeeta, 


FNUMe44 33 


LABEL AGAINoFOF sEQOTPCLOSFOUT»PBD,»PUDS 


LABEL, 
Re AL 


ZERODKADDR3 
STAS4+213% 


REAL T134290T2=4293°713%494s 100249553 


anuwtoa 
+ 
lad 


ARRAY SEGOR+26(*] +SKELE427(¥*]3 


tou 
mn 
xm 
IO 
_o 


SUBROUTINE COOLOFF?% 
BFGIN FOR JTeO STEP 1 UNTIL NBUFS=*1 00% 
BEGIN TF NOT MFALPHA41].,019%1) THENS 


SLEEPCEMLALPHA+1]] 5 1OMASK) 32 


IF KIND#4 THEN 


IF MCALPHA+1],(£2781] THEN GO TO EOF3% 


ENDS 


EOFS END COOLOFFs% 


REAL T2+2BsACCESSE+293% 


STACK¢(F 434) = T 
STACK¢(F 435) = ACCESS 


i 


DONT ADD ANY DECLARATIONS BETWEEN "HEADER" AND "KIND" gage wWCP 


¥175 


38540000 


START OF REL SEGMENTS DISK 


38541000 


38542000 


38543000 
38544000 


38545000 


38546000 
36547000 


38548000 
38548010 
38548100 


38549000 


38550000 


38552000 
38553000 
38554000 
38555000 
36556000 
38557000 
38558000 


38559000 


38561000 


T 000010 

ADDRESS = 00943 

T 000010 

T 000030 

T 000010 

T 000030 

T 0000!0 

T 000010 

T 000010 

T 000010 

c 0000!0 

T 000010 

T 000010 

T 000010 

T 000010 

T 000430 

T 000531. 

T 000712 

T 004012 

T 001191 

T 004482 
38554000 

T 001510 
38553000 

T 001584 


STACK¢F 436) 


STACK¢F 437) 


= 


= 
= 


COMPGO 


TYPE 


BOOLFAN COMPG0e+30; 
RraAl, TYPEs4+343 


DEFINE REW=CODF,(4721)#,% 
REL=CODE,.£46314)8#,% 
TIME=CODE C4581) 85% 
LOCKSNOT CODE, C4ati]# og 
PURGERNOT CODE, £4331)#3% 


8 SFT oMrT = PACKETS 


DEFINE TORFELNO = 423423683 


B POP OMIT OMIT 


% 


SUBROUTINE CKBKUP3 

BEGIN MEMCALPHAJINX 17 J*MCALPHAI& CF 1852 
FIBrSleP(NUPeLOD+ Oo. 9CKXo+)3 
IF NOT PRTROWEPIMYX),0781) THEN 
IF FIlBr14),°CFR yar yBc14), CFF] 


EFTCIS 


THEN BEGIN PBIOCALPHAtFIBCI4IJ )SSLEEPCEMEALPHAJ]*1IOMASK END ELSE 


REGINS STREAM(S¢ MCALPHAJ) »Z*FIBL14).0FF] 
BEGIN SyeSs3 pS*18 WOS END; 


FIBCL4] CREJ ePCDUP), CFR 19183 
ENDS END} 


PeRCWsMSCweSTF)3 
RoWreRCWRPCXCHICCTOI3 
JeLOcKs 
1F T1lecFIB£9}.01%1] AND KINOS7) THEN & MULTI@REEL PBT F 
BEGIN 
FIBL9],C181]603 
COOLOFFS 
GO TO FOT3 
FNDS 


IF MPF 1Bf£214),¢3815] NX NOT 07 = O THEN & 

BFGIN 
1 t=sTYPE>20;3 
RtaMreFyRet4].,£3115)+6)3 
GO TO ZERODKADDRS 

ENNS 


% 1=PUD 
% PB REEL NO, 


IF FIBCI7I)<O0 THEN 
RFGIN MCALPHA).CFFJ«@60020; IF TYPF<20 THEN CKBKUP3 
MrALPHA],£1881]«03 CKBKUP ENDS 


FLSE IF FIBC17]<BLEN THENS 
BEGIN IF NOT COBOL THEN FIBLI7ZIOFIBLI7ZI@CSTATE,C4622)23)5% 
STREAMCN?sFIBO017),0:=MCALPHA],CCFI);3 
BEGIN NcOSs#8 Lit ™ ")3 END3 


MEALPHAJ*FLAGCFIBL16IR0620847313)9%8 CKBKUPS 


END FLSE COOLOFFS 


MrALPHAJ+C*PCDUP)&C@600Q00I(CTFI; 


3 


ILE 


2175 
%175* 
£175" 
Bi75* 
r175= 
2175 


¥150= 


36562000 
38562100 


38563000 
38564000 
38565000 
38566000 
38567000 
38567950 
38568100 
38568150 
38569000 
38570000 
38571000 
38572000 
38573000 
38573100 
38574000 


38575000 
38576000 


38577000 
38578000 


38580000 
38581000 
38581100 
38581200 
36581300 
38581400 
38581500 
38581600 
38581700 


38581800 
38581900 
38581910 
36581920 
38561930 
38581940 


38582000 
38583000 
38584000 


38565000 
38586000 
38587000 
38587500 


38588000 
38589000 


38590000 


454+ ANNDIDQANO AAATHAAAAS i i ee ee 


44 44-4 


uv 


0015814 
001531 


004531 
0015314 
0015%14 
0015314 
001531 
001571 
001534 
001534 
001584 
0015%1 
001610 
002031 
002233 
0024:0 
002533 
38574000 
0031433 
0034383 
38576000 
0035%2 
003852 
38575000 
38571000 
003833 
0046030 
OO41t! 
004233 
004531 
004533 
OO4Bt1 
0049:%0 
004932 
38581300 
0049%2 
0052%2 
0053:0 
00541 
005730 
005732 
38561900 
005732 
005812 
006430 
38583000 
006810 
007430 
0075t2 
007830 
38587500 
008081 
006430 
38586000 
008610 


Tr TYPE<20 THEN 
MrALPHAJe¢#PCDUP))&CTF SEPARATE THEN 1 ELSE @20)(272423633%1508 


If NOT UNLABELED THEN 


BEGIN 


ENDS 


Tr NOT SFRARATF THEN MP ALPHAJ+P(OUP,LODI&1([278462:6]3 


IF TYPE<20 THEN CKBKUP3 


MPALPHAJ©C¥#¥PCDUP) 82C18: 4583 ]aMLALPHAW2)(828210)3 
IF NOT SEPARATE THEN MCALPHAJ¢C#PCOUP) 8102724216] 3 
STREAMCLeMLALPHA™2),B¢MrALPHA])3 BEGIN SIeLs DSe17 wDS 


MrALPHAJ, (20811413 ; 
Jp FIRCI4SJ CFF IAF IBCI4].CCF) THEN 


BEGIN 


CKBKUPS FIBC14),.CFFJ*#PCDUP)sSEND3 CKBKUP3 


Ir KIND=12 THEN &% PBD 


BEGIN 


$ SET OMIT 


£ POP oMrT 
$ SET OMIT 


AGAIN 


& SET OMIT 


$ POP OMyT 


TeFIBLCI4],03415]3 

IF CRtemM(T+71x%3) NEQ O THEN 

BEGIN TF R < PBDROWSZ THEN 

BEGIN FORGETUSFRDOISKCM( 1410] 4+R»sPBDROWSZ”"R44 33 
MrT+8jeR3 

FND3 


END3 


MeTelLJ]eMrtTe3)3 

STREAMC(CASFPBCFNUM423,018230]eTe#T+3)3 

BEGIN SJ*#LOC AsDS+#8 OCTSD] +O "B83NSe2 LIT*42"3 
SyeT3SypeSy+530S"3 CHR} 

ENNIS 


MECT41]7,(66218]3¢M(7T43),030%18)]3 

IF ytsTYPF>20 THEN MET4+5),6 384) 2203 
RisM(T+673 

= DATACGM AND RJE 

P(O)$ 


= NOTCNATACOM AND RJE ) 
MCT+6)8=P(XCH)3 
MOT45]),[2811¢03 
DISKWAYTCT# 30eMET=1))3 
NsFRRICTOREELNOI; 


7150 


%150= 
END, 


%150= 
41506 


*150= 
%150- 


F601" 


PCDTRECTORYSEARCHC™CIF 1 THEN PCPUN) ELSE PCPBD))9De14)» 


DrL Ds 
IF O#R THEN 
BEGIN STREAMCONEF 21, Dte(pIJ)3 
BEGIN STtsLoc ONES DS*#=8 ADD END 


GO AGAIN} 
END: 


= NOT PACKETS 

IF CTist=sPSFUDOMIXFPIMIXJ)s0 THEN P(1) ELSE 
IF PACKETPAGE(T1*°32)=9 THEN Pet) ELSE PCO)3 
IF P OR ¥ THEN 

BEGIN PRCOUNT#sPBCOUNT443 


%105= 


38590100 
38590200 
38591000 
38591100 
38592000 
38592100 
38593000 


38594000 


38594100 
38594200 
38594300 
38595000 


38596000 
38597000 
38598000 
38598100 
38599000 
38600000 
38601000 


38601100 


38602000 
38603000 
38604000 
38605000 
38606000 


38607000 
38607100 
38607200 
38607299 
38607300 
38607301 
38607399 
38607900 
38607950 
38608000 
38608100 
38608200 
38608300 
38608400 
38608500 
38608600 


38608700 
38608800 


38608890 
38608900 
38608910 
38608920 
38609000 
38609010 


~~ AOA OO 


AAAs HTD 


oO 


| 


a at a st 


+4 


ie 


008831 
008980 
009431 
009483 
009810 
010310 
010731 
36593000 
011130 
38591100 
011180 
O1159t!i 
011830 
012031 
386595000 
012580 
012533 
012713 
013033 
013280 
013611 
0138631 
38599000 
013691 
38598100 
013831 
0141%2 
014431 
0145%2 
014691 
38604000 
014682 
015182 
0156%2 
0158%2 
0158%2 
015683 
015833 
015833 
016033 
016430 
016632 
016811 
O171%1 
017182 
017231 
017333 
38608600 
017412 
017680 
38608500 
017610 
017640 
0178%1 
018211 
018233 
0184!2 


AF AUTOPRINT 
$ SET OMrT = NOT RUF 


THEN P¢PRYNTORPUNCHWAITCR&1P32¢32816] 0] 
£2 SET OMIT = NOT RJE 
do DELDS 
£ SET OMIT &= NOT PACKETS 
ENDS 


$ POP OMIT 
ZERODKANDR? 
$ SET OMYT = PACKETS 


FILEMESSAGECCIF 1 THEN PCPUD) ELSE PCPBD))QRI 24263240)» 


CPREL *)EROIOTZ081 8) oMIDOFIDe 
FIBL71*OeOsc¢PBOREL OR CLOSEMESS))3 
FORGFITSPACECFIBL14).03915))3 FIBL14],03815]%203 
END ELSE 


COT! BEGIN T#@17370000000000003 

JeWALTIOCLT1¢@4002U)40 OR V3 

1 te SPACE (8)3 

STREAMCPN8SETYPE GFQ 20,pn%20e])3 

BEGIN 
DSt=s24LIT"™ LaBEL OPBTMCP OBACK=UP"3 
PNCDItsOl? NyteHte14s OS*s2nTTMUT";s Dypsad3 
20(NSss2Ly7T" #3 

END3 


TF NOT UNLABELED THEN MrIs4]eMEMCALPHA"2] INX 4), (4226]3 
MrefT#3J]¢Tis % MARK ENDING TAPE LAREL FOR MULTI“REEL COND, 


JeWATTIOC 788782 382103857 214245237 2E40eU #0 OR U3 
FORGFTSPACE(C1)33% 
FOR 1«O STEP 1 UNTIL 1 Og 
PCWAITI0CO1000000340000005,@400U) sDELIE 
Ie CTWOCU) AND SAVEWORD)#0 THENS 
SETNOTITNUSECUS0) FLSE 
BEGIN 
RNOCTARLECUJ © CHePCOUP) ROL Btht6JRgRei4s38310)3 
PRNTARLECU],£15t15) «0; 
RRRMFECHS=NOT TWOCU) AND RRRMECH3 
IF J THEN SE TNOTINUSECUS0) ELSE LABELTARLF(UJ.(185J]¢13 
END? ENDS 


STATE. CFF IJ+03 
GO CLOSEOUTS 


PBDt?: = "PRD "5 
PUNS 33 *PUD "5 
CLOSEOUT! 


PeP&RCWICTCJ),0O+eRDSe0,XCHePRPCCTF IJ» STF )S 
END BACK CLOSE} 


41758 


£717 


38609100 
38609190 


38609300 
38609390 
38609500 
38609590 
38609600 


38609610 
38609700 
38609999 
38630100 
38610200 
38610250 
38610600 
38622000 


38623000 
38624000 
38625000 
38626000 
38626100 
38626200 
38626300 
38626400 
38676500 


38628000 
38628100 
38629000 
38630000 
38631000 
36632000 
38633000 
38634000 
38635000 
38637000 
38638000 
38638500 
38640000 
38641000 


38642000 
38643000 
38644000 
38644500 
38645000 
38646000 
38647000 


018412 
0184%2 
0184%2 
018741 
0187%1 
0168:0 
018820 
38609000 
016630 
018830 
0186810 
0186:0 
019420 
019213 
019513 
019933 
38597000 
019983 
020213 
020542 
020733 
020982 
0209382 
021253 
021413 
021533 
38626100 
021610 
022230 
022410 
022813 
0229%2 
023210 
023543 
02371%2 
023980 
024110 
024412 
024710 
024930 
025313 
38635000 
38623000 
0253183 
025510 
025532 
025730 
025610 
025810 
026032 
38541000 
SIZE= 02614 WORDS 


Se ie ee Bee Bee ee 


AAHAH AHO Ht 


AVHAHAHH HHH HHA BAH 


4Aoa was 


PROCEDURE OTHERCLOSECALPHA)$ VALUE ALPHA INTEGER ALPHAS® 


38648000 


START OF REL SEGMENT?! DISK 


PRT¢702) = oTHFRCLOSE 


STAGK(F +40) 2 
STACK(Fe2) = 


STACK(F 41) 
STACK¢F +42) 
STACK ¢F 43) 


H-u oH 


STACK¢F44) « 
STACK¢F+5) » 
STACK(F46) 3 
STACK(F47) 3 


BEGIN REAL RCWH+0eMSCWrH23 
RCW 
MSCW 
ARRAY FiBet+1 (4) eFPBe+0(%) ,HEADER=+3(¥%I32% 
FIB 
FPB 
HEADER 
ZL DONT ADD ANY DECLARATIONS BETWEEN “"HEADER*® AND "KIND" &&% WCP 
INTEGER KINDwe+4eNRUF Se4+5eU84+6,BLENG47 se CODE =+8>» 
KIND 
NRUFS 
U 
BLEN 


STACK¢F410) = CODE 


STACK¢(F411) 
STACK(CF 412) 
STACK¢F 413) 
STACK¢F 414) 


STACK¢F 415) 


STACK¢(F 416) 
STACK ¢F 417) 
STACK¢F +20) 
STACK(F 421) 
STACK ¢F 422) 
STACK(F +23) 
STACK (F424) 


STACK (F425) 
STACKCF 426) 
STACK ¢F 427) 
STACK ¢F 430) 
STACK¢F 431) 


STACK¢F 432) 
STACK(F 433) 


STACK¢(F 434) 
STACK¢F 435) 


STACK¢(F 436) 


tiwag 


UNLABELED=+9eCOROLS+10e1=+140Js4 42s 
UNLABFLED 
COBOL 


FNUMe4133 


RFAL MIDe¢14,F 1024+15,R2416,0e417,Cee1BsFORMSat+19,STATE=4203 


REAL STA=+4+213% 
STA 
REAL T13+22eT2=+23eT 324245 JONe+253% 
TY 
T2 
T3 
19D 
ARRAY SEGO2496(*),SKEL2427(%*]3 
SFG0 
SKFEL 
REAL T24+2B8eACCESS2+295% 
1 
ACCESS 
RBOOLFAN COMPG0=4+303 
COMPGO 


LABEL Px x905= 


LABEL CRoLPeMTe CLOSED» DKeSPeCPeBKUPsPPoPReDCeCDeCCi 
SWITCH SWeCR ALP oMT CLOSED DK sSPeCPeBKUPsPPePReDC oCD »BKUPS 
LABEL FOF eON-DNEsCLEANUPZY 
LABEL EODS 
SUBROUTINE COOLOFFS& 
REGIN FOR [+0 STEP 1 UNTIL NBUFS@1 DOB 
BEGIN TF NOT MPALPHA+I], C1981) THEN 
SLEEPCEMCALPHA+I J] 510MASK)3% 
tF KIND#4 THEN 


38649000 


38650000 


38651000 
38652000 


38653000 


38654000 
38655000 


38655100 


38656000 


38657000 


38658000 


38659000 


38660000 
38661000 
38662000 
38663000 
38664000 
38665000 
38666000 
38667000 
38668000 
38669000 


T 0000:0 
ADDRESS »& 
T 0000:0 
T 0000:0 
T 000010 
rf 0000:0 
T 000030 
T 0000:0 
T 000010 
T 000030 
T 000030 
T 0000:0 
T 0000:0 
T 0000:0 
P 000030 
YT 0000:0 
T 0000:0 
T 0000:0 
Y 0000:0 
T 0000:0 
YT 0001:0 
T 000581 
T 000782 
T 001082 


00952 


FOF 


CRs 


DNE 3 


TF MEALPHA+13,0C2781) THEN GO TO FOF3X 
ENDS 


END COOLOFFS¢ 


DEFINE REWECODE,( 4734) #,3 
REL=CODE,(46!4)#,% 
TIMESCONE. (4521) 86% 
LOCK@NOT CODE, £64at1)#>% 
PURGESNOT CODF.C432811#33 
SUBROUTINE EMPTYs2% 
If FIBCI7I<BLEN AND ¢STaTe.£46!2740 OR KIND=1) THEN 
BEGIN IF NOT COBOL THEN FIBLI7IJ¢FIBCI7J@CSTATE,£46%2]23)38¢% 
STRFAMCKIND NtaFIBCY7) oN &$eMCALPHA),[CFI))3 
BEGIN SJeLOC KIND$ Sit«Sy, 473% 
IF SCe"2" THEN DSeLIT "e™ ELSES 
TF SCs"5" THEN DSeLIT "oe" ELSE NCDS*+8 LIT * %)3% 
END3% 


PCWAITIOCFIBE16)8¢BLEN@FIBCL7IXCKIND@2) (813881018 
©@40,U»DELISS 
FIBC6J]eF 1BL6)413 
END FLSE COOLOFFS3 


LABEL CLOSEOUTS2 
LaBEL FOFYTSSY 
PeRCWeMSCWeSTFIS 
RCWtaRCWRPCXCHIECTC)3 
GO TO SWEKINDI3 
COOLOFFS BLASTQ(U)3% 
te T2NBUFS THEN DO UNTIL WAITIOCMECALPHA?2)2@40,U)#0 ELSES 
BEGIN YeMPALPHA4I1,.(033215 33% 
TeFIBL16),£338151=23% 
FOR Jey STEP 1 UNTIL NBUFS DOK 
BEGIN TF CI>T) AND CISCT+BLEN+1)) THEN GO ONSY 
TeMET1,018395)"23% 
END3% 


ONS MOVE C100 T+2+MCALPHA@2) 13% 
END?&% 


IF JAREPIMIX201¢0 THENS 
Te PRTCP1IMIX-@25]40 THENS 
BEGIN STREAMCT:® Fe"ENDPACK™s DeMLALPHA"2))8&% 
REGIN Syeps% 
Li SyeSyt+13 IF Sc" * THEN GO TO L3% 
N1eLOC Es Drepiels 
1F 3 SCepC THEN TALLYel3 


$ SET OMIT = NOTCPACKETS) 


1F TOGGLE THEN ELSE 
BEGIN SteSf-33 IF 4 SC#pC THEN TALLY«13 ENDS 


$ POP oMIT 


fe TALLYS% 
FNDS&% 


IF NOT P THEN® 


38670000 
38671000 


38672000 


38674000 
38675000 
38676000 
38677000 
38678000 
38680000 
38681000 
38682000 
38683000 
38684000 
38685000 
38666000 
38687000 


38666000 
38689000 
38690000 
38691000 


38692000 
38693000 
38695000 
38696000 
38697000 
38699000 
38700000 
38701000 
38702000 
38703000 
38704000 
38705000 
38706000 


38707000 
38708000 


38709000 
386710000 
38711000 
38712000 
38713000 
38744000 
38745000 
387715099 
38715100 
38715200 


38745201 
38716000 
38717000 


38718000 


as 


De ee 
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~ 


eo 
ou 
oe 22 
yp 


38667000 
001530 
38666000 
0015%1 
0015%1 
001581 
0015!4 
0015%1 
001541 
001640 
0019382 
002410 
0026!3 
002734 
002832 
003143 
38684000 
003210 
003413 
00362 
0038%2 
38682000 
O040t1 
004074 
004024 
004210 
0043!4 
0050t3 
005233 
0057:2 
00602 
00622 


006480 


0067%2 
007010 
38704000 
007211 
0075!2 
38701000 
0075%2 
007730 
007980 
008211 
008212 
008332 
008430 
006413 
008413 
008534 
38735200 
008651 
0066!4 
008632 
38732000 
008633 


ccrz: 


BEGIN RLASTQC(U)3% 
NO UNTIL WATT yOCMPALPHA&2}e@40eU) #03 % 
G0 TO DNESS 

ENDSS 


END3& 
RLAST@CU)3 


MeMrpALPHA™2J) JINX NOT 3)°569%6)3203 
LABFLTABLETUJe"@145 
RNCTABLECUJ«03 
1F 32SU AND US63 THEN PSFUDOCOPY+PSEUDOCOPY 413 
TNDEPENDENTRUNNERCPC, .CONTROLCARD) e (MLALPHA"2),(CF1)& 


$ SET OMIT = NOTCDATACOM AND RJE ) 


CPs 


LP 3 


SP 3 


MTs 


UC2th2t6J&JARCPIMIXsGICesitids 


192)3 

60 CLOSEOUTS 
EMPTY3% 
TF NOT UNLABFLED THEN PCWAITIOCMLALPHA"219091)) DELS 
SE TNOTINUSECU+FORMS OR PUNCHLCK)3 
GO CLOSFOUTSS 
EMPTY3& . 
If SFPARATE THEN PCWATT10¢@4000100000,0,U) »DFL) 

FLSE PCWALT10¢@4002000000,0,U) eDEL)3 
TF NOT UNLABELED THEN PEWALTIOCMCALPHA@23»0,U) eDEL IEE 
IF NOT SEPARATE THEN PCWATTI0¢@4000100000.05U),DEL)3 
SFETNOTINUSECU>FORMS)3 
GO CLOSEOUT; 
IF STATE.£4321) THEN COOLOFF FLSE EMPTY3% 
GO CLOSEOUTS’ 
Ip NOT STATE. £41841] THEN? 
BFGIN IF STATE ¢£43%1] THEN® 

REGIN COOLOFFS BLaASTQCUD#% 

1F NOT REW THEN 

BEGIN T+810000001 q400000058STATEL22¢4431)3% 

IF T2ZNBUFS THEN DO UNTIL WAITIOCT»@377,U),64294 93 

IF NOT UNLABELED THEN 
PCWAITIOC T+ @377sU) os DELS 
ENDS SY 


FND ELSES 


BEGIN FMPTY;3 
FOFIT! T+®1737000000000000;% 
PCWAITIOCLT1»@40eU) »DELI 32 
IF NOT UNLABELED THEN®’ 
BEGINS STREAMCBCOFIB66] eRCoF TBI 7} eDeMrALPHA?2))3% 
BEGIN St*LOC BCS DyoD14403% 
DS«5 DECS DSe7 DECI 
END3% 


PCWAITIOCMELALPHA™"2]2@400eU)+DELI5% 
PCWAITIOCLT) +@40eU) eDELDFS 
T¢@10000003400000053% 
PCWAITIOCTs@40eU) »sPELd3% 

ENND3% 


%150° 
%150« 


21506 


38749000 
38790000 
38721000 
38722000 


38723000 


38724000 
38725000 
36726000 
38730000 
38731000 
38732000 
38732100 
38732199 
38732300 
38732400 
38733000 
38735000 
38736000 
38737000 
38738000 
38740000 
368741000 
38741100 
38742000 
38742100 
38743000 
38744000 
38746000 
38747000 
38749000 
38750000 
38751000 
38752000 
38753000 
38754000 
38754100 
38755000 
38756000 


38757000 


38758000 
38759000 
38760000 
38761000 
38762000 
38763000 
38764000 
38765000 


38766000 
38767000 
38768000 
38769000 
38770000 


+4 +4 1 


AA HAHAH HHH HHO OO Ve HAHAH HH st 


~ 


AAA HHH 


4~Aa44-4 


008730 
008831 
009433 
009420 
38719000 
009430 
38711000 
009430 
009433 
009413 
009933 
010151 
010282 
010630 
0106#2 
010832 
O14181 
011193 
O112%1 
011320 
011633 
011833 
O11934 
012010 
012243 
012612 
043081 
0133%1 
0143431 
013730 
014130 
O144t2 
014232 
014333 
014533 
0146%3 
044930 
0152!%2 
045370 
015530 
38753000 
015810 
38751000 
015510 
0156:0 
0158%3 
016081 
016033 
0164%4 
0164%3 
0165841 
38763000 
01652 
016831 
016933 
017072 
017230 


PX3 


PPi3 


PRt3 


cde: 


FOD: 


FNS % 
END FLSFS 


IF FIRF18),CIS1TITHEN BEGIN FIBCIBlelLitileFIBL16)]«0;3 
FIBL10).03%151]%=03 GO FOFIT ENDS 


te REW THENG 

BEGIN PCWAITLOCO@4200000000SBA77 so HEL) 32 
STATE. C4021)¢03% 

ENN ELSE STATE. C4SO'1JeNOT STATE, C4401 33 


IF REL THENS 

BrGIN SFETNOTINUSECUSO)3 
STATE, £412 2]¢13% 

END ELSE STATE.C41#2) «23% 


Ip LOCK THENS 

BEGIN SETNOTINUSECUl1)3 
STATE, C4182] e132 

END? % 


Ip U LSS 16 THEN 

IF PURGE THEN2 

BEGIN IF PRNTARLELUI<O THEN’ 
BEGIN RDCTABLECUy, (8263403 
INDEPENDENTRUNNERCPC ePURGEIT) »® Us 64) 
END 


ELSE SETNOTINUSE¢(U,0)3 
STATE CAL 2seiss 
ENDS % 


GO TO CLEANUP32% 
te NOT STATE. C4121] THEN? 
BEGIN EMPTY PeWAIT10(@2004500000000,840,U),DEL) ENDIS 


GO TO PX: 
IF NOT STATE. C41!1] THEN BEGIN COOLOFFS BLASTQ(U) ENDs% 


IF REW THEN PCWALTI0¢@1034000000003775.U) »DELI3% 
GO TO PX3% 


%538= 
5538" 


TE MrALPHAI, £2721) THEN MOVE C{OsF I1B(16),f33815)eMfALPHA"2]) ELSE 


DO UNTIL READEMFROMDISKCCIOROWLU"32] >MCLALPHA™2))3 


$ SET OMIT = PACKETS 


Tp JARPPIMIX,07€0 ANN PRTGPiM1Xs247#40 OR JARCPIM1X01)<0 THEN 


BF 


GIN 
$ SET OMIT = NOTCPACKETS) 


PACKETERReUt32)2=TRUES 
TF CIOTABLELU"3263) LEQ CIDTABLECU#32,7) THEN 


$ POP OMYT 


BEGIN STREAMCEe"ENDWAITM! Qe®445 DeMCALPHA™2))3 


REGIN SreLOc Qs SreSr+73 IF SC#NC THEN Dlepreis QeDdrs Syeds 


Le TF SC=" " THEN BEGIN SleSr4+i13 GO TO L ENDS 


38771000 
38772000 


38773000 
38773100 


38774000 
38775000 
38776000 
38777000 


38778000 
38779000 
38780000 
38781000 


38782000 
38783000 
38784000 
38785000 


38786000 
38787000 
38788000 
38788500 
38789000 
38789050 


38789100 
38790000 
38791000 


38792000 
38794000 
38795000 


38796000 
38798000 


38799000 
38800000 
38802000 
38803000 
38804000 
38804999 
38806000 
38806050 
38806099 
38806200 
38806300 
38806301 
388607000 
38608000 
38809000 


Se ee 


444 


aAHH OHO AHH 


4-4-4 


ee 


38762000 
017260 
38758000 
0172:0 
38750000 
017230 
0180!0 
38773000 
0183:0 
018353 
048543 
0187%2 
38775000 
019482 
019231 
049393 
019582 
38779000 
019733 
019833 
0200:1 
020230 
38763000 
0202:0 
0202:3 
020424 
0205:3 
020833 
020933 
38788500 
021040 
021182 
02131 
36786000 
021331 
021333 
021510 
38795000 
0218%2 
0220:0 
38798000 
022383 
022632 
022810 
022810 
0233:2 
0237%2 
023782 
O242te2 
024340 
024330 
0246:0 
O2K9814 
024921 
025282 
025484 
38809000 


Dr*+LOC Fs Dreni+is IF 3 Sc#pDC THEN TALLYe33 
$ SET OMyT = NOTCPACKETS) 

1f TOGGLE THEN 

REGIN SIleSt-33 IF 4 SC#DC THEN TALLY«O; ENDS 


$ POP MIT 
be TALLY3 

END; 

IF P THEN GO TO EOD3 
FND3 
ENDS 
Kr Nne03 
GO TO CC 


CLOSFOUTS: STATES 392Alels TyMped 3% 
CLEANUP!:! CLOSED! nk? BKUP: Det 

PcPRRCWECTCIS»OsRDS»OsxXCHeP&PECTF J eSTF)3 
END OTHER cCLOSF3 


38830000 
38810099 
38810100 
38840200 


38810201 
38810500 
38841000 


38812000 
38813000 


38813100 


38814000 
38815000 
38817000 
38818000 
38819000 
38820000 


4-4 


41 tt 


025551 
025682 
0256%2 
025683 
38810200 
025713 
025713 
0258:0 
36808000 
025831 
025930 
36807000 
025910 
38806050 
0259:0 
025933 
026210 
0265t2 
0266:0 
026832 
38649000 


S1Ze= 0269 WORDS 


PROCEDURE FILEOPENCXTRAsALPHAY3 


39000000 


START OF REL SEGMENT? DISK 


VALHE ALPHAsXTRAs INTEGER ALPHAsXTRA3 
BEGIN RFAL RCWH403¢ 


STACK¢F 40) » RCW 


PR1T(362) « 
STACK ¢Fe1) 


STACK ¢Fe4) 
STACK ¢F=6) 


STACKeFe2) 
STACK (CF 43) 
STACKCF 44) 
STACK¢F 45) 
STACK ¢F 46) 
STACK¢(F 47) 
STACK¢F 410) 
STACKeF eli) 


STACK ¢F 412) 
STACK ¢F 413) 
STACK¢F 414) 
STACK (F415) 
STACK(F 416) 
STACK¢(F 417) 
STACK¢(F 420) 


STACK ¢F 421) 
STACK EF 422) 
STACK ¢F 423) 
STACK (F424) 


STACK¢F 425) 
STACK ¢ F426) 
STACK ¢F427) 
STACK ¢F 430) 
STACK ¢ F431) 


STACK ¢F 432) 
STACK (F433) 


STACK ¢F 434) 
STACK ¢F 435) 


RFAL TOMRTOMASKs YTOMASK3 


10M 


8:u 


TOMASK 
REAL XTRARE*4,XTRACBHES 
XTRAR 
XTRAC 
INTEGER NBUFS,FNUMPRLENe TYPE ®TOsBLENsUsKIND» 
NBUFS 
FNUM 
RLEN 
TYPE 
10 
BLEN 
) 


KTNO 
“hee MONE ,NTREC FORMS» COBOL » UNLABELED ,OPTIONAL »sCNTICTLI 
) 
DIREC 
FORMS 
COBOL 
UNLABELED 
OPTIONAL 
CNTCTL 
REAL TieT2eMASKsSTATES 


RFAL MFIDsFINs INTEGER REFLSCHATE CYCLES SKEEP THESE TOGETHER 


ARRAY FIBr*¥],FPBE*18¢% 
INTEGER ACCESS» FIB7) 


LABEL DCTtN» PBS! 

LABEL 0C493 

LABEL OKRN»® SPN» DKSNeDKUN*? DKPNSADCNS 

SWITCH INSWeDKRNeSPNeDKSNeoDKUNZDCINSG 

LABEL LOOK sEXYTsLOOKOUT ALPS» FINALINs FINALOUTsSPDC3% 

RFAL SUBROUTINE DSED3 DSEDNS sTERMSETCPIMIX)3 

REAL SUBROUTINE CNTILBITS3& 

CNTLBITS+1OMASKAMODELZIIEA47I1L IRD ERECT 2284784 &CNT CTL 2314784) 

RIOLA4t4721LRLCKINDa? OR KIND>9 AND KINDS12)(208471314) 
QCIF KINDs1OR KIND@70R KINDRL2THEN@2OELSE ODT 2T8A286)3 

SUBROUTING MAKELODS3s 

BFGIN FIBI16)¢TLleC CBLEN@=1)xXDIREC+MC ALPHA) &CNTILBITS(16#18:15 9% 


39000100 
39001000 


39001100 


39001200 


39002000 


39003000 


39004000 


39004100 


39005000 


39006000 


39006100 
39006800 
39007000 
39008000 
39009000 
39009050 
39026000 
39027000 
39028000 
39029000 
39031000 
39032000 


T 000010 
ADDRESS s 
T 000030 
T 0000:0 
T 000030. 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
T 0000:0 
rT 000010 
T 0000:0 
T 0003:0 
T 0003:0 
T 0005:2 
T 0010:0 
T 0015:0 
7 0017:0 


00961 


STACK¢F 436) = HEADER 
STACK(F437) = T0G 


QCIF BLENS1023 THEN BLEN ELSE 1023)(8338350)32% 
STYINUCIF CKyNDe? OR KIND#®412) THEN ITF TYPE<20 
THEN 20 ELSE 22 ELSE 
IF KINDe11 THEN 23 ELSE UJ(38385] OR M3 
FIBFIIIeCIF STATE, £46%2380 THEN (pYREC INX T1)8 
&C2xD REC+CBLEN71023)419£324395) FLSES 
IF STATE, £€4682)31 THEN CCNOT RLEN INX 2)*DIREC INX T1) 
RRLENG 8s 388, ORC 3IXDTREC+2)6324325) FLSES 
CIsDIREC INK TLI&RLENEB238210J&(CDIREC+6)(324385))% 
RrOc251471473% 
IF NOT ¢1O OR COBOL) THENS 
TICFIBCUPIRTAC 33385 ROC |5¢ 25017188 
FIBrLOJV.C Iti SJeMC ALPHAJ=23 SHEAO OF BUFFER RING 
T2oT1L, C3321 5I"*MLALPHAIIX 
FOR MASKeO STEP 1 UNTIL NBUFS#4 nog 
BEGIN ZP 
MLALPHA+MASK JeFLAGCCPCDUPeLOD +T2)&PCT1sXCHIL33233945)92% 
END3& 


END MAKETONS$2 


LABEL DKRO+SPOeDKSUsHKUOspKPO,DCO3 
SWITCH OUTSWeDKRO,s SPOeDKSOrDKUOPDCOSS 
LABEL FIXFIBsFINDs SPACERS 

LABFEI, PREF INAL»OK1°% 

ARRAY HEANERE ¥1ES% 


Re Al TOGS 


LaBEL AGN3 
FrBeMCALPHA@341% FPRBePRT¢PiMIX,3)33% 
TOMASK Pax lOM$ 
NRUFSeFIBr1i3d,C19973 FNUMeFIB64),Ci3%y133 BLEN*F1BL181,03915)3% 
TYPEeFPBFFNUM4+3),(6433515% 
STREAMCS ¢ CFPBCFNUM42)}0 D « CREELII33 
BEGIN SflssaSsDSt*eZ0CTIOSt eSOCTIOS? OCT ENDIS 


PCCDATE» RSBe ,CDATEre)3 
ff FPROFNUM4+4370 THEN RFEL © CDATE « CYCLE «+ O03 
MODFeFIBI13).,07948173 LOeFIBl013),.C27819% RLEN*FIB618),63384573% 
DIREC#FIBF13],£2581)3 FORMS*FPBCFNUM43),64251)3% 
STATE*FIBF5]3 UNLABELED*FIB(4]1,(291)3 
MEFIDeFPBEFNUM]3 FIDeFPBrFNUM41)3 OPTIONALeFIB(4),C581338 
COBOLe¢CFIBLCI3] AND 198¢7F1B1),79810]822)(184731]3 %& COBOL 60 & 68 
KINDeFIBC4),C8t4ys IF F1BL133.628210)40 THEN REFL@F180131,6728810)3 
TF COBOL?>O OR FyBr4),¢721) THEN Z COBOL 60 OR SORT 
MrFIB INX NOT 13.386) 2 
ELSE MEALPHA#7),(3%6Je¢2; 


$ SET OMIT = NOTCDATACOM AND RJE ) 


Ir TYPES19 THEN GO TO DC19 ELSE 

Ip TYPE®26 THEN GO TO DKPN ELSE 

Ip TYPE>26 THEN GO TO DCN; 

Ip ¢TYPEeO AND NOT 10) OR TYPe GTR 20 THEN 
BrFGIN IF USEPBD 


$ SET OMyT = NOTC(HATACOM AND RYE ) 


THEN TYPE%e223 60 TO LOOKOUT3 
END? 


39033000 
39034000 
39034050 
39034100 
39035000 
39036000 
39037000 
39038000 
39039000 
39040000 
39041000 
39042000 
39042100 
39043000 
39044000 
39045000 
39046000 
39047000 


39048000 


39049000 
39050000 
39054000 
39055000 
39056000 


39056100 


39056500 
39083000 
39083100 
39084000 
39085000 
39086000 
39087000 


39087100 
39087500 
39088000 
39089000 
39090000 
39091000 
39091100 
39092000 
39092010 
39092020 
39092030 
39092039 
39092045 
39092050 
39092055 
39092060 
39092070 
39092074 
39092060 
39092090 


oe ee ee Re ee ee i ee ee en 


4 4aqanHaAw 4 


i ne | 


4A4 44 AHHH st 4) 


0021:0 
0023%2 
0026: 3 
002931 
0034:0 
003730 
0040:2 
004383 
004733 
005132 
005330 
005410 
0057:2 
006114 
006383 
0068:0 
0068:0 
007133 
39045000 
007231 
39032000 
0072°2 
0072:2 
0072:2 
0072:2 
0072:2 


0072:2 


007272 
007252 
0084:4 
0085:0 
0089%2 
009152 
0093: 4 
39087000 
009432 
009532 
009934 
010333 
O107t1 
010933 
011333 
041782 
0122!2 
012482 
012633 
0132%2 
013212 
013331 
013482 
013631 
013833 
013931 
013994 
014463 


Tr TYPEet! OR TYPE&4 OR ¢TYPE>14 AND TyP&<19) THEN 
BEGIN IF USEPBD 
$ SET OMYT ©& NOTCPATACOM AND RUE ) 
THEN TYPES &153 
S$ SET OMIT = NOTCPACKETS) 


IF CTLtePSFUDOMSXCPIMIXII#O THEN IF PACKETPAGECT1°32]#0 THEN Z107= 


IF FORMS THEN FPBrFNUM4+3)-C2381)!e1 ELSE 
TF NOT FPBEFNUM43},£2391)] THEN TYPES #153 


® SETS FREEF 


S$ POP omrT 
GO LOOKOUT 
ENDS 


Te REELSO THEN REFL«13 
le 10 THEN 
IF TYPF#6 AND TYPE¥20 THEN 
IF TYPE210 THEN GO TO INSWETYPE"40) ELSE GO LOOK 
FLSF GO TO DCN3 
Te TYPE2!0 AND TYPE#¢20 THEN GO TO OUTSWETYPE@#10) ELSE GO LOOKOUT? 
LOOKS YF yO THEN OTPERFILEOPENIN( 1) ELSE OTHERFILEOPENOUT(1)3 
tr U LSS O THEN GO TO EXIT ELSE GO TO PREFINAL? 
DCN? FrLEMESSC@"1/0 ERR®,OsMFIDsFIDsREELSCDATE sCYCLED3% 
GFTIBUFFERS(CBLENsNBUFS»s Us ALPHA) 3% 
PREF INA! 22 MAKETONS#&% 
IF KIND®11 THEN 
BEGIN IF COBOL < OG THEN % ALGOL OR COBOL68 
IF REANDEMFROMDISK(CIDROWLU=32] eMC ALPHAJ) THEN 
MCALPHAJ«PCOUPeLONIROLAt2r1 Ia L2a7sa73143 
END FLSE 


FILLRUFFERSCF IRE 16) +FIBL19] *COBOL>NBUFS)3 
Ie COROL>O THEN FIBC16)eCePCDUP))&MCALPHAIJICTCI3 
FINALING 3 FIBC461 « FIBL7)] « FYBE1i71 «© OF GO TO FIXFIB3 
LOOKOUT:2 TF JO THEN OTHERFILFOPENINCO) ELSE OTHERFILEOPENOUTCO)S 
1F U LSS O THEN GO TO EXTT ELSE GO TO FIND? 
FINALOUTS: IF NOT FIBL18),.£1811 THEN GETRUFFERSCBLEN»NBUFS» Us ALPHA DS% 
FIND: MAKE LODS?% 
FIRP6JeFIRI71¢03% 
FIRFI7)+IF COBOL THEN FIBC16),C3%153)ELSE FIBL18),0i18t15)3% 
IF KIND = 10 THEN 
FOR T2 « 0 STEP 1 UNTIL CNBUFS#1) DO 
P¢@1 70000000000, MrALPHA+T2I]a¢)3 
Te KYNN®13 THEN 
MCALPHA+1L Je PCOUPsLODI&SPCDUPsLNGI( 24282414 ]3 
GO TO FIXFIBIS 
DCN: Y2:s30? KIND? =103 
$ SET OMIT = NOTCNATACOM AND RYJE ) 
GO TO SPDCc3 
pcg: 
OTWERFILEOPENING2)3 
£ SFT OMIT = NOTCNATACOM AND DCSPO ) 
60 SPNC3 
SPQ383: MONEe OF Ue 253 KINDe® 53 
SPoc? chTcTLepIRECeO$ UNLARELE De 13 
STARTIMINGCFNUM,U)F2 
GO TO FINALOUTS% 
SPN? U.253 KIND*S;3 


39092100 
39092150 
39092154 
39092160 
39092164 
39092165 
39092170 
39092175 
39092180 
39092185 
39092190 


39092200 
39092500 
39093000 
39093500 
39094000 
39094500 
39095000 
39096000 
39443000 
39144000 
39445000 
39145100 
39145200 
39145210 
39145300 
39145400 


39146000 
39147000 
39448000 
39155000 
391456000 
39230000 
39231000 
39232000 
39233000 
39233100 
39233200 
39233300 
39233400 
39233500 
39234000 
39235000 
39235099 
39235200 
39236000 
39236100 
39236154 
39236160 
39236900 
39237000 
39238000 
39239000 
39240000 


ttt et ot 


st mt mt mt et st os st st st 


em a at at tt 


39092070 
014133 
014582 
014630 
014680 
014830 
0148:0 
015210 
015641 
015983 
045933 
016091 

39092150 
016001 
0162%1 
016232 
046493 
0170382 
017012 
047633 
0179382 
0181431 
0464:0 
018532 
018710 
018783 
018930 
0192:0 
019631 

39145200 
019631 
020010 
0204:0 
0207383 
023083 
021232 
021634 
021710 
021981 
02232 
022431 
022910 
0233:0 
0233:3 
023733 
0238:1 
023923 
0239%3 
024031 
O24gs)s 
024110 
0241380 
024132 
O2d4ty 
O24634 
O24734 
0247°3 


OKRNGS 


DKUOs3 
DKUNS 3: 


NDKPNS$ 


$ SET 
$ SET 


$ POP 
OKSN33 
nkys 


DCYNS 


FIXFIA 


FXIT3: 


END FI 


MODE *CNTCTLeNIREC*#03 UNLARELEDe 13% 
STARTIMINGCFENIIMe UD 3% 
Ip BLEN<10 THEN BLENe1 03% 
GFTRUFFFRS¢(BLEN+NRUFS»U,ALPHA)?% 
MAKE TODSs& 
GO TO FINALING® 
nmKROS ACCESSt=143 

GO TO pK1i3 

1Ores.3 

ACCESS!=2} 

GO TO DKt1 
nKPO? 
OMTtTT = NOT SHAREDISK 


OMIT = SHARFHISK 
GO TO DCN: 

OMTT 

NKSOt ACCESS «03 


DISKFLLFOPEN(CO); 
IF TOR THEN GO TO FXITS 
GO TO FIXFYR3 
H Ue303 KIND 103 
CNTCTLeDIRECeO3 UNLABELFNe13 
STARTIMINGCFNUMSU)3 
GETRBUFFERSCBLEN»sNBUFSsUsALPHA)3 
TOMASK$=03 MAKEFIODS; 
vt FI8rf4).c2t1}J*UNLABELEDS ¢ 
FIBC4S) .CA8t4) “KINDS 
FIBF1i5),([24:6J«U3 
FIRGF13),C28¢10)+REELIS 
FPB+PRTCPIMIXe3)} 
FPRAFFNUM43),C43°5)«¢TYPES 
STREAMCREEL sD tel FPBLFNUM4+2)))3 
BEGIN Dy tsOsS]tslLoc REELSDS%23DEC END 


ROCTABLE(U],[C8:6)]+P{MIX3% 

IF FIBri8),¢1%1) THEN’ 

BEGIN FIB(16]«03% 
FIBCSI*STATF&BL3914216)5% 
FIBC19),(3215)¢03 

FNM ELSES 


FIBIFSJ.PCFISSTATERNIRECCS4S2 47 bi lerOc3IeassS Jeri Brs](assasei dy 
TF COBOL>0 OR ¢1Br4j},.0781] THEN MEFIB INX NOT 1),£3261] « 6 


ELSE MCALPHA"7).(3!6) 643% 
FIRS), ca7t3a)eaccrSs3% 
IF U<16 THEN ITF KrNn#? THEN FPBCFNUM43),C23%11)%3103 
IF (UeTie¢FIB£10),¢38153)40 THEN 
NO BEGIN IF KIND#10 THEN MCUPL 608 SFAKE QUEVE 
MCUe2),(0386)¢©3 END UNTIL CUOMLUIECFFI*2) #113 


z 
Ip XTRA THEN 
XTRACtaNOTCFIBE64),07831) OR UNLABELED) AND XTRAC NEQ 2? 
te XTRA LSS 2 THEN GO TO INITIATES 
RcoWisXTRAR3 
LFOPFN;S 


39241000 
39242000 
39243000 
39244000 
39245000 
39246000 
39247000 
39248000 
39249000 
392950000 
39251000 
39252000 
39252999 
39254999 
39255000 
39255001 
39256000 
39257000 
39258000 
39259000 
39293100 
39993200 
39293300 
39293400 
392935800 
39294000 
39295000 
39296000 
39297000 
39297040 
39297020 
39297100 
39297200 


39298000 
39299000 
39300000 
39301000 
39301100 
39302000 


39303000 
39304000 
39305000 
39306000 
39306010 
39306100 
39306200 
39306300 


39307000 
39307100 
39307200 
39307300 
39307400 
39308000 


AAA AW TH HIS 


4qa4a 4-444 


AM HMM HH AHHH A A st st ss Ht 


O249t2 
0252:0 
0253:0 
0255:0 
025632 
0258:!0 
0258:t2 
025933 
026034 
026133 
026233 
0263!4 
026430 
026410 
026410 
026412 
026482 
0265!3 
026632 
0267!2 
0268:0 
026912 
0271:2 
0272%2 
027630 
027610 
027832 
028110 
0283%2 
0286!0 
028712 
029032 
0292N1 
39297200 
029331 
029513 
029613 
029832 
0300:3 
03031 
39300000 
030381 
030712 
O313%1 
031930 
032132 
032710 
032972 
O333t1 
39306200 
0340180 
034070 
034011 
034410 
0345t3 
0346t2 
39001000 


SIZEm 0347 WORDS 


STACK¢F 41) 
STACK¢F 42) 


STACK(F 43) 
STACK ¢F 44) 
STACK(F +5) 


PROCEDURE SUSTATUS¢AsDDN»B)3 


= RT4 


VALUE AsNDDeBs$ REAL AeBs ARRAY NODE 
START 


REGIN REAL RT14913 


ARRAY DL*¥]eZSFrL*¥T,VANARL¥*I3 


SUBROUTINE SPOUTTTNOWS 
BEGIN 
STREAMCX#SCTINUPB J)» De EUNUMS20, SUts0, ft» RTI) 
BEGIN Syt=Xs SyeeSt+53 
NStaLlT s HStaz CHRS SyptadD3 
1OCIF Sc#"0" THEN 
BEGIN Xt=S]3 FUNUMPaTALLY3 
SIszL0C EUNUMS OSts 3 LIT* FUNS DSteNEc3 
OSs:#qg LIT® SU "3 TALLY2=0} 
SCSUssTALLY3 SyrteXs SKIP SB$ SKIP SU SB3 
1F SB THEN 
BEGIN Stt=#L0Oc Sus 
DStzNECs OStaLIT%e 3 
FND3 


TALLY t= TALLY41)3 
S}:=Xs TALLY#2E UNUM 
ENDS 


TALLY SSTALLY413 SI taSy41)3 
ST@sLOc 1s SyteSr4+73 DL teDy-13 
tF Sc#*O"™ THEN 
BEGIN DS#25 LIT™ WENT™$ 
IF SCa"2" THEN DSts4 LyYT"™ NOT"$S 
FND ELSE DSt=x4 LIT" ARE"; 


OStsB LIT" READY 3 
END} 


SPOUT CRT1)3 
FND OF SPOUT, TNOW: 


SUBROUTINE NOYLT? 
BFGIN 
IF NOT CZSFCO] OR ZSFr1).0C1811)) # NOT O THEN 
BEGIN B:=183 pHt=ZSF3 
RTLt*sSPace¢e20)3 
SPOUTITNOWS 
END3 


IF NOT (ZSFC2) OR ZSFe3),01811]) # NOT O THEN 
BEGIN B23193 Dte(ZSF(2]73 

RTit=SPACE¢20)3 

SPOUTITNOWS 
FND$ 


FND OF DOYTTs 


3 
OF R 


39900000 


EL SEGMENTS DSK 


39901000 


39902000 


39903000 
39904000 
39905000 
39906000 
39907000 
39908000 
39909000 
39910000 
39911000 
39912000 
39913000 
39914000 
39915000 
39916000 


39917000 
39918000 
39919000 


39920000 
39921000 
39922000 
39923000 
39924000 
39925000 


39926000 
399297000 


39928000 
39929000 


39929100 
39930000 
39931000 
39932000 
39933000 
39934000 
39935000 
39936000 


39937000 
39938000 
39939000 
39940000 
39941000 


39942000 


T 


0000:0 


ADORESS = 00973 


T 


T 


At HHH 


440 tO te 


| 


a4 444 


~ 


000070 


000030 


000010 
000430 
000110 
000312 
000410 
000570 
000533 
0006!1 
0007!2 
0008!2 
001030 
0010#2 
001033 
001132 
39914000 
001182 
001230 
001330 
39909000 
001330 
0013123 
001412 
0015:0 
001630 
001731 
39923000 
004834 
001982 
39906000 
001933 
002110 
39904000 
002191 
002181 
002210 
002210 
002433 
002730 
0029t4 
003030 
39933000 
003080 
003233 
003510 
003781 
003810 
39938000 
003810 


x 


$ 


$ 


$ 


$ 


START OF CONE 


1F B#0 THEN 
BFGIN Dee MULTITARLES16)3&82£8:38810)3 


SFT oMIT =& 


POP OMIT 


RT1teA3 
DF X 
IF B THEN D&s2 Nx D3 


Tf NOT CIF B THEN PCRRR), C2601) FLSE PCRRR),[29t1}) 


SET OMIT = DFX 


OR NOT COCO] OR OCLI,£15111) = NOT O 


POP QMrT 
THEN 
BEGIN STREAMCX8sC€TINUrBIJ]» RT1)3 
REGIN Szytezxs SPseS14+53 
OSi:alyT* "3 DSt33 CHR 
OStmid LIT™ NOT READYe"3 
FND3 
SPOUTCRT1)3 
END FLSE SPOUTYTNOWS 
FN ELSE 


RFGIN ZSF&sCMCSPACE(C4))J&847883899033 


ENDS 


END; 


VAMARt=¢ MULTI TABLE L161)&4(8138210)3 

DISKWAITTC*As=30,01TRECTORYTOP)3 

FOR y:20 STEP 14 UNTIL 3 DO 
ZSFCTIt=VANARCIIJ AND NOT DDDL234+133 

Ti=t3 NO IT3 

FOR 7t20 STEP 1 UNTIL 3 DO 

REGIN ZSFL1]:=NOT VADAREI] AND DDONL23+1)3 
DNDC 2341) 8 mVADARSII3 

ENDS 


NYSKWATTCAr=30eDTRECTORYTOP)S 
T:=23 DOT? 
FORGE TSPACECZSF)3 


39942900 
39942940 
39942920 
39943000 
39944000 
39945000 
39945999 
39946000 
39946001 
39947000 
39947999 
39948000 
39948001 
39949000 
39950000 
39951000 
39952000 
39953000 
39954000 


39955000 
39956000 


39957000 


39958000 
39959000 
39960000 
39961000 
39962000 
39963000 
39964000 
39965000 
39966000 
39967000 


39968000 
39969000 
39970000 
39971000 


39972000 


39931000 
003841 
003611 
003611 
003811 
004110 
004312 
004401 
00448) 
004682 
004612 
O0aA9t1 
004911 
005182 
005112 
0052t2 
0054! 
0054%3 
0055%2 
OOS7#1 

39951000 
0057%2 
0058:3 | 

39950000 
006030 

39944000 
0060:0 
0064191 
006691 
006810 
006910 
007431 
007610 
007730 
008070 
0082580 

39965000 
O084t1 
0085143 
006810 
008910 

39958000 
008930 

39991000 
S$1Ze= 0090 WORDS 


AAA NMN HHA 


41+ 


—_ 


4A ABH AHHH 


PRT(703) = 


STACK¢F 41) 
STACK ¢F42) 
STACK ¢F 43) 
STACK¢F 44) 
STACK ¢F 45°) 
STACK¢F +6) 
STACK¢(F 47) 
STACK ¢ F410) 
STACK (F411) 
STACK ¢F 412) 
STACK(F 413) 
STACK¢EF 414) 
STACK ¢F415) 


STACK¢ F416) 
STACK ¢F 417) 
STACK ¢F 420) 
STACK(F 421) 
STACK ¢F +22) 
STACK (F +23) 
STACK(F 424) 


STACK(F 425) 


STACK(CF 426) 
STACK (F427) 
STACK (F430) 


STACK¢F431) 
STACK¢F 432) 
STACK¢F 433) 
STACK(F 434) 
STACK(F 435) 
STACK(F 436) 
STACK (F437) 
STACK¢F 440) 
STACK¢F 441) 


STACK¢F 442) 
STACK¢F 443) 
STACK ¢F 444) 
STACK(F 445) 
STACK(F 446) 
STACK (F447) 
STACK(F 450) 
STACK (F451) 
STACK (F452) 
STACK¢F 453) 


STACK¢F 454) 


PROCEDURE NTRECTORYRUILDERCA,DND)3 


START OF REL SEGMENTS DISK 


NTRECTORYBUTLDER 


HM. 8 8 UA: 


Ce | ee | 


ac OON < 


VALUE A»DND} 
RFAL A3 
ARRAY NDOr*13 
BEGIN REAL YoZsBoColoJeT»RAsRLoRTIsRSINTEGER RADDeRLENS 


RA 
RL 
RT1 
R 
RAND 
RLEN 
REAL NEXTLINKs ADe Xe Ke SEVENZT» FORTYs FUSU3 R791 
NEXTLINK 
AQ 
x 
K 
SEVEN? 
FORTY 
EUSU 
ARRAY Sure} 
SU 
ARRAY HEAD *)]oKKE*]+PLE*I3 
HEAD 
KK 
PL 
REAL Wee SPADN eDISKTOP»,SUPERSEUMs,NT1sNT2eNT3,NTQS 
W 
ESPADD 
DISKTOP 
SUPER 
EM 
NT1 
NT2 
NT3 
NT4 
BOOLEAN UCHANGs ERRORS INTEGER LO,REM, TN» TMs MNSREAL X19X2eEUMASK?S 


FUMASK 
ARRAY ZSFre]eSOCK(#)3 
ZSF 


ADDRESS = 00976 


40000000 T 000080 
40001000 T 000080 
40002000 T 0000:0 
40003000 T 000030 
40004000 T 000030 
40004500 P 000010 
40005000 T 000010 
40005050 T 000010 
40005100 T 0000:0 
40005410 T 000010 
40005200 TFT 000040 


STACK( F455) 
STACK (F456) 
STACK¢(F 457) 
STACK ¢F 260) 


STACK¢( F461) 
STACK ¢F 462) 
STACK ¢F 463) 
STACK (F464) 
STACK (CF +63) 
STACK (F465) 


STACK(F 466) 
STACK(F 467) 


nn 4 a 


not 


untioa 


REAL DeY1eY23 


REAL AA,AAA? 


AAA 
LABFL FORGFT3 
ARRAY VE*¥,*]3 


INTEGER S3 
ARRAY VR=V[*]}3 


REAL HeFIsFJ3 


S$ SFT OMIT = NOT SHARENDISK 
LAREL LOOKATNKB,RACKsFXITeM1 » SKBLKe BYES 
NMEFINE ROW=SUCX),(3%4)#, 
LASTAVATLRHEAN(O1.,063115] #4» 
AVATLABLESHEADCOJ. CFF I#s 
FIRSTLINKSHEADLCOJ CCE I1#» 
DA=92D4#DACEII DUI Ouse, 
SIZFSPLE9),(OAJ#> 
ADNRESS=PLLO], CDA] #» 
HIGHLINKePL(O],(CFI#, 
LOWLINK@®PLOVI.CCRI#, 
NISKRUNNINGE(1634)4, 
FORTYMILLDISKEC19¢tij#, 
OCCUPTEN#(20:11#. 
AVI =4BO#,AVBLOCK#=1643 
SUBROUTYNE SAVIT? 
REGIN 
TF CWeW42)228 THEN 
REGIN ZSFL29]¢ESPADDIDISKWAITEZSF INX Or 300ESPADD+GETESPDISK)3 
We ENDSZSFEWIJeTSZSFEWS1 Je DDDF 4792x173 


END SAVYyTS 


SUBROUTINE CLEARS 
BEGIN VESe0]¢0; 
VeSet] « BYPASS CcF]3 
Vp Se2je@143 
VrSe3)eVrSed4ye03 
MOVECS7 so CV[Se2]]orV¥CS,5))95 
EnD3 


SUBROUTINE SETUPS 
BEGIN 
LOte¢X47) MOD SslOrelLO+ecbO0e0)x53 
IF ee NEQ CLO&sLOxFORTY) OR (LO#RADD AND RLEN LSS FORTY) THEN 
BEG?! 
1F YtscSUCX],£CFIS0) THEN 
BEGIN 


3MC 


EMC 


EMC 
xMC 
XMC 
3MC 
EMC 
SMC 
ZMC 
EMC 


SMC 


EMC 


eMC 


¥MC 


40005210 


40005220 


40005230 
40006000 


40006100 
40007000 


40007500 


40007990 
40008050 
40008100 
40008440 
40008120 
40008430 
40008440 
40008150 
40008160 
40008170 
40008180 
40008190 
40008200 
40008210 
40008220 
40008300 
40008310 
40008320 
40008330 
40008340 


40008350 


40009000 
40010000 
40011000 
40012000 
40013000 
40044000 
40015000 


40016000 
40016020 


- 40046025 


40016026 
40016100 
40016200 
40016220 


ieee ee ee ee 


_ 


Se ee Mee Bn Boe en ee 


000010 


000030 


000030 
0000!0 


0000:0 
000030 
000010 


000010 
0000380 
00000 
000030 
000030 
000030 
00000 
0000180 
000010 
0000230 
0000180 
0000:0 
000080 
0000:0 
000030 
0000:80 
000130 
0001:0 
000283 
OOO7T!1{ 
40008330 
00132%4 
40008310 
0012!2 
0013380 
0014%3 
001780 
0048383 
002210 
002510 
400;0000 
0025%4 
0026180 
002680 
003010 
003383 
QO034!1 
003641 


NTISeSUCX)2HeSPACECLIGIRSULCXIC1B818539)73 
MOVECLO®NTIS§oNT1 93 
END Ss 


MCSUCX] INX KJ]@RT1+SPACECOG+Y 3 
KKePMCRTIVIRC644YICB838310)3 JUNKe614Y3 
MOVE C644Y/RTIVMLORT4)3 
FOR Rsmax¥Y STEP 2 UNTIL JUNK pO KKERI8sRT14+R4+23 
HEAD CMPMCSULXIIIIR1£8238810)3 
IF Y THEN 
BEGIN 
KKCq]$eKK(2)8e2SEVEN73 
KK], COA] 9x03 
KKC2),f0A)telF X EQL O THEN FORTY@CDISKBOTTOM+5S) ELSE FORTYS3 
MESUFXII.£DAJ&eLO3 
HrADCOJS=RTL1413 
END: 


HEADLOJ CFF I]¢RT14+3x¥3 
HEADLO]. C3815) *#62+RT1+Y3 
ENN 


ELSE 
no 
BEGIN SULX],OCCUPIFO? =13 
RADN iS sRADD*FORTYS 
Xtzye 3 
FNND UNTYL CRLENSSRLEN@FORTY) LSS FORTY3 


ENN OF SETUP; 


SUBROUTINE BUYLDAVASLS 

BEGIN 

BACK F&F RROR|1SREMeQ} 

tF ¢Z8=SUcCX12#9 AND 7,°CF1s0 THEN 
BEGIN K2203 SETUPS GO BACK END? 


IF ¢Zt2SUfX}),DISKRUNNING AND NOT Z,OCCUPIED AND RLEN>O THEN 
BEGIN 
1F MCSULXIJ],C0A) GEQ RADD THEN 
REGIN 
PCMOMCSULX) 1] »O&RADD( 9824824) oLLLeOoINXeeADeee DEL) 
HEADe CMEMCSUCXIIII8 7823681073 PLe (MAN) 182782 38210)3 
IF CCRAP#ADDRESS)-C(RLI@SIZE) LSS RADD=RLEN OR 


SMC 


SMC 
ZMc 


aMc 
ZMC 


%MC 
gMc 


ZMc 
%MC 


%MC 


sMC 
BMC 


CREMtelFCNTLteRADD MOD FORTY)&0 THEN O ELSE NTi*RLEN) LSS 


OQ) AND RADD NEQ RA THEN 
BEGIN 
TF REM LSS O THEN RLEN#sRADD MOD FORTY3 
IF AVATLABLEsO0 THEN2NFED ANOTHER ROW 
BEGIN 
KeROWS KekK+ 4s ROW eK 3 
IF K GTR 15 THEN DO UNTIL FALSE3 
SETUPS 
END; 


NEXTLINKeMDLReAVATLABLE J} 
MPRI*AN&CRADD@RLENICDAC 3 


MC 


ZMC 
%MC 
ZMC 
¥MC 
ZMC 
ZMC 


XMC 
%MC 


40016240 
40016260 
40046300 


40016400 
40016410 
40016420 
40016500 
40016510 
40016600 
40016700 
40016800 
40016900 
40016910 
40016920 
40017050 
40017100 


40017200 
40017250 
40017260 


40017270 
40017275 
40017280 
40017285 
40017290 
40017295 


40017300 


40027100 
40027200 
40027230 
40027240 
40097245 


40027250 
40027260 
40027270 
40027280 
40027290 
40027295 
40039000 
40039100 
40039200 
40040000 
40040500 
40041000 
400462000 
40042100 
40043000 
40044000 
40045000 


40046000 
40047000 


Se oe ee ee ee ee ee 


—— ++ 


aAaAAaAa§- 


a 


Se ee Mee Nee Nee ee Bee eee ee | 


4 


003633 
OOaytt 
004311 
40016220 
004351 
004830 
005230 
005482 
006112 
006433 
006530 
006542 
006733 
oo7081 
007583 
007833 
008012 
40016700 
o080t2 
008382 
008710 
40016100 
008710 
008730 
008712 
009010 
009131 
009212 
40017280 
009413 
40016020 
009510 
009510 
009510 
009612 
009982 
40027245 
010282 
010641 
010613 
010910 
010912 
O11gti 
011983 
012430 
012611 
043010 
013082 
013310 
013432 
013530 
014081 
014231 
014310 
40042000 
0143t0 
014593 


TF AD. CCFISSEVEN? THEN MESUCXI),CDAJ+RADDERLENS %MC 
IF LOWLINK=SEVEN7 THEN 
FIRSTLINK#=R 
ELSE 
MELOWLINKI] of CF )%sR3 
MER+iJtePLCOLI&CRADD"RLEN@C(RA*RL))(DACI3 
PLELJtRRECRA*RADDIIDACI? 
RLENeOS xMc 
AVAILABLE «NEXTLINKSERROR¢FALSES ¥MC¢ 
END ZMC 
FLSESREDUCE FXISTING AREACBEWARE OF ADDRESS CONFLICT OREMC 
ZFU. UNDERFLOW), MC 
BEGIN @Mc 
IF CRA“RL) GEQ@ RAND THEN RLEN t= O ELSE %604= 
IF RADD=RA AND RL GE@ RLEN THEN 
BEGIN ZMC 
ADDRESS+RA=RLEN} ZMC 
IF HIGHLINK®SFVEN7 THEN ZMC 
MESUIX]]) ¢£DAJ*#ADDRESS3 2MC 
SIT ZE*RL*RLENSFRROR|RLENG OS ZMC 
END MC 
ELSE MC 
IF RLEND>RL THEN ¥MC 
IF LOWLINK=SEVEN7 ANDCX=1)M0D 5S#4 THEN ZMC 
BEGIN MC 
RADD+RADD RLM IRLENGRLEN@RL91SSTZE*OSERROR GOS MC 
END ZMC 
FLSE 
IF RADD*RLEN LSS CNT1LtaMCLOWLINKI,£DA]) THEN 
BEGIN 
RLENfaRLEN@(RADD@CRADDSaNT1))3 
SUPER?=13G0 BACK} 
END 
ELSE 
IF RADD GTR RA@RL THEN 
BEGIN 
RLENt sRADD@CRA*RLIISUPERG=13 
GO BACK3 
FND 
ELSE RLEN}« 0 Ze 
FLSF ZMC 
BEGIN SYZE+RLERLENSERROReRLEN©| OS FNDS ZMC 
END} ZMC 
IF S1ZE=0 THEN aMc 
BEGIN ZMC 
IF HIGHLINKSSFVEN7 AND LOWLINKESEVEN? THEN MC 
BEGIN @Mc 
SUCX],OCCUPIFD«+TRUFS SMC 
Ke~t} zMC 
WHILECYeMESUPXIINX (KeK4#1)1])#0 AND KS15 DO ¥MC 


40047100 
40048000 
40049000 
40050000 
40051000 
40055000 
40056000 
40056100 
40057000 
40058000 


40059000 
40060000 
40060050 
40060060 
40060100 
40060200 


40060300. 


40060302 
40060305 
40060400 
40060500 


40060600 
40061000 
40062000 
40063000 
40064000 
40065000 


40065010 
40065020 
40065030 
40065040 
40065050 
40065060 


40065070 
40065080 
40065090 
40065100 
40065110 
40065120 


40066000 
40067000 
40068000 


40068050 


40068100 
40069000 
40070000 
40071000 
40072000 
40073000 
40074000 


tt tt tt 


AHHH HH HHH HHO OHH 


ee ee ee 


~ 


| 


0148633 
015430 
015542 
0157140 
045810 
016182 
016631 
046910 
016933 
017232 
40040000 
O¢72%2 
O172%2 
0172%2 
017380 
017582 
047753 
O17B34 
016i tt 
018283 
01871%0 
019141 
40060200 
0191%% 
019741 
0192%2 
0149612 
019730 
020383 
40063000 
020333 
020333 
020830 
0208t2 
0210383 
021230 
40065030 
021280 
021230 
0213%3 
021481 
021633 
021734 
40065090 
021784 
021810 
021832 
40068000 
022311 
40060050 
022381 
022483 
022581 
0228632 
0229:0 
023142 
0232%2 


FORGETSPACE(Y)3 
FORGETSPACE(SUlXI)3 
END 


ELSE 
BEGIN 
IF HIGHLINKSSFVENT THEN 
BEGIN 
MEPLOLII.(CCFI©SEVENTS 
MCSUCXIJ}.,CDAJ¢MCPLE1]].9°DAV3 
END 


FLSE 
BEGIN 
MEPLEOIV4+1),°CR IS eLOWLINKS 
IF LOWLYNKESEVEN7 THEN 
FIRSTLINK@®HIGHLINK 
_. ELSE 
MOPLO£1)], CCF I&=HIGHLINK3 
END$ 


IF MCLASTAVAILJ=0 THEN 
MrLASTAVAILJ*ADSLASTAVAIL#AD3 
IF AVAITLABLE®0 THEN AVAILABLE+*ADS$ 
PLEO)ts03 
END? 


END: 


1F REM LSS 0 THEN BEGIN RaAnnex MOD 5S3RADDeCRADD+CRADDE0) XFORTYS 
RLEN*ARSC(REM)$ FNDS 


XeX*¢CRLEN#0)3 
END ELSE 


TFONT{ $smMeSUCXI]),£0A)) GTR RADO*RLEN THEN 
BEGIN RLEN#PeRLEN@*CRADN*(RADDiaNT41))3 
SUPER:s43 GO BACK} 

FND 


FLSE 
RLENeO3 
ENnS 


IF RLEN>O0 AND NOT ERROR THEN GO BACK3 
SUPERtssUPFR OR CERROR AND SUrX},DISKRUNNING)3 
END OF COMPLEMENTING DISK DYRECTORY? 


SUBROUTINE LOCKED: 


BEGIN | 
IF CX1t=CRADD@RLEN) DIV TN)&(xX2seRAND DIV TN) THEN 


TFCTWOCK1) AND €UM)=0 THEN BUYLDAVAIL ELSE GO FORGET ELSE 
BEGIN 
Yi teRADDS Y2teRLENS 


2MC 
BMC 
%MC 


ZMC 
¥MC 
“MC 
%MC 
%MC 
%MC 
ZMC 


SMC 
ZMC 


ZMC 
EMC 
ZMc 
MC 
EMC 
xMC 
amc 
ZMC 


¥MC 


ZMC 


ZMC 


ZMC 
ZMC 


MC 


IFCRLEN&2(Xy4d)xTNecRADD@Y2 2 GTR O AND CTWOCX4) AND EUM)&0 THEN 
BEGIN RADDt sc Xp +1) x TNIXPe5xDseCCYL9Y2IDIV FORTYIIBUTLDAVAIL ENDS 


40075000 
40076000 
40077000 


40078015 
40078020 
40078030 
40078031 
40078032 
40078033 
40078034 


40078035 
40078036 
40076038 
40078040 
40078042 
40078046 
40076048 
40078050 


40078052 
40078054 
40078058 
40078060 
40078065 


40078067 


40078068 
40078069 


40078070 
40078072 


40078074 
40078076 
40078078 
40078080 


40078085 
40078087 
40078090 


40076091 
40078092 
40078093 


40100000 
40400100 
40100200 
407100300 
40400400 
40100500 
40400600 
40100700 


a 


ee | 


a 


SS 


= 


“1 


a- 


a4 


a+ 


ie 


023733 
023910 
024030 
40071000 
024030 
024010 
024082 
024210 
024212 
024530 
024932 
40078031 
0249%2 
024982 
025030 
025333 
025531 
025730 
025832 
026241 
40078036 
026241 
026412 
026933 
027383 
027510 
40078020 
027510 
40069000 
027530 
027983 
40078068 
028033 
0282%2 
40027260 
028282 
028611 
028930 
029084 
40078076 
029031 
029034 
029112 
40027260 
029182 
029333 
029634 
40027200 
029612 
029710 
029710 
03004 
030480 
0304:2 
030630 
031181 
40100700 


IF ¢RLEN¢s YyecX?xTN)) GTR O AN 
BEGIN RADD =¢13 225xD+RADD 


WHILE (X282X2"4) GTR X41 DO 
BEGIN 
RLENSS TNs Xre5xNneCcRAND& =CX9+4*TNIMLIDIV FORTY! 
tF CTWOCX2) AND EUM)s0 THEN BUILDAVAIL? 
ENDS 


Oo 
— 
<m 
~ 
ws 
oo 
ae 
=< 
~<A 
nd 
> oj 
CY 
—Z 
co 
oO 
Pr 
<c 
rs 
oe 
c 
we 
(>) 
Las. sat 
2 
oo 
we 
— 
=x 
™ 
Zz 


END; 


FORGET: 
END OF LOCKENS 


% 
$ SET OMIT = NOT SHAREDISK 
SU+EMERTI#©SPACE( 1009338100788 38:10); 
SEVEN7tc@777773F0ORTYSZ400005 TNE SE 10000 SMNE=z10000003TMI#100000003 
MOVE CLOOeRTIM1eRT1)3 
SOCKS=(MERTIM=SPACE(40))1840(8338810)3 
MOVE C4O,RTI*12RTII3 
KitaNFUP,©3°15)"13% CHECK ONLY UNITS THAT EXIST 
VRi=(MULTPTABLE S16) j&4(8%38240)3 
LOOKATDKB! 
FOR Jt=0 STFP 1 UNTIL X14 DO 
BEGIN 
K2t2193 
FOR JTt=OSTFP t UNTIL X2 00 
BEGIN 
RADn&=sMNxJ¢yxXTNZ 
STREAMCQtSRAND RIZ4O+A)$ 
BEGIN SrtsLOe Q3nSts8 nrc ENDS 


OKSEGZEROWRITEts TRUES 
IF 1 FOL O THEN 
BEGIN X2te2OxWAITPOCG04A INXB{ 40000000» 06405840), ( 4331 94X9 
IF X2=39 THEN VRONT{8#44CxX2)8=P(DUPSL0D) OR TWOCd1"J 
FND3 


IF NOTCReEWAITIOC4O4A JINX @100000000s064,1840)),04291] THEN 
REGIN 

NT2eBONTISe5xJIe50xCI 407 DIVCSUENTIJ¢FORTYMILLDISK4+#1)DIV 493 
SUPNT2T2=PCQUP,LODIRIC1 82478118 CX271990198478193 

IF RoC43!4) THEN 

REGIN FORTYSSFORTYX(CX2 GTR 19)41)3 

SOcKICx10¢J]2=¢#PCDUP)) OR TWOCT)S 

XSenT2SRADDESCRAND MOD MN94+CRLENS @ TN) SBUILDAVAIL? 

FORTY1#400003 

END FLSE SOCKECx10+U+20]is(eP(DUP)) OR TWOCTF X2219 THEN I FLSE 


C1 Div 8)*4 + ¢Y AND 3))3 
END FLSF &NOT READY CHECK NeXT SU 


BEGIN FUSUSsFUSU OR TwOCcarciFr X2n19 THEN Y ELSE CT OV B)xaeey 
3) DIV 4)3 
TisT+CecSUCNT 1820 5%U450xC)).FORTYMILLDISK41)*%4)"9)3 
OKSEGZEROWRITEt= FALSE 


ZMC 


204" 


j 
y3 


AND 


¥204= 


40101100 
40101200 
40101250 
40101300 
40101400 


40101500 


40101510 
40101600 


40199900 
40199990 
40249100 
40249105 
40249110 
40249420 
40249130 
40249200 
40249250 
40249300 
40250000 
40251000 
40252000 
40253000 
40254000 
40254100 
40255000 
40256000 


40256010 
40257000 
40257030 
40257060 
40257100 


40258000 
40261000 
40261010 
40261040 
40261042 
40261043 
402610464 
40261046 
40261047 
40261048 


40261049 
40261050 


40261100 
40261150 
40261200 
40261210 


oe eee Ree Ree Ree ee ee ee ee ee eee ee ee 


AAA 


oe ee ee ee i | 


O44a4 +4 


100900 


032581 
033381 
0337:0 
40101200 
033782 
40100400 
033732 
033782 
40100100 
033713 
0337383 
033783 
035610 
035933 
036313 
036610 
036810 
036933 
037133 
037133 
037610 
037880 
037833 
038010 
038020 
038281 
038333 
40256000 
0364!2 
0385814 
0366:0 
039494 
039730 
40257030 
039730 
040130 
040112 
Oa0TIO 
044140 
041183 
041432 
041840 
042210 
042213 
40261043 
043133 
043530 
40261000 
043510 
043933 
O44ett 
044733 


END END$ 


STREAMCA?SCNOT EUSU).C4325], Je Dt=VR INX C INX C)3B 
BEGIN Sft=LOc as SytSy473 


FNDS$ 


FUSUt=03 


FNN3 


$ SFT OMyT 


DItENT+ds PSPSCHR} 


NOTCDKBNODFX AND NOT NFX) 


$ SFT oMyT = NOTCDFX) 


BYE: 


JeDIRMOD? 
Vie ¢MPSPACECJI71& J 78813821073 
Jo« Jmi3 
FOR § « O STFP 1 UNTIL J 00 

BEGIN VRES] «© ECMEGETSPACE(6150209411)862(83 38210)3 

BYPASS«BYPASS23 
CLEARS 
ENDS 


AAAtEAAI=SPACE (480)3 
NYSKWALTC*Ar 480, Jt =DIRECTORYTOP44)3 
ZSFerMECSPACE( 31933830782 36840)3 
ZSF[0) +0143 
We 03 
FOR Jt=J STEP 16 WHILF J#16 DO 
BEGIN 
DISKIOCNT3s@CAAA™1) 2p 4B00d416)3 
IF J+15 GEQ BYPASS.CCF] THEN 
BYBYC™DIRECTORY FULLE+ 1593 


BYPASS .(FFJeJ+153 
FOR y « O STEP 1 UNTIL 14 DO 
BEGIN T «+ DDD(478"2x])3% 
HrzJ+-l4eys 
IF T2@144 THEN 
BEGIN DDDL4&79"2x])]8203 


UCHANG? #03 ZRG6Y 


112153 
END FlSe 


If TR@14 OR 
NDDE424"7x30),0181) THEN 
BEGIN DDDC47B"2x1J]3=0143 


UCHANG! #03 ZR6t 


DDNL479™2x7JSeNEXTSLOT) 
IF NEXTSLOT#O THEN 
BEGIN FItersFUteJd+15 ENDS 


NEXTSLOT 2s 2H3 
END FLSE 


BEGIN DONC 4297x330), C1 14ettaO3 
BtzPD0D(429"]%30)3 


40261250 


40261300 
40261350 
40261400 
40261450 


40261500 
40262000 


40262299 
40262369 
40262500 
40263000 
40264000 
40264500 
40265000 
40266000 
40267000 
40268000 


40275200 
40275300 
40275500 
40275600 
40275700 
40276000 
40277000 
40278000 
40278100 
40278150 


40278200 
40279000 
40280000 
40280100 
40281000 
40281100 
40281110 
40261200 
40281300 


40282000 
40283100 
40283200 
40283210 
40283300 
40283400 
40283500 


40283600 
40284000 


40285000 
40285005 


4aAH 


ee ee ee ae 


et as st st 


ee 


SS 


+ +4 


044882 
40261100 
40254000 

045033 

045440 

0454t2 

045581 

40261350 
045512 
045681 

40251000 

045812 

045882 

045812 

045984 

046330 

046484 

046520 

046981 

047082 

047230 

40265000 

O4u7Gt4 

047730 

047982 

048391 

048442 

048514 

048984 

048934 

049210 

049383 

40278150 

40278150 

050031 

0502:0 

050310 

050510 

050633 

050732 

051084 

051130 

051183 

40281100 

054103 

051340 

051591 

051810 

051883 

052140 

052183 

40283500 
052431 
052510 

40283200 
052510 
052910 


IF (C#DDDE423"1%30)920 THEN 
BEGIN DDDL423"1x30]« 
-c&Cl2t8t10); 
UCHANGS#03 %R64 
DONDE 424"y%30}03 
ENN 


FLSE 
DODL 424°] x30]¢P(DUP,LOD) 


AND ®0037000000007774 3 


IF Cof2ti0jmO OR 
DDNE 424" 1x30],0 4481) THEN 
SAVITS 


FOR cts STEP 1 UNTIL B DO 
BEGIN RADDsFNDNDl429"1x304C)3 
IF RADD GEQ nISKROTTOM+5 THEN 


BEGIN 


IF CRADDS#RADD+CRLENSSNNH6428"1%30))) GTR TM THEN 
BEGIN Rapnd:3RADD MOD TM3xt250 END ELSE X2203 


IF SUCKt=X45x(D8eRAND NIV MN)J,FORTYMILLDOISK THEN 


FORTY SPCFORTY»DUPe+)3 


Xt=eCCRADDItsRADD MOD MN)™4) HIV FORTY + X3 
IF CEUMteSockeD)) NE® O THEN LOCKED ELSE BUILDAVAIL? 


FORTY?#=400003 


IF SUPER THEN 
REGIN 


ZMC 


STREAMCAS=T,BieDDDL479~2xy I), Tt=SUPERt=sSPACE(10))3 


BEGrN DSte2LITT, "3 


SpteSzei3 DSte7CHR; 


NStebLy Tt. 3 
ENDS 
SPOUT CSUPER)3 
ERROR: sSUPERi 203 
ENDs 


ENDS 


STt=SIl413 DSts7CHR: DStaLiTrss3 
DSts19LIT* DISK ADDRESS FRROR"3 


ZMC 


ENDS XMC 


BseDDDL479"2x7)3 
Ste(StsD;SKBOTTOM 
"SCRAMBLE(T®B8)), 
(3681113 
CixV(S,0I3 
VCSeCe+2)8eT3 VEISeC+3)?eB3 
V(CSeC+4) fen) 
IF CVCS20]88C+3)260 THEN 
BEGIN VCSe4),CFF]«BYPASS« 
BYPASS*23 
IF J+152BYPASS,CCFITHEN 
GO BYE3 
DISKWAITCEVES»2)),¢°CF)], 
60eVrSe1))3 
CLEAR) 
END} 


40285010 
40285020 
40285030 
40285035 
40285135 
40285140 


40265150 
40285160 
40285170 
40285500 
40285600 
40285700 
40286000 
80287000 
40290000 
40290100 
40290200 
40290300 


40290400 
40290500 
40290606 
40292050 
40292060 
40292200 
40292210 
40292212 
40292214 
40792216 
40292218 
40292220 


402992222 
40292230 
40292240 


StH tt st st 


AHA HAHAH 


4-4 


40292250 T 


40292300 


40293010 
40293020 
40293030 
40293040 
40293050 
40293060 
40293070 
402930860 
40293090 
40293100 
40293101 
40293102 
40293110 
40293120 
40293140 
40293150 


=" 


Aa At as Ht 4H 


053180 
0533%2 
053532 
0537%2 
053831 
054010 
40265020 
054002 
054082 
054340 
0544:0 
054511 
054612 
054910 
055170 
055382 
055433 
055501 
055833 
40290300 
0562:2 
056610 
056783 
057180 
057610 
0576%3 
057730 
0577%2 
058230 
058383 
05870 
058782 
40292214 
058733 
058910 
059084 
40292210 
0590%1 
80290100 
0590!14 
40287000 
059212 
059432 
059432 
060210 
060380 
0604%2 
060980 
061141 
061410 
061630 
0616830 
061833 
0620%1 
062210 
062312 
062510 


PBCOUNT&@ ¢(€cC"PBD ~ €QV T) = NOT 0) OR 
CC™PUD " €QV T) = NOT 0)) AND 
(BerCF)] = 1)) + PBCOUNTS 
FND3 ENDS 


SLEFEPCENT3],NOT 093 
DDDI=NNHRPCHUPsAAAI(CTC)3 
AAAt=P 1NX OF &SWAP DDD BUFFERS 
DISKWAITCAAA® 480s N)3 
IF 1 = 16 THEN 

BEGINS 

J «¢ 03% 
FND3% 


ENDS 


FOR ys= 0 STEP 1 UNTIL DIRMON#1 n0 
BEGIN DISKyOcTo(VCto1I1), CCE) 60eVC 1.1393 
SLEEPC ET] »1OMASK)3 
FORGETSPACECCVL1213]))5 
ENDS 


BreV.CCrI3 

IF NEXTSLOT#O THEN 
BEGIN 

NT SKWATTC*Bs 30eFU)5 
VRE"2xF 1 +29] 22H3 
DISKWAITCBs300FU)3 
END ELSE NEXTSLOT#2H3 


FORGETSPACE(B)3 
DNDtePNDRALCCTCI3 FORGETSPACECAADS 
tf PBCOUNT > O THEN %2 TELL OPERATOR ¥791% 
BEGINSSTREAMCPBCOUNT ex#XeSPACE(10) 23 
BEGIN DSe14 LIT™ THERE ARE"™$ XeDI3 STeLOC PBCOUNT? 
DSe4 DEC DS«18 LIT* PB FILES ON DISKe*s 
DIeX3 DSe3 FILLS 
ENDS SPOUT¢X)93 


END3 


7*USERD:SKBOTTOM3 xMC 
Xtae5s NNOr 1) ?=03 
$ SET oMyT = NOTCSHAREDISK) 
$ SET oMIT = SHAREDISK 
RtsO03 VRIEZAVTABLE3 
$ POP oMIT 
RADDtsRz RtsR@4 3 
NT3S2NEUP NFUF@=13 % DONT USF NT3 RETWEEN HERE AND 40334065 
FOR NT9:s0 STEP 1 UNTIL NT3 nO 
BEGIN feRAe@13RLENeRL OF RADD eRADD+(Z™USERDISKBOTTOM)%303 
FORTY $e (SULX8=X+5)  FORTYMILLDISK+1 )xXFORTY? 
WHILE CC2eSUEX#C 1 te1+12)92,01SKRUNNING AND JT LE@ 4 DO 
IF NOT C,OCCUPIED THEN © 
REGIN ZMC 


40309100 
403091450 
40309200 
40310000 


40311000 
40311100 
40311200 
40311300 
40312000 
40313000 
40314000 
40315000 


40317000 


40317200 
40317210 
40317220 
40317230 
40317240 


40317300 
40317310 
40317320 
40317400 
60317500 
40317600 
40317610 


40317700 
40317800 
40320100 
40320200 
40320300 
40320400 
40320500 
40320600 


40320700 


40321000 
40321100 
40321104 
40321129 
40321130 
40321131 
40321135 
40321140 
40321200 
40321300 
40321310 
40321400 
40321500 
40321600 


444-4 


AAAs 


=~ 


SS ee 


ee ee 


—_ 


ee ee ee ee 


40293090 
062510 
062612 
062811 
0630:3 
40285000 
40280000 
063310 
063433 
06362 
063712 
063833 
06392 
064010 
064083 
40313000 
064013 
40277000 
064510 
0649!4 
065213 
065411 
065513 
40317210 
0656'1 
065713 
0658!2 
065910 
066012 
066310 
066441 
40347320 
066532 
066611 
066812 
066981 
067283 
067510 
067733 
067831 
40320300 
067933 
40320200 
067913 
068082 
068213 
0682!3 
068213 
0684t2 
068412 
06862 
068831 
068920 
069430 
069712 
070210 
070330 


IF C.€CFIS0 THEN 
REGIN 

RAeRA+{!3 

cisO3 
St2=C,+1)xFORTY; 

JeJF X+ts0 THEN 
FORTY@(DISKBOTTOM45) FLSE FORTY? 

END 


ELSE 
BEGIN ADeMEMPSUrX47 II] ,(°CF 13 RAeM 13 END} 


no 
BFGIN | 
IF C#¥0 THEN BEGIN S*MrAD] eLDAJF UeMLI1+AD),C0A] ENDS 


S:=S4(X MOD SUINIYV SXMN3 

TF J>RLEN THEN RLENIeyJ$ 

IF X gFQ@ 50 THEN St=S4TM3 

IF J GTR O AND ¢NT14aS"J) GE@ DISKBOTTOM+3 THEN 
TF CY#=DDNCABS(R))).DEND EQL NT1 THEN 

BEGIN DDDERI]teSecLOtey, OSIZE+uICTODSIZE]3 

IF LO GTR RLEN THEN RLEN?sLO END 


ELSE 
RBFGIN 
IF R=AV41 THEN 
BEGIN 
DISKWASTCASAVI9Z)3Z¢Z2 + AVBLOCKSRe =43 
FND3 


NODrReR+ije S& ULTOMSIZFIsRLeRLe 13 
END3 


IF C#0 THEN 
TF MrADI].£CFI#SFVEN? THEN 
ADeM(ADI],(CF] ELSE 
BEGIN 
Kew {3 
WHILE (Be CME SULX+] J INXCKeK41)])2940 AND K<K15 0 
FORGETSPACE CBISFORGETSPACECSULX41))3 
CeO} 
END3 


END UNTHL C03 
END} 
TF CDDDFRIZDEND MOD MN) &CCONTI3=#5XFORTY)*1) THEN DDDCRI.DENDSENTY+ 
NT2xMN3 & NT2 & X DIV S 


RLeRL413 
VRONT2a17¢=O0R CSULX],FORTYMILLOISK41)CTOSPEEDIRRLCTONUMENTI& 


BMC 
EMC 
XMC 


ZMc 
Mc 


XMC 
%MC 


MC 
¥MC 
MC 


ZMC 
ZMC 
ZMC 
%MC 
“Mc 
¥MC 


2MC 


ZMC 
ZMC 
ZMC 
ZMC 
ZMC 
ZMC 
£MC 
EMC 
=MC 


EMC 


RADDCTOSTARTWRDIJSRLENCTOMAXS ZIRCNT22NEUP, £3215] AND NT2<10)(TOEUNPI3 


1F RaaVi THEN 
BEGIN 
DYSKWAITCAsAV1 027)? 
ZeZ+AVRBLOCK#Re@] 3 


40321700 
40324800 
40321810 
40321910 
40322000 
40322400 
40322150 
40322200 


40322210 
40322220 


40322250 
40322300 
40322400 


40322410 
40322420 
40322405 
40322430 
40322440 
40322442 
403272444 


40322450 
40322460 
40322470 
40322460 
40322600 
40322700 


40322800 
40323000 


40323100 
40323200 
40323300 
40323400 
40323500 
40323600 
40323700 
40323710 
40323800 


40323900 
40324000 


40324102 
40324104 
40324120 
40324200 
40324210 
40324300 
40324400 
40324500 
40325000 


Aa Ass 


AAHnHHsss HH 


Se ee ee ee 


i 


Ata 


070382 
070433 
070531 
070682 
O70711 
070930 
071081 
O71331 
40321800 
O713%1 
071331 
40322220 
071831 
074831 
071631 
40322400 
072480 
072633 
0728383 
O7 31731 
07342 
073731 
074142 
40322442 
0743%2 
OF 4382 
074430 
074433 
074531 
074833 
40322480 
0748133 
0753414 
40322460 
075331 
0754320 
07562 
075930 
0759382 
076032 
076641 
076940 
0769383 
40323400 
076933 
40322300 
0771439 
40321600 
077182 
077683 
077910 
078081 
078433 
0790381 
079130 
079412 
079233 


ENDS 


NONCRseR+1)2=400000 NIVCA"SULXILFORTYMILLDISK)4+¢X MOD 4£00)DIV SxMNoq3 

TF (CLOtSRL OTV 4) LSS AVDIFFMIN THEN LOSsAVDIFFMIN ELSE 
IF LO>AVDIFFMAX THEN LO*AVDYTF REMAX} 

IF ¢Rt#R+L0) GTR AVI THEN 

BEGIN 

DrSKWATTCAL®AV19Z2)3Z¢74+AVBLOCK}3 
RtsReAVi 3 
ENDS 


FORTY#sg0000 } 
RADDt=Rei 3 
FND3 


NISKWATTCASAV197)5 
NT232N7T3 + 33 B NT2SeNEUP,NEFUF+2 
FOR NTqteNT3 STEP =1 UNTIL O NO 
IF CNTAte(NOT SOCKENT1+20}).728t20)) # O THEN & LOCK OUT THIS FU 
BEGIN FUMASK3S=TWOCNT1) OR EUMASKS & TURN ON FU LOCK OUT MASK 
IF NT4 THEN VRENTL DIV 2 + NT27,¢8%20]2=NT4 
ELSF VRENTS DIV 2 + NT2),C26820)%=2NTAS 
ENDS 


VRrOJtePcnuPsLOD&EUMASKE TOMAXS1Z]3 

$8 SET OMIT = NOTCSHAREDISK) 
FORGETSPACECSU)3 

£ SET OMTT = SHARFNISK 
UNLOCKDIRECTORY3 


$ POP OM1T 
TOGLF®=TOGLE OR ABORTMASK OR USERDYISKMASK3 
MESSAGE TABLEBUILDER! 
FOR WeW STEP ©? WHILE ZSFC(W)]#@14 DO 
REGIN 
IF W<O THEN 
BEGIN 
DISKWAITC™CZSF INX 0)+30eEFSPADD)S 
FORGETESPDISKCESPANDD)3 
ESPADNe2ZSFL29]3 
We263 
END? 


FORGETSPACECOIRECTORYSEARCH(ZSFEWI]sZSFUCWN+4 1526) )3 
END: 


FORGETSPACECZSF)3 FORGETSPACE ¢SOCK)3 
SUSTATUS(A®DDD,0)3 
FND? 


40326000 


40327000 
40328000 
40329000 
40330000 
40331000 
40332000 
40333000 
40334000 


40334054 
40334055 
40334056 


40334057 
40334060 


40334065 


40334070 
40334075 
40334077 
40334079 
4033408, 


40334085 
40334308 
40335000 
40335990 
40336000 


40336010 
40336100 
40339000 
40353100 
40353110 
40353120 
60353130 
40353140 
40353160 
40353170 
40353180 
40353190 


40353200 
40353210 


40356550 
40356800 
40400000 


AHA Sat to st 


AmtHoaA Haas 


Ata 


mt ts st tt st 


a4 


iT 
T 
T 


079530 
40324400 
079530 
08014!2 
080412 
080830 
080983 
081081 
081233 
084430 
40331000 
084480 
08144383 
081620 
40321300 
081631 
081932 
082033 
082330 
082533 
0828'0 
083013 
083611 
40334075 
063832 
0841:0 
084130 
0842:0 
084230 
40336000 
40336000 
08452 
084532 
084731 
08a7:3 
0865210 
085230 
085233 
065331 
0855%2 
085631 
085731 
085810 
40353130 
0858:0 
0860:3 
40353110 
086310 
086530 
0866!2 
40004000 


S1ZE= 0867 WORDS 


STACK ¢F 41) 
STACK ¢(F 42) 
STACK ¢F 43) 


STACKe¢F 44) 
STACK ¢F 45) 
STACK EF 46) 
STACK¢F47) 
STACK¢F 410) 
STACK ¢ F414) 
STACK¢(Fai2) 
STACK(F 413) 
STACK¢F 414) 
STACK(F 415) 


STACK (F416) 
STACK¢(F417) 
STACK¢F 420) 
STACK¢F #21) 
STACK¢( F422) 
STACK ¢F 423) 
STACK¢(F 424) 


STACK ¢F 40) 


HOU t- 


uenou4u 


BeU nh Be 


a HH HH HU 


PROCFDURF REALFILECLOSECALPHA)# VALUE ALPHAS 
BEGIN ARRAY FIBr*],FPBC*¥]+HEADER( *13% 


FIB 

FPB 

HEADER 
LR 


KIND 

NRUFS 

U 

BLEN 
CODE 
UNLABE 
COBOL 
I 
J 
FNUM 


MID 
FID 
R 
i) 


Cc 
FORMS 
STATE 


RCW 


STACK¢(Fe3) = XTRA 


STACK¢Fs425) 


STACK (F426) 
STACK(F 427) 
STACK (F430) 
STACKCF 431) 
STACK(F 432) 
STACK (F433) 


STACK (F434) 
STACK¢F 435) 


STACK¢F 434) 
STACK ¢F 436) 


STACK(F 437) 


“tanuin 


STA 


ACCESS 
SA10D 
COMPGO 


TYPE 


INTEGER ALPHASS% 


41000000 


START OF REL SEGMENTS DISK 


DONT ADD ANY DECLARATIONS BETWEEN "HEADER® AND "KIND®™ gee wCP 
INTFGER KINO oNBUFSsU,BLEN»+ CODE sUNLABELED »COBOLo Ie ds FNUMS 


LED 


REAL MIDsFIDeReDeCe FORMS» STATE} 


RFAL RCW=+0eXTRA==35 


LABEL PX»PBD3 


LABFL NC193 


REAL STa3 


LAREL CReLPo»MT»CLOSED eNKs SP eCP»BKUPePPePRsDCoCDeCC3 
SWITCH SWe CRe LPs MTs CLOSENs DK» SPeCP» BKUPe PP» PRs DCsCD»BKUP SNC 193 


LABEL FOF ,ON,DNE »CLEANUP3SY 
LABEL EOD) 
REAL TieTarT3e10d3 


RFAL TsACCESS$% 


NAME SAJODET3 


BOOLEAN COMPGO? 


REAL TYPE 


DEFINE REWECODE.(4751)#,% 
KRUNCH@ENOT CODE, 42e2%1)#, 
REL=CODE.(4634)#,% 
TIMEscODE C4581) # 9% 
LOCK=NOT CODE, £4424 ]4 og 


aP 


ARRAY SEGOr*]+SKELC*1$ LABEL Lie L2eoL33 


41001000 


41001500 
41002000 


41003000 


41003100 


41004000 
41004100 


41005000 
41006000 
41007000 
41007100 
41007200 


41017000 


41017100 
41017200 
41017300 


41018000 
41018100 
41019000 
41020000 
41021000 


T 000030 
ADDRESS = 
T 0000:0 
T 000030 
T 000010 
T 000030 
T 0000:0 
T 000010 
T 000030 
T 000030 
T 000010 
T 000010 
T 0000:0 
T 000030 
T 0000:0 
T 0000:0 
T 000030 
T 000010 
T 0000:0 
T 000030 
T 000010 
T 000030 
T 0000:0 


01005 


LABEL, 


PURGEeNOT CODE,(£4381143% 


CLOSEOUTSS 


LAPFL EOFIT3% 

CODFeCNOT *P¢,ALPHA)),.(168151]3% 
ALPHAeP(,ALPHAPLON) .£33815)3% 
FrReMPrALPHA"3)3 FPBePRTTPYMIX,3)3% 

IF @STATEeF 1B75]).04281) THEN GO TO CLOSED 
NRUFSeFIB613).CF19915 FNUMeF IBS) CISTI LIS% 
UeF1B615],[24:6)3 

UNLARFLEDeFIB(4) .£281I3% 
BLENeFIBL18),F3215I13% 
STREAMCSerFPBFFNUMI) ,DerMiNd 3% 


REGIN S1«S3 DSe2 WDOSS DSe3 OCTS DSe5 OCTs NS+ OCT ENDS 


If N<O THEN DeD.£18930)3% 
FORMSeFPBrFNUM4+3],04281752 
TeFTRL13),(28810]3% 

If cReO AND [#41) OR R#¥0 THEN ReI3% 


COBOL+CFIBL13] AND L)8CrFIRI.f8t10)s22.C184781)5 


Ip COROL>O OR FIBC4].0721] THEN & COROL 60 OR SORT 


MrFIR 


INX NOT 1).(3t6]¢2 


ELSF MEALPHA*71,C3!6Je23 

IF (feJeFIBO103.(3#15))40 THEN ZTHERE"S A BUFFER RING TO MARK 
DO Mrim2),C3t61e2 UNTIL CreME TIER FJ e2.eJ3 

COMMENT MARK IT ALL DATA TO PROTECT IT FROM NSEC DS3 

IF FIBaC781] THEN CHECKJOBORFILEMESSCPIMIXsALPHA™30U)3 


GO TO 


SWEKINDeFIB(4) Cosas i ie 


CRICCECPHLPESPEMT:PPIPRiCDs 
OTHERCLOSE(O)$ 


GO TO 


CLEANUP 3% 


BKUPt TyPrisFPBrFNUM4+3],[4315]3 BACKCLOSE(O)3 
CLOSEOUTIS 
CLEANUPS 2% 
Ip NOT STATE.£4131) THEN® 
tr KINDS2 OR KIND=11 OR KyND26 AND KYNDSI 


wf 


wn 


SET OMIT 


STATE £39841] ¢13 TrMpelssZ 


= NOTCPACKETS) 


OR KINDs4 


POP OM{T 


THEN BEGIN 


SET oMIT 


= PACKETS 


FrLEMESSAGECC 


SET OMIT 
POP OMIT 


END$ 


=z NOTCPACKETS) 
IF PURGE THEN * PRG® ELSE IF LOCK THEN ™ LOK" ELSE 


* REL@IETINULUT£ E68 30218) »OsMIDoFIDs 
IF KINDe? OR KIND=9 THEN R ELSE Op 

IF KINDe2 OR KIND2? THEN D ELSE On 

ColF KINO=4 THEN 64 ELSE 

CLOSEMESS AND ¢cTs#JARCP1MIX%20))>0 

OR «T<0) AND COPNMESS))3 


IF CFIBCSI*STATE).C42¢1] THEN FIBL 43, (884 )633% 
If (T#FIBL109,038151)#0 THEN KTHERE*S A BUFFER RING TO FORGET 


BFGIN 


ZFORGETTING ITT 
FOR J¢O0 STFP 1 UNTIL NBUFS@1 00% 
BEGIN JeM(T).C18815)°23% 


% COBOL 60 @g 68 


44022000 
41035000 
41036000 
41038000 
41039000 
41040000 
41041000 
41042000 
41043000 
41044000 
41045000 
41046000 
41047000 


41047500 
41048000 
41049000 
41050000 
41051000 
41051100 
41051200 
41051300 
41051400 
41051500 
41051600 
41051620 
41052000 
41054000 
41055000 
41142000 
41144000 
41187000 
41188000 
41189000 
41190000 
41190099 
41190100 
41190101 
41190200 


41190299 


41190600 
41190699 
41190700 
41190701 
41190800 
41190900 
41191000 
41191100 
41191200 
41191300 
41191500 


41194000 
41195000 
41196000 
41197000 
41198000 


Le 


SAAR TF AH AHA HAHAH AA AAA A A A A HH tI 


a4 4 


000030 
0000:0 
0000:0 
0000:0 
000933 
OOLLF1 
0014483 
0017580 
002030 
0021'2 
002330 
0024%2 
0025%3 
41047000 
002731 
002983 
003433 
003381 
003731 
0041180 
004330 
0045t1 
005110 
0053%2 
0060t3 
006033 
006430 
007341 
OO73I1L 
007430 
0074!2 
007731 
0081%2 
0082:0 
0083:0 
0066°1 
0086?1 
0087%2 
008782 
008833 
0088!3 
0086940 
008910 
00932 
0093!'2 
0095%3 
0099%0 
040214 
0104°2 
010633 
010933 
41190200 
010933 
011482 
011692 
011740 
012131 


FORGETSPACE(T)3% 
Te JSS 
MCALPHA4+1 JePCNUP»L0D)80622:284)8&152524784)% 
RCALPHA419£33233215)3% 
FND3& 


FIBC10},03%15)¢03 FIBL16),C(CFI1«03 
END 3% 


IF NOT UNLABFLED THEN 
le KIND#0 THEN 
IF CT#MCALPHA™2).(633615)2#40 THENS 
; FORGETSPACECT"2)3% 
MrALPHA@2]+PCDUPsLODI&PCOn,XCH)(B888810)3% 
FYRC6]¢FIBL7)«O03% 
le TIME THEN STOPTIMINGCFNUMs1023)3 
IF cOROL>0 OR FIBE4].£7%31} THEN % COBOL 60 OR SORT 
MrFIB TNX NOT 1),0386)]:"6 FLSE MEALPHAT7I,(386]1=4; 
GO TO CLOSED33% 
nKee MrSKCLOSE(O)) 
GO CLEANUPSS 
Dass 
$ SET OMIT = NOTCHATACOM ) 
Nc19s3 
£ SET OMTT = NOTCNATACOM) 
40 cLOSFOUTS 
CLOSEDs::3 
RcowWteXxTRA$ 
FND FIle CLOSES 


%501* 


41199000 
41200000 
41201000 
41202000 
41203000 


41204000 
41205000 


41206000 
41207000 
41208000 
41209000 
41210000 
41211000 
41212000 
41212100 
41212200 
41213000 
41215000 
41269000 
41281000 
41261999 
41307010 
41307020 
41307290 
41308000 
41309000 
41310000 


Se ee ee ee 


=“ Uv 


A st st tat se Ht 


012333 
0424:2 
0125:1 
012871 
0130%2 
41198000 
043440 
01382 
41196000 
0138t2 
013920 
0,40tt 
044383 
014582 
014930 
O1Si4i 
0153:2 
015512 
016312 
016410 
016433 
016531 
0165! 
016534 
016630 
0166:0 
0166!2 
0166%2 
016733 
41001000 


SIZE= 0168 WORDS 


END 


BEGIN 
KEY $= PC KEYeLOO) 
MeKeY4¢q]¢= C#PCDUPIIRTYPE PF 3t42te6I&CLOGENTRY £=LOGENTRY 41) (25234844]3 
t= C*PCDUP)) @ CXCLOCK + PCRTR))(3824324)) 

IF ¢LOGHOLOFR [NX 0) = O THEN 


MEKFY+2] 


PROCEDURF LINKUPCTYPE, KEY); 


INX O #143 


BEGIN LOGHOLDER,.(CF] ts KEY: 


TNDEPENDENTRUNNERC PC MAINTLOGGER) 205100)3 
END ELSF MCLOGHOLNER.CFFII.(°CF) 


MEKFY).CCF) te 03 


LOGHOLDER, CFF) 
IF ¢NUMAINTMESSt2NUMAINTMFSS4+1) > O THEN SLEEPCENUMAINTMESS],#0)3 
LINKUPS 


VALUE TyPeeKEYs REAL TYPE sKEY3 


ts KEYS 


tz KEY3 


41310100 


START OF REL SEGMENT? DISK 


41310200 
41310300 
41310400 
41310500 
41310600 
41310700 
41310800 
41310900 


41311000 
41311100 
41311200 


T 000030 
ADDRESS ® 01011 
000070 
000030 
000230 
000731 
001130 
001211 
0044:0 
0015%4 
41330700 
0016:2 
002210 
002630 
41310200 
SIZE® 0027 WORDS 


AnH AANA AHA 


PROCFOURFE CHECKUORORFILEMESSCMIXeFIRs UDF 41312000 T 000050 
START OF REL SEGMFNTS DISK ADDRESS #® 01012 

VALUE MIX»eFIReUS REAL MIX>FyReUS 41312100 T 0000:0 

BEGIN 41312200 T 0000:0 

REA|, KEY» FNUMS 41342300 T 0000:0 


STACK¢Fei1) = KEY 
STACK¢(F42) = FNUM 


IF NOT JAREMIX22),£381] THEN 41342400 T 0000:0 
BEGIN 41312500 T 000231 
JAREMIX,2],(381] ts 13 41312600 T 0002:3 
KEY tm TYPEDSPACE(S»MAINTBUFFAREAV) 3% P Zt67= 41312700 P 0005133 
MEKEY=2],(986] t= O3 41312800 T 0008:0 
MCKEY J te O & MIXL20840t533 41312900 T 004481 
MCKEY41)] $m JARCMIX+57. £6218) 41313000 T 004323 
MEKEY4#2) %= JAR(MIXA5S 73 41313100 T 0017230 
MEKEY4+3] t= JAREMIXs0]3 41313200 T 001933 
MEKEY 44) te JAR(MIXe 13 41313300 T 0022:2 
LINKUPC12°KEY)3 41313400 T 002531 
ENDS 41343500 T 002631 
41342500 
If FIR#O0 THEN IF NOT MEFIBJ.06!1] THEN 41313600 T 002631 
RBFGIN 41313700 T 0029%1 
MrFIBJ,£681) ta 13 41313800 T 0029:3 
FNUM s= MEMCFIRI] INX 4),C01381193 41313900 T 003232 
KEY t= TYPEDSPACECS»MAINTBUFFAREAV) 32% %167" 413144000 P 0035!3 
MEKEY"2),(926) t3 Of 41314100 T 003810 
MEKFY J te O & MIX[20!4335)] 41314200 T 004131 
& CCFNUM DIV ETRLNG)4196923989)3 41314300 T 0042:82 
MEKEY4#1] t= JARCMIXs5),66818)3 41314400 T 004533 
MCKEY4+2) t= MCCFNUM$= PRTLMYXe33 TNX FNUM)+3)3 413144500 T 004910 
MEKEY+#3) &= MCFNUM]3 41314600 T 0054:0 
MEKEY44) te MEFNUMe173 41314700 Y 005613 
LINKUPC43eKEY)3 41314800 T 0060:0 
ENDSEND CHECKJOBORFILEMESS3 41314900 T 006130 
41313700 
41312200 


S1ZeE2z 0062 WORDS 


STACK CF +0) 
STACK ¢F#2) 


STACK EF 41) 
STACK¢F 42) 
STACK¢F 43) 
STACK OF 44) 
STACKEF 45) 


PROCEDURE LOGOUTMAINT(B)*# VALUE BS REAL B3 


BEGIN 

REAL Rew = +03 
RCW 

REAL MSCW="23 
MSCW 

REAL FH = #16 T1 2 425 12 8 +35 13 ® #4, SAVENTRY & 453 
FH 
T1 
T2 
T3 
SAVENTRY 


REAL MFID = +6, FID % 473 BOOLEAN FORKED = 483 


STACK(F 46) = MFID 
STACK(Fe7) = FID 
STACK¢F 410) = FORKED 


STACK ¢ Feit) 
STACK ¢F 412) 
STACK ¢F 413) 
STACK(F 414) 


INTFGFR LASTL = +9» SEGNO = +10, SEGSIZ = 4115 LDATE = +123 


LASTL 
SEGNO 
SEGS1Z 
LOATE 
LABFL CSs+SCANeNFWLOGsBUILDMESSeE XI TeF INE SHUP3 
SUBROUTINE FIXCOLDHDR3 
BEGIN 
MrFH INX OJ%s ®00005000360006013 
MeFH TNX 1)8e8 (XCLOCK4+PCRTR)) & LDATES6130218)3 
STREAMCDATE*sX?SFH INX 393 
BEGIN SItsLOc NATE? DNSt=B OCTS DLtexXs DSsH2? LIT + #3 
SyieXs Sypt2#S1+5s pSte3 CHR 
END$ 


$ SET OMIT = NOTCSHAREDISK) 
$ SET omMtT = SHAREDISK 
MrFH INX d)%e O & 727984121733 & SYSTEM DATA FILE 
$ POP OMIT 
MCFH INX 7]ie CLOGSIZEX6)=13 
END FIXCOLDHDRS 


PCO, 00020902 0n 0s 0p 000004033 
IF FORKENts R20 THEN & INDEPENDENT RUNNER 
BEGIN TF MROW > O THEN SLFEPCEMROW]2™0)3 
MROW se ABSCMROW); 
LASTL t= LOGENTRY3 
LOGENTRY ts 03 
END ELSE LASTL3SsABS(B)#23 


FIOs= "MNTLOG * 
£ SFT OMIT = NOTCSHAREDISK) 


. ; 
STREAMCDATE sCte#(LOATEI)$ REGIN ST8=LOc DATES NSt38 OCTS ENDS 


TiteSPACE(335)3 
IF eFHIESNIRECTORYSEARCHCMFIDSS"MAINT ",T3te"L0G = 
$ SET OMIT = NOTCSHAREDISK) 


°5))80 THEN 


BEGIN 


41316000 


START OF REL SEGMENT? DISK 


41316100 
41316200 


41316250 
41316300 


41316400 


41316410 


41316500 
41316505 
41316510 
41316515 
41316520 
41316525 
41316530 
41316535 
41316540 


41316545 
41316575 
41316580 
41316585 
41316590 
41316595 


41317100 
41317200 
41347300 
41317400 
41317500 
41317600 
41317700 


41317710 
41317719 
41317730 
41317780 


41317790 
41317800 
41317900 
41318100 
41318200 


T 


000030 


ADDRESS ® 01015 


T 
T 


T 


AAAHAAHao4t 


HAHAH HS 


aA 


i 


0000:0 
000030 


000030 
000010 


0000:0 


0000:0 


0000:0 
00000 
000130 
000110 
0003:0 
0006%2 
000810 
O009F4, 
001030 
41316530 
004081 
0010%4 
004034 
001331 
001381 
0016!1 
41316510 
0018!0 
002130 
002211 
002513 
002613 
002782 
002631 
41317300 
0030%1 
0030:2 
003072 
0031:0 
41317780 
003233 
003510 
0036/1 
0036!1 
003831 


css: 


FHtsSPACE(30)3 

MOVE C30-FH"1 FHS 

MeFH+ O)t= 13 

MrFHs10)%= GETUSERDISKC@C(CMEFH+8I)8=LOGSIZF 821000) )3 
FIXCOLDHOR: 

IF FHA FF ISO THEN ENTERUSERF ILE CMF IDs T3eFH"1) 
FLSE DISKWAITCFH INX 0,30,FH Fr FFIJ)3 

FrOte T33 

MROW!s MEFH INX 10)3 

GO RBUILDMESS3 


END$ 


LOGSIZE'= MEFH INX 833 
IF MCFH TNX 4),(45211] THEN FORKEDSsFORKED OR 23 & JUST COLD STARTED 
IF R>0 THEN 
BFGIN 
& SET OMIT = NOTCSHAREDISK) 
$ SET OMIT & SHARFEDISK 


MrFH INX 4]8e O & 72792418733 % SYSTEM DATA FILE 


£ POP OMrT 


SCAN: 


DISKWAIT(C#T1s5+MROWSeMCFH JINX 10])3 

MLOGt= SEGNOts MET1],624t45)3 

If MLOG2LOGS{ZFe1 THEN 

BFGYN 
IF CFORKED AND 2)#0 THEN GO CS3 
TE MLOG#SEGNO THEN DISKWAITC™T1»5eMROW)3 
MeTL]t= PcpuP,LOD) & 102947:193 
DYSKWATTCT{+5»MROW)3 
MLOGS= IF SEGNO<LOGSIZE#1 THEN SEGNO ELSE LOGSIZE=23 
GO NEWLOGS 

ENDS 


Dr SKWATTC#T1 230 eMROW4(MLOGI=MLOG+12)3 

te MeTt1J]4# NOT © THEN GO SCANS 

MLOG%= MLOG™13 

LOGENTRY2s MCTi+1)-0CF]3 LASTL2= MITI+iJ,CFFI3 

Ir CT33eLOGHOILNER TNX 0) #€ 0 THEN 

WHILe 1T3#0 DO 

REGIN 
IF MCT3]<O THEN MCT3) CERI] se LOGENTRY: @LOGENTRY +1 
FLSE MET341),£25814}&s LOGENTRY*=LOGENTRY+413 
T3:e MET3] YNX O83 

END3 


IF LASTL#0 THEN 
BFGIN 
DISKWAITC*T1530-MROWS(SEGNOS#LASTL DIV 30))5 
T33m (MCTL4CSEGSIZteLaASTL MOD 30)),¢39899]41)%53 
If T3>5 THEN IF LASTL4T3 > (T222=CML0G41)%30) THEN 
RFGIN 
MEeT1#SEGSIZJ8= PCpUP»LOD) & 1£2847%1) & 
CCT2=LASTL) DIV 5 =1)£3983989)3 
NISKWAITCT1+30»MROWSSFGNO)3 
ENDSENDS 


ENDs3 


41318210 
41318220 
41318230 
41318240 
41318250 
41318360 
41318370 
41318360 
41318400 
41318500 
41318600 


41318610 
41348620 
41318630 
41318640 
41318649 
41348679 
41318680 
41318684 
41316740 
41318760 
413148780 
41318800 
41316810 
41348820 
41318840 
41318860 
41318880 
41318900 
41316920 


41318940 
41318960 
41348980 
41319000 
41319020 
41319040 
41319060 
41319080 
41319100 
41319120 
41319140 


41319160 
41319180 
41349200 
41319220 
41319240 
41319260 
41319280 
41319300 
41349320 
41319340 


41319360 


AHHAN AHHH AHHH Ha HH AH tH 


tt tt st 


ee eee 


0038:3 
00414:0 
0043:0 
0045:0 
005031 
0054:0 
005231 
00614 %1 
0062:0 
0064:0 
006432 
41318200 
0064132 
006632 
OOTO?1 
007130 
007432 
00712 
007132 
0074%2 
00742 
007733 
008024 
0081442 
0062:0 
008383 
00862 
0086921 
009012 
O0094t1 
009423 
41316800 
009433 
009733 
010030 
O101:1 
010654 
010830 
010933 
010933 
012364 
011983 
012183 
41349060 
0122!) 
012330 
012342 
012632 
013130 
013530 
0135%2 
013851 
014171 
014330 
41319260 
44349180 
0143:0 


MCT1 J] $2 5 & 620324236] & 
(MLOG +CMDELTA40))(24233815) & LASTLL9833215]3 
MET144] 2= LOATE & CXCLOCK+PCRTR))C3824:24)3 
MCT14+2) 8= PATCHLEVEL; 
MCT1+3) t= LOGVERSION3 
MCT1+4] ts DATES 
NISKWATTCT1 +5» MROW)3 
IF R>O THEN % CALLED FROM INITIALIZE 
BEGIN 
IF CFORKED AND 2)40 THEN FIXCOLDHDRS 
DrSKWAITCFH INX O,30eFH EFFI): 
GO FINTSHUPS 
END; 


NEWLOG! 


IF HOLOFREESO THEN SLEFPCTTOGLE J] *®HOLDMASK)3 
LOCKTOGCHOLDMASK)3 


NrStWarTo@eTys"30sNTRECTORYTOP@SYSNO)$ 
SEGNO&8s (M£T14221,£39210] +4) MOD 10003 
MeTy+29)2= PCOUP/LOD) & SFGN0(38838110)3 
DISKWATT(T1s"=30eDIRECTORYTOP=SYSNO)5 
UNLOCKTOGCHOLDMASK)3 


STRFAMCALSCACTHATE] +BteSFGNO»Cts(MFID))3 
REGTN 

SpisaAs StseSp4¥2s OltepNteds DSts4 CHR: Sytel0c Bs NSt33 DFC: 
END$ 


IF mIRECTORYSEARCHC@MFID>FIDe >) # O THEN GO NEWLOGS 
MEF TNX 37% PCDUP,»LOD) & LDATFL12#30!18]3 % ACCESSED 
MOVE C1O*FH TNX 057193 
MCFH INX 14732 (XCLOCK+PCRTR)) & LDATE(6230218)3 
MCFH TNX 3])%= PCDUPeLOD) & LDATEL30°'30818)3 & CREATION 
METq+ G)8= 0 & 1£924724)3 & TYPE DATA 
M(T4+ 7]2e CT2%s= (CMLOG+CMNELTA#0)42))x6 =43 
METy+ 8)2= T24103 &8 TO SIMPLIFY DUMPING 
METq+ 9)]2= 23 
MOT1 490] 2s OF MOVEC20e CME T1410) } o> (ME T1411)))3 
IF cMCT1+10]3= GETUSERDISK(=T2"40 OR M)) # O THEN 
REGIN 
STRFAMCALS(MF ID] eCisT3iaSPACE(S))3 
BEGIN 
O0S%218 LIT*=NO USER DrSk FOR "3 Srtuas SpseStoi3 
DSt=x7 CHRe DSteLIT*/"; ST teSlet3 DSt=7 CHRE OSteLrTte%$ 
ENDS 


SPOUTCT3)3 
MrT1410]%@ GFIUSERDISK(C#T2"10)3 
END3 


T3220: SEGNOteMC T1419); 
DO REGIN 
Dr SKWAITC#T1"312300sMROW4T3)3 
DrSKWAITOCT143123002SFGNO0+T3)3 
END UNTIL (T32aT3410) GEQ To3 


41319600 
41319700 
413149900 
41320000 
41320100 
41320200 
41320220 
41320240 
41320250 
41320255 


41320260. 


41320270 
41320280 


41320300 
41320310 
41320320 


41320330 
41320340 
41320345 
41320350 
41320355 


41320360 
41320370 
41320380 
41320390 


41320400 
41320440 
41320420 
41320430 
41320440 
41320450 
41320460 
41320670 
41320480 
41320490 
41320500 
41320550 
41320600 
41320700 
41320800 
41320900 
41321000 


41321100 
41321200 
41321300 


41321350 
41321400 
41321480 
41321500 
41321550 


ee] 


44445 


44441 


AA AHA A AHA HAH 


HAA As 


AAMHH ARM HH HAH 


41318640 
0143:0 
0145:0 
0148:2 
0152:0 
0154:0 
0157:0 
015930 
016031 
016170 
0161:2 
0164:0 
0166!1 
0168!0 
41320250 
0168:0 
0168140 
0171491 
41320320 
017433 
0177:0 
0180:2 
0183:3 
0185:3 
41320355 
018981 
0190:2 
019072 
0192:0 
41320370 
019244 
019433 
019850 
0200:0 
0203%2 
020633 
020923 
0244:3 
021731 
0219%1 
022433 
022981 
022933 
023233 
023283 
0235:3 
02372 
41320700 
023733 
0239:0 
0242:2 
41320550 
024232 
024511 
O245t14 
024733 
0250:0 


FNTFRUSFRETILFC*MFIDe Fine T1715 
NTSKWAYTCFH INX Os 30eFH, FFF I)3 


BUTLDMFESS! 


MLOgit=a MNELTA&# 03 

MCTt Ji=z 5 & 6273:42:6)3 

MeT1+ 2]t= LDATE & CXCLOCK4+PCRTR) 6382482473 

MET1+ 2]%2 PATCHLEVELS 

MOCT1+ 3)%= LOGVERSIONS 

MeTy+ &@)%= pATe3 

MECT4+30)3m@ NOT O;3 

MET4431)2= NUMAINTMESS410Q3 

DISKWATTCT1*232—eMROW)3 

STREAMCASSEMF ID] »TOGFSMFIDSE"MAINT “sMtaMROWsBIsTi)$ 
BEGIN 
Dst=29 LIT"*#NEW MAINTENANCE LOG FILE 1S "3 Syseas STtaSler3 
NSte7? CHRS DSteLIT"/"%3 SPsmSl413 DSte7 CHRE DSteL ITs 
TOGCNTtHNOp"1s NSt=4 LT AT "3 SyseLOc MS OS#eB DEC OSteLyTe™3 

O1teNy 93 ONSt=7 FILL 

ENDS 


EXITS 


SPOUTCT1)3 
IF pR>0 THEN 


BEGIN 
Ty 82 TYPFNSPACE C1S*eMAINTRUFFAREAV)3% %167= 
FINTSHUPS 
MOVE (10,R,T142)3 ¥144= 


£ 
§ 


$ 


MrTd Jiz 23 

MrTi+iJi= LDATE3 

LiNKUP(15.T1)3 
END ELSE 


IF ¢T1tsPC.MAINTLOGARRAYsLON) INX 0)#0 THEN MOVEC31°TI*2oTIML)3 
Ti t= FH INX 03 
WHATMCPCFH)3 
MOVE (C26eF He TIi+4)# FORGFTSPACECFH)S 
STREAMCKTRiw T1442 3 
REGIN STteKkTR; 
4(S2CrF Sc#"e" THEN SytsSy441 ELSE JUMP OUT 2 TO LL))$3 
LL KTRisSy3 
END3 


NTis= P JINX O3 

MET1V]3= CNT1°T1) OLV 53 

MUCTi4+11]2= LpATe;3 

SET oMIT = NOTCSHAREDISK) 

SET OMIT = SHAREDISK 

STREAMCALTECAVTABLELLII+>N&taNEUP,NFUF*D8eT143)3 
POP oOMyT 
BEGIN SIs=LOC N3 DSt3WwnSs Ors=Dr"63 SrsaaAs STszS1 +43 
NCTF SR THEN DSteSeT FLSE DStsReESETs SrteS748)3 

FND3 


SET oMrT = NOTCSHAREDISK) 
MeT442) t= MCPBASE3 
LINKUP(16eT4)3 


41321600 
41321650 
41321700 
41321750 
41321800 
41321900 
41322000 
41322100 
41322200 
41322300 
41322400 
41322450 
41322500 
41322600 
41322700 
41322800 
41322820 
41322840 
41322900 


41323000 
41323100 
41323110 
41323120 
41323130 
41323140 
41323150 
41323160 
41323170 
41323180 
41323190 


41323300 
41323400 
41323500 
41323550 
41323600 
41323700 
41323800 
41323900 
41324000 


41324100 
41324200 
41324300 
41324400 
41324700 
41324800 
41324601 
41324900 
41325000 
41325100 


41325200 
41325400 
41325500 


HAHAH VAVHAR HH HHH HHA AHH 


AAH AHA H AAA HAH tH 


~a- 


41321400 
0252:1 
025432 
025633 
025633 
0258:0 
0260:2 
026420 
0266:0 
0269:0 
027130 
0273:1 
027533 
02770 
027930 
027970 
0263:2 
026581 
028733 
0288:2 
41322600 
028833 
0286:3 
0290:0 
0290:3 
029171 
029332 
0293:2 
0295:2 
029720 
0299:0 
030010 
41323120 
0300:0 
030810 
030931 
031030 
031203 
O314%1 
0314°2 
O31734 
031782 
41323700 
031733 
031833 
032141 
0323i1 
032331 
0323!1 
032533 
0325183 
0327:0 
0329314 
41324900 
032932 
032912 
033432 


IF FORKFN THEN BFGIN MROWS®NABS(MROW)$ KILLCOEMSCW))3 ENDS 


FND LOGOUTMAINTS 


41325600 T 0332%2 
41325500 

41325700 T 033530 
41316100 
SIZE= 0336 WORDS 


STACK¢F +40) 


PROCEDURE MAINTLOGGER(B)? VALUE Be REAL B3 


RCW 


STACK¢Fe2) = MSCW 


PRT(77) = MLA 


STACK(F 41) 
STACK ¢F 42) 
STACKEF 43) 
STACKEF 44) 
STACK(F45) 


STACK¢CF 46) 
STACK ¢F47) 
STACK¢F 410) 
STACK ¢F 4114) 
STACK ¢Fe12) 


STACK ¢F 413) 
STACK¢EF 414) 
STACK ¢F 415) 


wou 


BEGIN 
REAL 


41327000 


START OF REL SEGMENTS DISK 


Row = 403 


REAL MSCW="23 


ARRAY MLA = MATNTLOGARRAY?*]3 


REAL KLUDGE = +1» KEY = +92 TRANS = #32 RECS = +4, WT 2@ +53 


KLUDGE 


KEY 
TRANS 


RECS 
WT 


WMCP 
WLOG 
WD 


A 
LAST 
‘4 


T2 
U 


STACK(F4+7) = LOCN 


STACK(F410) 


NUM 


REAL 


ENTRY 
REA\, 


REAL. 


LOCNs WLOG®s 


WMCP = +6» WLOG = +75 WD = #82 A zc #95 LASTENTRY = +103 


T1 t #9150 TP = 4195 U = +1338 


NUMS WD3 


LABEL LOGANOTHER*RECYCLE*KILLLS 
P6O0,00200050s0p0r00050005,0,0)3 
IF MROW > O THEN SLEEP¢CCMROWJ]»"0)3 


MROW 


t= ABSCMROW)$ 


IF cA&sPC,.MLAsLON) {NX 0) = O THEN 


BEGIN 
MLA 


t= [ME CATSGETSPACEC33+MAINTBUFFARFAV,0)43)]) & 3278336210)32 


MOVEC31eA=PeAety3 
MLAT30] t= NOT 03 
If MDELTA#O THEN DISKWAITC*A»30»MROW+MLOG41)3 


END; 


LOGANOTHFR? 
IF MELOCNS2LOGHOLDER INX 0] < O THEN 


BEGIN 


MOVEC4sLOCNe lf TRANSI)3 KLUDGE t= TRANS JINX OF 


Kry 


t= =0 & TRANS( 26220213) & CTRANS,c2ti)+4)(394236] & 
TRANS(92939] @ TRANS(C18218327 & TRANS(C208415]3 


TRANS&= TRANSACTIONLUSZTRANS, pCbg eta CXC LOC HERE ER UIE SEAN Z A 
LOGHOLDER,{CF) t= LOCN s:=& CKLUDGE] INK O38 
Ir KLUNGF20 THEN LOGHOLNER.CFFI] 8= LOCNS 


END$ 


NUM t= (MELOCN411,03999)41) x 53 
IF CLASTFENTRYsm(MLOG41)x304+MDELTA) + NUM > CLOGSIZE*1)*%30 THEN 


BEGIN 


Ip MDELTA#O THEN 
BEGIN MLAP31]tSLOGENTRY!S DISKWALTCAs 32eMROW+MLOGS1)3 ENDS 


41327100 
41327200 


41327250 
41327300 


41327400 


41327500 


41327600 


41327700 


41327800 
41328000 
41328200 
41328300 
41328400 
41328500 
41328600 
41328700 
41326800 
41328900 
41329000 


41329100 
41329200 
41329300 
41329400 
41329500 
41329600 
41329700 
41329800 
41329900 
41330000 


41330100 
41330200 
41330300 
41330400 
41330500 


T 


0000:0 


ADDRESS w» 01027 


T 
y 


T 


AANA VAA AWA 


ee ee 


a44-4-4 


0000:0 
0000:0 


0000:0 
0000:0 


0000:0 


000030 


000030 


000010 


000030 
0000!0 
0003!1 
0006!4 
000731 
000984 
000933 
001420 
0016%2 
0018:0 
002133 
41328500 
002133 
002183 
O0O24t4 
002433 
002782 
003033 
003412 
003812 
0040:3 
004384 
41329300 
0043%1 
004633 
005170 
00514!2 
005231 
41330500 


LOGOUTMAINTC@CMELOCN4 
LOGFNTRY t= 03 T1 ts 
WHILE T1 # 0 pO 
RFEGIN 
IF MECTI9<O THEN MCETLI,CFF) t= LOGENTRYS*LOGENTRY+1 
ELSE MET1411,025914] #& LOGENTRYS#LOGENTRY 413 
Ti t= MeTi) YNX Of 
ENDS 


1),(25%14)41))3 
LOCN3 


LASTENTRY = 303 
END} 


RECYCLE! 
IF ¢T1t=®30"MDELTA) > NUM THEN 
REGYN 
MOVE CNUMeLOCN+1 + CMLALMDFELTA]1)3 
MnFLTA $= MDELTA + NUMS 
END FLSE 


BEGIN 


MOVECTIsIOCN+t+€MLACMNELTAJI)3 MLAL31]¢:eLOGENTRY & LASTENTRYICTFJ3 


DrSKWAITCAs 32eMROW4(MLOG?SML0G41))3 
LOCN t= LOCN + Tt; 
NuM t= NUM =» Ty13 
MnFLTA $= Of MOVEC31»A 25 A =1)3 
tre NUM # 0 THEN GO RECYCLE3 
FND} 


NUMAINTMESSS=NUMAINTMESS © 43 
IF ¢cTiteMCT2t=sLOGHOLDER INX 1]) < O THEN 
IF ¢T4.7326) AND @76) = 4 THEN 
$ SFT OMTT & PACKETS 
BEGIN STREAMCASSTINUCU]» RESRECS,C134)5 XteKEY, C2085] 


% SPOUT MESSAGE FOR RE= 
® COVERED DISK/DRUM ERR 


StswT, C2796)» 


Bre(RECS), DSKsST1, C831], DieTitsSPACE(10))3 


BEGIN SIteLOC A> STse2Sy+53 DSseLiT" "3 OSs=3 CHRI 


NSi2z3 NECS AteDys Dl teDiw73s OSteo FILLE NpTiaas 


OSts44 LIT" RETRIES» MIX="3 ; 
DSi=22 DECS AteDy# DJ] teDI~2s OSteFILLs Di saas 


Sri=eBy DSts5 LIT", DAe™3s Clescl+DSK3 GO TO DRM? 


SpteSyei1s DSta7 CHR OSta7 LIT, SEGS=™3 


SpieLOC Si DSseo DEC? SytsBs S1taS14+163 GO TO L!3 


DRM? SyteS14+413 5¢D0S8"3 RESETS 


3cIF SR THEN DStsSET FLSE DSteRESETS SKIP SB))3 SysuS7423 


Lt DSima LIT» Ret 
16(DSt=3 RESETS 


3c1F SB THEN DS8#SeET ELSE DS:sRESETS3 SKIP $B))3 


SpisSy95) OSs25 LyT™, f[ox™3 
IF SB THEN DSts0 LIT*4e"3 SKIP SB 
IF SB THEN DSt29 LIT"32"3 SKIP SB} 
IF SB THEN OSts2 LIT"20"3 SKIP SB 
If SR THEN DSte2 LIT 7 o™3 
Drtepyrrs OSsebLy Teas 

END: 


SPOUTERCT 1 »+PSEUDOMIXrKEY, £2085] ) +D1SKMSG OR 34)3 
END3 


41330600 
41330700 
41330800 
41330900 
41331000 
41331100 
41331200 
41331300 


41331400 
41331500 


41331600 
41331700 
41331800 
41331900 
41332000 
41332100 


41332200 
41332300 
41332400 
41332500 
41332600 
41332700 
41332800 
41332900 


41332950 
41333000 
41333001 
41333002 
41333005 
41333010 
41333015 
41333020 
41333025 
41333030 
41333033 
41333036 
41333037 
41333039 
41333042 
41333045 
41333048 
41333050 
41333055 
41333060 
41333065 
41333070 
41333075 
41333080 
41333085 


41333090 
41333095 


AAA AHHH 


—~a-+t 


i 


ee ee | 


AHA AAA HAHAHA TAH HH Ht 


a+ 


005631 
0059:2 
006140 
0062t1 
0062:1 
006533 
OO7T24 
OO7a?4 
41330900 
007483 
007532 
41330300 
0075!2 
007532 
OO77#1 
007753 
0080:0 
006131 
41331800 
0081:1 
0081:3 
008530 
0088:2 
008933 
009130 
009481 
00952 
41332200 
0095!2 
009633 
009933 
0102:0 
0402:0 
0104%3 
010930 
011081 
O111%2 
O113%2 
011433 
011633 
01182 
011933 
0120°2 
012310 
0123:3 
012431 
0126:2 
0127:3 
0129:0 
013034 
01312 
013212 
0133%1 
41333015 
013332 
013632 


414333005 


IF ¢Tis=MCLOGHOLNER] INX 0) = 0 THEN 
BEGIN 
If MOFLTA # 0 THEN 
BrGTN 
MLA’ 31] $= LOGENTRY & LASTENTRYLCTF)3 
DISKWAITCAs32eMROW4EMLOGS1 23 
ENDS 


RecS t= 5 & 626324286) & MLOGF 24233815] & LASTENTRY(983318495]3 
WT t= 0 & (XCLOCKS+PCRTRIIC3324:24])3 
WMCP $m PATCHLEVELS 
WLOG #2 LOGVERSION3 
Wh t= DATE3 
DISKWAITCFRECS J JNX Os5eMROW)S 
T1 t= MELOGHOLDER] INX O8 
FND; 


F M{T2) LSS O THEN MCT2],(281) t= 1 ELSE FORGETSPACECT2)3 
F T1 # 0 THEN BEGIN LOGHOLDER,fCFI8aT1s GO LOGANOTHER? END} 


KILLL: 
LOGHOLNER,£CF) ts OF MROW t= NABSCMROW)3 
IF LOGHOLDER.£989)50 THEN BEGIN FORGETSPACECA #193 MLAS=O3 END? 


KILI,CCMSCWI)>3 
END MAINTLOGGERS 


41333100 
41333200 


41333300 
41333400 
41333500 
41333600 
41333700 


41333800 
41333900 
41334000 
41334100 
41334200 
41334300 
41334400 
41334500 


41334600 
41334700 


41334800 
41334900 
41335000 


41335100 
41335200 


AAA A aH 


4AnAaHaa aso 


4-4 


+a 


0136!2 
013930 


013922 
0140:1 
0140353 
014282 
014433 
41333400 
014433 
014832 
0150!3 
01415182 
015331 
015410 
015533 
015733 
44333200 
015733 
016413 | 
44334700 
016733 
0167:3 
0170:0 
41335000 
017333 
017432 
41327100 


S1ZFe 0175 wORDS 


STACKEF 41) 
STACK¢F 42) 
STACK EF 43) 
STACK (CF 44) 
STACKEF 45) 


H A R-OR- 


$ SET OMIT = NOTCSTATISTICS) 
PROCEDURE MFSSAGETABLEBUILDERS 


41399999 T 0000:0 
41430000 T 0000:0 
START OF REL SEGMENTS DISK ADDRESS # 01033 


BEGIN 41430100 T 0000:0 
INTEGER Ie T1e12eTBL»TBLCNT$ 41430300 T 0000:0 
1 
11 
12 
TBL 
TBLCNT 
DEFINE MARKER NegeeoeeB; 41430400 T 0000:0 
LABEL L, STARTS 41430500 T 0000:0 
GO TO START? Pc.L)3 41430600 T 000030 
Liss 41430700 T 0002:0 
%¥«x* BEGINNING OF OPTION RESERVED WORD TABLE Mew eR Oe ee Ee 41430800 T 0002:0 
"DRAO">» "0000", Zy7% 41430900 T 000230 
"DRBON, "0000", TA6S 41431000 T 0004:!0 
"BOJON, "O000", %45% 41431100 T 0006:0 
"FOO" "0000". Baas 41431200 T 000810 
"OPEN, "0000", ZA3% 41431300 YT 001010 
"TERM » WNATE"s ZU2k 41431400 T 001250 
"DATE > "O000", 441% 41431500 T 0044:0 
"TIME", "OO00", %40R 41431600 T 0016:0 
"ONER™e WREAK". %39% 41431700 T 001820 
"AUTON, “PRNT®, %38% 41431800 T 0020:0 
"CLEA'» "RWRS >» B37% 41431900 T 0022:0 
$ SET OMIT = NOT paTacomM 41432000 T 0024:0 
" ", CT tt, 363 41432300 T 0024:0 
$ RESET OMIT 41432400 T 0026:0 
"CMPL">» "FILE™» %35% 41432500 T 0026:0 
"CLOS"» "FOO0", R34% 41432600 T 0028:0 
"ERRONs "RMSGs 433% 41432700 T 0030:0 
"RETO"» "OOOO". 232% 41432800 T 0032:0 
"LIBM"» "SGOO"s R318 41432900 T 003430 
WSCHE"s "DMSG"» %302 41433000 T 0036:0 
"SECM". "SGO0">s 209% 41433100 T 0038:0 
"DSKT"> "0600", E26% 41433200 T 004030 
"RELT"e "OG00"» 227% 41433300 T 0042!0 
"PRDR">» "ELOO">» 226% 41433400 T 0044:0 
$ SET OMIT = NOTCDERUGGING OR CHECKLINK) 41433500 T 004680 
Or O» 425% 41433800 TF 004630 
$ RESET OMIT 41433900 T 004810 
"DSK", "MSGO"s BQ4R 441434000 T 004810 
"NOT "“» "USEN™» 223% 41434100 T 005080 
*LIBE"> "RROO", %22% Z149= 41434200 P 005210 
"PRDO"> "NLYOM, 21% 41434300 T 005410 
“SAVE">» "PRTOMs 220% 41434400 T 005610 
"RSMS"» "GOOO">, %19% 41434500 T 0058:0 
AUTON: "UNLD"> %46% 41434600 T 006030 
“AUTO. WRNOOM, 2173 49025 41434700 P 006230 
"CONE> "OLAY">» 2163 41434800 T 006410 
"CORE". "STOO"> %15% 41434900 T 006630 
"DATA": "OLAY'» 214% 41435000 T 0068!0 
"HALT > "0000"> %13% 41435100 T 007080 
"NOT "USED" >» %12% 41435200 T 007210 
"NOT te MUSEO™> B11% 41435300 T 007480 
"NOT "s "USED"s 410% 41435400 T 0076!0 


Feee 
Sake 


MARKER. 


"USED" s+ 
"TEST", 
“LOCK™>s 
"LYOO» 
"NLYO"> 
"RATE™: 
FUSEN™>» 
” ", 
"DSOO" >» 
"0000", 
"O000">s 


BE DR VE BE BA BL HL Be dE Be 9G 
. 
rd 


x747 


ENN OF OPTION RESERVED WORD TABLE #80 eae e eee EEE ERE ER EE ER 
BEGINNING OF TERMINAL MESSAGE TABLE 2 oko eo ok a i ee Oe 


a 
"8STACK "s 
"BOPRTR "» 
"8FLAG B"» 
"BINVALD"™» 
"BEXPON ", 
"BYINTGR >» 
"ANIV BY"s 
"BEXCESS™, 
"BYINVALD"s 
“BUNEXP "s 
"BnC TU Me 
"ATPUT PM» 
"BFILE U"s 
"1n00000">» 
"BINVALI" >» 
"BINVALI"» 
"BMEMORY" + 
"1Y00000"> 
"BOPRTR "> 
"BINVALD" > 
"8 SIZE "r 
"BINVALD'™>+ 
"6 DATUM» 
“8TYPE M">. 
"Bu READ» 
"BOUT OFM» 
"ANONRCOMs 
"BL ARRA» 
"BNON®SQO"> 
"BATRIX, *» 
"BNEARLY" >» 
"BLAR MA"s 
"BUSER DM. 
WBINVALD"s 
"BIC DIA%e 
"BINVALD">s 
"THe eene ts 
"BPARITY"> 
"BRIMENS" >» 
W67E FRR» 
"BINVALD"s 
"ANAME,. "es 
“BINVALD". 


"60VRFLW". 
"SNSTEDO". 
"21TO000"»s 
"6 INDEX"™> 
"60VRELW"» 
"GBOVRELW™ >» 
"S ZEROO",» 
"S TIMEO"» 
"6 ADRSS",. 
"610 ERR" .o 
“8NOT OU"e 
"60SSBLE"> 
“BNOPENE'? 


"Sp FOUJO". 
"Sp PRLO™s 
"8 PARIT"» 


"SES"EN." 
"8 ARRAY" 


"BISMATC">+ 
"USTMT yo" 
"S DATA.» 
"BNFORMA"™ >» 
W2YSeeon” 
"BUARE Ms 


"B SINGU"s 
"ATRIX.." 
"4S"ED.."” 
"B DYNAM» 
"LL ewoee” 


"8B DETAC" 


8 
s 
° 
, 
"6 ERROR» 
"BION SI". 
"8 FILE “pe 


"8 BLOCK", 


0% 


41435500 
41435600 
41435700 
41435800 
41435900 
41436000 
41436100 
41436200 
41436300 
41436400 
41436500 
41436600 
41436700 
41440000 
41440100 
41440200 
41440300 
41440400 
41440500 
41440600 
41440700 
41440800 
41440900 
41441000 
41441100 
41441200 
41441300 
41441400 
41441500 
41441600 
41441700 
41441800 
41441900 
41442000 
41442100 
41442200 
41442300 
41442400 
41442500 
41442600 
41442700 
44442800 
41442900 
41443000 
41443100 
41443200 
41443300 
41443400 
41443500 
41443600 
41443700 
41443800 
41443900 
41444000 
41444100 
41444200 
41444300 
41444400 


Et tH HH HAT tA Ht A wt a to te 


007830 
008010 
008230 
00840 
008610 
008830 
009030 
009280 
009430 
009610 
0096810 
010040 
010130 
010130 
010130 
010280 
010440 
010680 
010840 
011010 
011200 
011410 
011610 
011840 
012010 
012210 
012410 
012610 
012880 
012910 
013180 
013330 
0135:!0 
013680 
013810 
014030 
014210 
014430 
044530 
014710 
014930 
015140 
015310 
015510 
015790 
015830 
016080 
016280 
0164140 
016610 
016840 
017010 
017140 
017340 
017530 
017680 
017840 
017910 


Eee 
54 & 


"S EXIT," 
"BINVALI's 
"BEXCESS™s 
"OME geee® 
"ANS*ED Ww, 
"BK ANCE". 
“BFS@FD ™s 
"BK ANCE» 
"BINVALT"™s 
"A INITISs» 
"BINVALI". 
"B CONTI» 
WING aed 
"BSOFTWA"» 
“BERRUPT"» 
"6 OVELWs 
"BINVALD"»s 
"6n TAPE". 
"AARRAY "oe 
"BPACE U's 
O» 
MARKER» 


"5D COM," 
"8a 10 Tr't» 


"BRY TAS". 
"ASTOR, ae 
"BRY TAS» 
“ASTOR, ,"» 
"8D TASK» 
"SATION. "» 
"8D TASK", 
"BNUATION> 


"BRE INT» 
"8 QUEUE". 


"B LINKE"s 


"BOLAY S"> 
"6SED UP">» 


2612 
383% 


5B6R 
2902 
294% 


298% 


21032 


% 108% 


% 111 t517° 
% z517« 
BSTPR 


ENn OF TERMINAL MESSAGE TABLE 22 ae ik nO OR Og OR OR ak 
BEGINNING OF KEYIN MESSAGE TABLE #8 sir ior IRR IOI IOI OR dg KORE tk 


COMMENT 


KEYIN MFSS~GE TABLE ENTRYES * 

EACH TARLE WORD JS CONFIGURED aS FOLLOWS! 
- Mrx OR INFO CODE = 

O = NFO MESSAGE ONLy 

1 = MIX OR INFO MESSAGE 

2 = MIX MESSAGE ONLY 

TWO LETTER KEYBOARD mESSAGE 


r 616 ] = 


(12312) & 
[24%6 | 


u 


(33%) J 
[34:2 J 


[36:12] «& 


*2AX0801%s 
"27L0102"%> 
"2UL0103">» 
"OQTOO0O4G"s 
W2QTOBO4 >» 
"20U0105">» 
"OWYOO06">» 
"2wYO0506". 
"ORYOOO7". 
"0nS0008", 
*2nS0608", 
"2500209", 
“OTFO410%>» 


Pwr VUE CO 8 


KEYIN PROCEDURE TO BE CALLED = 

= PROCEDURE KEYINO ¢ DIRECT CALL ) 

= PROCEDURE KEYIN1 ¢€ DIRECT CALL ) 

= PROCEDURE KEYIN?2 € INDEPENDENT RUNNER ) 

FOR ALLOWABLE STANDARD RJE REQUESTS 

MIXCODE € FOR MIX MESSAGES ) = 

= JOB SHOULD Be WAITING FOR THIS INPUT 

= JOR SHOULD Br RUNNINGs RUT NOT NECESSARILY 
WAITING 


3 = JOB NEED NOT BE RUNNING 
LABFL NUMBER ¢€ SWITCH LOCATION IN PROCEDURE) 
ENN OF COMMENT? 


ZAXZ ;yNPUT TO JOR FROM SPO 

27L% rNPUT FILE WITH LABEL SPECIFIED 
BULB INPUT FILE WITH UNKNOWN LABEL 
ZQTS QUIT PROCESSING PRINTER@BACK UP 
BQTS QUIT PROCESSING PRINTER*@BACK UP 
ZOUZ OUPUT TO SPECIFIED UNIT 

BWYZ SYSTEM INQUIRY 

BwWY% SYSTEM INQUIRY 

BRYS READY PERIPHERAL UNIT OR SYSTEM 
ZpoS% TERMINATE JOB 

HSB TERMINATE JOB 

BS0% TERMINATE JOB WITHOUT REMOVING DECK 
RTF%Z TYPE CORE FACTOR 


41444500 
41444600 
41444700 
41444800 
41444900 
41445000 
41445100 
41445200 
41445300 
41445400 
41445500 
41445600 
41445700 
41445800 
41445900 
41446000 
41446100 
41446200 
41446300 
41446400 
41449700 
41449800 
41449900 
41450000 
41450100 
41450200 
41450300 
41450400 
41450500 
41450600 
41450700 
41450800 
41450900 
41451000 
41451100 
41451200 
41451300 
41451400 
41451500 
41451600 
41451700 
41451800 
41451900 
41452000 
41452100 
41452200 
41452300 
41452400 
41452500 
41452600 
41452700 
41452800 
41452900 
41453000 
41453100 
41453200 
41453300 


AAMAS HHH HA td Ht HHH HOO HH A Rt tt a a HG 


018110 
018230 
018430 
018630 
0187380 
018910 
0191180 
0193190 
019540 
019730 
019930 
020130 
0203:0 
020410 
020630 
020880 
020910 
021110 
021230 
021410 
021680 
021730 
021840 
021680 
02180 
021830 
021830 
021810 
021810 
021830 
0238:30 
021830 
021830 
021830 
0241880 
021830 
024670 
0214810 
021880 
021810 
023830 
021810 
021830 
0218:0 
0218t0 
021910 
0220:0 
022110 
022210 
022310 
022430 
0225130 
0226030 
022710 
022630 
022910 
023010 


$ SET 


"OSFOO11"» 
"2RMO519"» 


"ONPOOL3"» 
"OnND7014",» 


"OnB7015", 
VOPT70O16", 


$ RESET OM]T 


“OSTOBL7T™, 
"0¢M00158" > 
*OSVO0L9tH, 
"OcLOO20">» 
*iRKO7T21">» 
"2Q0KO522%5 
WOrMO123"s 
MOEROI2Z4",» 
M20F 0125", 
"2TING2Z6">» 
"2PROZ2T"» 
"ORND02A"> 
"0500029", 
"21TO0?230"%s 
"OWLO431%. 
"2TFOR32% 6 
"ORCO033%>s 
“Lee 77 aa, 


$ SET OMIT = NOTCNATACOM AND 


"0R07001", 
"OL T7002", 
"OLO74O3%, 
"O777004"—5 
"OTC7NOO5",» 
MOUMTOONA%» 
“AUR7TOOT >» 
"OSS7AH0B", 
"2587708", 
“ORS7009">» 
"OUS7010%s 
"OSCTOLIN» 
"OQV7012%>» 


$ SET oMrT = NOT paTACOM 


WORR7013%>5 


$ SET OMYT = NOT AUXMEM 


MOLATO14 Ms 
"OCATOIS"s 


$ RESET OMIT 


WOnNT1O16"» 
"OWD14G1 7%» 
"OTR{0O18">s 
WOWT1419%> 
"OWM{ 420%) 
"OrCC142i"s 
"OOL1020", 
"OPB1423">» 
"ORN1OZ4", 
"O0L01025", 


XSFR 
BRME 


ZpPs 


$ SET OMYT = DUMP OR DEBUGGING 


Zonk 
ZHBz 
RPTZ 


SST 
ZcMS 
ZSVE 
ECLE 
YHKEZ 
EOKS 
SEMS 
BERR 
®OFS 
STIS 
ZPRE 
ZROB 
450% 
BTR 
Ew1s 
KFS 
BRC% 
Lard 


SET CORE FACTOR 
REMOVE DUP FILE 


OMIT = NOTCDUMP OR DEBUGGING) 


CORE DUMP 


NISK DUMP 
DISK BUG 
PRINT TRACE 


STOP JOB 

CHANGE MCP 

SAVE PERIPHERAL UNIT 

CLEAR PERIPHERAL UNIT OR SYSTEM 
BREAK 

CONTINUE PROCESSING JOB 

FORMS READY 

FINAL REEL (COBOL) 

OPTIONAL FILE"COBOL, OK FILE*LIBMAIN 
PRINT TIME FOR JOB 

PRINT PRIORITY OF JOB 

RESET OPTION BIT 

SET OPTION RIT 

MAINTENANCE INTERRUPT 

WHAT INTRINSIC 

IGNORE INSUSE FILE 

REEL CHANGE ON WRITE 

END OF FIRST KEYIN PROCEDURE CALLS 


DcSPO) 


BROS 
ZL 1% 


“$LOR 


477% 
STC% 
ZHMS 
ZHRZ 
%SS8% 
ZSS% 
%QS2 
BUSS 
%SC% 
ZQV% 


ZRRF 


ZLAS 
ZCAB 


SpTs 
BwWOS 
RTRZ 
ZWTS 
BWMS 
ZCC% 
¥OU2 
BPBS 
FRNZ 
%LOZ% 


BLACK OUT 

LOG IN 

LOG OUT 

SENSE E0OT 

TIME AND CHARGES FOR REMOTE STATTON 
HALT MESSAGES 

HALT MESSAGES FOR JOB 
STATION TO STATION MESSAGE 
STATION TO STATION MESSAGE 
SET BACK UP SPO 

RESET BACK UP SPO 

PRINT SPO CONSOLES 

SET REMOTE TIME OUT VALUE 


RESET REMOTE AS NON#SPO 


LIST AUXMEM FILES 
CHANGE AUXMEM FILES 


CHANGE DATE 

WHAT DATE 

SET TIME 

WHAT TIME 

WHAT MCP 

CONTROL CARD (SEE 16043680 FOR QMARK) 
PRINT OUTPUT LABEL 

START PRINTER BACK*UP 

SET PSEUDO READERS 

START LOAD CONTROL 


41453400 
41453500 
41453600 
41453700 
41453800 
41454500 
41454600 
41454700 
41454800 
41454900 
44455000 
41455100 
41455200 
41455300 
41455400 
41455500 
41455600 
41455700 
41455800 
41455900 
41456000 
41456100 
41456200 
41456300 
41456400 
41456500 
41459900 
41460000 
41461500 
41461600 
41461700 
41461800 
41461900 
41462000 
41462100 
41462200 
41462300 
41462400 
41462500 
41462600 
41462700 
41462800 
41463100 
41463200 
41463600 
41463700 
41463800 
41463900 
41464000 
41464100 
41464200 
41464300 
41464400 
41464500 
41464600 
41464700 
41464800 


A ANAM AMAA HHH HHA HA tt A A A A HA 


023110 
023230 
023380 
023310 
023430 
023410 
023530 
0236180 
023730 
0237:%0 
023810 
023930 
024030 
0241450 
024230 
024380 
024410 
0245140 
024630 
024710 
024810 
024930 
025030 
025130 
025230 
025310 
025430 
025510 
025520 
025630 
025730 
025810 
025910 
026040 
026130 
026230 
026330 
026420 
026530 
026630 
096740 
026850 
026810 
076910 
026910 
027080 
027130 
027130 
027220 
027340 
027410 
0275380 
027630 
O27720 
027830 
027910 
028010 


"ORD1026"%» 


$ SET OMIT = NOT PacKkETS 


"ORPLO27T%s 
SET OMIT = PACKETS 
"Or p1028">» 
SFT OMT & NOT STATISTICS 
"0517029", 
SET OMIT = NOTCDATACOM AND 
#0, R7030", 
RESET OMIT 
"10T1631%s 
#OIN{632">» 
POFELO33%s 
"10C1234", 
"0501035">» 
SET OMIT = NOT SEPTICTANK 
"O0¢S7036">» 
"OUS7TO37T">» 
RESET OMIT 
SET OMIT = NOTCWORKSET) 
"OWK1 338", 
POP OMYT 
SFT OMIT = WORKSET 
Wek 7 eM, 
SFT OMIT = NOTCHATACOM AND 
"aWwU7201%e 
"OWwP7TOO2s 
WOWAT2O2» 
SET OMYT = NOTCDATACOM AND 
"OWRTNO3%, 
RESET OM{T 
WOMX DAD GM» 
4T59305%s 
WOPSAI06Me 
"OrSo707"»s 
"MOY¥SDIOAMs 
"OLF2409%s 
"OLC2410%. 
"OLSA411%s 
WORFX241 2s 
"OPN2413"s ; 
SET OMIT & NOTCDATACOM AND 
"1SM7214"> 
RESET OMIT 
"OTO2ZAI5S%s 
*OP02H16"%>s 
*OPG2017">» 
SET OMIT = NOT AUXMEM 
"LT AU7TO1B"» 
POP OMIT OMIT 
SFT OMIT = NOT MONYTOR 
"OMS7019"> 
POP OMYT OMIT 
“OLN2020"> 
"OCD24F1%s 
SET OMIT = NOT PACKETS 
"OPP2422%» 


BRDS 
ERPR 


BEDS 


¥S 12 


REMOVE PSEUNO DECK 
REMOVE PACKET 

FND PSEUDO DECK 

SET STATISTICS INTERVAL 


DeLOG) 


KLRZ 


XOTS 
ZINS 
SEES 
ZOC% 
%5Q3 


ZcSk 
BySE 


BWKS 


ued 


SET REMOTE LOG 


PRINT PRT CELL OR CORE LOCATION VALUE 
SET VALUE OF PRT CELL 

ENTER MAINT, LOG COMMENT 

ENTER OPERATOR COMMENT IN LOG 

NISK SQUASH 


CREATE SEPTIC TANK 
HALT SEPTIC TANK 
WORKSET REQUESTS 


FND OF SFCOND KEYIN PROCEDURES 


NcSPO) 


RWUS 
awWwP% 
FWAE 


WHAT CREMOTE) USERS 
WHAT PROGRAMS ATTACHED TO REMOTES 
WHAT CREMOTES) ATTACHED TO JOB 


DeSPO AND DCLOG) 


BWRE 


EMX% 
B1TS% 
ZPSZ% 
ZESZ 
EXS% 
ZLF% 
#LC% 
ZLS% 
ZEXE 
EPOB 


WHAT REMOTE LOG 


LIST JOBS IN MIX 

TYPE SCHEDULE 

CHANGE PRIORITY OF yoB IN SCHEDULE 
REMOVE JOB FROM SCHEDULE 

FORCE SELECTION FROM SCHEDULE 

LIST FILES FOR USER 

LIST FILES FOR CREATOR 

LIST FILES FOR SECURITY 

LIST FILES EXPIRED 

PRINT DIRECTORY 


Dc SPO) 


ZSM% 
ZTO% 
SPOR 
XPGR 


% AUS 


ZMS% 


ELNZ 
¥cD% 


ZPPR 


START MIX MESSAGES 
TYPE OPTIONS 

PRINT SPECIFIED OPTION 
PURGE TAPE UNIT 


PRINT AUXMEM IN USE 


SET/RESET SYSTEM MONITOR 


START LOG 
PRINT PSEUDO DECKS ON DISK 


PRINT PACKETS 


41464900 
41465000 
41465100 
41465200 
41465500 
41465600 
41465900 
41466000 
41466300 
41466400 
41466500 
41466600 
41466700 
41466800 
41466900 
41467000 
41467400 
41467500 
41467600 
41467700 
41467800 
41467900 
41468000 
41469900 
41470000 
41470500 
41470600 
41470700 
41470800 
41471100 
41474200 
41474300 
41471400 
41471500 
41471600 
41471700 
41471800 
41471900 
41472000 
41472100 
41472200 
41472300 
41472600 
41472700 
41472800 
41472900 
41473000 
41473100 
41473300 
41473350 
41473400 
41473600 
41473700 
41473800 
41473900 
41474000 
41476100 


AHA H HHH HHH HH A tA A HA tt A HH A a tt st Ht 


026130 
028230 
0282:0 
028330 
028330 
02684:0 
026410 
028510 
028530 
026610 
028630 
028710 
028810 
028910 
029080 
029180 
029140 
029230 
029330 
029320 
029330 
029410 
029430 
029430 
029510 
0295380 
029630 
029730 
029810 
029830 
029910 
029910 
030080 
030140 
030280 
0303:0 
030480 
0305:0 
030630 
030730 
030830 
030910 
030930 
031010 
031030 
031140 
031230 
031330 
0343450 
0314:0 
031430 
031430 
031510 
0315180 
031680 
031710 
031780 


"OPC2423"> 
$ SET OMyYT = PACKFIS 
1 CUZEZUM> 


S$ SET OMIT = NOT STATISTICS 


"OSY7025">, 
"OSL7TO26% >» 
S$ RESET OMIT 
"ORW2027", 
"0712028", 
W2CT2E29N, 
"OXTA630"> 
"2TL 26316 
"OXD2032%» 
"OMRE033%. 
"OMC2034". 
& SET oMyYT = NOT BREAKOUT 
WORS7TN3I5". 
$ RESET OMIT 
"OuUN2036", 
WAOSAZ63T", 


$ SET OMIT = NOTCRREAKOUT) 


"1{F 17638", 
$ POP OMtT OMIT 

%1¢e¢0000", 

MARKER» 


BPCH 
BCUs 


ESY% 
BSLE 


ERWS 
BC1% 
4CT% 
RXR 
BTL% 
BXD% 
EMRE 
BMCR 


BRS 


SHOE 
SAE 


SEK 


Seed 


PACKET COUNT 
PRINT CORE USAGE 


SET STATISTICS FILES 
SET STATISTICS FILES 


REWIND TAPE UNYT 
CHANGE INTRYNSIC FILES 
CHANGE TIME LIMITS 
EXTEND TIME LIMITS 
PRINT TIME LIMITS 
CREATE BaDeDISK AREA 
MAKE RESERVE DISK 

MAKE COMPILER 


RE*START AFTER BREAKOUT 


HOW MUCH CAVAILABLE) DISK 


SEG & REL ADDR OF RUNNING PROGRAM 


BREAKOUT FROM SPO 


END OF TABLE 


%139= 
¥139= 
2139" 


Keewe ENA OF KEY YN MESSAGE TABLE 2 iki ik ik iO i nO i Oi RIOR ROKK gi i ig kok kok 
ZBe*e* BFARINNING OF CC RESERVED WORD TABLE cok ike i IRR ORO ORI ke i Ok 


WUNLOCK ", 24» 
"USF Ws 27» 
"LOCK ", 23 1» 
"FREE "» 24 6 
"PUBLIC 's 25 8 
WPACKET >» 76 » 
"USER W, al. 
"RUN Ws 28 » 
wR Wt, 28 
"COMPILE" > 29 +» 
"¢ w, 29 »¢ 
"EXECUTENs 30 » 
Wey ", 30 » 
"COPY ">, 31» 
"DUMP ", 32 » 
"UNLOAD >» 33 » 
"AND ", 34 » 
"LOAN "> 35 » 
PREMOVE "e 36 » 
"CHANGE "> 37 
YUNIT "> 36 » 
"PACKEND"e 39 » 
"END "se 39 1 
$ SET OMIT = NOT PacKkeETS 
"WAIT = "> 40 » 
$ POP OM]T 
"DATA "» 41 4 
"DATAN29", 41 >» 
"LABEL >» 42 9 
"SrT Wy 43» 


38908 


41474200 
41474300 
41474700 
41474800 
41475200 
41475300 
41475400 
41475500 
41475600 
41475700 
41475800 
41475900 
41476000 
41476100 
41476200 
41476300 
41476600 
41476700 
41476800 
41476900 
41477000 
41477300 
41477400 
41479700 
41479800 
41479900 
41480000 
41480100 
41480200 
41480300 
41480400 
41480500 
41480700 
41480900 
41481000 
41481100 
41481200 
81481300 
414861400 
41481500 
41481550 
41481600 
41481700 
41481800 
41481900 
41482000 
41482100 
41482200 
414862400 
41482600 
41482700 
41462800 
41482900 
41483000 
41463010 
41483100 
41483200 


Ot Ht A HA A AA HHO OO A A THA tt st ot 


0318:0 
031980 
0319380 
032030 
032010 
032130 
032230 
032210 
032310 
032410 


0325%0 


032610 
032750 
032810 
032980 
033080 
033010 
033110 
033110 
033210 
033310 
033310 
033410 
033410 
033510 
033610 
033610 
033610 
033880 
034010 
034210 
034430 
034610 
034810 
0350%0 
035240 
035410 
035610 
035810 
0360%0 
036240 
036430 
036630 
036810 
037010 
037210 
037410 
037640 
037840 
038040 
038210 
038210 
038430 
038410 
038610 
038810 
039010 


WRESET , 
"PILE "s 
"EXPIPED» 
"ACCESSD"» 
"PROCESS". 
"10 Ww, 
“PRIORIT">s 
"COMMON , 
"CORE , 
"STACK “os 
"SAVE Wy, 
"ALGOL "ep 
"XALGOL "“e 
"FORTRAN » 
"TSPOL "» 
"RASTC "> 
"COROL6B"» 
"WHTH ", 
PCOROL "pe 
WLYRRARY's 
"SYNTAX "pe 
"FROM ", 
"TQ , 
"ON ">, 
“FORM Ww, 


"RANDOK "» 


"LINE S66" > 


¥ kee 


"DIIMMY 
"NO ", 
"DSK tt, 
"TAPE Ws 
“PUNCEK ", 
"PRINT es 
"BACK a) 
"SPECTAL'» 
"REMOTE "> 
"SFRIAL >» 
WUPDATE "oe 
“SPO w, 
"PAPER Me 
"Eu "» 
"SLOW ", 
*"R6500 >» 
"EAST w, 
"MAX TMUMM >» 
"FREEF 
"FIXED "es 
WPROTECT™»s 
"SENSITI Ms 
“LATEST "oe 
"EXCEPT "> 
TAS w, 
"NOHASH “e 
"ce ", 
QO» 
MARKER» 


see eve ese smcemmCUUmUCUC OUCc OlhUCUC RUmhUCc POmhUCOCmhUrWTD.DhUh MH TH BR BV BV BE BY BB 


ee ee © 7 


% A STORF NEAR THE END OF Pec 
% MAKES USE OF THE ORDER AND VALUFS 
2 OF "PROCESS" THRU “SAVE", 


% SWITCH DCPCC) 


& "FORM*="SPECIAL" 


% CC MUST EQUAL QUEST % 


%148* 
846" 
%603" 
R724" 
%846" 


FNn OF CO RESERVED WORT TABLE ote tet 8 i i we ek eo mR ii dk Rk ek att Ok 


41483300 
41483400 
41483500 
41483600 
41483700 
41483800 
41483900 
41484000 
41484100 
41484200 
41484300 
41484400 
41484500 
41484600 
41484700 
41484800 
41484900 
41485000 
41485100 
41485200 
41485300 
41485400 
41435500 
41485510 
41485600 
41485610 
41485620 
41485630 
41485700 
41485800 
41485900 
41486000 
41486100 
41486200 
41486300 
41486400 
41886500 
41486600 
41486700 
41486800 
41486900 
41487000 
41487100 
41487200 
41487400 
41487500 
41487600 
41487700 
41487800 
41487900 
41488000 
41488100 
41488200 
41488900 
41489000 
41489100 
41489200 


A HHA AHH HHH HATA AR HA AHA AHO VO AAA A A ot A ta a a tt 9 Ht 


039280 
0394:0 
039630 
0396:0 
040010 
040210 
040430 
040610 
040830 
041010 
041210 
0414380 
041630 
041810 
042010 
042230 
042450 
0426:0 
0428:0 
043030 
0432:0 
0434:0 
0436:0 
043810 
044030 
044220 
0444:0 
044630 
0448:0 
045010 
045230 
0454120 
045610 
0458:0 
0460:0 
046230 
046430 
0466:0 
0468:0 
047030 
0472:0 
047410 
047610 
04786:0 
048030 
048210 
0484:0 
048630 
0488:0 
049030 
049210 
049480 
049670 
049830 
050010 
0502:0 
050330 


% mm 


Fee & 
Zone 


RERINN ING OF LRMESS MESSaGr TABLE 2 kaa OR ok OR Ki aOI OR KR ioe 
Hy % 0 


° 


"LOADED WH, Me Ww, v4 1 
"DUMPED "ete ") 23 
"CHANGED" »®” «@ wag 5 
“REMOVED Me « ", £ 7 
"MCeRn «%) £9 

“ErXEN #%, & 10 

WReSET «> % 44 

“SrT «© “s & 42 
"ACCESSE*s*De %, % 13 


"NOT ON “etDISKe ") & 15 
"NOT ON es" TAPE Se %, % 
"NOT FXE"s"CUTABLE"%#” CONE+ “se B 1 
"NOT A C¥a"OMPILERY>* ", & 22 
"SYSTEM woME TLE }e Ws 
"TAPE PA" e"RITY® "es 
"DUP FILMe"Ee "s 
“NO USERM>" DySKe "» 
"UNEXPED™ +” EOFe 
"D1SK PAM e"RITYo a 
"BAD NAMMs" Fe wy, 
"INV REC™®” STZEe Me 
"INVALID™s™ USER] '» 
"BaD HEA" *DER} Ws 
"IN USFe™s & 45 
*ANDEN «ss % 46 
“,TAPE P®e"OSI TIONS "FE De} ", % 47 
MAUTOMZIMe"PPED] ts & 
"CHANGED »s” TO ¢ WW, ¥ 
"MCPED T%e"O « “» & 
MEXTRA RMS"ECORDSeMs & 56 

x 

4 

% 


BR BQ SE VE a@ BA DA BE DG DE 
wy 
ss 


"OUP LIBNs "RS« Wy 
"SENSITIMN® "VEe ", 
"BEING B®e"LANKEDe™» 
"NOT LAT@s"EST VERT» "STON] “se % 64 

"“COPIFDe"™s & 467 

"ON NISK*s %e "» £ 68 %160" 
MARKFR3 

ENn OF LBMESS MESSAGE TARLE 6k sR RR ROI IO OIG CHO eg 

FNn OF RESFRVF NM WORD AND MESSAGE TABLES sak RR ROKR gk aOR KK Ok 


START? 


TBLSey2teMP PC, MESSAGETARLEBUILDERII, (CF) +23 
WHILE MPFTBL&ieTBLe+1]#MARKFR DOF ¥ SEARCH FOR END OF OPTION TBLE 
1i:sTRLs TBLteTBLay 
FOR yt#2 STEP 1 UNTIL MESSAGETABLESIZE DO 
WHTLE METRAL?#=sTBL+1) # MARKER DO 
Tieliry2s pitecTBlLe+2)<7 43 
STRFEAMCAS=] DIV 60eB%ecytect, MOD 60) )eciatt DIV 60% 
DtecTit=Cli MOD 60))sE%a12)3 
BEGIN 
Syieks Dy tse 
AC60CST%eSt4e4? DSt=ea CHR)13 
RcSpteSp44s DSts4 CYR)? 
C(NS%$s260 WOS);3 
NcDSteWOS)3 
END? 


41490000 
41490100 
41490200 
41490300 
41490400 
41490500 
41490600 
41490700 
41490800 
41490900 
41491000 
41491100 
41491200 
41491300 
41491400 
41491500 
41491600 
41491700 
41491800 
41491900 
41492000 
41492100 
41492200 
41492300 
41492400 
41492500 
41492600 
41492650 
41492700 
41493010 
41493020 
41493030 
41493040 
41493050 
41493060 
41493070 
41493080 
41493085 
41493100 
41493200 
41500000 
41500100 
41500200 
41500300 
41500400 
41500500 
41500600 
41500700 
41500800 
41500900 
41501000 
41501100 
41501200 
41501300 
41501400 
41501500 
41501600 


AAA HoH HHH HHH HE O HM AHA HA HA A AA Ct AA HATHA Ht TH 


050330 
0503320 
0504:0 
0506:0 
050830 
051010 
051230 
051320 
051410 
051580 
051630 
0514810 
0520180 
052230 
052510 
052810 
053030 
053210 
053430 
053620 
053830 
0540380 
054220 
0544130 
054630 
0548:0 
054910 
055020 
055330 
055530 
055710 
055930 
056130 
056310 
056510 
056710 
057030 
057110 
0573:0 
057430 
057430 
057440 
057420 
0577380 
058210 
058430 
058530 
05921 
059581 
059641 
060030 
060010 
060012 
060234 
060382 
060412 
060532 


41501000 


’ 


TRL &ar23 

FOR TRLCNT?=0 STEP tf UNTIL CMESSAGETABLESIZE"1) DO 

BERIN 
WHILF METBLteTBlLat]4MARKER DOS [te TBL~1 23 
MESSAGETABLEITBLONTJFeGETUSERDISK((14+29) DIV 307810683 38810)3 
DISKWAIT(T2s7-MESSAGETABLELTBLCNT).£22%26))3 
y2i=TBLiexTBL+4? 

ENN? 


END BUILDING TABLES} 


41501700 
41501800 


41501900 
41502000 
41502100 
41502300 
41502400 
41502500 


41502600 


Se) 


T 


060583 
0606t2 
061083 
061033 
061731 
0621%4 
0623'1 
062510 
41501900 
062512 
44430100 


SIZE™ 0626 WORDS 


STACK(CF 41) 
STACK ¢F 42) 
STACK¢(F 43) 
STACK ¢F 44) 
STACK ¢F 45) 


STACK ¢F 46) 


PROCENURFE FNTERSYSFILECNI? VALUF NS REAL NB 


% 


BEGIN 


REAL AsJoWCoMFINeDISKS 


ARRAY DNOFe)3 
LABEL RETURNSEXIT3 


1F Nad THEN 
BEGIN 

MEID t= "LIBMAIN'’S 9g ts 13 
END ELSE 


IF Nw? THEN 
BEGIN 

MFID t= *"LOCNTRL"3 
ENn ELSE 


1F Ne3 THEN 
BEGIN 

MFID $= "PRNPBT "3 
ENn FLSE 


GO EXIT 


DISK t= "nySK "3 
TF CAtENTRECTORYSEARCHCMFINsDISK»s52)2 # 0 THEN 
BERIN 
MrA INX 2] t= MCP3 
MrA TNX SJ t= MEA INX 6) te 6143 
DTSKWATTCA, (CCE I» 30sA,.FFFI)3 
GO RETURN} 
ENN3 


DDD t= EMEA tu SPACECWC 8 181430xJ)}18WC7 883881073 
MOVE CWCEA™L SADE 

STREAMCDATF»DizAe3)? 

BEaIN - 
S}taLOC MATES DSta8B OcT3 
DrtezDs OSt=2 LIT+#93 
SpieDs SptsS [45s DNStuz CHR} 
ENN; 


DDNt 0) 82 2&360003600040;3 

DOMe 1] t= CXCLOCK+PCRTR)I&DDDr 3376830818)3 

ODnt 2) t= MCP3 

DONE 43,6982] ts 33 

DOntC 5] t® DDONC6) 33 0443 

DOHC 7) t® 44y3 

DDnE 9] ts 18 

DNNL10) t= PETUSERDISK(CnDNC8) t= S4J0Q17 22479110193 


41600000 
START OF REL SEGMENT? O1SK 
41600100 
41600200 
41600300 


41600400 


41600500 
41600600 
41600700 
41600800 
41600900 
41601000 


41601100 
41601200 
41601300 
41601400 


41601500 
41601600 
41601700 
41601600 


41601900 
41602000 
41602100 
41602200 
41602300 
41602400 
41602500 
41602600 
41602700 
41602800 


41602900 
41603000 
41603100 
41603200 
41603300 
41603400 
41603500 
41603600 


41603700 
41603800 
41603900 
41604000 
41604100 
41604200 
41604300 
41604400 


T 


000010 


ADDRESS » 01054 


T 
T 
T 


+a 


~~ st 


mst ast st ot 


Sia ee ee ee 


000030 
000010 
000030 


000030 


000080 
000080 
000030 
000231 
000213 
000431 
41600800 
o004ts 
000613 
O007t1 
000810 
41601200 
000810 
001083 
001184 
00120 
41601600 
001240 
001280 
001210 
001213 
001530 
001532 
001831 
002210 
002411 
002730 
41602300 
00270 
003203 
003413 
003614 
003681 
003633 
003712 
0038t4 
41603200 
003812 
003983 
004213 
004433 
004731 
004912 
005i! 
005212 


DOnNC35] 


37J3 


NDnN6 32) &# NOHLIB) tz 23 
DDn633] t& 4eg3 

DNnr34)] ts 223 

DDNC35) 82 2eJeu3 

DON 36] t= 63 

DDnNC37) $= TF J THEN 1 FLSE 13 

pNnr 47) t= Nonr4B] ts 3777777777773 % TIME LMT 
DDNC49] $3 IF JY THEN 2 FLSE O38 & % PRIORITY 
onnes5i1) +2 TF J THEN 64 FLSE 43 % CORE EST 
Don‘ 52) t# TF J THEN 200 ELSE 1503 % STACKSIZ 


ODDNl641)] == #0000012600004041 


X711° 


&cir J THEN 35 ELSE 1F Ne2 THEN 23 ELSE 199£24838810)3 


DOnr62) %= 8002414011000000003 
DNN1122=30xJ)] ¢= @00002200002000013 
DONE 169730xKU)] ¢= FLAGC@2740010000100000)3 
IF NOT J THEN 
STREAMCCHBN=2, Dt2CDD06911))3 
BEGIN 
CTtescy+cs GO L113 
n$ts40 LyT 
"O12cONTROLDECK LAOP2BACK*UPOF DECK1B00"3 
GO L23 
Lie nste40 LyT 
"OL2PRINTERBACK@UP1LAN220000000PRINTERI B00"? 
L23 
ENns 


ENTFRUSERFITLECMFIDsDISKs a1 )3 
DISKWATTCA431.WC"731°DDN0190))3 


RETURN? 


EXITS 


FORGFTSPACECA); 


END ENTFRSYSFILES 


41604500 
41604600 
41604700 
41604800 
41604900 
41605000 
41605100 
41605200 
41605300 
41605400 
41605500 
41605600 
41605700 
41605800 
41605900 
41606000 
41606100 
41606200 
41606300 
41606400 
41606500 
41606600 
41606700 
41606800 
41606900 
41607000 
41607100 


41607200 
41607300 
41607400 
41607500 
41607600 
41607700 


0057:0 
005883 
006130 
0062:3 
006430 
006631 
006732 
007012 
0072!3 
007512 
007881 
008110 
008143 
0086!3 
008830 
009031 
009283 
OO93t1 
009582 
009532 
009631 
009622 
0101:2 
010113 
010220 
010730 
010730 
41606300 
010781 
010931 
011183 
011123 
0112:2 
011282 
41600200 
SIZF= 0119 WORDS 


HAHAHA A HHH A DH A 


Ax+aAHH 


STACKeFel) mo | 


COMMFNT ARTN RETURNS ALL STORAGE FOR AN N=DIMENSTONAL ARRAY A3% 
PROCEDURE ARTNCAeN)$ VALUE AoN% ARRAY ALC*J3 INTEGER NSX 


42473000 
42474000 


START OF REL SEGMENTS DISK 


BEGIN INTEGER 13% 


TF NOT STOREDY THEN SLEEP CCTOGLEJ»STOREMASK)3 
IF Ao€18%45)#0 THEN AoMrA,f18815))3 
TF N71 THEN DO ARTNCALTJ*+N@1) UNTIL Clel+1)2A,S1ZE3 
NeA INX O03 
IF AePBIT THEN 
BEGIN TeMEN@O CFF IS 
FORGETSPACECN) 
END ELSE Tens 


IF 17511 THEN DYSKRINCI»s A,SIZE)3 
END ARTN3S% 


42475000 


42476000 
42476100 
42477000 
42478000 
42478200 
42478400 
42478600 
42478800 


42479000 
42480000 


T 000030 
rT 000030 
ADDRESS # 01058 
T 000030 


0000180 
000381 
000732 
0013%2 
001530 
001680 
001910 
001941 
42478400 
002130 
002430 
42475000 


a 


S$1Ze= 0025 WORDS 


STACK¢F 41) 
STACK¢F 42) 
STACK ¢F43) 
STACK¢F 44) 


STACK¢(F 45) 
STACK ¢Fe6) 


COMMENT ASR 3S THE ALGOL STORAGE RETURN COMMUNICATES? 
BFGTN INTEGER TeRCNTR? ARRAY ALTE*13 REAL TEMP3Y 
START OF REL SEGMENTS DISK 


PROCEDURE ASR; 


I 
BCNTR 
AIT 
TEMP 


MOTHER 
DESC 


LABEL Lel13 
REAL MOTHERS ARRAY DESCe#I132% 


WHILE CAIT#PRICPIMIX*AITNOX)),PBIT#O DO% 


MAKEPRESENTCEPRTICPIMIX#ALTNOXI) INX 093% 


MEMORYCAIT INX NOT 1),£221]¢13% 

TteATT(O) +43 

IF CBCNTRisPRICPEMITXsCURRBLKCNTRJ]) LEQ O THEN 
BEGIN TERMINATECPIMIX)3 


END: 


TERMINALMESSAGEC78)3 


WHILE CTEMPeAIT& e113), BLUKCNTRIBCNTRE 
DO REGIN DESC#MEMORY(MOTHER*+TEMP,MOM]3% 
IF TEMP,(122)#1 THEN % CHECK FOR FAULT ENTRY 


La 


Lg 


IF TEMP.£182]2 THEN & FILE 
IF TEMP.(£33815]@2 THEN BEGINE 
FILFCLOSECCMOTHER+3&8C(CDESCL4),(625321]22)x@12) 
£18:33:15))3 
40 TO L END ELSES 
BEGIN FILECLOSEC CDESC INX 5)8 
COMEDESCL2] YNX 4),(625%82)82)%812) 
£188332451)3 
FORGETSPACECDESC INX 0)3% 


END ELSE 1F TEMP.£1%1)] THEN & SAVE MYSELF TASK 


IF MOTHER=TSX THEN ELSE IF & ARRAY FOR COM5 


CONTI ©DESCEL3I2=1 ORCNT1=2 AND DESCL414PiMIX)) 


THEN % TASK ARRAY OF A SCHEDULED OR 
% RUNNING OFFSPRING 
BFGIN IF NT1#1 THEN 


SHEETDIODLER(C0s20sDESC(4})3 £ ES 


IF DESCL3)J*2 THEN % RUNNING 
BEGIN Pee a MeneCDE SECS ever etna. z OS 
H 


NOPROCESSTOG « NOPROCESSTOG=13 
END3 


SLEEPCCDESCO337.70)3 
60 TO Lis 
ENn ELSE GO TO Li FLSE 


% WAIT FOR DS 


IF SOFTI>O THEN YF JARECPIMIX22),°5%1] THEN 
IF MOTHERSSFINTX THEN ELSE 
FLSE ELSF 


ARTN¢DESCe+TEMP.DIMENSTIONS)3 


MEMORY[C MOTHER] «03% 


42481000 
42482000 


42483000 
42484000 


42485000 
42486000 
42487000 
42488000 
42488100 
42488200 
42488300 
42488400 


42489000 
42490000 
42490100 
42491000 
42492000 
42493000 
42494000 
42496000 


42497000 
42898000 
42499000 
42500000 
42501000 


42501040 
42501050 
42501060 
42501070 
42501100 
42501200 
42501300 
42501400 
42501500 
42501550 
42501600 


42501650 
42501700 
42501800 


42501810 
42501820 
42501830 
42501900 
42502000 
42503000 


T 000030 
T 000030 
ADDRESS = 01059 


T 000030 
T 0000:0 


000030 
0004:2 
000730 
001033 
0012%1 
0014114 
0015%2 
001621 
42488200 
001681 
0018383 
0022314 
0023%2 
00251 
002732 
003031 
0031380 
42492000 
003132 
0033314 
0036%1 
003730 
0038%2 
42497000 
0039383 
0042:0 
004532 
004583 
0045183 
0047:0 
004930 
005010 
0052180 
005282 
005333 
42501400 
005333 
005533 
005631 
42501100 
005631 
0059%2 
006131 
006231 
006482 
0066320 


Se ee Se ee ee 


4-4 


ENN3% 


ALTcOJler3y 
PRTCPIMIX,CURBLKCNTRI+BCNTR@13% 
TF J>0 THEN DOZEWIPE OUT BAD LABELS IN FAULT CELLS 
TF ATTC1I60122)21 THEN 
IF MCAITCI),MOMJ.BLKCNTR2BCNTR THEN 
MEAITFI],MOMJ©O UNTIL (lefH1)<03 
MEMORYLATT INX NOT 1),.0281}e088 
END ASR3% 


42504000 


42505000 
42506000 
42506100 
42506200 
42506300 
42506400 
42507000 
42508000 


006680 
42490000 
0066t2 
006733 
00700 
007131 
007213 
007610 
008110 
006413 
42482000 
S17Es 0085 WORDS 


Se ee ee ee 


STACK (FS) 
STACK (F #3) 


STACK(F41) 
STACK CF 42) 
STACKCF 43) 
STACK¢F 44) 


STACK¢F 41) 
STACK¢(F42) 
STACK ¢F 44) 
STACK¢F 43) 


STACK ¢(F 41) 
STACK¢F42) 
STACK¢(F 43) 


PROCEDURE  tNTERRUPTCTYPE)? VALUPF TYPES REAL TYPE 


START OF REL SEGMENTS D1SK 


BEGIN LABFL FLAGBIT»sINVALIDINDEX»EXPUNDERFLOW,DIVIDEBYZEROS 


LABEL XYT3 
SWITCH SWeFLAGBITe INVALIDINDEXs EXPUNDERFLOWSDIVIDEBYZERO: 
ARRAY ToPs#5(#13 


TOP 

REAL FLAGTESTER="33 
FLAGTESTER 

ReAL MOM*SIZEsALOC? 13 
MOM 
SIZE 
ALOC 
1 

REAL RCW24eieRCWLs+2eSAVITae+43 NAME Aze33 
RCW 
RCWL 
SAVIT 
A 

REAL Re+1,Se420Y¥ue33 
R 
$ 
Y 


BOOLFAN SUBROUTINE DOUBLEPRECYS]0N3 
REGIN ReMrSePRTPFP{MyXe.8) INX OFF BIRCW 


STREAMCRe(R INX 0)8R63021082),YeLYI)3 ZSGET OP CODE 
BEGIN SteRs SyeSt#2! DleD] +63 DSe2 CHR END} 


DOUBLEPRECISTIONeY,£45:3]2%53 


END3$ 
CHE CKSTACKSPACE32 Zw 
GO TO SWITYPEI;3 

FLAGBITs 


SAVIT+«TOP$ 

NTI*¢ANALYSIS3 

Ie SYLLABLE,£4127)#835 THEN 

If SYLLABLE,C45%3]#0 THEN 

BEGIN ERRORFYIXER(1{6)% TERMINATE CPIMIX)$ TERMINALMESSAGE(5) ENDS 


AePRICPIM}EXs4)3 

RoW « MERCWL « PRTICPYMIXe8) INX NOT CCSYLLABLES@235)42) 13% 
IF RCW.£3321) THEN ® TYPE 13 INTRNSC 

BrGIN 

[+93 

Yell (CFI3 

I eFLAGCCA@2520000000000000 Ac Rew. (34814) (CTCI)3 
MAKEPRESENTCY)3 

MrRCOWLIeFLAGCRCOWRCMCRCW, CERF IJINX CNFLAGC [ )),fCFIICECTCI)} 
GO TO INITIATES 

END ELSE 


IF NOT PRTCPUMIXoAC RCW] £82103) ,¢234) THENS 
MAKFPRESENTCPRTROWLCPIMIX) INX AERCWI,68940))3% 
MpRCOWLI*FLAGCRCWRCMERCW,£182153) INX ACRCW),£188153906338338151)3 
GO TO INITIATES 


42510000 T 000080 
ANDRESS = 01062 
42541000 T 000080 
42511500 T 0000t0 
42512000 T 0000380 
42513000 T 00000 
42513500 T 000010 
42514000 T 000030 
42515000 T 0000:0 
42516000 T 000020 
42517010 T 000040 
42547020 T 000130 
42517030 T 000411 
42547040 T 000683 
42517040 
42517050 T 000840 
42517060 T 000932 
42517020 
42517100 T 000933 
42517100 
42518000 T O0015!1 
42520000 T 001831 
42521000 T 001841 
42522000 T 001981 
42523000 T 002011 
42524000 T 002132 
42524100 T 0023%1 
42524100 
42524200 T 002630 
42525000 T 002782 
42525100 T 003230 
42525110 T 003283 
42525115 T 0033!14 
42525120 T 003430 
42525130 T 0035!1 
42525140 T 003711 
42525150 T 00380 
42525160 T 004233 
42525170 T 004311 
42525110 
42525500 T 004331 
42526000 T 0048:0 
42527000 T 005191 
42528000 T 0056!2 


TNVALTD INN EX? 
FOR te6 STFP S UNTIL 11 DO 


trp TOP, (18215)=(MOMerPRTCPIM{Xe19I,.£33%15)) THEN 
Te CS1ZEeMEMOM1,(8210)2<1023 THEN 
BEGIN ITF MEMOM],.0C221)20 THEN MAKEPRESENT( MOM) 
Me CALOCeME(MOM] (6332145) )92),C2t1J]e13 
IF (NTA S SME ALOC"1)7-fFF])40 THEN DISKRTINONTL se SIZE)D3 
ME MOM) eFLAGCO&8MOME 18233215) 
Qacife SIZE<512 THEN 2xSIZE ELSE 1023)(8238210))3 
TF TYPE © PCFLAGTFSTERsTOPsXCHeDEL) THEN MAKEPRESENTCMOM) 
ELSE 
MAKEPRESFNTCANALYSIS)3 
MOVECSTZEsALOC,MLMOM])3 
FORGETSPACFECALOC)3 
IF TYPE THEN GO XyT3 
GO TO yNITIATES3 
END3 


ERRORFIXFR(O4)3 TERMINATFCPIMIX)$ TERMINALMESSAGEC(7)3 
FXPUNDERFILLOW: 
Ir NOURLFEPRECISION THEN Mp S83 3403 
MrS"2)«+0} 
IF JARECPIMIXs,21.03%1] AND PRTICPIM{EX+@51],64321) THEN 
PRTCPIMIX,@51]+P(QOUP,LOD) OR 63 
GO TO INITIATE 
NIVIDEBY7FRO?: 
TF CPCJARCPIMIX,2]+D0UPI20 AND NOTCPCXCH),£331] AND 
PRTFPIM1X,@54],644111)) THEN 


REGIN ERRORFIXERC8)3 TERMINATECPIMIX)$ TERMINALMESSAGEC13) END 


FLSE IF JARECPIMIX,2) < O THEN IF PRTICPIMIXet 


1),C0FF] = 0 THEN 
PRICPIMIXeliJe1 ELSE PRTCPIMIX»PRTICPIMIXe11] 


11),CFF))«1 
FLSE 
REGIN PRTICPIMIX*@51}¢P(DUP,LOD) OR 13 
TF DOUBLEPRECISTON THEN M[S93]«03 
MrS"24403 
ENDS 


GO TO INITJATE? 
XYT! 
FND INTERRUPT; 


42530000 
42531000 
42532000 
42533000 
42534000 
42535000 
42535500 
42536000 
42537000 
42537050 
42537060 
42538000 
42539000 
42539050 
42539060 
42539100 
42539200 


42540000 
42542000 
42546000 
42547000 
42547100 
42547200 
42548000 
42550000 
42550500 
42550600 
42551000 


42551090 
42551100 
42551110 
42551200 
42551300 
42551400 
42551500 


42552000 
42553000 
42554000 


AA HAR HAHAHAHA 


AAAMAA AHHH 


Ata HHH 


4-4-4 


0057:0 
0057:0 
0058:0 
006151 
0064's 
006810 
007330 
007782 
0078:3 
008331 
008532 
0086:0 
008732 
008933 
0090%2 
00914:2 
009240 
42534000 
0094:4 
009632 
0096:2 
0100:2 
01022 
010513 
0108:3 
010984 
0709314 
011123 
0114:0 
42551000 
011653 
012131 
0126!4 
012730 
0130150 
013332 
0135%2 
42551200 
0135:°2 
013620 
013630 
42511000 


S1Ze# 0137 WORDS 


PRT¢704) = 


PRT¢(705) = 


STACK¢(F 41) 
STACK ¢F 42) 
STACK ¢F 43) 
STACKCF 44) 
STACK (CF 45) 
STACK(F 46) 
STACK¢(F 47) 
STACK¢Fei10) 
STACKEFe11) 


STACK (F412) 
STACKEF 413) 
STACK EF 414) 
STACK (F415) 
STACK¢F 416) 
STACK (F417) 


STACK¢F 420) 
STACK ¢Fs21) 
STACK¢F 422) 
STACK (F423) 


$ SET OMIT = NOTCNCLOG AND DATAGOM ) 
% THF FORMAT OF nIRECTORY TOPs 
% NrOTSOPTION WORDS 
% Nr1]=DATE 
,4 Dr2)JeNUMBER OF ELECTRONIC UNITSS 
% PE3ZJSHTIGHEST ADDRESS OF BACKUP STORAGES 
x DO4JeHIGHEST ADDRESS OF DIRECTORY 
% NrSjJeLAST NUMBER USED FOR CONTROL DECKS 
% Or6J=FIRST CONTROL DECK QUFUED CLOCATION IN DIRECTORY) 
¥ Nr7IJ=LAST CONTROL DECK QUEUED (LOCATION IN DIRECTORY) 
x DrBJ=eNEXT NUMBER AVAYLABLE FOR PRINTER BACKUP DISK xP 
% De9I=COREs CONTAINS MULTIPROCESSING FACTOR 
% Dr407 THRU 0F15] SPECIFY WHICH DC#STATIONS ARE SPO#LIKE, 
x Or¢612QUEUF VALVES FOR SPO STATIONS 
Y 4 NC17) SPECIFIES WHAT THE SPOFS ARE 
Dr1AJSTIME OF DAY 
DLADISVALUE OF FENCE CTIME SHARING MCP) 
N£20).C08840)=NUMBER OF LAST LOG FILE 
2f£18230])8NUMBER OF ENTRIES IN LOG CTIMESHARING) 
NC2LI=SCHEDWORD CTIMESHARING) 
N(22).C38110)=NUMBER OF CURRENT MAINTENANCE LOGe 
»f£28:10]=NUMBER OF CURRENT REMOVTE LOG, 
N£23] THRU DL26) SPECIFY WHICH SU*S WERE READY AT THE LAST H/L, 
Dt?7) 1S RESERVED FOR USE BY THE LOCAL SITE, 
Ne2BIsNrSK ANORESS OF DrRECTORYTOP 
PROCEDURE INTFINISHCAAD$ 


Be de BE BC dA FA DA DA 3E BC 


42599999 
44000000 
44001000 
44002000 
44003000 
44004000 
44005000 
44006000 
44007000 
44008000 
44008100 
44008200 
44008300 
44008305 
44008310 
44008320 
44008330 
44008340 
44008350 
44008360 
44008380 
44008390 
44008400 
44008410 
44008499 
44008998 


START OF REL SEGMENTS DISK 


tNTFINTSH 


VALUE AA#REAL AA’ FORWARDS 
SAVE PROCEDURE MORE INITIALIZES FORWARD? 


44008999 
44009000 


START OF SAVE SEGMENT? BASE 


MORE INITIALIZE 


anu H a HW MON 


zac OD YP 


SAVE PROCENURE INITIALIZES 


44010000 


START OF SAVE SEGMFNTS BASE 


BEGIN 
REAL, ApBoCoTo Jeo ToWrY¥oZ3 


Y 
Zz 
REAL ItNTSsINTSS»LASTLeLDATEsLOC»MENDS 
INTS 
INTSS 
LASTL 
LDATE 
LOC 
MEND 
REAL TRPBsTRPTBeTRPDBS»IRPTUs TRPBUFS 
TRPB 
IRPTB 
IRPDBS 
TRPTU 


44040100 
44011000 


44012000 


44013000 


T 0000:0 
T 0000:!0 
T 0000:0 
T 0000:0 
T 0000580 
T 000030 
T 000010 
T 0000:0 
T 000020 
T 0000:0 
T 9000:0 
T 000030 
T 000050 
T 000030 
T 0000:0 
T 000020 
T 000010 
T 000030 
T 0000:0 
T 000030 
T 000030 
T 0000:0 
T 000020 
T 0000:0 
T 0000:0 
T 0000:0 
ADDRESS «= 


T 0000:0 
T 000030 
ADDRESS & 


T 0000:0 
ADDRESS = 


T 0000:0 
T 0000:0 


T 0000:0 


T 0000:0 


01967 


01023 


01023 


STACK¢F 424) = TRPBUF 
. REAI, MSTART#As TtzLASTL» SHILM=MENDS 
STACK¢e Fei) = MSTART 
STACK¢F 414) = 14 
STACK¢Fsi17) = SHLM 
INTEGER IRPBTSsIRPWRS3 
STACK¢F 425) = IRPBTS 
STACK¢F 426) = IRPWRS 
INTEGER XCLICK#XCLOCKS$ 
PRTC171) & XCLICK 
ARRAY DOOC#1¢GIC#)? 
STACK(F427) = DDD 
STACK¢EF 430) = GI 
. ARRAY XewW*y3 
STACK¢Fe7) «= X 
LABEL UNITLeTINUL»MISSL3 
LABEL AVLPsINLPoeLToLE oLF eLNo LPoLS3 
$ SET OMIT = NOT SHAREDISK 
$ SET OMIT = NUMP OR DEBUGGING OR BREAKOUT 
SUBROUTINE XXXXXX3 BEGIN AeX=XaXeXaXaXaXeXmXeKeXeKeXeKOXS ENDSY 


SUBROUTINE MAKESAVE3 
BEGIN NISKWAITCPC MCT), C8:i0yeMElL), CFF J+MCPBASE)3 

MPT]. CCFliaCs MCC )seB777773 ChaeCaMey),(8510)413% 
END3 


SUBROUTINE FIX3&% 
REGIN PCEMCJIIJ&ILB&388 10) o Toe) Fd 
Joe Jelsh 
ENDS% 


$ SET OMIT = NOTCOCSPO AND DaTacOM ) 
MCPBASEtsMr01,01823073 
DIRECTORYTOPS=Mr1)3 
$8 SET OMIT = NOTCSHAREDISK) 
RESTARTING*10233 
PEUsOterU1Ot=¢Mr Oy 3331820668389 40) 3 
TOQUFSLOTS%=323 
LOQUEAVAILS 2313 


X1629 


HOLWNER*tSsD{IRECTORYTOP*™7=C(HOLMMAX429) DIV 303 % SEE ALSO 40200100 


USERDISKBOTTOM$ eHOLDER@DISKAVAILTABLEMAXS 

IF chtsCUSERDISKBOTTOM#50) pIV SYSMAX) > 247 THEN 1232473 

ESPH SKROTTOMteSOs4c(SYSNOx7)3 % BOTTOM OF ESPDISK 

FSPpHiSkTOPerSPHySKBOTTOMer "8s STOP OF FSPDISK 
RRRMFCH * ®1400000003¢% 
WIrTCHINGHOUR?S «5184000; 
WORDOFEASE * 2@25252525252525253 
NOPROCESSTOG « =133% 
SOFT: «+ 03 

$ SET oMrT = NOT STATISTICS 
STRFAM(S¢18sD4100932% 
BEGINS 

$1 «$3 DS «+ 11 WOS3 pn « DI3 
Dr « S3 11¢08 « 8 LIT "102¢0000" D3 
19¢S; «+ S7+8)3; S « S13 
Ny*Ds; NS#?2 WOSss 
DreS3 9S¢16 LyT*042c0000"% 


44074000 


44015000 


44016000 


44017000 


44018000 


44019000 
44020000 
44024990 
44025990 
44037000 


44037200 
44037300 
44037400 
44037500 


44079000 
44080000 
44081000 
44082000 


44062049 
440863000 
44083100 
44083200 
44085000 
44085100 
44085500 
44085600 
44086100 
44086200 
44086300 


~ 44087000 


44087100 
44088000 
44090500 
44094000 
44092000 
44092100 
44092490 
44093000 
44094000 
44095000 
44096000 
44097000 
44098000 
44099000 


~~ 


ee 


qa444 


A AHA HAHAHAHA A A HH st 


0000:0 


0000:0 


000030 


000010 


000030 


000030 
000020 
000030 
000030 
0000:0 
44037000 
0012:3 
0043:0 
001742 
002433 
44037300 
0026:0 
0026!:0 
002811 
002932 
44080000 
002913 
0029:3 
0037%] 
0038:3 
0038:3 
0039!2 
0042%4 
004330 
0043'3 
0046:°2 
004733 
OOSiF1 
005310 
005433 
0055%2 
00561 
0057:0 
0058:0 
005883 
0058:3 
005933 
005983 
006052 
006242 
00632 
006430 


FNDS% 


MSTARTt=Pc¢, ,INrTIALIZE»LOn) CCF3 
AVATLe@777763% 
AVLPEMCAVAILJ+@77777000004AVAILIS 
INLP!tF J*COREND THEN 
BEGINS 
MEMASKSaMEMASK OR TWOCAVAIL DIV 4096)3 
AVAIL@*AVAIL™40963% 
GO TO AVLPs 
ENDSS 


IF Je? THEN GO TO YINLP3S 
MCAVATL41]¢AVAIL32 
MEMFNDSAVATLO 1740810294781 1¢% 

&MSTART(CTFIE% 
MCOJ*eMSTARTAMEND(CTFIR1(224721)5% 
MEMSTARTIJ+LASTL#MENDS& 

LOCeMEND@40943% 
LT@trFe £.0¢>4095 THENS 
REGIUNS 
MeLOC)]*#@777773% 
LEStyF JecOREND THENG 
BEGIN 
MEMASKY=eMEMASK OR TWOCLOG DIV 4096)3 
MELOC+1)©LASTL&MSTART(CTFI3% 
MELASTLI*MELASTLIRCLOCH#1ICCTFI33% 
MEMSTARTJeLASTLeLOC+13% 
LF t MCLOC#LOC#4096)e(T* LASTL J&MSTARTCCTF IS 
RLL2t47t1I43¢% 
LStIF JtscOREND THEN 
BEGIN 
MEMASKS2MEMASK OR TWOCLOC DIV 4096)3 
GO TO LF3 
END3 


IF J®2 THeN GO TO LS38 
MELASTLIJ*MELASTLI&SLOCLICTFI3% 
MOMSTART J eLaSTheLOC3% 
END ELSES 


If Je2 THEN GO TO LESS 
LOC#LOC#40963 GO TO LT% 
FNDS% 


LOGeMECMENDI, CFF IS2 
LPSIF MCLOC],(2%1) THEN BEGINS 
LNa LOC*MELOCI],CFFISGO To LP ENDS 


FORGETSPACECLOC+2)53% 
IF LOC#MSTART THEN 
40 TO LN3S 
STOREDY*TRUE 5% 
$ SET OMIT = NOTC(DFX) 
STRFAM(S#100sDe18)3% 
BEGINS 
St * $3 NS «+ 11 WHS3 


44100000 


44101000 
44102000 
44103000 
44104000 
44105000 
44406000 
44107000 
44108000 
44109000 


44110000 
44111000 
44112000 
44113000 
44114000 
44115000 
44116000 
44117000 
44118000 
44119000 
44120000 
44121000 
44422000 
44423000 
44124000 
44125000 
44126000 
44127000 
44128000 
44428100 
44128200 
44128300 
44128400 


44429000 
44130000 
44131000 
44132000 


44133000 
44134000 
44135000 


44136000 
44137000 
44138000 


44139000 
44140000 
44141000 
44142000 
44142999 
44144000 
44145000 
44146000 


-_ 


AHA AWA AAS 


AHHH HH ATH HAHAH TAA HAH HHS 


aaa aaa 


++ 


ee | 


006652 
44094000 
006623 
006814 
0069:0 
007130 
0072:0 
0072%2 
0074:3 
0076:0 
0076%2 
44105000 
0083:0 
OOB4t4 
008631 
0088:2 
009033 
009212 
0094:2 
009583 
0096:2 
009730 
009832 
009932 
0100:0 
0102:1 
010483 
0108:0 
011082 
0113%1 
011530 
011630 
0116:2 
011833 
0124:0 
44126100 
0124:0 
012581 
0128:0 
013030 
44121000 
0143010 
013183 
0133:2 
44116000 
0135:30 
0137:0 
0139:0 
44137000 
0144722 
014233 
0143:2 
014430 
0145383 
014583 
014633 
0414633 


19¢ *« 01+8)3 nS « 2 WDS; 
ENDS 


SPACESTACKISMEND™4 283 
TaARterMEMEND#=130))826883881093 


INTSS2GFTSPACECPC,.COREND+LOD) ef CFJ= PCoeINITIALIZE LOD), 


CCF] ology) 423 


INTSS#GFTSPACEC@4Os 1 2ek +23 %102@ 
$ SET OMIT 


TteCMIXMAX41)%12 


$ SET oMrT = 


$ SET oMrTT 


~ 
= 


NOTCAUXMEM) 
ZPRT THRU USERCODE 


+ MIXMAXXNDX % NFO 

+ JOBNUMAX % BED 

+10 % CHANNEL» CHANTO ARRAY 
NOTCAUXMEM) 

+SLATESIZE ® SLATE 

NOTCWORKSET) 


+WKSETDATASIZE+MIXMAX+94STQUEMAX41 © WKSETSOLAYTIME,STQUE 


$ POP OMIT % WORKSET 


+ MESSAGETABLESTIZF 
+46 % PRNTABLE 
+(6X%32) %1/0 QUEUES 


SSET OMITSSHAREDISK 


465 BTINU 


SSET OMTT#NOT OMIT 
$SET OM}T=NOT BFX 


wrernne & & 


-" 


nen ww 


woe 


SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 


POP 


SET 
SET 
SET 
SET 
SET 


SET 
SET 


OMIT 
OMYyT 
OMyT 
OMIT 
OMT 
OMIT 
OM{T 
OMIT 


OMtT 


OMT 
OMtT 
OMIT 
OMyT 
OMIT 


OMIT 
oMyrT 


@ulen @ania 


+ PUNTSIZE ZPUNTER 

+48 ZLSTACK 
+SPACESTACKSIZE 

+20 ZMAINTBUFFER 

"4 % NFOrO)] MUST START IN 


Z SECOND MEM LINK 
® CIDROWP/UNITCODE 
% 1/0 ASSGNMNT TBLS 


+2XPSFUDOMAXG + 9 
+3xXCPSFUDOMAXT+1) 
NOTCNCLOG AND DaTACOM ) 
NOTCHDATACOM ) 
NOTCSTATISTICS) 
NOT¢RREAKOUT) 
NOT DEBUGGING 27638 
NOTCDCSPO AND DATACOM ) 
NOTCDEBUGGING) 
NOTC PACKETS) 

+ PSEUDOMAX1 SPSEUDOL*] 

+2x(MIXMAX41) ZPSEUDOMIXE#*]ONYLONZIPPERL#) 


+C(CWI=SCESPDOISKTOP@ESPDISKBOTTOM448) DIV 48) % ESPTAB 
NOTCSHAREDISK) 
NOTCSAVERESULTS) 
NOTCNEWLOGGING) 
NOTCDATACOM ) 
NOTCDEBUGGING) 
+ Pc,OLAY*#LOD), (C8210 ] 413 
J « GETSPACECT eMCPTABLEAREAV20) 413% 41679 
Med] «+ O3% 
MOVECIT*LodeJ+123% 
CeJ+q3 Jed BC 1S USED IN MAKESAVE 
NOTCDATACOM ) 
NOTCNERUGGING) 


44148100 
44148200 
44149000 
44150000 
44150005 
44150009 
44151000 
44151010 
44151020 
44151030 
44151034 
44151050 
441510514 
44151052 
44451053 
44151055 
44151060 
44151062 
44151064 
44151066 
44151068 
44151074 
44151080 
44151082 
44151083 
44151084 
44151085 
44151090 
44451092 
44151094 
44151099 
44151199 
44151219 
44151299 
44151399 
44151499 
44151599 
44451619 
44151620 
44151630 
441516314 
44151700 
44151799 
44151620 
44151889 
44151900 
44151920 
44151950 
44152000 
44153000 
44154000 
44454010 
44154020 
44154040 


444 


AM MAH VR AHHH RAI HAHA VHA AA HHT A A A A A I FAI HAA A Bt 


oN 
a lew 
= 


441445000 
014872 
0449183 
015212 
015481 
015683 
015910 
0159:0 
046010 
016023 
0161:°2 
016230 
016210 
016222 
016212 
0146510 
016570 
016582 
016630 
016710 
016730 
016742 
016722 
016752 
0169170 
016932 
017030 
017082 
017170 
0147180 
017232 
047383 
0473!3 
017333 
047383 
0173%3 
047333 
017333 
047313 
017343 
017432 
017533 
017533 
0178!2 
017882 
017832 
017832 
017832 
017832 
018170 
018341 
018483 
0187%1 
0188:2 
018832 


$ SET 


£ SET 
$ SET 


& POP 
$ SFT 


SET 
SET 
SET 


wh oH # 


$ SET 


$ POP 


$ SET 
$ SET 


POP 
SET 
SET 
SET 


PAAR nen 


OMIT 


OMtT 
OMIT 


OMT 
OMIT 


OMT 
OMIT 
OMIT 


OMIT 


OMT 


OMIT 
OMTT 


OMIT 
OMET 
OMT 
OMIT 


twouin 


+ PC, OLAY» bL0n), 782103413 
WHILE FALSE nO3’ &cP#REL CONS FIX 
TeMIXMAXXNDX3 

TePC.NFOIS FIX 

IT ¢ MIXMAX44)3% 

T «+ PCSPRIDE FIXEY 

T © PCSINTABLE)D3 FIX3Y 
NOTCAUXMEM) 

T © P(,JARIS FIXSS 
TePC,PRYOR)S FIX3 

TeP( SHEETIS3 FIX3 

T ¢ Pc, PROCTIME)S FIX3% 
Toe PC,TOTIMEDS FIXER 

T + P(,DALOC)3 F YX 
TeaeP¢,TAR)3 FIX3 
NOTCSTATISTICS) 
NOTCPACKETS) 
TseP¢,PSEUDOMIX)3$ FIX$ 
Ts=eP¢,NYLONZ]PPER)$ FIX} 


NOTCRREAKOUT) 

T ¢ PCZREPLY)S FIXS% 

T ¢ PCVFS)# FIX3 

Tss PC, USERCODE)S FIX3 

NOTCDATACOM ) 

NOTCOCLOG AND DATACOM ) 
NOTCNEWLOGGING) 

1 « JOBNUMAX; T «+ PC,BED)? FIX3S 
NOTCWORKSET) 

Te2WKSETDATASIJZEs Ti=PC,WKSETDATA)3 FIXS 
1 t= MEXMAX4#g3 T8e2PC ,OLAYTIME)3 FIX? 
Tt=163 TtePc, STQUE)3 FIXS 

WORKSET 

I «+ 53 

T « PcC,CHANNEL D3 FIXS 

T © PC,CHANIO)S FYX3 

NOTCAUXMEM OR MON] TOR) 

I ¢ PSEUDOMAX13 Te PC,CIDROW)S FYXS 
NOTCPACKETS) 

Ts=P¢,PSEUDO)$ FIX 


NOT ODERUGGING 
NOTCNDERUGGING) 
NoTCNCSPO AND DATACOM ) 


1 « MESSAGETABLES;ZES T + PC,MESSAGETABLE)3 FIX3 


It=SLATESIZE3 Trs PC,SLATE)S FIXES 
1+163 
T + P¢,PRNTABLE)? FIX3% 


SSET OMITeNOT DFX 
$SET OMITsSHAREDISK 


165} 


S$SET OmITeNOT oMIT 


TraPc,TINUISEIXS 

[$3323 

TeePcC UNITIBF IX: 

T ¢ PC ,FINALQUED)S FIX3% 
T + PC,LOCATQUE)S FIX3% 


2763" 


44454070 
44154080 
44154100 
441454200 
44455000 
44456000 
44156100 
44156199 
44157000 
44157100 
44457200 
44158000 
44159000 
44460000 
44460050 
44460099 
44460399 
44160400 
44160500 
441605014 
44160999 
44162000 
44162050 
44162100 
44162109 
44162419 
44162199 
44163000 
44163040 
44463020 
44163030 
44163040 
44163050 
44164000 
44164010 
44464090 
44164099 
44164500 
44164599 
44164600 
44164601 
44164999 
44165099 
44165599 
44165700 
44166000 
44166200 
44167000 
44167200 
441467500 
44167600 
44167700 
44168000 
44168100 
44168200 
44169000 
44470000 


A HARA HMA AHA ODN HA At A A A Ht HH At tA Ht A te A 


018832 
01914:0 
0192%4 
0193%2 
019510 
0196174 
019820 
020010 
0200:0 
020210 
020430 
020670 
0208:0 
021010 
021280 
021430 
021410 
024440 
021610 
021810 
021830 
0218:0 
0220:0 
0222:0 
022430 
022410 
022410 
0224:0 
0227:;30 
022730 
02301%0 
023350 
0236:0 
0236:0 
023613 
023930 
024130 
024140 
024410 
024430 
024610 
0246:0 
024610 
024610 
0246!0 
0249:0 
025210 
025233 
025530 
025530 
025510 
025533 
025513 
025830 
025813 
026150 
0263:0 


$ SET 


$ SET 


$ SET 
$ SET 


$ POP 


OMTT 


OMIT 


OMyT 
oMyT 


oMTT 


OMET 


OMIT 


OMTT 


T © PC, 1OQUE)S FIX3® 
= NOT¢CSTATISTICS) 
T «© Pc, TRANSACTION)$ FIX3% 
T «+ PC,WALTQUE)3 FIXES 
SPACFSTACK# 23 Jia J+SPACESTACKSIZE3 
= NOTCSHAREDISK) 
ESPTABeJs Jews; 
ESPCOUNTS=ESPDISKTOP=FSPDISKBOTTOM3 
I ¢ PSEUNOMAXT + 13 
T + Pc, LABELTABLE)$ FIX3% 
T + PC MULTITABLE)3 FIX33 
T « Pc, ROCTABLE)? FIX3% 
NOTCSTATISTICS) 
= NOT(SAVERESULTS) 
1 « PSEUDOMAX1 + 93 T « PC,UNITCODE)’ FYX3 
123483 Th=Pc, {STACKS FIX 
12m203 TieP(, MAINTBUFFER)® FIX3 
Tt=PUNTSIZES TiaPc,PUNTER)3 FYX3 
STACKUSE « TRUE3:% 
= NOT pEBUGGING 
STREAMCAS= (PUNTER 3)1)3 
REGIN NSt=13 LIT*PNVALID LINKe™3 Drt=D 1433 
NStwi6 LIT*INVALID ADDRESS«"3 
NSis16 LIT™SLATE OVERFLOWe"3 
OSt213 LIT"BED OVERFLOWe™3 DI teDI+33 
zs AUXMEM 
DSt2#!16 LIT™INVLD AUXMEM [Oe'"3 
= NOT SHAREDISK 
DSts32 LIT™{O100O4ADDKIODZ90NSTOOOxXsAL144ansy 
NSts32 LIT"1OM90B8/T1x007Y0¢C1x00Px1<0SK OQKI 3 
NS%=225 LIT"OWK OHKIOsKIOBKIOIK)ICeRIS DSteL ITs 
N$tz30 LIT"K100002900810)0000005429008]00"}3 
DSt=28 LIT™BO6G#BAHO4AL ,IDGA#3L#AM4 AD OY/I"3 
OMIT OMIT 
ENDS 


Be BR DR BR 
on Ul us 


HALTSETs=13 


PSFUDOCOPY + 03 
JOBNUM «© =23% 


$ SET 


OMIT 


PRYORLO)] «+ "43 
= NOTCDATACOM AND DCSPO ) 

NUMESS &@ NUMAINTMESS Sa 71003 
LOGHOLMERt=LOGENTRYs 3MDELTAS®MLOGSeMAINTLOGARRAYISNXDISKE30) 
MROw224003 


KF YBOARDCOUNTER?: 213 % KEEPS KEYIN FROM RUNNING, 


$ SET OMtT = NOT DEBUGGING 


Mr SPACESTACK]*=wORDOFEASE3 
MOVE CSPACESTACKSIZE™1, 1 SeSPACESTACK, FCF Jo 14193 
MOVE C GBs Te ISTACK,(CF))3 

MOVE ( @605] +8400 3 


NT1iss0s MOVEC14,0160.0161)3 2 NT1 = @160 


$ SET oMIT = NOT SHAREDISK 


TOMASK «# @20000000008% 
UNTT£OI182@04000077777777773 
MOVECLSeUNIT [NX Oo PCHUP) +1935 
MOVECIGsCTUNITLI,UNIT JNX 16)3 


SSET OMIT@SHARFDISK 


44171000 
44471099 
44172000 
44173000 
44473010 
44173099 
44173200 
441473300 
44174000 
44475000 
44476000 
44177000 
44177099 
44477999 
44478100 
44179000 
44479050 
44179100 
44180000 
44480099 
44181000 
44181100 
44181200 
44181300 
441481400 
44781420 
44181430 
44181450 
44181600 
44181700 
44181800 
446181900 
44182000 
44482050 
44182100 


44182200 
44186005 
44187000 
44187200 
44187299 
44488000 
44188200 
44468300 
44188500 
44188999 
44189500 
44189550 
44489600 
44189800 
44189900 
44189995 
44191000 
44191005 
44191010 
44191015 
44191020 


HAHA AHHH HAA AHA TH AA A tt I 


AA HH HMA et 


026510 
0267:0 
026740 
0269:0 
0271:0 
027350 
027350 
0275380 
027631 
027782 
027920 
028170 
0283:0 
028330 
0283!0 
028650 
028910 
029270 
029630 
029783 
029733 
0298:3 
030410 
030334 
0305:2 
0307383 
030733 
0310:0 
0340:0 
031411 
031832 
0322%2 
03262 
033031 
033031 
44181100 
033032 
033a!1 
0333°0 
0334:0 
033532 
033532 
0337:0 
033734 
034130 
034133 
034453 
0343!%4 
034613 
0349180 
035012 
0352!3 


035283 


035332 
035413 
035732 
0359:3 


UNTTLE ss 


TINULG ss 


MOVE C6S5ePCCTYNULIJD»®TINU NX 
$SET OmIT#NOT OMIT 

SSET OmMtT=NOT nFX 

GO TO MYISSL3 


BO0600007777777777.2DRA 
PO600007777777777e480DRB 
B1000007777777777,8OKA 
@1000007777777777,%0KR 
PO2Z00007777777777 s8LPA 
PO2000077777777772%LPQR 
@1400007777777777e%CPA 
PO000007777777777 »&CRA 
®0000007777777777s%CRR 
@1200007777777777s5%8SP0 
B2000007T7T77777777,48PPA 
@22000077777777775BPRA 
@2200007777777777e.%PRRA 
@2000007777777777,%PPR 
P2400007777777777,4%0C8 
@3600007777777777 & 


DDDDDIDDDDPAAPBDADAD PSDP PDADDDDADSsSIBIDDDADDDBDD 


020010040446391, 
060020040446322, 
120040040446393, 
460110040446394, 
220120040446395, 
2603400404463706, 
320210040446330, 
360220040446341, 
420240040446342, 
4603100404463435 
520320040446344, 
560340040446345, 
620410080446347>. 
660420040446351>5 
7T204400404463625 
760510040446363, 
1005200402451201, 
2005400402451925 
140610040244201, 
300620040244222, 
540640000434721, 
640710000434722, 
2407200002347901, 
240740040235191, 
344010040235122, 
741020000624746, 
44;0400004747901, 
463110000475121, 
5041200004751902, 
501140000474792, 
403210000242301, 
001220000713147, 
001240000232491, 
001310000237422, 
001320000237493, 


16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 


COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 


0)3 


MTA$ 

MTB3% 
MTCI% 
MTD3& 
MTE32 
MTF 3% 
MTH3% 
MTJU3% 
MTK3% 
MTLSE 
MTM3% 
MINS 
MTP3% 
MTR3% 
MTS 3% 
MTT3&% 
DRAS% 
DRB3% 
DKASE 
OKB3% 
LPA3% 
LPB3 
CPAs 
CRASS 
CRBS 
SP0O3% 
PPAS% 
PRA} 
PRAISE 
PPBSS 
DCA 
ZI{P3% 
COASE 
CNB3% 
CDC3% 


44191025 
44491030 
44191125 
44191145 
44491150 
44491155 
44191160 
44191165 
44191170 
44191175 
44191180 
44191185 
44191190 
44491195 
44191200 
44191205 
44191210 
444191215 
44191220 
44491225 
44191230 
44191235 
44191240 
44191245 
44191250 
44491255 
44191260 
44191265 
44491270 
44191275 
44191260 
44191285 
44191290 
44191295 
48191300 
44191305 
44191310 
44194315 
44191320 
44191325 
44191330 
44191335 
44191340 
44191345 
44191350 
44191355 
84191360 
84191365 
44191370 
44191375 
44191380 
44191385 
44191390 
44191395 
44191400 
444191405 
44191410 


AHH HHH HH AM HHH HAR HA A A Ht tA A AAA AR HAT HA A A A A HS 


035933 
0362:0 
0362:0 
0362!:0 
036530 
036510 
0366:0 
036710 
036810 
036910 
037030 
037110 
037210 
037310 
037430 
0375:%0 
0376:0 
0377:0 
037830 
037930 
0380:0 
0361:0 
0381:0 
038270 
036340 
0384:0 
038530 
0386:0 
038750 
0388:0 
038910 
0390:0 
039130 
039210 
039330 
039410 
039530 
039610 
039710 
039830 
039930 
040030 
040180 
0402:0 
040330 
040410 
040530 
040630 
040730 
040830 
040930 
041050 
041180 
041280 
041340 
041480 
0415380 


@DoDaADDTDDDADDIDIDIDDODIBOADDIDDODDAD DPD DA 


00133400002324324, 
0014100002324905, 
0014200002324276, 
0014400002374907, 
001510000232430, 
004520000232441, 
001540000232442, 
001610000232443, 
001620000232444, 
001640000232445, 
001710000232447, 
001720000232450, 
001740000232451, 
002010000232462, 
002020000232463, 
002040000232464, 
002110000232465, 
002120000232466, 
002140000232467, 
002210000237470, 
002220000232471, 
002240000232402, 
002310000232403, 
002320000232404, 
002340000232405» 
002410000232406, 
00247?0000232407, 
002440000232410, 
002510000232441, 


$SET OMITSNOT SHARENISK 


MISSL3 


$ SET OMIT = 


$ SET OMrT = 


@ 


000000000446367 


COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 


CDO3 
COE} 
CDOFs 
COGS 
CDH} 
Cov} 
COK) 
cols 
COMs 
CONS 
cnPs 
Cna3 
COR: 
cps3 
coT3 
CpU3 
cov) 
COWS 
COX? 
COYs 
cnZ3 
Cn23 
Cn33 
CDA 
cn53 
cp63 
cols 
cn83 
Coos 


COMMENT MTXe 


ALL SCRATCH TAPES: 


FOR 7 © 1 STFP 4 UNTIL MIXMAX DO8 
NOT naTacomM 


FOR yt=0 STEP 4 


PROCTIMECT] # LOTIMECT] + @20037777777777773% 
UNTIL 34 DO 


BEGIN TOQUECy)]#=l=43 
TINUETI.618242) 3203 


END} 


FOR ytwO STEP 1 UNTIL PSEUDOMAXT DO 


LABELTABLEr!] 


* @11435% 


LABELTARLF[25] « 07% 
NOT DEBUGGING 
FOR + « O STEP 4 UNTIL PSEUDOMAX + 9 DO 
UNITCODErI} t= 208 UNITCODEL7] ¢t2 03 
€ FIND INITIAL VALUF FOR CORE 
CORES aPe, .CORENDsLODI.CCFIMPCLeINITIALIZE r+ LOD). CCF Y3 


I 


* MCMCAVAILII3 


WHILE I,CFF] # @77777 DO 
BEGIN CORE «+ CORE + IefFFI3 


CORE « CORE DIV 643 


$ SET OMIT = NOTCDATACOM ) 
$ SET OMIT = NOTCDEBUGGING) 


T+PC,OLAY)3 


SHLMeSPACEC10)3 


MAKESAVES 


I ¢ MCI] ENDS 


44191415 
44191420 
44491425 
44191430 
44491435 
44191440 
44191445 
44191450 
44191455 
44191460 
44191465 
44191470 
44994475 
44491480 
44491485 
44191490 
44191495 
44191500 
44191505 
44191510 
44491515 
44191520 
44491525 
44191530 
44191535 
44191540 
44191545 
44491550 
44191555 
44191560 
44191590 
44191595 
44192000 
44192490 
44193000 
44493200 
44193400 
44493600 
44193800 


44494000 
44195000 
44196000 
44196999 
44201110 
44201120 
44201200 
44201300 
44201400 
44201500 
44201600 


44202000 
44202004 
44202105 
44202119 
44202120 


AAHNM HAHAH HHA A HAA HAA HH ot tt at tt a tt Ht tH 


ee ee 


a 


041610 
041730 
041880 
041930 
042030 
0421130 
0427210 
042310 
042410 
042510 
042610 
042710 
042630 
042930 
0430:0 
043110 
043210 
043310 
043410 
043540 
043630 
043730 
043830 
043930 
044030 
0444130 
0442t0 
0443%0 
044430 
044510 
044510 
0446030 
044680 
044730 
044730 
0451%2 
045420 
0455%3 
045644 
44193400 
046042 
046210 
046582 
046613 
046613 
047130 
OM7ary 
OO74%4 
047730 
Oa7934 
048110 
44201600 
048620 
048711 
0467414 
048731 
048910 


$ SET OMIT = 


$ SET OMIT = 


NODIT=CMLASFSPACE (483) 118468378938310)3 
NTSKWAYTC*A2=30,0)3 
DISKWATTC*31*Ae@30eMCPNAMESEG)3 
MOVE (20 A4+104¢5XSYSNO0A4514+2XSYSNO)3 
DISKWAITCA+315730sMCPNAMESEG)3 
STREAMCML?SMARKLEVELsPLIisM( 3) tePATCHLEVELPLL&SeLOCALEVFL 
»MEMASK»N2eA+1045XSYSNO 
NOTCSHAREDISK) 
eTIBNTLssSPACE(C10))3 
BEGIN DSe#S LIT "*y/L M3 
NOTCSHARENDISK) 
DS«6 LIT" WITH “"3STENES TeSy+tsDSe7 CHR 
DSteLITM/ESpseSteLIDSt=7 CHRSDSt#6 LIT* MARK "3 
STtsti0OC ML2 TF SC GEQ@ * © THENS 
BcYF TOGGLE THEN TF Sce*O" THEN SPteSte+1 ELSE DSte CHR 
ELSE OS:aeCHR)I3; DSteLIT, "3 

Srie_ioc PLE TF SC GEQ "™ * THENS 

6C(I1F TOGGLE THEN yF Sc=¥O" THEN SIteSt+i1 ELSE OSt=eCHR 
ELSE DSt=CHRI; NStaoCHR} 

S7T?sL0cC LL TF SC GER * * THEN 

BcIF TOGGLE THEN JF Scw"O" THEN SyseSl41 ELSE NSteCHR 
FLSE DS?tsCHR); 

OSteqy7LIT"* MONS mal} 

SptsLOC MEMASK$ S172=S17+4+65 SKIP 4 SBS DIteDI123 


BeDiteN I-23 TF SB THEN DSteLIT#@" ELSF DSteLIT*R 3 SKIP $B)3 


END3 


MOVEC10eNT1e®SHLM)$ 
SPOUT CNT1)3 
MOREJNITIALIZE3 


FND OF INITIALIZES 


44202500 
44202600 
44202700 
44202800 
44202900 
44203000 
44203150 
44203179 
44203200 
44204000 
44204099 
44204200 
44204500 
44204600 
44204650 
44204700 
44904750 
44204800 
442904850 
44205000 
44205050 
44205100 
44205220 
44905300 
44205600 
44206100 


44206200 
44206300 
44206350 
44206400 


O0a9qty 
049582 
049731 
050030 
050432 
050710 
0509%1 
051083 
051083 
0513!3 
0514483 
051433 
05162 
0518%2 
051981 
052130 
0522015 
052310 
0524:3 
052533 
052632 
052631 
052930 
05312 
0532%2 
O535%1 
44204000 
0535!2 
053710 
053611 
053623 
44010100 
S1Zes 0541 WORDS 


tt me se te a ss 


+444 


STACK (Fad) 
STACKEF 42) 
STACK ¢F 43) 
STACK EF 44) 
STACK¢F 45) 
STACK ¢F +6) 
STACK¢F47) 


STACK(F 410) «& 
STACK¢Fei11) = Z 


STACK¢Fei2) 
STACK(F 413) 
STACK¢Fe14) 
STACK (F415) 
STACK¢F 416) 
STACK ¢F 417) 


STACK ¢F 420) 
STACKEF 421) 
STACK (F422) 
STACK(F 423) 
STACK(F 424) 


STACK(F 414) 
STACK ¢F 417) 


STACK ¢F425) 


iunan a 


nukuda 


STACK(F4+26) 3 
PRTC171) © XCLICK 


Zot O DY 


SAVE PROCFNURE MORE INITIALIZES 


START OF SAVE SEGMENT? BASE 


BEGIN 


REAL 
Amt is Beers Coa de [sede Jat5eTeeG, Wael eo Vena 72493 


REA\, 
F INTS=+1 Oe INTSS2411 ¢LASTL&+12eLDATE=4+1 3eL0C S41 4+MEND 64153 

INT 
INTSS 
LASTL 
LDATE 
LOC 
MEND 

REAL. 
‘Ree IRPBst+16eIRPTBs417eTRPDGSH4+18,IRPTUes19, 1 RPBUF ee2703 

P 

IRPTB 
IRPORS 
IRPTU 
TRPBUF 

REAL, 

TisLASTU,SHLM=MENDS 

T1 
SHLM 

INTEGER 

IRPBTSe4241 +L RPWRSxt2oeXCLyCKexCLOCcKs 

IRPBTS 
[RPWRS 


ARRAY PODS4+230¥)] sGl=et+2ar*y3 


STACK¢F 427) = ODD 
STACK¢F 430) = 6] 


STACKeFa7) = X 


ARRAY X sWre)} 
$ SET OM}T = NOT SHAREO! SK 
LABFL NULLINTs CONTINUE, BOMBOUT? 
PcDELs STF) 
$ SET OMIT = NOTCSHAREDISK) 
$ SET OMIT = NOTCWORKSET) 
DISKWAITC#As30,DIRECTORYTOP41)3 


WKSETCYCLETIME te DDD(TtsgxSYSN0447} 
WKSETINSTRUCT $xODp0CT+1 3 
WKSETOLERANCE tsDDDL T+? 13 
WKSETMAXOLAY t%mDDD(T43 }3 


& POP omyT 
DISKWALTC*Asr 30eDITRECTORYTOP=SYSNO)3 
CORE. £4814] %e TF ONDLCII"=O THEN 100 ELSE pnnt9),¢6424413 
OPTION « DDDrOI3% 


¥143 
41430 


143" 


%143= 
21436 
%{43= 
¥143 


44206450 


44906500 
44206550 
44206700 


44206750 
44906800 


44206850 
44206900 


44206950 
44207000 


44207050 
44207400 


44207150 


44207200 


44207218 
44207250 
44207300 
44907899 
44209000 
84209100 
44209200 
44209300 
44209400 
44209500 
44209600 
44213000 
44213500 
44214000 


T 000080 
ADDRESS «& 
T 0000:0 
T 0000:0 
T 000030 
T 0000:0 
T 000020 
T 000010 
T 0000:0 
T 0000:0 
T 0000:0 
T 000030 
T 000030 
T 0000:0 
T 000030 
T 000010 
T 000030 
T 000070 
T Q000183 
Cc 000033 
¢ 000033 
¢ 000213 
c 000533 
Cc 000733 
c¢ 900943 
ec 004133 
T 001133 
T 004383 
T 0018!2 


01564 


a@ FR de be DQ ag 


$ SET OMIT 2 


SAVEWORD?t=RRRMECHS=DDN(29)3 %146= 
FOR Tt#0 STEP 1 UNTIL 33 DO ¥146= 
IF CTWOCT) AND SAVFWORD) # O THEN %146= 
LABELTABLECTI]##@1143 % MARK SAVED 2146 

To « 03% 


NOT SHAREDISK 

XCLICK%=(87777777777700 AND DnOr18]) MOD 51840003 
NEUP$*#NONDL2] MOpn 100 3 

NFUPtaNEFUP&CNEUP4+DDDC2] DIV 100) FCTFISNEUPC3233415)3 
DATEte0DDC(1)3 


$ SET OMtT = NOTCSHAREDISK) 


SET UP DISK POINTERS AND BUILD OR CLEANOUT DIRECTORY, 


ESPn1Sk MAY NOT BE USED ABOVE THIS POINT SO THAT THE SHAREDISK 
SCRATCHDIRECTORY» WHICH IS UNPROTECTED» CAN BE RECOVERED, 


$ SFT 


$ POP 


$ SET 


$ POP 


$ SET 


omMrT 


OMIT 


OMIT 


OMIT 


OMrT 


STREAMCBtsOtAtaBYPASS120DD(4),D2aP¢ ,DIRDSK))3 
BEGIN ST#%sL0c As pSt#B DECS Di seLoc Bs 

STteLOC D3 SyteS74+8} OStswDS3 
ENOS JtsP INX OF & GET LOCATION IN INITIALIZE 


DISKBOTTOM?%=BYPASS=23 
MEINTS@2]'=(st=eP( OUP) AIL CTC I; 
MoJJ,CFFI]8a]3 
MOT] saJ&CINTS#2)ECTFI3 
FORGETSPACECINTS)$ %& RETURN PART OF INITIALIZE 
INTS& ef + 23 
IF (TeNEUP,. LFF IJ@NEUP, FCF IJ2>0 THEN 
NEUPeNEUPRLOLCTCIRCIOSTICCTFIZSZSAVE # OF EUS ON DKA, 
TtaNeuP NEUES 
Ztacytisy] + EULOFFSET) + | 
SHAREDISK 

+ (Bie(14+1) DIV 24 7 + 2) 


SUPRGETSPACE CZ» AVTABLEAREAV 51 )+23 Z167= 
MOVE CZeJmied)} 

EUIOte cd INX MIRY¢8!38210)3 

PEULOtHCCUPsy+¥) JINX mM)&8108838210)3 

SHARE DISK 

AVTABLE SCC J471) JINX M)&BC883881073 


TLtsGETSPACE (20000013423 
ACTDATEISWEEKDAYS&203 
NOTCSHAREDISK) 
DIRECTORYBUILDERCAs0DD)3 
FORGETSPACECP(.,DIRECTORYBUILDER» LOD) INX 0)3 
MPPC,,OTRECTORYBUILOER) J#=C#PCDUP)I&C#PC ESPBIT)ICCTC}IS 


® SPACE FOR INTRNSC 


$ SET oMYT = NOTCSHAREDISK) 


SET UP INTRINSICS TABLES AND LOCK MCP, 


DISKWATTO*A»™3000)3 
IF cONOCT?85xSYSNO413) EQV 0) AND (CDDDEI41] EQV 0) = NOT O THEN 


GO TO NULLINT3 


IF ¢TizO0TRECTORYSEARCH (DONE J»DNDC1+1)0173)40 THEN 
IF ¢NTqteMeTe4),7 36267240 AND NTU¥NCINTYPE THEN 


44214100 
44214200 
44214300 
449144400 
44245000 
44216690 
44216900 
44276910 
44216940 
44216950 
442146989 
44939500 
442939600 
442939700 
44239800 
44939900 
44940000 
44240500 
44940520 
44240540 
44940560 


44240580 
44240600 
44240620 
44240640 
442940660 
442940680 
44240690 
44240695 
44240700 
44940800 
442408419 
44240820 
44940821 
442408460 
44240860 
44240880 
44240900 
44240919 
442940920 
44240921 
44241000 
44241150 
449a1179 
44242000 
44242040 
44242020 
44242049 
442942700 
44242800 
44242900 
44243000 
44243250 
44243500 
44943750 
44244000 


AHHH AHHH HHH TT TIO 


AHA HH AHA AH HO HHH ANH tH A tt 


001982 
0024:0 
0022:0 
0023383 
002733 
00282 
002832 
0030%2 
003230 
003512 
0036:2 
003612 
003632 
003632 
003632 
0036%2 
0036t2 
003612 
0036183 
003982 
0040'4 
44940520 
0041%2 
004233 
0046:0 
OO48t1 
005033 
00542 
005283 
005532 
005681 
005982 
006033 
006033 
006324 
006331 
006710 
006930 
OO71I1 
0074382 
007482 
OO77314 
OO77I4 
00792 
008033 
008033 
0082%0 
0083!2 
00861t0 
008610 
008610 
0086:0 
0086:0 
008733 
009233 
009382 
009633 


BEGIN FORGETSPACE(T)3 
PCOTRECTORYSEARCHCNABS(CDDOr1)) »DDDL14+11916)sDEL)3 
OMODCTIs=0NNC +4 18203 % REMOVE INTRINSICS 
OKSEGZEROWRITE!= TRUE3 ¥204= 
DISKWATT(CA»=30,0)3 
OKSEGZEROWRITEts FALSES %204@ 
NULLINT?: FORGETSPACE(T1)3 
T132O03 
FND ELSE 


BEGIN INTRINSICTARBLEBUYLDFR¢E T&TLCCTFI)33 
FORGETSPACECT)3 
END ELSE GO TO NULLINTS 


$ SET OMIT = NOT SHARENDISK 
INTFREE 313 
IF ¢TtaDIRECTORYSEARCHCDNNEI™3),D000 $*21047)2#0 THEN 
BEGIN : 
& SET OMIT = NOT STATISTICS 
FORGETSPACECT)3 
END FLSE 


LAMESS(DDDL 193) ,DDDE 1#21971500000004)3 
$ SET omMyT = SHAREDISK 
MCPFREE!=143 
$ POP OMIT 


% 
% ABORT L.OGGING, 
z 


DESKWAITTC™A S21 OsESPDISKTOP+1)3 
Tis03 ¥761" 
FOR } « t STEP 1 UNTIL MIXMAX DOS 
REGIN USERCODESII te O03 
T © DOMNL3*14921.(24224) OR T3 


END3 

GiteCMCSPACEC2109))821078:38810)3 x761" 
MOVE CA10eAsGIDS g76i° 
DoONr3)s=#03 761" 
MOVE C206 eAt32A44)3 £761" 
DISKWATTCAP210sESPDISKTOP41)3 47612 
IF 7 # 0 AND DDDL2] = "ABORT" THENS 

BEGIN £761 


FOR } « 1 STEP 1 UNTTL MIXMAX DOK 
IF CReGIC3*l+92).fCF12#0 THEN 
IF B OFV 10000004) LFQ® NEUP,CCF] THEN 
BEGIN 
DYSKWAIT(7As300B8)3 
If (TtsDNpNl1) OV 5x6) GTR 999 OR T LSS O THEN GO BOMBOUTS 
USERCODECTJ«SPACECT)3 
FOR Jef STEP 1 UNTIL ¢T=1) DIV 30 pO 
BEGIN 
MOVECIF (CoT#30x))>30 THEN 30 ELSE Co 
AsUSERCODEL 1] +J3x30)3 
IF (€c*popr0))#0 THEN 
IF C DIV s0000002NEUP,cCF) OR CeO THEN 
GO BOMBOUT ELSE 


44244500 
44945000 
44945500 
44245999 
44246000 
44246001 
44246500 
44247000 
44947500 


44248000 
44248500 
44249000 


44249495 
44250000 
44250500 
44251000 
44251495 
44952000 
44252500 


44253000 
44953495 
44253500 
44253505 
44253700 
44253800 
44253900 
44254000 
44254100 
44254500 
44255000 
44955500 
44256000 


44256100 
44256150 
44256200 
44256250 
44256300 
44256500 
44257000 
44259500 
44260000 
44260500 


44261000 


44261500 
44262000 
44262500 
44263000 
44263500 
44264000 
44264500 
44265000 
442965500 
44266000 


AwAAO FO AA 


a4 


AAA 


AHAHOAHAHAa HHH 


Ate AHH Ht tH DEO OO 


O1018t 
0102%2 
0405%4 
01.0830 
010843 
011034 
011120 
011183 
0112%2 
44244500 
041242. 
O11681 
011730 
44248000 
011730 
011710 
011683 
012252 
0123:0 
042310 
0123383 
44251000 
012383 
012841 
0126?1 
0130:0 
013030 
01430:0 
0130:0 
013080 
013250 
013233 
013430 
0435:1 
013601 
64255000 
014082 
0144t1 
014610 
OL14731 
014983 
015182 
01532 
015440 
0156130 
015950 
0161423 
016211 
016333 
016731 
017033 
017582 
O175#2 
017933 
018433 
018374 
0186!2 


DISKWATTC™AL300C)3 
END: 


END ELSE GO BOMBOUTS 


FOR yet STFP 1 UNTIL MyXMAX DO 

YF CC#USERCODELII9#0 THEN 

RFGIN 
GTL3X 1492) 2024924 Je BeGETESPOI SKS 
TeCUSFRCODELTIJ«MIC#1]) DIV 5x63 
FOR JeO STEP 3 UNTIL cT#=1) DIV 30"1 DO 

MUC+JX30]+GETESPDI SKS 

DISKWAIT(C»#TeB)3 
FORGFTSPACE(C)3 

END3 


END3 


GO CONTINUES 


BOMROUT! 


STREAM(CDe#T*SPACFE(3))3 

N$e22 LIT**#*ABORT LOG nESTROYEDe™} 
SPOUTCT)3 
FOR ted STEP 1 UNTIL MYXMAX DO USERCODEL])«03 


CONTINUE E 


END; 


INTFINISHCA)S 
IF aUTORN THEN BEGIN RUNUMBFReMyXMAXS STARTADECK(CO) END$ 


FORGETSPACECINTS)$ FORGETSPACECINTSS)S 
MeP¢e, MOREINITPALIZEI J 8ecePc OUP) ACePC.ESPBITIICCTCI#SZ 
GO TO NOTHINGTOO0O3 


4902" 


2162" 


44266500 
44267000 


44267500 


44268000 
44268500 
44269000 
44269500 
44270000 
44970500 
44271000 
44271500 
44272000 
44272500 


44273000 


44273500 
44274000 
44274500 
44975000 
44275500 
44276000 
44276500 
44280000 
44280100 


44281000 
44281500 
44282000 
44440000 


018632 
0188:3 
44963500 
019130 
44261000 
019381 
019430 
019532 
019610 
0200:1 
020484 
020932 
0212:3 
021410 
0214383 
44269000 
0217:0 
44257000 
021730 
021732 
021732 
022034 
0223%2 
022433 
0229%2 
O229%2 
0273031 
44280100 
0233:0 
023432 
023710 
0237%2 
44206500 
S1ZE= 0238 WORDS 


4-1 


4a Aaa 


OAA AHA 


aAH04 


STACK¢F 42) = T 


SAVE RFAL PROCEDURE COREND3% 
REGIN RraAL TS PCINe)s ENDS 


44441000 T 0000:0 
START OF SAVE SEGMENT$ BASE ADDRESS #» 01802 
44442000 T 0000:0 


44442000 
SIZEs 0002 WORDS 


STACK ¢F 40) 
STACK ¢Fe2) 


STACK ¢F #4) 


STACK(Fs2) 


STACK(F 43) 
STACK¢(F 44) 
STACK EF eS) 
STACKCF 46) 
STACK(Fe7) 


PROCEDURE INTFINISHCAA)S VALUE AASRFEAL AAS 


45000000 


START OF REL SEGMENTS DISK 


BEGIN REAL RCWH490,MSCWR=23 


MSCW 
REA), Awt1 Reales -CaBslofaCal ,Jelels THe] WeTed oVewos pZeY44 3 


=ZzHocLe OD Y 


STACK¢(F4i0) = Y 


STACKCF 411) 


STACK ¢Fal2) 
STACK ¢F 413) 
STACK¢F 414) 
STACK (F415) 
STACK (F416) 


STACK(F S17) 
STACK (F420) 
STACK(F 421) 
STACK (F422) 
STACK( F423) 
STACK ¢F 424) 


STACK ¢ F425) 
STACK(F 426) 


STACK(F 414) 
STACK(Fs17) 


STACK (F427) 
STACKCF 430) 


2 
REAL, INTS=Ze1oINTSSEINTS 44 eLASTLEINTSS $4 os LDATESLASTL41 eLOCHLDATE 41» 
INTS 
INTSS 
LASTL 
LDATE 
Loc 
MENDSLOC+ 43 
MEND 
REAL TRPREMENDs (de TRPTBEIRPBel» IRPDBSEIRPTB41e FRPTUZIRPDBS41, 
TRPB 
IRPTB 
PRPDBS 
PRPTU 
PRPRUFeIRPTU443 
TRPBUF . 
INTEGER JTRPBTSme}]RPBUF +4. 1RPWRSsYRPBTS413 
IRPBTS 
IRPWRS 
REAL TieLASTL» SHLM=MEND3 
T1 
SHLM 
ARRAY NDON=IRPWRS+1(*IeGLENON+iLel]s 
DOD 
G! 
ARRAY XeWE*q3 


STACK¢Fa7) = X 


LABFL NOGOOD SLOOP: 
SFT OMIT & NOTCSTATISTICS) 
SET oMIT = NOTCAUXMEM) 
SET OMIT = NOTCDATACOM) 
PCRCWeMSCWaSTFIF RCWeRCWRPCXCHITCTCI3 
TIMEOUTCSPACEC10) )FDATEOUTCSPACECI0O))3 
& SET OMyYT = NOT SEPTICTANK 
& SET OM:T = NOTCHCSPO AND DATACOM ) 
WHILE FALSE DOS SFIX FOR CeRELATIVE CONSTANT ERRORS 
IFCTSeDIRECTORYSEARCHCMSYSTEM "s"LO0G ",5))#40 THEN 
REGIN TFCJ?=MC1410]280 THEN 
BEGIN MCI+10]% my? eGETUSERD]SKCME148))3 
STREAM(DATEsAte0OeH2e] TNX 993 
BEGIN SItslLoc DATESOI&eLoc AsDS$=8 OCT; 
DI ztmLoc AsD] teBs DO] eal +1308eu3 CHR 


PAA 


END; 


45001000 


45002000 


45002100 


45002200 


45002300 


45002400 
45002500 


45002600 


45002700 


45002800 


45003000 
45003199 
45003299 
45003999 
45075590 
45075600 
45088990 
45090000 
45092105 
45092140 
45092420 
45092130 
45092140 
45092150 
45092160 
45092170 


T 000070 
ADDRESS & 
T 000070 
T 000030 
T 00000 
T 0000:0 
T 000030 
T 000030 
T 000030 
T 000030 
T 0000t0 
T 000080 
T 000010 
T 0000:0 
T 900010 
T 000030 
T 0000:0 
T 0002214 
T 000710 
T 000730 
JT 000780 
T O0008%14 
T 001082 
T 001382 
T 009822 
T 002021 
T 002410 
T 0022°0 


01067 


$ SFT OMIT & 


LOOPS 
& SET OMIT & 


MET INX 13002589373 8XCLOCK4PCRTR)3 
NISKWALTTCY TNX 0 3001,0FFI92 
END} 


NISKWATTC™A%300U)3 
IF OpproO) LSS Nndrt) ANN 
DDO 1 IJeMLy+8]*6 AND 
Noorsd=e"D1rSKLOG" THEN 
BEGIN DISKWAIT¢7A"60,305U4DDDT2) DIV 6)3 
IF ODODE CODD 2) MOD 69*5+60)24 THEN 
BEGIN pDDrO]sspppl2j—13 
DISKWAITCAs300J)8 
ENDS 


END ELSE 


BEGIN DNDDFO01:s0s0D0C1)& eur 1 +8 3x63 
DODE 21]: epNNl 3) 2203 
DOD aAlserDISKLOG"sPDDL5}%s43 
DISKWATTC(A®300J)3 

ENDS 


FORGE TSPACEC1)3 
LOGFREEt*NABS(J)3 
END ELSE Je; 


NOTCSHAREDISK) 
TF CIM=PITRECTORYSFARCHC"REMOTE ","USERS %.5))#0 THEN 
BEGIN IF ¢(Jt=ME1410]2#40 THEN 
BEGIN DrSKWAITC™A,300J)3 
MCPIRNFLAGCMLA))3 
X$sMCT1.£1%14) ~ 13 
TtewO3 


NOTCDATACOM AND RYE ) 
ENn3 


FORGETSPACE(¢1)3 
END ELSE MePe"SITE "3 ¥ CHANGE [F REMOTE/USERS2714 


ENTERSYSFILECI2$ & "LIBMAIN® 
ENTERSYSFILEC2)3 & "LOCNTRL™ 
ENTERSYSFILEC3)3 & "PRNPBT * 
Xs=¢McSPACE(30)3183078338810)3 


TOGLE*TOGLE OR ABORTMASK OR USERDISKMASK 3 


IF Gl#0 THENY 
BEGINS 
FOR ~e20 STEP 1 UNTIL 21 DO 
PCWATT1I0(@4000100000,077751).DEL)!3 
LOATES=GIClds 
FOR y ¢ 1 STEP 4 UNTIL MIEXMAX DO 
IF USERCODELIJ#90 THEN 
REGIN 

J 3X3 

JARROWE J 2aX3 

PROCTIMELIJ « “CLOCK*PCRTRDISE 


45092180 T 


45092190 
45092200 


45092210 
45092220 
45092230 
45092240 
45092250 
45092260 
45092270 
45092260 
45092290 


45092300 


45092310 
45092320 
45092330 
45092340 
45092350 


45092360 
45092370 
45092380 


45092390 
45093000 
45094000 
45094200 
45094400 
45094600 
45094800 
45095000 
45095199 
45099400 


45099600 
45099800 


45099900 
45099940 
45099920 
45401000 
45102000 
45103000 
45104000 
45404100 
45104200 
45105000 
45106000 
45407000 
45108000 
45109000 
45111000 
45112000 


44 


AAHHAtAHoHH AS 


AAAHHA MAHA RH FAH OG 


v4 


AMAA AHH HA HS 


45092150 
002271 


0026:0 
002831 
45092130 
0026!1 
002933 
00310 
003410 
003511 
003930 
00413 
004431 
004512 
45092270 
00452 
45092250 
004512 
0053414 
00552 
005810 
0059! 
45092310 
005911 
006010 
0061:0 
45092120 
006313 
006333 
006610 
0069:0 
007410 
007312 
0076:0 
007633 
007613 
007633 
45094200 
007633 
0077182 
45094000 
008432 
0082tt 
008310 
008313 
008712 
008914 
009081 
009083 
009310 
009633 
009713 
040030 
010140 
010132 
04023 
0104t4 


PIMIX © J3¢% 

XCO] © GIly+90)3 

XC1] © NABSCGILU+91))3 
STREAMCASLLDATE) ,BelX(51])3 
BEGIN SyeAs pS*8 OCT ENDS 


FP G10J492).f1923) GTR XCLOCK THEN 

IF X£5) MOn 1000 GTR 1 THEN X£5S)3eePCDUPI@"1 FLSF 
KX0578=¢X%6597400194+3654+CCX65] DIV 1000)M0N 4x0)3 
XP5]eGieJ+92),0 12231/8XF5)01825823)3 

XC6J6GIL +927, CA4I 241 RUSERCODELIICCTFI3 
USERCODECLIeGICI+180]3PLMIXet3 

XE3) © GILJI33 

X04] © GICU41 13% 

X€7) © GIL U+2133 

1OTIMELTI] « O83 

OLDIDLETIMF « (CCLOCK+PCRTR) )x2°X(3)5% 
X027,0£8810] « 993% 


$ SET OMIT = NOTCSTATISTICS) 


NOGOONTS 


§ SET OMIT = 


SIGNOFF CX» fMCSPACE(5)1J20)3 

PIM] X«0} 

JARROWED1]+03 % IN CASE LOG IS NOT ON DISK, 

STREAMC TeX edtedtaSPACE(10))3% 

BFGIN STt#XsOSteowpSsD] tases 
DSISLITPMH"ZSDT PFD +73 0StsLIT tse; 
Drs=ne7IOStaLIT@atssyreLoc 3 
DSt=2NECIDSPs9L ITS ABORTED EMSS 

ENDS 


SPOUTCJ23% 
ENDs% 


NOTCSTATISTICS) 
FORGETSPACE(GI232% 
END} 


FORGFTSPACECX)3 
If CLOCK=0 THEN % ccC103F §S8 INHIBITED 
RFGIN STREAM¢(TisT1sSPaceE(10))3 
BEGIN DS#a49 LIT*#TIMER NOT RUNNING? 3 
DSteo? LIT RESET CC103F INHIBI Te™3 
END3 


SPOUT CT)3 
ENDS 


IF GIVFDATE THEN 

BEGINS STREAM(Bel+SPACE(2))3 
OSe11 LIT “#D7T PLEASE" 
SPOUTC])3 
DATEee 1; 

END? 


TF GIVETIME THEN 
BEGINS STREAM(BeleSPACE(2))3 
DSe11 LIT "#TR PLEASE o"3 


45113000 
45114000 
45115000 
45116000 
45117000 


45148000 
45119000 
45120000 
45121000 
45122000 
45123000 
454124000 
45125000 
45126000 
45127000 
45128000 
45129000 
45129099 
45430000 
45130100 
45131000 
45131100 
45131200 
45131300 
45131400 
45131500 
45131600 


43131700 
45132000 
45133000 


45133099 
45134000 
45134100 


45135010 
45135030 
45135040 
451435050 
45135060 
45135070 


45135080 
45135090 


85135100 
43135110 
45135120 
45135130 
45135140 
45135150 


45135160 
45135170 
43135160 


Oe ee Bee ee 


AANA AHHAM HAHA HHA 


a4 


AA Aa HH 


AA AHHH 


a) 


010631 
01070 
0109:0 
O11i31 
011282 
45147000 
011381 
0115%1 
011933 
012510 
0128:3 
013250 
013433 
013671 
013631 
014071 
014412 
014410 
0146:°2 
014632 
0150:0 
0450:3 
0452:0 
015572 
015631 
015732 
045832 
0160:4 
45131200 
0160:2 
046443 
016133 
45108000 
0164:0 
0164:0 
016520 
45104000 
016510 
016630 
016633 
0170150 
017233 
017533 
45335050 
017610 
O17721 
45135040 
O17784 
017830 
0186434 
018311 
0184%2 
0185!2 
45435110 
0185%2 
018611 
0189k2 


37324000 ACCIDENTAL 


$ SET 


$ SET 
£ POP 


$ SET 


$ SET 


$ SFT 


$ SET 
$ SET 


SPOUTC¢C]1)3 

XCLOCKe "51840003 
ENDS 
KFYBOARDCOUNTER3 #03 


TOGLFE+TOGLE OR HOLDMASK OR KEYBOARDMASKS 
COMPLE XSLEEPCCLOCK20 ~ND XCLOCK20 AND DATE20)3 
FNTRY AT O 
OMtT = NOTCAUXMEM) 
LOGOUTMAINTCSHLM) 3 
MROWseNABSCMROW)S 
FORGETSPACECSHLM)3 
OMIT & SHARFEDISK 
NYISKWATTC*KLUMP,3,DIRECTORYTOP+3)3 
OMIT 
TOGLEtSTOGLE OR CnyMASK3 
OMTT = NOTCDATACOM AND NCLOG) 
FORGETSPACECA)3 
OM1T = NOT DEBUGGING 
TOGLE «+ TOGLE OR SHEETMASK OR STATUSMASK 
OR NSECONDMASKS 
READY «+ @3446000003% 
PRTROWLPIMIX), (PSFJ&203 
TF Ti20 THEN 
BEGIN STREAMCD tal tsSPAcec4))3 
pSt=27 LIT*## LOAD INTRINSICS NOW... o™3 
SPOUTCI)3 
END3 


OM1T = NOTCSTATISTICS) 
RRRMECH « RRRMECH AND ©76377777773% 
READY « READY AND @763777777733 
OMIT = NOTCDCSPO AND DATACOM ) 
OM1T = NOTCBREAKOUT) 
PCP&RCWECTC10eRDSe0eXCHsPRPLCTF J eSIF)3 
ENDSS 


ZRHR 


45135190 
45135200 
45135210 


45135215 
45135220 
45135230 


45435299 
45435600 
45135700 
45135800 
45136000 
45137000 
45137001 
45138000 
45141000 
45143000 
45144000 
45150000 
45151000 
45152000 
43153000 
45154000 
45155000 
45156000 
435157000 
451568000 


45478000 
45229000 
45230000 
43231000 
45247099 
45248000 
45249000 


44-41 
ooo 
—> a pe 
oo” 
whe 
22> eo Be 
ww WHI 


45135170 
019333 
0194:2 
019631 


44-1 


020313 
020333 
020482 
02052 
020634 
0206! 
020831 
020831 
020912 
020912 
021034 
0210%4 
O21151 
0212%2 
0213%1 
0215:3 
0216t2 
021983 
0223!3 
0225:0 
45155000 
0225380 
0225:0 
022611 
0227:%2 
0227%2 
O22a7%2 
023030 
45001000 
SIZFe 0236 WORDS 


AA HANH HHH HH HH HH 


AHA AAAS 


$ SET OMIT 


$1468 PC, .CORENDsLOD®4s,INX*#STS)S JNITIALIZES B® 20"4S8T CODE 


$ SET OMIT = NOT SHAREDISK 


STACKOVERELOW 


STARTS #3 
TIMERS: 


$ SET OMIT © 


8473 % 21 = RES FOR NO MEM MSG 
$483 GO TO TIMER? % 22 ° TIME INTERVALS 
$493 GO TO TOBUSY3 ¥ 23 = 1*0 BUSY 

120! GO TO KEYBOARDREQUEST3 % 24 = KEYBOARD REQUESTS 
3218 PRINTERFIN?SHC20)3 % 25 = PRINTER 1 FINISHS 
192: PRINTERFIN{SHC22)3 Z% 26 = PRINTER 2 FINISH 
223% FOFINISHCRESULT1,1)3 % 27 = CHANNEL 1 COMPLETE 
$24: [OFINISHCRESULT2,2)3 ¥ 30 = CHANNEL 2 COMPLETE 
225% JOFINTSHCRESULT3,3)3 ¥ 31 ° CHANNEL 3 COMPLETE 
396% LOFINISHCRESULT4,4)3 % 32 = CHANNEL 4 COMPLETE 
$273 GO To PoBUSsY; %¥ 33" P2 BUSYS 

$28: GO TO INOQUFST3 % 34 = DATACOM INQUIRY 
129% GO TO EXTERNAL? ¥ 35 © SPECIAL INTERRUPT 
SHAREDISK 

$30: GO TO EXTERNAL; % 36 = OKA READ CHECK 
331: GO TO EXTERNALS % 37 = DKB READ CHECK 
$328 PCO)3 GO TO P2PROCESS3 % 40 = P2 MEMORY PARTY 
133: P0417)3 GO TO P2PROCESS3 % 41 = P2 JNVALID ADDRESS 
234% Pche1)3 GO TO PePROCESS3 & 42 = P2 STACK OVERFLOW 
336! P(6)3 GO TO P2PROCESSS % 44 = P2 COMMUNICATES 
237: PC8)3 GO TO PAPROCESSS % 45 = P2 PROGRAM RELEASE 
738: P¢10)3 GO TO P2PROCESS3 & 46 = P2 CONTINUITY BIT 
£391 pc1a)s GO TO P?2PROCESS$’ & 47 = P2 PRESENCE BIT 
240! PC42,0)3 GO TO P2ePROCFSS$ *® 50 = P2 FLAG BIT 

141% PC1251)3 GO TO P2ePROCESS3 % 51 "= P2 INVALID INDEX 
tA23 PC12.2)3 GO TO P2PROCESS# % 52 = P2 EXP UNNDERFLOW 
2438 P¢4e9)3 GO TO P2PROCESS! % 53 © P2 EXP OVERFLOWS 
144: Pe4e11); GO TO P2PROCESS: % 54 = P2 KINT OVERFLOWS 
$45: PC1253)3 GO TO P2PROCESS$ % 55 = P2 DIVIDE BY ZERO 
348% PCO): GO TO PiPROCESSs & 60 = P41 MEMORY PARYTYS 
t49t PC4e17)3 GO TO P1PROCESS? & 61 = P1 INVALID ADDRESS 
2508 P¢4,1)3 GO TO P{PROCESS3 & 62 * Pt STACK OVERFLOW 
2523 Pc6)3 GO TO PiPROCFESSS & 64 = P41 COMMUNICATES 
253: P¢B); GO TO P1PROCESS$ % 65 = P{ PROGRAM RELEASE 
?64% Pey0)3 GO TO P4PROCESSS & 66 = Py CONTINUITY BIT 
1553 P¢18)3 GO TO PiPROCESS3 & 67 = P4 PRESENCE BIT 
$568 PC12,0)3 GO TO PIPROCESS3 ® 70 © P41 FLAG BIT 

1573 P¢1201)3 GO TO PYPROCESSs ® 74 = P41 INVALID INDEX 
t56: FC12-2)3 GO TO P1PROCESSS % 72 = Pi EXP UNDERFLOW 
1589: PC4,9)3 GO TO PiPROCESS3 & 73 ° P1 EXP OVERFLOWS 
160% PC4eil)d3 GO TO P4PROCESS3 % 74 = PY INT OVERFLOWS 
1612 PO1253)3 GO TO PiPROCESS; &® 75 = Pi DIVIDE BY ZERO 


CLOCK « CLOCK+4+64? XCLOCK «© XCLOCK4+643 


NOTCNEWLOGGING) 
IF CLOCK,(37#5] = O OR 


CSECONDCTR «© ¢CP2MyXSO0)+SFCONDCTR)2 


XCLOCK GEO WITCHINGHOUR THEN 


BEGIN IF PeTrO) # O THENS 
IF FIRSTWAIT # NEXTWATT THEN 


NEWIO3% 


SECONDCTR « 33% 

IF NSFCONDREADY THENS 

BEGIN TOGLE*TOGLE AND NOT NSECONDMASK3 
INDEPENDENTRUNNER(PCNSECOND) » 09 400)8 


4 ORE 


46000000 
46000500 
46001000 
46002000 
46003000 
46004000 
46005000 
46006000 
46007000 
46008000 
46009000 
46010000 
46041000 
46011500 
46011990 
46012000 
46012500 
46042750 
46014000 
46015000 
46016000 
46047000 
46018000 
46019000 
46020000 
46024000 
46022000 
46023000 
46024000 
46025000 
46026000 
46027000 
46028000 
46029000 
46030000 
46031000 
46032000 
46033000 
46034000 
46035000 
46036000 
46037000 
46038000 
46039000 
46040000 
48000000 
48000099 
48000500 
48001000 
48002000 
48003000 
48004000 
48005000 
48006000 
48007000 
48008000 
48009000 


AHHH HHA AHHH HA HARTA TA AAA AAA AH A AR Ht tt a te 


000030 
0048:0 
0018:0 
001882 
0019:2 
0020:2 
002183 
0022:3 
002430 
002510 
0026:!0 
002730 
002782 
002812 
0029:2 
00292 
003032 
00342 
00314°2 
0032:3 
003410 
003530 
003633 
0037°3 
003833 
00393 
004130 
0042:0 
0043:0 
0044:0 
004530 
0046:0 
0048:3 
0050:0 
0054:0 
00523 
005333 
005433 
005533 
005730 
005610 
005930 
006030 
006110 
006230 
0454!0 
045632 
04562 
045713 
046031 
046131 
0462:2 
046313 
046483 
0465!2 
046611 
0468!4 


END ENDS 


$ SET oMIT = NOT¢CSTATISTICS) 
$ SET oMIT = NOTCWORKSET) 
IF WKSETCYCLETIME GTR O THEN % WORKSET 1S OPERATIONAL 
Tre CCLOCK*WKSFTCLOCK) GF WKSFTCYCLETIME THEN 
IF WKSETRUNNING#O THEN &% WORKSET 75 NOT CURRENTLY RUNNING 
BFGIN 
WKSETCLOCK $2 CLOCKS % RESET THEN WORKSET CLOCK 
INDEPENDENTRUNNER ¢Pe¢ WORKSET) »0,100)3 
WKSETRUNNING 2 13 
_ ENDS 


$ POP oMm{T 
$ SET oMYTT = NOTCDATACOM AND DCSPO ) 
IF CPCRRR) OR RRRMECH)#READY THEN 
IF STATUSBIT THEN 
BEGIN TOGLFE*TOGLF AND NOT STATUSMASK$ 
INDEPFNDENTRUNNERCPC,STATUS)00,100)3 
ENDES 


IF PaMrXx>0 THEN 
IF NSLATESLSLATE THEN 
TF JOBNUM20 THEN 
IF CPRYORCP2MIX] FNX OZ2CPRYORE(BEDC(O}.(6385])].CFF 1) THEN 
GO TO PAFAKE3 
EXTERNAL E23 
1F PiMrX = O THEN GO TO NOTHINGTODO# 
INJTIATES 3% 
NT1 © PRT GPIM[X28)3% 
IF P2M7Xe0 THEN GO TO cCOMINIT3 
1F NSLATE = LSLATE THENS 
IF JORBNUM « 0 THEN? 
COMINIT?¢ 
$ SET OMYT = NOTCNDATACOM ) 
1F NOPROCESSTOG < O THEN? 
GOGOGO0: BEGIN IF PRT¢PimIx,0] # WORDOFEASE THEN 
BEGIN P¢64,STS)3 
$ SET omMyT = NOTOCNFWLOGGING) 
GO TO STACKOVERFLOWS 
END3 | 


PeINTI3s 
IF PRTROWCPIMTX]CPSF] NEQ O THEN 
BEGIN PCNT a e¢STSe0sSTF)3 


$ SET OMYT = NOTCBREAKOUT) %139" 


IF NOTERMSETCPIMIX) 
THEN STOPM¢ TRUE) 
ELSE If NOT TERMGOINGCP1MIX) THEN 
TERMINALMESSAGECPRTROW(PIMIX),CFFIDS 
END3 


SECONDCTR # O8% 
1F SOFTS>0 THEN 


IF JARCPiM:X,27,7581) THEN & POSS,SOFTWARE INTERRUPTS 


IF CTSKA # PRTCPIMIXsTSX1),PBIT THEN 
IF TSkA¢8).6°193]82 THEN 


48040000 


48010004 
48040070 
48040072 
48010074 
48010076 
480;,0078 
480710080 
48030082 
48010084 
48010086 


48010088 
48010099 
48012000 
48012500 
48013000 
48014000 
48015000 


48015100 
48015200 
48015300 
48035400 
48015500 
48016000 
48017000 
48018000 
48019000 
48019500 
48020000 
48021000 
48022000 
48022099 
48023000 
48024000 
48025000 
48025099 
48025200 
48025300 


48026000 
48027000 
48028000 
48028090 
48029000 
46030000 
48031000 
48031100 
48031200 


48032000 
48032100 
48032150 
48032200 
48032250 


a. | 


AAAs aaA 


AH HHH HOH HO HHH A A HH A tt SH 


046922. 
46008000 
48003000 

046912 

046922 

046932 

047032 

047233 

O4a7at3 

047531 

Oa76ta 

OaTTt3 

048041 
88040078 

0480101 

048081 

048034 

046182 

048283 

048ai3 

048640 
48043000 

048640 

048633 

0488:0 

046931 

049233 

0493314 

049420 

0495%1 

049620 

049732 

049833 

049932 

050033 

050441 

050121 

050210 

050410 

0505%1 

0505?! 

050533 
48025000 

050513 

0506380 

050782 

050942 

0509492 

050932 

05120 

052481 

05161 
46028000 

0816%1 

051770 

051783 

054983 

052211 


BEGIN 
1F NOT PRTCPIMIX,INTRPTX),PBIT THEN 
BEGIN 
PCNT1»STSeO0sSTF)3 
MAKEPRESENTCEPRTCPIMIXsINTRPTXJIINX 093 
NT1 « PRTCPIM]Xe6)3 
FND3 


PCNTLeSTSsNFLAG(NT1I Je % OLN INCW 

FLAGCORPRTROW(CPIMIX) (623389) % CW 
&1 £€1784781))50SSNe 

FLAGCORPRTCPIMIXo INTRPTXICCTCI ZIRCW 
QCNT1 INX QIECTFIIeSSNISSFREGFE>OLD INCW 

PCA INX PRICPUMIXs TSX] eDUPeLODO NTs CFX >» 
XCHeo)3 

PRTCPIMIXe8] © NTL © *@FLAGONTL INX 3)3RINCW 

END ELSE TSKA£8) « PCDUPSLODreSSP)I) 


$ SET OMIT = NOTCNEWLOGGING) 

TF P2MIX # O THEN PCNT1-IP1)3% 
IF NSLATESLSLATE THENS 

TF JOBNUM < 0 THEN PCNT1,IP1932 

PONTy > (P2)3% 
POMIX © PIMIX3S 

GO TO NOTHINGTONO;8 

ENDS% 


PCINID 33% 
PONT1eSTS»OeSTF)3% 
SLEEPCENOPROCESSTOG),"0)3% 
NT41 © PRTCPiMyXx2813% 
69 G0G0G03;% 
NOTHIN,TONOLEPaMyX « OF% 
$ SET OMIT = NOTCSTATISTICS) 
Pe INr1)3% 
$ SFT OMTT = NOTCDATACOM ) 
Te NSLATE # LSLATE THEN 
IF STACKUSE THEN 
BEGIN TOGLEtsTOGLE AND NOT STACKMASK} 
% MOVE NTO YSTACK 
PCTSTACKeSTSeSECONDCTRIE#0,STE)3 
NSLATEteNSLATE+2 AND SLATENDS 
% yF wRUN*® THEN NO STACK NECESSARY 
us CNTSSeSLATECNSLATES132,°FF] NEO O THEN 
EGIN 
PeGETSPACECNTG,CFFI]e12eNT4 LSS 0)41,STS)3 
STACKUSE t#TRUE3 
END} 


PCMKSsNT4SSSLATELNSLATE+113°DIB O»LODs 
SLATEPNSLATE1+COC)3 
GO TO NOTHINGTODO3® 
ENDS 


P¢ 64,5TS)3% 
TF TOGLE THEN GO 10 PROCSWITS COMMENT TEST HP2TOG:3 
FOR NT41 «+ O STEP 2 UNTIL JOBNUM 00% 


48032300 
48032400 
48032500 
480327600 
48032700 
48032800 
48032900 


48032910 
48032920 
48032925 
48032930 
48032935 
68032940 
48032945 
48032950 
48032960 


48032979 
48033000 
48034000 
48035000 
48036000 
48037000 
48038000 
48039000 


48040000 
48041000 
48042000 
48043000 
48044000 
48045000 
48045899 
48046000 
48046099 
48047000 
48048000 
48049000 
48050000 
48051000 
48052000 
48053000 
48054000 
48054200 
48054400 
48054600 
48054800 


48055000 
48055200 
48056000 
48057000 


48058000 
48059000 
48060000 


ee ee a ee ee 


ee 


AnH AHH AH AHA et st St 


4-44 


052431 
052433 
052632 
052730 
052812 
0530:1 
0532:0 
48032500 
0532:0 
05331 
0534:0 
053601 
0537:2 
053911 
0541483 
054224 
054532 
48032300 
054733 
054733 
054932 
055011 
0552:2 
055310 
055333 
055411 
48024000 
O0554t1 
055432 
055610 
055783 
055931 
055913 
056033 
056033 
056110 
056130 
056113 
056330 
056510 
056530 
O56711 
0569!%2 
0569t2 
057231 
057233 
0576:0 
087733 
48054200 
057733 
0580:0 
0580:3 
O58i1i1 
48049000 
058431 
0582:0 
0583!0 


BEGIN PCINT 3% 
NT2 ¢ BEDEINTIIS2 
IF PONT3 © BEDENT1 432] 2TOPeXCHeDELe NOT) THENS 
BEGIN PIiMIX © FNT2).MIXF3S 
PCENT2I.FFF]419STS)$ & SET S REGISTER ABOVE LOGGING FLAG, 
NT3 «© NT33% 
PaMyXx @ O38 
Pe 64eSTS)3% 
FNDs% 


%153= 


IF NOTCNT2 AND NT3) #4 NOT O THEN 
BEGIN PIMIX # CNT2],MIXF3S 
If JOBNUM # NT1 THEN? 
STREAMCN® JOBNUMONT 1 eo Ae (BEDINT (42) 193% 
BeCBEDINT1]1)3% 
BEGIN SIe¢A3 DS « N WNS ENDSS 


4 


JOBNUM « JOBNUM"23% 
SFCONDCTR «+ 038% 
PRYORCPIMIXI,CFFIJ© 08 
PCFNT2]eSTF)S 


$ SET OMIT = NOTCNFWLOGGING) 
STARTLOGCPIMIX)3 
PCX1T)3 
FNDS 
END F 
$ SFT OMIT = NOTCSTATISTICS) : 
NO DO PCINI)D UNTIL CP¢RRR) OR RRRMECHIFREADYS 
UNTIL STATUSBITES 
TOGLE«TOGLE AND NOT STATUSMASK3 
TNOEPENDENTRUNNER¢( PC, STATUS) 500400)3 
G9 TO NOTHINGTODOSS 
POFAKE? TOGLE+TOGLE OR HP2MASK3 
$ SET OMIT = NOTCNEWLOGGING) 
PCHP2,INI 233% 
$ SET OMIT = NOTCNEWLOGGING) 
PROCSWyT?t P(16)3 


P2PROCESS!2% 
IF PCPAMIXeP2MyXe  PAIM{Xeee .POMIXe STN) # O THEN? 
REGIN 
$ SFT OMIT = NOTCNEWLOGGING) 
PcPRTCPAMyXe8je7P2)3 
FNDS 


TOGLE*TOGLE AND NOT WPOMASK3 
PIPROceSSt3% 
PCPRTICPIMYXsBlsSTSeOeSTFIIS 


$ SET OMIT = NOTCNEWLOGGING) %550= 

GQ TO PCONEOHONE) 3% 

69 TO MEMORYPARITY:3 % OF ZW 
P¢(NOP,NOP); & 2k ZWF 
GO TO NORMALERROR; x 4% 

SHORTCOMMUNICATES Z 6% 

PROGRAMRELEASE3 % 6B 

CONTINUITYBITS % 10 


@®eeeeeeeeee#e8eo8eee¢6¢ee828e80e2 ®@ 


48061000 
48062000 
48063000 
48064000 
48065000 
48066000 
48067000 
48068000 
48069000 


48070000 
48071000 
48074000 
48075000 
48076000 
48077000 


48078000 
48079000 
48079100 
48080000 
48080099 
48080200 
48080300 
48081000 


48082000 


48082999 
48084000 
48084100 
48084200 
48084300 
48084400 
48085000 
48085099 
48086000 
48086099 
48087000 
48095000 
48096000 
48097000 
48097099 
48097200 
48097300 


48098000 
48099000 
48100000 
48100499 
48101000 
48102000 
48102100 
48103000 
48104000 
48105000 
48106000 


AH AAA HHO tH 


ee 


—~ 
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058430 
O584t4 
05865314 
058733 
058932 
0594!2 
059231 
059310 
059313 
48064000 
059383 
0595!t2 
O597!4 
059810 
060082 
060181 
48077000 
060231 
060332 
06041 
0606314 
060730 
060710 
0609%2 
060983 
48071000 
060933 
48061000 
061230 
0612:0 
061340 
061581 
061633 
061880 
06182 
0619383 
061933 
062021 
062034 
062032 
062130 
0623:%0 
062312 
0673i2 
062433 
48097000 
062433 
062631 
062710 
0629814 
062981 
062933 
063081 
063033 
063431 
063133 
063221 


& 

@ INTERRUPTCONEQHTWO)3 PCNOP)S & 12 48107000 T 063223 
: 0 TO INITIATES % 16 48108000 T 063333 
MAKEPRESENTCANALYSIS)$ 2% 18 48109000 T 063431 

e RETURN: NT1ePRTEPAMTX, 813 48110000 T 06354 

GO TO COMINIT: 48411000 T 0637%2 

LOHUSY1t 48117000 T 063810 

e $ SFT OMT = NOTCNEWLOGGING) 48117099 T 063830 
NT1 © UNITINT2eCHANNELEOJ]3 48147200 T 063830 

UNTTONT2] © NT1&O0F1392535I3¢ 48118000 T 063933 

@ STARTIOCNT2)8% 48119000 T 064210 
60 TO FXTFRNAL3% 48420000 T 064233 

PORUSY?! 48121000 T 064351 

6 $ SET OMIT = NOTCNEWLOGGING) 48421099 T 064331 
SAVEMIXCPIMEX)3 48121200 T 064311 

PIiMIX « POMIXs% 48122000 T 064433 

@ PO2MIX « "13% 48123000 T 064532 
OLDIDLE TIME * OLDIDLFTIME=CLOCK*PCRTRI3% 48124000 T 064612 

GO TO FXTFRNALSS 48125000 T 064831 

rd] $ SET OMIT = NOTCSHAREDISK) 48125099 T 064833 
INQUEST33 48125500 T 064833 

S$ SET OMIT = NOTCNEWLOGGING) 484295509 T 064833 

@ $ SET OMTT = NOT MATACOM 48425540 T 064833 
$ SET OMIT = DATACOM 48126400 T 064833 

% USE ACTUALTOERR STACK TO SPOUT "DATACOM/INQUIRY INTERRUPT IGNORED® 48126429 T 064833 

 ] INDEPENDENTRUNNER(PC, .ACTUALTOERR) ,0,100)3 48126430 T 064930 
$ POP oMyT 48426431 T 0650t4 

GO TO FXTERNALSS 48127000 T 0650%4 

KEYBOARDRFOUEST# 92 48128000 T 065043 
£ SET OMIT = NOTCNEWLOGGING) 48128099 T 065480 

$ SET OMIT = N@T DEBUGGING | 48128500 T 065410 

@ IF CKEYBOARDCOUNTER « KEYBOARDCOUNTER41) = 1 THENS 48131000 T 065140 
TNDEPENDENTRUNNER (PC .KEYIN) 012160)3 48432000 T 065233 

GO TO EXTERNALS& 48133000 T 065412 

@ MEMORYPARITY #38 ZWF 48134000 T 065510 

; TERMINATECPIMIX)32 ZWF 48135000 T 065510 

TERMINALME SSAGE(32)3% %WF 48136000 T 065513 

@ NORMALFRRORS: 28 48137000 T 065632 

IF PYMIX = 0 THENS 48138000 T 065710 

BEGIN PC@100,STS)3% 48139000 T 065733 

& PUNT(5)3 & INVALID ADDRESS 48140000 T 065920 

ENDES | 48141000 T 065933 

48139000 

& Tr ONFOHTWOEY THEN 48441100 T 065983 

BEGIN PCNFOLCNT{ #CPIMrX=1)*NDXI42)9STS)3 48441200 T 066082 

PRICPIMIXe 45) eMCPRTICPIMIX»8))3 48141300 T 066430 

@ PRTICPIMIXsBJe*CPRTCPIMIXe15]]3 48441400 T 066781 

PRTICPIMIXse3]eNFOCNTLI 48441500 T 067010 

PRTCPIMIX*eG]eNFO(NT1+193 48141600 T 067280 

@ ENDS 48141700 T 067412 

| 48141200 

PCONFOHTWO)S 48142000 T 067482 

® IF PCDUP+DUP)=9 OR PCXCH)#11 THEN 48142100 T 067413 

ERRORFIXERC(CONEFOHTWOB9) 4195 48142200 T 067643 

TERMINATECPIMIX)3 48142500 T 067910 

®@ NTi « P3 48143000 T 067983 

TERMINALMESSAGECNTID3 48143500 T 068081 

e DIFFCOMEINTAeP? 48444000 T 068110 
& 


PCO+STFsPRITPIMIX +B] ,STS#MKSeNT4eDIB OeLODeXCHeCOC)3 48145000 T 0681t2 

GO TO INITIATE: 48146000 T 068531 

FN .% 48461000 T 068533 
00003000 


SIZF=™ 0686 WORDS 
NUMBER OF ACCIDENTAL ENTRIFS = 044 45135230 
NUMBER OF FRRORS DETECTED = 900, COMPILATION TrME = 1284 SFCONDS, 
PRY Sy7F2454 BASE ADDRESSe0686 CORE REOs2490 HISK ReQ234740 


LABEL OO0Q00000LINF 00177244? EXECUTE FSPOL/DISK ESPOL /DISK 


YN” 


? EXECUTE FSPOL/NISK 


PACKET 13 
INPUT 2313 CARDS FROM 717P 
TIME 1159 


DATE 7724K% THURSDAYs 09/01/77 


*#* BURROUGHS B5700 DCMCP MARK XV1,0.178 AND INTRINSICS MARK XVI,0.132 «4% 
#NO MESSAGES TODAY 


11959954 9% EXECUTE ESPOL/DISK 
11259854 ? STACK= 1000 


11959954 ? FILE LINFe LINE BACK UP TAPE 

11259254 ? FILF TAPFEs SYMBOL/MCP DISK SFRIAL 
11259855 ? FILE DYSK= MCPA/NISK 

41°599855 ? FILE STUFFs DCMCP/STUFF 

1135955 ? DATA CARD 

41°59255 SIESPOL/DISK= 4 BOU 1159 08/22/77 
11359357 OKA OUT SER CODE SrTrteSPOL/DISKke 4 
11$59857 CMR IN CARDSESPOL/DISK= 1 

11°59:586 DKA IN SER SYMBOL MCPSFSPOL/DISKe# 4 
11359359 NeW PBT ON MTB 

11459359 MTB OUT 1006 LINESESPOL/DISK= 1 
12:00:02 NKA OUT SFR DSK2 SITFteSPOL/DISKe 34 
12309304 DKA OUT SFR DSK1 SITreFSPOL/pDISK= 1 
12200307 DKA OUT SFRK DCMCP STUFFSESPOL/DISK= 4 
42609843 nkA OUT SFR CODISK SyTrFtESPOL/DISKe 1 
12819951 +OPERATOR KEYED IN? iT] 

qatyortsy TIME FOR ESPOL/DISK= 4 JS3 CPe 14159, JO= 3249 IN 12857 
42894944 #DUP LIBRARY DCMCP/STUFFSESPOL DISKe 4 
12229949 +OPERATOR KEYED IN? 4RM 

42894219 NCMCP/STUFF REMOVED 

12824320 OKA LOK DeMCP STUFF tFSPOL/DISK= 1 
12824820 COB REL CARDIESPOL/DYSk= 1 

4{2824:20 ? END, 

12213220 DKA REL SYMBOL MCPIESPOL/DISKs 1 
12824321 MTB LOK LYNELESPOL/Dy:SK= 14 

12294238 DKA OUT SFR MCPA nySKtFSPOL/DISKe { 
12824359 DKA LOK MCPA DySKSESPOL/DISK= 1 
12829903 NKA OUT SFR DSRT1 SITELESPOL/DISKe 1 
12924105 DKA OUT SER DSRT2 SITELESPOL/DISKe 1 
12825357 DKA REL DSRT1 SITESESPOL/DISKe 1 
12825157 DKA REL DSRT? SITE?ESPOL/DISKs 1 
42825356 DKA OUT SER DSRT1 SITESESPOL/DISKe 1 
q2t3o84ae2 DKA OUT SER DSRT2 SITESESPOL/DISKe 14 
12%34%57 NEW PBT ON MTA 

42%343%57 MTA OUT 107 LINES ESPOL/DISK® 1 
42839357 NKA REL DSRTY SITFIESPOL/DISKe 1 
42839857 DKA REL DSRT2 SITEIESPOL/D1SKe 1 
12239158 DKA REL CODTSK SITESFSPOL/pHISK= 1 


gS @ @ & oe § oe >» 


42939956 
42939859 
12%39859 
42%40300 
12849300 
42840304 
12840302 


DKA REL DSK? STTETESPOL/DISK= 1 

DKA REL DOSKY SITESESPOL/DISKe 4 

MTA REL LINESESPOL/D;SKk= 4 

NKA REL CODE SITESESPOL/DISK= 1 

ESPOL/DISK= 1 FOU 1239 

FOR ESPOL/pISK= 1: PROCESS= 2111 SECS» 102 841 SECSs OLAY= 20 
PKT#0013 REMOVED 


> Pp > PrP Pp 


oe 


STREAM LABEL == DFCLAREN 
STREAM LABFL == DFCI.ARFN 
STREAM LABFL ™=* DFCLAREN 
STREAM LABEL “= DECLARFN 
STREAM LABFL c= DFCLARFN 
STREAM LABFL @= QDFCLARFN 
STREAM LABFL ** DFCLAKEN 
STREAM LABFL "= DFRLARFI) 
STREAM LABEL @=*) DFCLAREN 
REAL =" VALUE PARAMETER 


INTEGER =” 


RURROUGHS R@*5700 FSPQOL COMPILER HARK XV1,0,116 


VALUE PARAMETER 


THURSDAYs O9/01/77» 12834 PM, ae 


MCPA /DTSK 


SREREKSTAES TI SS 


SOURCE FILFs SYMBOL /MCP 


06109400 

07257400 

08275500 

08437200 

14383000 

1976880U 

22069106 

28440800 

38151000 
DECLARED aT 00316000 
== DECLARED AT 00379000 
NDECLAREW a~T 00379100 


DECLAREN AT 00379700 


DECLARED AT 00389000 
NECLAREN Al 00389100 


DECLARED aT 00390200 


DECLARED aT 900427000 
NECLAREN aT 00429000 


DECLARED AT 00431000 
DECLAREN a1 00463300 


v= NFCLARFO aT 90652000 


DECLARED AT 02047000 
DECLAREn aT 02052800 


NECLAREN aT 02178500 
AT 92181000 
DECLAREN AT 02187300 


*022550008 02281000 
AT 02223000 
*02237000% 02240000 *02244000* 02244500 #022450008802251010*% 02251030 «02251050" 
*#02251150« 02252000 

aT 92255000 


02287240 02295000 09347000 


AT 02281000 


Real @™" ValUF PaRaMFTER == 
00379200 

REAL =" VALUF PARAMETER == 
00379600 

REAL @* VALUE PARAMFTFR == 

REAL ©" VALUF PARAMFTFR &# 
00389200 

REAL =" VALUE PARAMFIFR = 
00390000 09390100 

REAL “" VALUE PARAMFTFR = 

REAL *" VALUE PARAMFTER om 
00428000 

REAL ARRAY =" VALUE PARAMETER oe 

REAL 7? VALUE PARAMETER == 
STREAM VARIABLE 

00653600 00653800 0060454000 

REAL ARRAY ©" \VALUF PARAMETER °&* 
02049000 

REAL *" VALUE PARAMETER == 
02052700 

REAL *" VALUE PARAMETER of 
STREAM VARIABLE *© NFCLAREN 

REAL ©" VALUF PARAMFTFR &#= 
02187100 07187200 

REAL °°" DECLAREN af 02190000 

*#02206000% 02223000 02254000 

STREAM VARIABLF © DECLARED 
*02228000H 02229000 02285000 
02251070 #972510908 02251140 
STREAM VARIABLE "© NECLAREN 
02255100 

STREAM VARI ARLE == NFECLARFH 
02282000 

STREAM VARIABLE "=" [DECLARED 


02297010 


AT 92295000 


02297100 402297300 


> 


an 


mp on 


ma 


STREAM VARIABLE == 
02353500 


NECLARED 


REAL =" VALUF PARAMETER == 


STREAM VARIABLE == 
02386000 

STREAM VARIABLE == 
02434280 

STREAM VARIARLF == 
02434426 


NECLARED 
NECLAREND 


DECLARED 


REAL *" NAME PARAMETER @= 


02603000 02606000 

STREAM VARIABLE *#== 
02607000 *02631000« 

STREAM VARJABLF == 
02644100 

STREAM VARIABLE = 
STREAM VARTABLF =~ 
04084000 

STREAM VARIABLE *#= 
04089000 

STREAM VARIABLE == 
#042160008 

STREAM VARIABLE °* 
STREAM VARIABLE 3 
04330200 043312700 

STREAM VARIABLE = 
04360000 

STREAM VARIABLE == 
04398800 *04399000% 
STREAM VARIABLE = 
04401400 


STREAM VARIABLE &= 
04567400 

STREAM VARTABLE °° 
04567800 

STREAM VARIABLE == 
04568560 

STREAM VARIABLE == 
04645000 


STREAM VARIABLE == 
04656600 04657000 

STREAM VARIABLE == 
04659800 04661n00 
STREAM VARIABLF «= 
04672550 

STREAM VARTABLE == 
04673000 

STREAM VARIABLE °= 
04675150 

STREAM VARIABLE -= 
04683650 

STREAM VARTABLE =m 
04686250 


NECLAREN 
NECLARED 


NECLARED 
DECLARED 


DECLARED 
DECLARED 
NECLAREN 
NECLAREN 
04331600 
DECLARED 
DECLARE) 
04399800 
NECLAREN 
DECLARED 
NFCLAREN 
NECLAREN 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 


DECLARED 


REAL "" VALUE PARAMETER &* 


04700000 04701000 
STREAM VARIABLE = 


04712000 


REAL ** VALUF PARAMETER) #* 


AT 


DECLAREN AT 92379000 


AT 
AT 


AT 


02350000 


02385000 
02434270 


02434424 


DECLARED AT 


AT 


AT 


AT 


02606000 
02664000 


04004170 
04083000 


04088000 
04213000 


04271800 
04325800 


04359400 


04398400 


*044Q0Q0000% 


AT 
AT 
AT 
AT 
AT 
AT 
AT 
Al 
Al 
AT 
AT 


AT 


DECLAREN aT 94702000 


04401000 


04567320 
04567790 
04568550 
04644000 
04656100 
04658500 
04672500 
04672950 
04675000 
04683500 


04686100 


04732000 
DECLARED AT 04712000 


NECLARED aT 95606900 


02604000 


04733000 


REAL ARRAY =" NnFCLARED aT 05702000 
*05703000*x 05705900 *05715000* 0572500n 05729000 
LABEL == DECLAREN AT 95844650 "Re OCCURS aT 05842300 
05844110 
REAL *" VALUE PARAMETER ®@" DECLAREN AT 05846600 
05848900 05849000 05849460 05850300 05850400 05850500 05850600 05851850 
REAL 7" DECLARED aT 05951000 
05951200 05953425 #0595 3800 «#0595 4800%e05956300%8059570508 05957250 *«05957300% 05957700 05958600 05959000 
05960685 05962000 05962200 05962400 05962600 05962700 #£05962900% 05963000 05968800 05969150 05970800 
05972600 05973400 05973800 05976200 05976400 05976450 05976700 05977050 05977100 *05977400*" 05977600 
05978050 «05979050 05979320 
STREAM VARIABLF ==" DFCLARED AT ¥5958600 
05958800 
STREAM VARIABLE ™"™ DECLARED AT 05976050 
05978200 
STREAM VARIABLE ©" DECLARE AT 06023000 
06024000 *06026000" 
STREAM VARIABLE “= NECLARED AT 06037300 
STREAM VARIABLE = DECLARED AT 06074100 
06074500 *06074600* 
STREAM VARIABLE -= DECLARED AT 06077900 
06081300 060814000 *06082400**0608 3200440608 3500%**0608 3800" 
STREAM VARIABLF == NMECLARFD aT 06090000 
06090200 
STREAM VaRIaBlLe c= neCLAREN aT 06098700 
0609800 
STREAM VARIABLE = DECLARED AT 06115800 
REAL |" DECLAREN aT 04185000 
06196000 06206440 «06207000 06212009 06234000 06254000 +06255000% 06258000 06261000 «96262000 06263000 
#06263200#*16268000% 06769000 06271000 06272000 
STREAM VARIABLE "* DECLARED AT 96196000 
06197000 
STREAM VARIABLE = NFCLARED AT 96206140 
06206150 «06206475 %e06204190%«06206205 4062062915 
STREAM VARIABLE ** DECLARED AT 06234000 
06235000 
STREAM VARTABLE = DECLARED AT 963535600 
06353620 
STREAM VARIABLE == DFCLARED AT 06360350 
REAL ARRAY =" PWFCLARED AT 06406000 
06426000 
INTEGER =" DECLARED AT 07008000 
«07144000% 07145000 07148000 407165000« 07467000 407475000e 07476000 07178300 07179260 
STREAM VARIABLE 7* NMECLAREN AT 97179260 
07179290 
STREAM VARIABLF ©" DFCLAREN AT 07260000 
#O7 761000" 
REAL ™" DECLARED AT 07269009 
#07271900% 07272000 «97273000« 07775000 07276000 «072768000« 
REAL =" DECLARED aT 07299000 
407313000" 07317000 07348040 «07320000% 07322000 07326100 
STREAM VARIARLE “= DFCLAREN aT 07358000 
#07365500« 
REAL ** DECLARED AT 07386000 
07388000 *073979000%*07400500*% 07401000 
REAL 7° DECLARED aT 07474000 
*#074832000% 07435000 07436500 07438700 «07451000 


= 7 


STREAM VARIABLE =2 
07436610 

STREAM VARIABLE == 
STREAM VARIABLE &= 
08010000 #08011000% 
STREAM VARIABLE == 
08037000 


STREAM VARIABLE s™ 
08051030 

STRFAM VARIABLE =o 
08105800 

STREAM VARIABLE = 

*08106700» 


STREAM VARIABLE == 

08197300 *08107900% 
STREAM VARIABLE °* 

08108350 «08108700 
STREAM VARTARLE == 

08109450 *06109550« 
STREAM VARIABLE == 

08110850 

STREAM VARIABLE == 

08113450 *08113550» 


NE CLARED 


DECLARED 
DFCLARED 


NECLARED 
NEGCLARED 
NECLARFA 
NECLARED 
DECLARED 
NECLARED 
DECLAREN 
NECLARFD 


DECLARED 


AT 


AT 


07436500 


07461000 
08009000 


08034000 
06051010 
98105700 
08906350 
08407100 
98108250 
08109300 
08110350 


08113300 


REAL ARRAY "=" NMECLARFOM AT 08172500 
08175400 *08176000" 08177000 «08177100 08477200 


DECLARED AT 08179600 


*08175200% 08175300 
STREAM VARIABLE &@= 
08179700 


REAL "7" 
08259225 06259050 


08276260 8276410 
STREAM VARIABLE => 
08276310 
STREAM VARIABLE se 


DFCLARFD aT 08255400 


08259405 


08259450 


DECLARED AT 08276260 


DECLARED AT O8276410 


08259525 «08268500% 08268600 


08178000 


08269100 «08272000« 08273250 


08179600 «08479800* 


08276220 


> >> > Pr > 


> PPrp 


STREAM LABFL == 
STREAM LABFL == 
STREAM LABFL “== 
STREAM LABFL c= 
STREAM LABFL == 
STREAM LABEL == 
STREAM LABEL o= 
STREAM LABEL == 
STREAM LABEL == 
REAL = VALUE 


BURROUGHS B™5700 ESPOL COMPILFR MARK XV1.0.116 THURSDAY, 09/01/77» 


MCPA /DISK 


SReteasSeszrseszess 
SQURCF FILE: SYMBOL /MCP 


DECLARED AT 96109400 

DecLAREN AT 07257400 

DFCLAREN AT 08275500 

ME CLARED AT 98437200 

DFCLAREN AT 14383000 

DFCLAREN AT 19768800 

DECLAREN AT 22069100 

DECLARED AT 28440600 

DFCLARFD AT 38151000 
PARAMETER == DECLARED AT 00316000 


INTEGER == VALUE PARAMETER ©" DECLARED AT 00379000 


REAL =| VALUE 
00379200 

REAL *®* VALUE 
00379600 

REAL 7" VALUE 
REAL =" VALUE 
00389200 

REAL «= VALUE 
00390000 0039 
REAL = VALUE 

REAL = VALUE 
00428000 

REAL ARRAY == 

REAL =" VALUF 
STREAM VARIABLE 
00653600 9065 

REAL ARRAY = 
02049000 

REAL == VALUE 
02052700 

REAL = VALUF 
STREAM VARIABLE 

REAL 72 VALUE 
02187100 0218 


PARAMETER == NECLAREN AT 00379100 
PARAMETER = DECLARED aT 00379700 


PARAMETER == DECLARED AT 00389000 
PARAMETER #* NECLAREN AT 00389100 


PARAMETER w= DECLARED AT 00390200 
0,400 

PARAMETER «= DECLAREN aT 00427000 
PARAMETER = DECLARED AT 00429000 


VALUE PARAMETER == DFCLARED AT 00431000 
PARAMFTFR |= pFCLAREN AT 00463300 
v= NECLARFD AT 00652000 
3a00 00654000 
VALUF PARAMETFR == DFCLARED AT 02047000 


PARAMETER = DECLARED AT 07052800 


PARAMFTFER me PECLARED AT 09178500 
w= NECLAREN AT 02181000 

PARAMETER #=* DECLARED AT 02487300 

7200 


REAL *= DECLARFD aT 02190000 


#02206000% 0729 
STREAM VARIABLE 


#02228000m 02229000 02235000 «022370008 02240000 «02244000% 02244500 #£022450000402251010% 02251030 402251050. 


02251070 «0225 
STREAM VARIABLE 
02255100. 
STREAM VARIARLE 
02282000 
STREAM VAR]JABLE 
02297010 0229 


3000 02254000 *£02255000« 02281000 02987240 02295000 09317000 
"= DECLARFD aT 92223000 


1090% 02251110 «022513150" 02252000 
== PFCLARFN AT 92255000 


= DECLARFD aT 02281000 


== DECLARED AT 02295000 
7400 *02297300% 


1234 PM, 


STREAM VARJARLE o= 
02353500 


NF CLARFD 


REAL ** VALUE PARAMFIFR == 


STREAM VARJABLF = 
02386000 

STREAM VARIABLE == 
02434280 


STREAM VARIABLE <= 
02434426 


NECLARFD 
DECLARED 


DECLARED 


REAL *= NAMF PARAMETER = 


02603000 02606000 

STREAM VARIABLE <== 
02607000 *02631000« 
STREAM VARIABLE #= 
02664100 

STREAM VARIABLE == 

STREAM VARIABLE == 
04084000 

STREAM VARIABLE == 
04089000 

STREAM VARTABLE == 

#04246000« 

STREAM VARIABLE == 
STREAM VARTABLE) &== 
04330200 043312700 

STREAM VARIABLE 7" 
04360000 

STREAM VARJABLE == 
04398800 *04399000« 
STREAM VARIABLE «= 
04401400 

STREAM VARIABLE == 
04567400 

STREAM VARTARLE == 
04567800 

STREAM VARIABLE == 
04568560 

STREAM VARTABLE == 
04645000 

STREAM VARTABLE == 
04656600 04657000 
STREAM VARYABLE == 
04659800 04661000 
STREAM VARIABLE == 
04672550 

STREAM VARIABLE =* 
04673000 

STREAM VARIABLE == 
06675150 

STREAM VARIABLE = 
04683650 

STREAM VARIABLE «#== 
04686250 


NECLAREN 
NDECLAREN 


NECLAREN 
DECLARED 


NECLARED 
NECLARED 
NECLAREN 
NECLARED 
04331600 
DECLARF 
NECLARED 
04399800 
DECLARED 
DECLARED 
NECLARED 
DECLARED 
NECLARFED 
NECLARED 
DECLARED 
NECLAREN 
DECLARED 
NECLAREN 
DECLARED 


DECLARED 


REAL e* VALUE PARAMETER == 


04700000 04701000 
STREAM VARIABLE @« 


04712000 
NECLARED 


REAL @™" VALUE PARAMFTFR == 


AT 


DECLARED aT 02379000 


AT 
AT 


AT 


02350000 


02385000 
02434970 


02434474 


NECLARED AT 


AT 
AT 


AT 
AT 


AT 
AT 


AT 
AT 


AT 


AT 


02606000 
02664000 


04004170 
04083000 


04088000 
94213000 


04271800 
04325800 


04359400 


04398400 


*04400000% 


AT 
AT 
AT 
AT 
AT 
AT 
AT 


AT 


AT 


DECLARED AT 04702000 


04401000 
04567320 
04567790 
04568550 
04644000 
04656100 
04658500 
04672500 
04672950 
04675000 
04683500 


04686100 


04732000 


AT 


DECLARED AT 05606900 


04712000 


02604000 


04733000 


REAL ARRAY =" nFCLARFEN aT 05702000 
*05703000«% 05705000 *05715000« 05725000 05729000 
LABEL =" NFCLAREN aT 95844650 "= UccuURS aT 05842300 
05844140 
REAL "=" VALUF PARAMETER == DECLAREN AT 05846000 
05848900 05849000 05849460 05850300 05850400 05850500 05850600 05857850 
REAL =" DFCLARFN aT 05951000 
05954200 05953425 *05953800*#05954800%«05956 300%*05957050% 05957250 *05957300% 05957700 05958600 05959000 
05960685 05962000 05962290 05962400 05962600 05962700 *05962900«" 05963000 05968800 05969150 05970800 
05972600 05973400 05973800 05976200 05976400 05976450 05976700 05977050 05977100 *05977400% 05977600 
05978050 *05979050« 05979320 
STREAM VARIABLE =" nFCLAREn aT 95958600 
05958800 
STREAM VARTABLE == DFCLARFN AT 05978050 
05978200 
STREAM VARIABLE == DECLARED AT 06023000 
060294000 *06096000# 
STREAM VARIABLE = NECLARED AT 06037300 
STREAM VARIABLE == DECLARED AT 06074100 
06074500 *060744600« 
STREAM VARIABLE == DECLARED AT 06077900 
06081300 06084400 *06082400%«0608 3200440608 3500%%0608 3800% 
STREAM VARIABLE *™ DECLARED AT 06090000 
06090200 
STREAM VARIABLE == NFCLARFN AT 06098700 
06098800 
STREAM VARTABLE "2 DECLARED AT 96115800 
REAL == PECLARED AT 06185000 
06396000 06206140 *06207000* 06212000 06234000 06254000 *06255000* 06258000 06261000 *06262000% 06263000 
*06263200%*06268000% 06769000 06271000 06272000 
STREAM VARIABLE == PECLARED AT 96196000 
06197000 
STREAM VARIABLE == DECLARFN AT 06206140 
06706150 *06206475%*06206190 «06206205 ««00206215" 
STREAM VARIARLE =" DECLARED AT 06234000 
06235000 
STREAM VARTABLF == DFCLARFD AT 06353600 
06353620 
STREAM VARJABLE = DECLARED AT 06380350 
REAL ARRAY -= nFCLARED AT 06406000 
06496000 
TNTEGER == ODEC)ARED AT 07008000 
*97144000% 07145000 07148000 #07165000% 071467000 *07475000« 07476000 074178300 0747926n 
STREAM VARIABLE == DECLARFN AT 07179260 
07179290 
STREAM VARIABLE = DECLAREN AT 07260000 
#07261000%— . 
REAL "=" DFCLAREN AT 07269000 
#07271900% 07272000 +¥07273000% 07275000 07276000 «07278000x 
REAL ** ODFCLARFD at 07299000 
#07343000% 97317000 07348040 *07320000« 07372000 07326100 
STREAM VARIABLE |= DECLARED AT 97358000 


407365500 


REAL 7" DrclaRepn at 07386000 

07388000 *07397000%#07400500% 07401000 

REAL *" DFCLARFEN AT 07424000 

#07432000% 07435000 07436500 07438200 «07451000« 


PrrpryYrrYprrrr,Yrp > >Prrpp 


> 


STREAM VARIABLE 
07436610 
STREAM VART ARLE 

STREAM VARIABLE 


089;0000 *08011000+ 


STREAM VARIABLE 
08037000 
STREAM VARIABLE 
08951030 
STREAM VARIABLE 
08195800 
STREAM VARIABLE 
*08106700» 
STREAM VARIABLE 


08107300 «08107400 


STREAM VARIABLE 


08108350 ¥*08108700« 


STREAM VARIABLE 


08109450 *08109550« 


STREAM VARIABLE 
08110850 
STREAM VARIABLE 


06143450 *08113550+ 
NFCLARED AT 08172500 


REAL ARRAY =" 


*#08475200% 08475300 


STREAM VARIABLE 
08179700 


REAL 7 


#08 259225% 08259050 


08276260 
STREAM VARIABLE 
*#08276310« 
STREAM VARTARLE 

08276450 
STREAM VARIABLE 
STREAM VARIABLE 
STREAM VARIABLE 
STREAM VARIABLE 


082764 


10 


08495000 
REAL w= VALUE 
REAL = DECLARFO 


NECLARFEN 


DF CLARE 
NECLAREN 


DECLARFD 
DECLARED 
DECIARFN 
DECLARED 
DECLARED 
DECLARFD 
DECLARED 
NECLARED 


DECLARED 


AT 


07436500 


07461000 
08009000 


08034000 
06051010 
08105700 
08106350 
08107400 
08308250 


08109300 


" 08410350 


08113300 


08175400 «08176000% 08477000 «084771400«% 08477200 
NECLARER aT 08179600 


DECLARED AT 08255400 


08259495 
DECLARED 
NECLARFN 
DECLARED 
DECLARFD 


DECLARED 
DECLARFD 


PARAMETER «= 
AT 08440000 


08444000 *08447000% 08448050 
08471110 *08474470« 08474000 


STREAM VARIABLE 


08445000 *08446000« 


STREAM VARIABLE 
STREAM VARIABLE 
STREAM VARIABLE 
STREAM VARIABLE 
STREAM VARIABLE 
STRFAM VARTABLE 
STREAM VARIABLE 
STREAM VARIABLE 
STREAM VARIABLE 
STREAM VARTABLE 
08492000 
STREAM VARTABLE 


DECLARFD 


DECLARED 
DECLAREN 
DECLARED 
DECLARED 
NECLARED 
NECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 


DECLAREN 


08259450 


AT 


AT 


08976260 
08276410 


08371000 
08385400 
08412200 
08424000 


08259595 *08268500% 08968600 


DECLARED aT 08436900 


08450100 


*08478700% 06478900 


08444000 


08448050 
08450400 
08451400 
08454000 
08462000 
08471030 
08471110 
08474000 
08478900 
08488000 


08532000 


08451100 
08488000 


08478000 


08269400 %08272000« 08273250 


08479600 «08179800» 


08276220 


08454000 *£08459000% 084627000 *08470000*% 08471030 *08471080« 


‘ 


ae 


08533000 
STREAM VARIABLE == 
08552000 
STREAM VARIABLE == 
08559000 


NECLARED 


DECLARED 


REAL = VALUE PARAMETER «= 


08572520 08573300 
STREAM VARIABLE == 
08572530 


REAL = ODECLARFD AT 98576000 


08578000 08578;00 
STREAM VARTABLE &= 
08578300 

STREAM VARIABLF &= 
08592000 

STREAM VARIABLE == 
08597400 *08597500« 


REAL = DECLARED AT 08601000 


*08605000*% 08621500 
STREAM VARTABLE == 
#086741000%%08649500» 
STREAM VARIABLE &e 
08664000 

STREAM VARYABLF o# 
08720000 

STREAM VARTABLE -@ 
08899000 


REAL == DECLARED AT 09601000 


09632000 04633000 
STREAM VARIARLE =-@ 
09633500 


ve DECLARFD aT 09679300 


REAL 

09679900 09680500 
STREAM VARTABLF == 
09681100 

STREAM VARIABLE == 
09681520 

STREAM VARIABLE == 
09682300 


REAL © VALUE PARAMETER o@ 


09704000 09704,00 
STREAM VARIABLE 7 
12661000 
STREAM VARIABLE == 
12834500 
STREAM VARIABLF = 
12893000 


DECLARED 
08590006 
DECLARED 
DECLARE 


DECLARFD 


DECLARED 
08620500 
DECLARED 
DECLARED 
DECLARED 


09633400 
DECLARED 


09680800 
NECLAREN 
DECLARFA 
NECLARFD 
09704500 
DECLAREN 
NECLARFD 


DECLARED 


REAL =" VALUE PARAMETER == 


REAL =" DECLARED AT 14351205 


#14358597% 14358598 

STREAM VARIABLE == 

#14383500% 

STREAM VARIABLE == 
14537200 


14383100 
NECLAREN 


DECLARED 


REAL w* VALUE PARAMETER «== 


14551500 *14559200« 
14603000 44603750 


14559300 


AT 08551400 
AT 98558000 
DECLARED AT 08568000 
AT 08572520 
08597050 «*08597700* 
AT 08578100 
AT 08590000 


AT 08597050 


AT 08605000 
AT 08659000 
AT 08717000 
AT 08887400 


09634300 09644000 
AT 09633400 


09683000 09681515 09681545 09681700 
AT 09681000 
AT 09681515 
AT 09682200 
DFCLAREN aT 09700000 
09706000 09706050 09706100 09707000 
AT 12657000 
AT 12833000 
AT 12892500 


DECLARED AT 14342100 


AY 14383100 
AT 14535000 


DECLARED aT 14543000 
14562000 14569200 14570000 14585300 


09682200 


14585360 


14599900 


14599910 


14600000 


STREAM VARIARLE 7 NECLAREN aT 14570000 
14573000 
STREAM VARTAPLF == PECLAREN AT 14603750 
NAMF == DFCLAREN AT 14624500 
14792300 
STREAM LABEL == NECLARED aT 14702300 = OCCURS aT 14702400 
STREAM VARIABLE = NECLARFD AT 15113800 
15114100 
STREAM VARTABLE =" DECLARED AT 15501600 
*¥15524000*% 15525000 
INTEGER == DECLARED AT 15600500 
#15600950 415601000" 15601150 15604200 15601400 £15602200%%15602400% 15602500 45602600 15607640 15602680 
#15604100« _ 
REAL ™" DECLARED AT 16048000 
16948100 46088000 £16105000«416108000% 16109000 146139000 *16149000% 16150000 16187000 *16228000% 16229000 
16234000 16238000 
STREAM VARIABLE ** DECLARFD AT 16088000 
16991000 *16098000« 
STREAM VARIABLE = DECLARFN AT 16139000 
16142000 *16147000% 
STREAM VARIARLF = NECLARFD AT 16187000 
16195000 
REAL 7] OFCLARED AT 16349000 
#16505100«% 16506000 16600000 
STREAM VARTABLE == DECLARFN AT 16600000 
REAL ==" DFCLARED AT 16694500 
16695000 146696800 *16756000% 16769000 «16770000% 46770500 16780500 *16807500« 16810500 16844000 «168145000« 
16846000 16816500 168138000 146827300 146877900 46828100 *16828300% 46829600 
STREAM VARIABLE “7 DECLARED aT 16756000 : 
STREAM VARIABLE = DECLARED AT 16780500 
16781000 
STREAM VARIABLE = DECLARED AT 16828100 
16828500 #16828600 5416828906 «#16829 400% «16879300% 
REAL = DFCLAREN aT 16910000 
16910500 
REAL =&* DECLARFN aT 17000800 
%17002000% 17002600 147003000 17003300 47003250 
STREAM VARIABLE = fNECLARFD AT 17003250 
17093500 
REAL =» NaMe PaRaMeTEFR == MFCLARED AT 18002000 
18900000 18043000 18025000 48027000 148031500 48035000 
STREAM VARIABLE = NMECLARFD AT 18013000 
REAL @* Valle PARAMETER == DECLARED aT 18156000 
18455000 18456000 18225000 148227500 18255000 %18255200% 48260000 148265000 «48266000% 18273040 416277000. 
4#18283000% 18345000 #£18425700% 18438120 18439425 18442000 18443000 18455000 18460000 18465000 
STREAM VARIABLE = NECLARFH AT 18438120 
18438140 
STREAM VARIABLE = DECLARFN AT 18455000 
18456000 
REAL ARRAY =" NECLARED AT 18502400 
18528100 18570000 
STREAM VARIABLE "=" DECLAREN AT 18528100 
18528300 *18528600«%« 18528900 
STREAM VARIABLE "= DECLARED AT 18570000 
18570300 
REAL ARRAY @*™ NMECLARED aT 18701900 
%18770400% 18770900 PELE AE SOT CC PME TET CEL PERCTEEE OPEC ECT CUT PATE TTT 18790300 148790400 48790500 


rPpp 


PPrrYr YP YP 


18790600 18791670 *18810200* 18810300 188270200 «#18840200% 18840500 
STREAM VARTARLE =* NECLAREN AT 18790600 
STREAM VARTABLE == DECLAREN AT 18791620 
STREAM VARTABLF == NECLAREN AT 18820200 
48820700 488244900 
REAL ARRAY ©" NECLARED AT 49520000 
STREAM VARIABLE == DFCLAREN AT 19768768 
19748774 
STREAM VARIABLE = DECLARED AT 19768900 
*19771000% 
REAL ARRAY = NHECLARED AT 19900270 
*19900 300 ##19900395«419900745* 19900750 «19900805* 
REAL ==" DECLARED aT 19901500 


*19902190% 49902000 «19903670% 49903700 19903810 *49903830%«49904360« 19905400 4149905200 


STREAM VARIABLE = DECLAREN AT 29020800 


20021000 

STREAM VARIABLF == NECLAREN AT 20030800 
20031900 

STREAM VARIABLE =" DECLARFN AT 20043700 
20044200 

STREAM VARIABLE =" NECLARFD AT 20088700 
20088900 

STREAM VARTABLE == MECLARED AT 20105900 
20106400 

STREAM VARIABLE == NECLARFED AT 20472400 
20172300 


STREAM VARIABLE = DECLARED AT 20472800 

STREAM VARIABLE == DECLAREN AT 20194400 

20194600 

STREAM VARTABLE == DECLARED AT 20269960/ 
20989310 

REAL ©" VALUE PARAMFTFR ==" PECLAREN al 20382015 
20382010 20382062 20382170 

STREAM VARIABLE == NFCLARER AT 20478520 


20478530 
STREAM VARYABLF == NECLARFN AT 20498000 
20500000 
STREAM VARIABLE == DECLAREN AT 20511370 
20511380 
STREAM VARJABLE == NMFCLARED AT 20511660 
20511690 
REAL ** DECLARED AT 20566100 
20571700 
STREAM VARIABLE = DECLARED AT 20571700 
20571720 
REAL == DECLAREN AT 20581000 
20582750 
STREAM VARIABLE = DECLARED AT 20582750 
#20582950» 


REAL == DECLARFN aT 20584000 
REAL == DECLARED AT 20586800 
REAL = DECLARED aT 20589800 
REAL ** ODECLARFD AT 20591000 


“REAL == DECLARED AT 20595000 


20595950 
STREAM VARIABLF == ODFCLAREN aT 20595950 
20596000 


18840700 


PrP Pp Pp 


REAL =" ODFCLARFN af 20596800 
REAL == DECLARED AT 20600010 
REAL == DECLARFN AT 20701500 


REAL ARRAY «= 


NECLARED AT 22003000 


*22008000 44220 1300044220 14000 %#22018000%422091000%e22022000% 22024500 «27027000« 22029000 


STREAM VARIABLE = 
*22069280% 

STREAM VARIABLE o# 
STREAM VARIABLE == 
STREAM VARIABLE c= 
22165000 272167000 
STREAM VARTABLE @#= 
22182000 

STREAM VARIABLE «<= 
22192000 

STREAM VARIABLE == 
22417000 


NECLAREN 
DECLARED 
DECLARED 
NECLAREN 
DECLARFN 
DECLARED 


DECLARFN 


AT 


AT 


22069230 
22115030 
22159000 
22164000 
22181000 
22191000 


22416090 


REAL ARRAY =" NMECLARED AT 22901000 


#22904000% 22907000 #22999000*#229 10000 «#229 42000 ¥#229 14900 4#229 15000 *#29916000%422947000% 22948000 


STREAM VARIABLE = NFCLAREN AT 24116000 
*24120000« 

STREAM VARIABLE *=" DECLAREN AT 24134000 
24136000 24137000 *24138000* 

STREAM VARIABLE == DECLARFN AT 24158000 
24459000 *294162000* 

STREAM VARIABLE = DECLARED AT 28023800 
28094000 

STREAM VARTABLE == DECLARED AT 28056400 
28056600 

STREAM VARIABLE “== DECLARED AT 28065000 
28065200 

STREAM VARJABLF |= DECLARED AT 28081600 
280814800 

STREAM VARTARLE == NECLARFH AT 28218400 
28218600 

STREAM VARTABLE == ODECLAREN AT 28255700 
28255400 

STREAM VARIABLE == OECLAREN AT 28963400 

STREAM VARIABLE == DECLARED AT 282976600 
*28277000» 

STREAM VARIABLE ==" DECLARED AT 28297800 
28298200 

STREAM VARIABLE == DECLARED AT 28418400 
28418600 

STREAM VARIABLF == DECLARFN AT 28444200 
28444400 *27B8445000% 28445400 


REAL "=" VALUE PARAM 
32000000 32000810 

STREAM VARJABLE) == 
32001180 

STREAM VARIABLE = 
32003800 


ETER om 
32001700 


NECLAREN 


DECLARED 


PEAL == VALUE PARAMETER == 


36006000 
STREAM VARIABLE = 
37036800 
STREAM VARIABLF == 


DECLARFN 


DECLARED 


DECLAREN aT 32000100 


AT 


AT 


DECLARED AT 36001000 


AT 


AT 


32000810 


32001700 


37036400 


37046192 


22921000 


37046215 


REAL == DECLARFN AT 37380100 


37291320 *37221340% 372271400 
REAL == VALUE PARAMETER #= 


DECLARED AT 37286200 


37286000 37286;00 


37788000 372789000 


REAL ARRAY *" NECLARED AT 37504000 
*37508000« 37509000 we ed ae CT dee 37542000 


STREAM VARIABLE = 
38160500 

STREAM VARTARLE == 
STREAM VARIABLE == 
386904000 


REAL = VALUE pARAMETER «== DECLARED AT 39900000 


39945000 39960000 


REAL @* VALUE PARAMETER == DECLARED aT 40002000 


40900000 460001000 
40324500 40332n00 
sTReaAM VARIABLE &== 
40261350 

STREAM VARYABLE == 
STREAM VARTARBLE «= 
40292214 

STREAM VARIABLF == 
41320380 

STREAM VARIABLE == 
41320800 

STREAM VARIABLE = 
41322700 

STREAM VARIABIE == 
41324900 


DECLARED AT 38159500 


NECLAREH AT 38281000 
DECILAREN AT 38603000 


39968000 


40255000 40257030 
40334057 40356800 
NECLAREN aT 40261300 


40258000 


DECLARED AT 40978150 
DECLARED AT 40999940 


DECLAREN AT 41326360 
DECLARED AT 41320600 
DECLARFN aT 41322500 


DECLARFN AT 41324800 


REAL em DFCLARFND aT 41327500 
44398400 4% 41 328600e 44378700 47328900 44330500 


STREAM VARJABLF &= 


DECLAREN AT 41333005 


413339095 *44333020%444333030% 


STREAM VARTABLE == 
41501200 


DECLARED AT 414500800 


REAL = DECLARED AT 41600300 
41602500 41602600 *41602900% 41603000 
REAL ARRAY ** VALUE PARAMETFR ™" ODFCLARED AT 42474000 


#496N2200% 44602400 


*42476100% 42477000 


42478000 42478200 42479000 


NaMe #= pechaRen aT 42515000 


¥42594200«% 429525500 


429526000 42527000 


REAL = DECLARFO AT 44011000 
44044000 #£44037000% 44184000 *44202500* 44202600 


STREAM VARIABLE == 


DECLARED AT 44481000 


REAL == DECLARFD AT 44906700 


44209100 442433000 
442464500 44266500 
STREAM VARIABLE “== 
44240520 


44240500 442427000 44943000 
44280000 
DFCLARFO AT 44240500 


REAL @* DecbLaRFD aT 45002000 


45092140 45092910 
STREAM VARIABLE =" 
45092150 45092;,60 
STREAM VARTABLE == 
45417000 
STREAM VARIABLE «= 


45092250 45099280 45092340 
NFCLAREN aT 45092140 


NECLAREN AT 457416000 


DECLARED AT 48075000 


40264300 


44332400 


44209700 


44246000 


45094200 


37543000 


40275300 


44332700 


41603100 


44202800 


44254000 


45094400 


37545000 


40278150 


44333005 


41607200 


44202900 


44256450 


45116000 


40292212 


41333600 


41607300 


44203150 


44256250 


45143000 


40317800 


44335000 


41607500 


44256300 


40322600 


44261500 


48077000 


AA *= STREAM VARIABLE 8 DECLARED AT 02173150 


02173160 


AA 7" STREAM VARIARLE “" DECLARED aT 02173300 


02173306 *02173325« 02173330 
AA 7" REAL *™ NFCLARFN AT 94704000 
0047 14000% 04722000 04723000 +*04726000% 
AA ew» REAL == DECLARED AT 40005220 
*#409752008 40377800 
AA == REAL == VALUE PARAMETER © DECLARED 
44908998 440089099 
AA e REAL, °* VALUE PARAMETER = DECLARED 
AAA =" REAL *" DECLARED AT 40005220 
#40275200% 40278000 40311100 *40311200 
AB 7" STREAM LABEL "= DECLARED aT 12882000 
ABN =" Lagrl =" PECLARFN aT 14629000 
ABORT =" LaBFL =" DrcblaRFD aT 13018000 =~ 
13058000 
ABORT =" REAL = NECLAREN AT 20566400 
ABORT w= REAL == DECLARED AT 20581000 
ABORT we REAL = DECLARED AT 20584000 
ABorRT e* REAL == DECLARED AT 20586800 
ABORT =" REAL = DECLARED AT 20589800 
ABORT ©" REAL “"* DECLARED AT 20591000 
ABORT =" REAL "= DECLARED AT 20595000 
ABORT "=" REAL ™* DECLARED AT 20596800 
ABORT =" Real *= nEclbaREN AT 20600010 
*20600150% 20600390 *#20600500«%%206081 30% 
ABORT =" REAL ©" DFELARED AT 20701500 
ABORT == SUBROUTINE =| FCLAREN AT 28011600 
28099200 278098,00 78036200 278041600 
28086200 28089400 278094200 28095600 
ABORT ©" OEFINEG =" PFCLARED AT 28207600 
28276800 282725009 278730400 28232800 
28795800 24303600 
ABORT =" NEFINE =" NECLARED AT 28406800 
28867400 28472R00 28476200 
ABORT *" SUBROUTINE =" DECLARED AT 28817000 
28849000 288522900 28863000 28682000 
ABORTABLF =" WFFINE =" prclaREn AT 00080900 
ABORTFpD == Real =" necbaRen aT 12505500 
12507000 #4 2564500 em 1 2686000444 2687400 « 
ABORTFOD = REAL =" NMECLARED AT 42805500 
12807000 *12880000*% 
ABORTED w= REAL, = NECHARED AT 13007000 
13956000 
ABORTMASK == DEFINE == DECLARED AT 00080900 
22009000 220190n00 22930000 22905000 
ABORTMSG 77 UARFL 7" PFCLARED aT 12813000 
12814000 
ABORTMSA *=" NFFINE = nFCLARED aT 13028000 
13983000 43115000 
ABSEVT == REAL =" DFCLARED AT 14351210 
*14358586" 714358582 *14358584* 143585 86 
ABSEVT *= REAL |= DFCLARED AT 49901300 
19902850 19902840 19902900 49903200 
19903850 19903865 19905360 


04731000 


AT 44008999 


AT 45000000 


40311300 


== OccURS aT 12884000 


OccuRS AT 13083000 


20608710 


28043000 
28097200 


28242200 


12694800 


22906000 


14358566 


19903500 


OCCURS 


*20608750« 

28046400 78061800 278065600 
28100200 

28254600 28958700 278268000 
12744500 

22920000 40336100 45102000 
AT 12879500 

14358590 14358605 

19903600 49903650 19903660 


28068000 


28270824 


19903670 


98073000 


28274000 


19903700 


28084100 


28285400 


49903895 


ABSOLD 


AG. «"* 
ac "=" 
ACCEPT 
ACCESS 


ACCESS 
ACCESS 
ACCESS 


ACCFSS 
ACCESS 
ACCESS 


ACCESS 


ACCESSD 
ACCESSD 


ACCUM 
ACCUM 


ACCUM 


accuM 
ACCUM 
ACCU 
ACCUM 
ACCUM 
ACCUM 


ACCUM 


ACCUM 


ACCUM 
ACCUM 


ACCUM 
ACCUM 
accuM 
ACCUM 


ACCUM 


k= REAL =" ODFCLARED AT 19901500 
#19902000% 19902100 19902120% 19902130 19902140 19902360 
SWITCH LaBEL “== WFECLARED aT 18501700 
SWITCH LaBEL == PECLARED aT 19518000 
"= LAREL =" neCLARED AT 22062000 == OCCURS AT 22163000 
"= INTEGER =" NeclLARED aT 38009000 
38045200 38045300 
== INTEGER 28 ODFCLARED aT 38102900 
“= INTEGER = DECLARED AT 38200900 
we REAL == OFCLARED AT 38366010 
*3IBIRBONN& 38389400 38399040 *38391025%n38391060% 38394080 *38391100% 38393000 
*38411400e%38411600% 38411700 *38411900% 
7" Real ©" neclaRen aT 38561000 
we REAL ©" DNeclLaRFpD aT 38658000 
e~e INTEGER #2 DFCLAREN AT 39006000 
#39947000 ** 39950000 %#39956000*% 39306000 
m= REAL ©= DECLARED AT 41017000 
me DEFINE |= PMFCLARED AT 20228400 
20569730 90744000 
we DEFINE == DECLARED AT 278404000 
28417800 
er REAL ARRAY «we NAME PARAMETER w= DECLARED AT 20344300 
20314000 20328000 20363000 *20368100* 
w* STREAM VARTARLE =" DECLARED AT 203278000 
20330000 
em REAL ARRAY =" NAME PARAMETER =" DECLARED AT 20386100 
20384000 20397900 20411000 20415100 20418000 20425000 20427000 20433000 
20498000 
ee sTREAM vaRTARLF =" NECLAREN AT 20411000 


20414000 

m= STREAM VARTARLFE -= DECLARED AT 20497000 
204298000 

we STREAM VARIABLE = DECLARED AT 20433000 
20434000 

“* STREAM VARIARLE *" DECLARED AT 20439000 
20440000 

=" STREAM VaRTaApLF “= PECLAREN AT 20478520 
20478530 

er STREAM VARTARLF =" PECLARED AT 20484300 
20484400 


e= REAL ARRAY w= oDFCLAREN AT 205660100 
29566900 995669715 70567065 70567405 305671609 90567270 90569845 90569850 
20570220 20570460 2705734130 20573440 20577050 
== STREAM VARIARLE =" DECLARED AT 20566915 
20546995 
== REAL ARRAY = DECLARED AT 20581000 
=" REAL ARRAY «= DECLARED AT 20584000 
20584200 20584400 20584550 20585360 20585370 20585450 
m= REAL ARRAY @=" NECLARED AT 20586800 
20587100 
m= REAL ARRAY =" DECLAREN AT 20589800 
20590000 20590050 20590450 20590600 20590660 20590680 270590700 
"=" STREAM VARJARLF "™" NECLAREN AT 20590660 
20590665 
#= STREAM VARrARLE “= DECLARED AT 20590680 
205390685 
#= STREAM VARIABLE == PECLARED AT 99590700 


38396000 


20439000 


20569940 


384141100 


20478520 


90569970 


38411200 


20484300 


20570160 


20590705 
ACCUM =" REAL ARRAY =" PECLARED AT 20591000 

20591400 20591AR00 20591900 20593200 20593310 
ACCUM "=" RFAL ARRAY =" NFCLAREN aT 20595000 

20596300 20596350 
ACCUM «= REAL ARRAY = DECLARED AT 20596800 
ACCUM e= REAL ARRAY m= DECLARED AT 29600040 

90690040 *90607500%*20601550* 20604300 270604500 970604850 20605050 70605360 

20610300 
ACCUM #* STREAM VARTARLF == DECLARED AT 20607020 

20607220 
ACCUM = REAL ARRAY == DECLARED AT 20703500 

20706000 20717000 20720000 
ACTDATE "=" REAL “™™ NECLARED AT 08303100 

08333000 085717AR00 18711500 20289265 41320360 «44244150« 
ACTDATE 7" STREAM VARTARLF "" NFCLARED aT 20289265 

20289295 
acTSPacr == I NteGrFR PROCEDURE == peclaRED aT 24032050 

#24035900%#94039900«% 24042100 24043600 
ACTUALDISKANDRESS == NEFINE == DECLARED AT 20019900 

900850000 90059400 
ACTUA, DISKANDRESS == OFFINE == DFCLARED AT 290086400 

201271800 70125000 
ACTUALIOERR @"" PROCEDURE "=" DECLARED AT 04353200 =" FORWARD AT 04121425 

48126430 


20605400 


ACTUALOVERLAYADDRESS “= INTEGFR PROCEDURE =" DECLARED AT 14105000 *" FORWARD aT 92697750 


14203000 14292100 22331400 
ACO =" LaRFL =" OFcLARen aT 18501190 


18501700 

ACO m= LAREL == DECLARED AT 39517000 
19548000 

ACy e* LAREL == DEC)ARED AT 18501100 
18501700 

AC1 e* LAREL = DECLARED AT 19517000 
19518000 

AC2 °° LABEL =" DECLARED AT 18501100 
18501700 

ace -* Lageb =" NECLARED AT 19517000 
19518000 

Ac3 =" LarrL =" prclaRen aT 18501100 
18501700 

AC3 e* LABFL == DFECLARFN AT 39517000 
19548000 

ACg w= LAREL == DEC) ARED AT 18501400 
18501700 

ACa »*™ LABEL =" DECLARED AT 19517000 
19518000 

ACS =" LarREL =" DECLARED aT 18501100 
18501700 

ACS #* LaRgeh =" DECLARED aT 19517000 
19518000 

AD @= LARFL == perclaRen aT 18701000 = OccURS aT 18711500 
18701200 


AD =e REAl, »= DECLARED AT 40004500 

40097990 40097595 40047000 40047100 40078054 40078058 *40322220*% 40329400 
ADDR == NAME == DECLARFD AT 16912000 

16912100 


20605810 


40323200 *40323300% 


20607020 


ADDR "= NAME 


ADDR "2 Name 
ADNR =" INTEGE 


R 


DEC].ARFD AT 18707000 
*1BRA0700% 18840R00 


DFCLARFD aT 19522000 


=" nFcLAaREnN AT 19696000 


18R40900 


#19791300%4197627000% 19766300 
DEFCLARFO AT 20034300 


ADNR == NAME 
20074400 
ADDR ee. NAME 
20083600 
ADDR == NAME 
20144000 
ADDR ©* REAL 
20384000 
ADDR "= NaME 
ADDR @= Naw 
ADNR == NaMe 
ADDR == NAME 
ADDR == NAME 
ADDR =e NAME 
ADDR == NAME 
ADDR *= NAME 
ADDR == NAME 
ADDR ©" NAME 
ADDR = NAME 


* 
a” 
mo i 
om 
au 
-- 
ow 
= 
oe 


DEC) ARED AT 20063500 


DEC) ARED AT 20143900 


NAME PARAMETER =o 


DECIARED 
DECLARE 
DFCLARED 
DECLARED 
DECLARED 
DEC) ARED 
DEC) ARED 
DEC] ARED 
DECLARED 
DECLARED 
DECLARED 


20566100 
20581000 
20584000 
20586800 
20589800 
20591000 
20595000 
20596800 
20600010 
20701500 
31004000 


18841000 


18841600 


18843400 


DECLARED AT 20386000 
20400N00% 20404000 *20405000% 


31005000 #31010000%%31017000%«31017100"e31017200%%31018000%%31019000%«31020000« 31022000 
wm ovalup PaRaMe TER 


ADMRESS 7" Nam 
00020000 
ADDRESS == NAM 
02000000 
ADDRESS eo 
40039000 
ADDRS ==") REAL 


Fr 


F 


DEFINE = 


“= vALUF PARAMETER 


02004000 


40060300 


#14353000% 14357000 


ADDV ™= NEFINE 
205469528 
ADDV "* OFFINE 
28270810 
ADECK ©" REAL 
07039410 
ADR e= Real = 


ADR = 
ADR »= REAL» 


*07003430%*070034408 07003450 


== DFCLARED AT 20224000 


20569770 


=" DFCLARED at 28208000 
28281800 
" DEcLARFD aT 07008200 

*07108;00%*07118690* 07139510 


28781600 


07008100 
NECLARED AT 40008760 
40060305 
= DECLARED AT 14342000 


NFCLaARFN aT 02190000 
*022090008% 02210000 
#02276500%*022776550e* 02792000402 294000" 02295000 
DECLARED AT 02295000 

DECLARED AT 07003410 


STREAM VARIABLE == 


ADR ee" REAL SUBROUTINE == 


07047000 
ADR =" REAL *@= 


07144000 


28282600 


070034692 


28285800 
07139520 


02241040 *022742000% 02215000 


DECLARED AT 07042000 


07165000 


DECLARFN AT 16696210 
«16851200% 16851500 


STREAM VARIABLE =* 
== neCLARFD AT 30904000 


*30970000% 309429000 


ADR #* 
ADR =" INrrGerR 
ADR e#e# 


ADR w= REAL «= 


AG = = 
28422800 


STREAM LABEL &» 


STREAM VARIABLE. = 


28423200 


071750600 


16851900 #16852100% 16852800 


NECLARED aT 16854600 


30943000 *309146000% 30920000 


NECLARED AT 30920000 
DECLARED AT 341005000 
#34905300% 34005230 


31905350 


31010000 
DECLARED AT 28421800 


31043000 


DFCLAREH aT 00021000 
DECLAREN AT 02002500 


#0292;7000% 09947100 *092975700* 02275200 
02308000 


*16854400% 16854600 


31017200 


“= OCCURS AT 28422200 


02276260 


02276270 


AGAIN =" LABEL *"™ DFCLARED aT 06070000 = OCCURS AT 06110400 
06112300 06112800 06113200 
AGAIN ©" ULaprl #" pneclha~REp aT 07009000 == OccuRS AT 07107000 
07129300 
AGAIN == (LABEL == DECLARED AT 07425500 == OCCURS AT 07427500 
07450900 
AGAIN w= |, ABEL, == DECLARED AT 08419000 -& OCCURS AT 08420000 
08438250 
AGAIN ®** LABEL =" DFCLARED AT 08576100 == OCCURS AT 08577700 
08597750 
AGAIN =" LABEL =" ODFCLARED AT 22236100 = OCCURS AT 22786050 
22286180 
AGAIN =" STREAM LABEL =" DECLARED AT 28411400 =" OCCURS AT 278411800 
28412600 28413200 
AGAIN =" LaBFL =" DFCLARED aT 37505000 == OCCURS AT 37523000 
37530000 
AGAIN == LaBrh #=* necbhaken aT 38548000 == OccuRS AT 38608200 
38608700 | 
AGN = STREAM LABEL we DECLARED AT 20600440 == OCCURS AT 20600450 
AGN |= LABEL == DECLARED AT 38009300 «= OCCURS AT 38044400 
38015500 
AGN =" LABEL == DEC|ARED AT 39056500 
AIT 7" REAL ARRAY 77 PFCLARED al 14162500 
*14218040e 14218050 14218055 «14718065% 14218072 14218078 14218080 *14218082e 14218084 #142180864%14216088% 
ATT —" Real ARRAY ** PFCLARFN at 18701900 
*#18720300% 18720400 18720600 18720700 187270800 
AtT »* RFAL ARRAY == DECLARED aT 19520000 
19591000 *19685015%*49685000* 49685065 
ATT w= REAL ARRAY #= DECLARED AT 34003000 

*31907000*% 31009000 31010000 
=" REAL ARRAY == DECLARED aT 42482000 

*A24K5000% 42487000 42488000 42489000 *42505000% 42506200 42506300 45506400 49507000 
AITL "= REAL ©" DECLARED AT 18701900 
18770200 *18844500%e18B845200* 18845400 
AITL "= REAL =" DECLARFD AT 19520000 
AITNOX "" DEFINE "" DFCLARED AT 00067050 

14218040 14218945 14218065 14358320 14358325 31007000 31008000 42485000 42486000 

ALFA "=" NFFINE =" prcbaREp aT 04670700 
04674300 04675800 04679550 04680850 
ALGOL == neerNe =" nEcCLAREN AT 20234000 
20585200 270585355 20604500 
ALGOLFIBAREAV = DEFINE «= DECLARED AT 00017230 
ALOC == REAL == DEC) ARED AT 42514000 
*42535000% 42535500 42539000 42539050 
ALPHA =" REAL “* VALUE PARAMETER ™@* DECLAREO aT 08700000 
08709600 08726n00 
ALPHA °°" RFEFAL "" DECLARED AT 37388400 
37388500 37404000 37406000 
ALPHA =  NTFGFR == vVALUF PARAMETER == neECcLARFD AT 38000000 
38097000 380928000 386041400 386043000 38053500 38054000 38073000 38081000 38087000 38089400 38083000 
38090000 38099000 38093000 38094000 
ALPHA «7 STREAM VARTARLF = DECLARED AT 38083000 
38084000 
ALPHA w= INTEGER == VALUE PARAMETER = DECLARED AT 38102000 
38107000 38109000 38116500 381241000 38129500 38147500 38452000 38164500 
ALPHA =" INTEGER = VALUF PARAMETER == DECLARED AT 38200000 
38995000 3A238000 38243500 382746500 38248000 38270500 38271500 38275500 38278000 38280000 382780500 


@®eeeeeeges8eeeeoe2e8@6UMwWmhC Mh—~CM h(C<CiM TMC O—C—~CNMhC—~<CMMC~COhClUw 
Pa 
-— 
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aaecvene 36283500 38784000 38284500 38285000 38286000 38287000 38287500 38288000 38290000 38292000 
9 


ALPHA =" iNTrarR @* VALUE PARAMFTFR = neeclLaRen at 38355000 
38371000 38377000 38374000 
ALPHA «=  NTFGER = VALUE PARAMETER == pECLARFD AT 38540000 
38554000 38555000 38557000 38574000 38574000 38575000 38583000 38584000 38587000 28588000 38590000 
38590200 38592000 38592100 38593000 38594100 38594200 38628000 
ALPHA °° INIFGER @=" VALUF PARAMETER = DECLARED AT 38648000 
38667000 38668N00 38670000 38683000 38700000 38704000 38707000 387141000 38720000 38726000 38737400 
38736000 38742000 36762000 38766000 38803000 38804000 38807000 
ALPHA =" INTEGER 7" ValUp PARAMETER “| pecbaRep aT 39000100 
39000000 39000400 39032000 39042100 39043000 39046000 39083000 39092030 39444000 39445210 39445300 
39147000 39230000 39233300 39233500 39244000 39293400 39305000 
ALPHA ©"  NTFGFR 7" VALUF PARAMETFR "= pneclaRep aT 41000000 
44038000 #44039000% 41040000 44054300 41051620 44204000 44202000 44708000 41210000 41242200 
ALWAYSBrT += DEFINE = NECLARED AT 00447100 
ANALYSIS =2 RFAL PROCFDURF == PFCLARED AT 14000000 == FORWARD AT 02111400 
#14078000% 144079000 47522000 429538000 48109000 
ANS =» STREAM VARTABLF == DOECLARED AT 08804000 
088220008 08823000 
ANVIL == REAL PROCEDURE =" DFCLARED AT 08546000 
16082000 
AQ ee STREAM LABEL =e PECLARED AT 07295102 == OCCURS Al 07295160 
ARD =" LABEL =" DECLARED AT 28806000 = OCCURS AT 28889550 
28887100 28882160 
AREA "" REAL =" VaLUF PARAMETER °°" DECLARED at 01250200 
01250100 01250200 01251100 01251800 01252600 01254000 01255200 014256100 01258700 01258900 01261300 
AREA "™* STREAM VARTARILF “™ necbaRen AT 01251100 
01251200 01251400 
AREA = STREAM VARTABLE = DECLARED AT 01754800 
049527000 
AREA we STREAM VARIAB)E == DECLARED AT 0192597600 
01252700 
AREA *= STREAM VARIABLE == DECLARED AT 012754000 
AREA °* REAL =" DECLARED AT 04259200 
AREA "" REAL ARRAY ™= NFCLARED aT 22061000 
22061100 #2206900%% 22107000 22112000 22115030 22115070 22119000 27124000 22129000 272136000 22345050 
22145550 22156000 22157000 22159000 22164000 22179000 22180000 22181000 22191100 22196000 22225000 
ARFA "= STREAM VARTARLE =" neclaRen AT 22119000 
AREA = STREAM VARTABLE = DNECLARED AT 22129000 
AREA ee STREAM VARIAB)E == DECLARED AT 92436000 
22138000 *22140000*% 22142000 
AREA = STREAM VARTAB)E = DECLARED AT 22145050 
22145150 *£221459508 22145350 
AREA = STREAM VARIARLE "" DECLARED AT 22191100 
AREAAVAILF =" FIELD =" PAFCLAREN AT 00017780 
AREABACKLINKF =" FIELWA =" DECLARED aT 00017820 
AREAFWDLINKF ©" FIFLO =" DECLARED AT 00017830 
143464800 
AREAMIXe == Fiekp =" pnrcblaREn aT 00017810 
08975600 14364000 44364500 18520600 20059420 20089820 20476048 29997000 28435010 38121500 38448000 
AREASAVFF == FYELD = NFCLARED aT 00017790 
AREATYPFF =" FIELD = NWECLARED aT 000147800 
02442100 02246000 144364300 46853000 272303000 99386000 22386300 38424500 38148000 
ARN e#* LABEL #* DECLARED AT 04670650 == OCCURS AT 04686550 
04686750 
AROUND = LABEL =" DECLARED AT 14165000 == OCCURS AT 14223000 


14197000 14199000 


AROUND 7" LABEL “" NECLARED aT 17902500 =" 


179147500 17918500 


AROUNR =" LARFL @" MECLAREN AT 22236000 == 


22284000 


AROUND == LABEL == DECLARED AT 37004000) a= 


37043000 
AROW = REAL ARRAY == PECLARED AT 28004400 
*#280694008#2 R069 600%«28069800* 28090K00 
AROW "= REAL ARRAY = DECLARED aT 28204800 
28205000 28235400 28237200 28243400 


ARRAYNMESC 77 DFFINE =" DFCLAREN AT 00017020 


20059120 20089820 20176048 28451800 
ARTN w= PROCFNURF =" necbARFO at 42474000 
18720100 18840400 748850100 42477000 
AS == DEFINE == DECLARED AT 20947980 
20570100 
ASFID w= REAL @= DECLARED AT 28000800 
28001000 
ASFID == REAL == DECLARED AT 28400600 
*284256004*28426000% 28430800 
ASTT "= SUBROUTINE = MECLARED AT 28424600 
28470200 28474200 28478600 
ASIZE *" nEFINE @" neECLARED at 06070600 
06088300 06089000 06097100 06100800 
ASMeIn =" REAL @" peclakep at 28000800 
ASME In == REAL == necLaRFp aT 28400600 
#28 495900ee9R84906000% 78497800 98430600 
ASR w= PROCEDURE == DECLARED AT 429482000 
14360300 19566000 31936000 42508000 
ATLEASTONE "=" REAL = NECLARED AT 08853000 
*08884000% 08886000 «089027000* 08904000 
ATTACHL "" LABEL 7" ODFCLARED AT 19901600 


OccURS AT 17906500 
OCCURS AT 22265000 


OCCURS AT 37045000 


28091200 
28273000 28273400 28276000 


28855000 


i) 
== FORWARD aT 00431000 


42480000 49503900 


06101100 06110800 06110900 


FORWARD AT 00474000 


OCCURS aT 19902800 


OccURS AT 12594500 


19991700 
AU f= LABEL == DECLARED AT 16700000 "= OCCURS AT 16771500 
16704000 
AUT =" LaRFL =" DECLARED AT 12512500 = 
12592500 


AUTODS *" DEFINE 7" NFCLARED AT 00416995 
06360515 06463760 14581500 47944100 


18540120 36006500 37046735 


AUTOLOANER == SUBROUTINE == QDFCLARED AT 22069010 


22069600 979209400 


AUTOMFSS -#- DEFINE == DECLARED AT 00416999 


20100900 20174400 


AUTOPRINT == DEFINE = DECLARED AT 00412000 


07419200 98258R00 12753000 20152200 
AUTORN “"" DEFINE 7" DECLARED AT 90416710 
44280100 
AUTOSTOP == Realb == precbLaREn aT 17903500 
#17904000«% 17908000 17947000 


22206000 38609100 


AUTOSTOP = STREAM VARIABLE == DECLARED AT 17908000 


179,0500 
AUTQUNLD = DEFINE == PECLARED AT 00416630 
06353580 06353590 


AUX =" REAL = VALUE PARAMETER == DECLARED AT 00367000 


00365000 00366000 


AUX #" RFAL =" VALUF PARAMETER “" DECLARED AT 24103000 


06111790 


37225800 


241091000 
AV 72 INTEGER 
06069200 


24102000 
"= PMERLAREN AT 06069100 


06088300 06991500 06099400 06099500 06100800 06100900 *06111300« 


AVATL =" WNTegrR s= nrebaRen at 00069000 
24924000 24997000 24036300 4441402000% 44103000 44406000 «44407000« 44141000 
AVAILABLE == DFFINE ==" QDFCLARED AT 40008120 


24093000 


4004;000 


40046000 40057000 40078058 


AVBLOCK -*= DEFINE = DFCLARED AT 90008990 


40322600 


AVDIFFMAX == DEF 


05852100 


40325000 40332000 
‘INE ©" DECLARED AT 05780400 
05852200 40329000 


AVDIFFMIN =" DEFINE =" DECLARED AT 05780400 


06380600 
AVLP) * =) Lapel 
44198000 
AVS = INTEGER 


40328000 
"= DEPLARED AT 44020000 = occurs aT 44103000 


7" AFCLAREN AT 05841615 


*05844920*%*05844925* 05844930 05846360 


AVS ew INTEGER 


=~ DECLARED AT 05847600 


#05950110% 05850120 05853495 


AVS =" INTEGER 
05952500 

AVS ©" DEFINE 
06381250 


w= DECLARED AT 05952400 
*05961200*" 05961400 05975600 
ee DECLARED AT 96351105 


AVSIZe 7" INTEGER 7" nECLARED aT 06069200 
#06109300% 06109400 06110300 06114300 
AVSMAX "" NEFINE 7" nrebLAaREN at 05780600 
AVSMIN ©" NEFINE =" neebLARFn AT 05780600 
AVTABLE ee REAL ARRAY = DECLARED AT 00166006 
05842700 05843000 05844920 05844935 *05845400%4058 4570044058 48755% 05849490 
05850300 *05852700* 05964000 05961800 05962000 #*05971800%#05974000*% 05974200 


OS840475 
05850200 
06198000 
16828200 
AVTABLEAREAV =" 
44240840 


06108300 *06380100* 06380159 06380250 06380550 06381070 
40321430 41324800 «44240920 
DFFINF ©" MNECLARED aT 00017500 


AVTMaAXx °" PEFINE "= pDeckARED at 05780500 


06380650 
AVi ©" DEFINE 
40322470 
AWAKEN == REAL 
22246000 
22429000 
AWAY ee» LABEL 
08499000 


AX -,» LABEL == 


16062000 
AXET "= STREAM 


AZ =~ LABEL == 


05851500 


AZ @e LaRgeL or) 


05962700 
AL se REAL == 
06080800 


"= NMECLAREND AT 40008220 

40322600 40324300 40324500 40330000 403329000 40333000 
SUBROUTINE ==" DECLARED aT 22237000 

22320490 22325440 22332000 22336200 99356000 22356400 


m= DECLARED AT 08419000 == QCCURS AT 08438300 
DECLARED AT 16054000 "= gCCURS AT 16078000 


LABEL = DECLARED AT 16956060 “= OCCURS AT 16956070 
DECLARED AT 05847800 = gCCURS AT 05852000 


DECLARED AT 05952600 “= OCCURS aT 05970800 
06078600 

DFCLAREN AT 906068600 "= OrcuRS aT 06078500 
06094800 *06107200* 06114900 


Al =e STREAM LABEL. =e DECLARED AT 06080800 = OCCURS AT 06082200 


06081100 
A? = RE At, =e 
06086800 
A3 7" REAL & 


DECLARED AT 06068600 


06381300 


40334057 


22364000 


96087900 16995200 06095300 *06095400* 06096700 *06107200* 06114900 


DECLARED AT 06068690 


06381320 


22365400 


44112000 442014400 
05849460 05849500 
*05975000«#06101200* 
16826600 16828100 
22383100 22411000 


ad 
A4 


mw a 


uo 


Cr) 


06098400 06098700 #06107300*% 06107400 
REAL 7" NFCLAREN AT 06068600 
06086300 06086400 06089900 06090000 
Real ARRAY == NECLARFN AT 18500300 
18520,00 48520800 14859;000 48530;90 


* 1855350041855 37008 1855 3800%% 18554000" 


06114900 


06097000 *06103900« 06115600 


18540400 


18540600 


186552400 


18554600 *£18554700e% 48554800 «* 18555000%«18555400% 148555700 


#18556200#*18556300%* 18556400 185565008 « 18556800 %«18557100« 


STREAM VARIABLE == 


DECLARED AT 18521000 


18591100 18521500 
REAL ARRAY == DECLARED AT 18700300 
18640100 18840200 18844200 


REAL ARRAY @*" 


DECLARFD AT 19 


#19590000" 19592000 


REAL "= 
06068700 


REAL ARRAY == 


NECLAREN AT 06068600 
*06077500« 06077600 
DECLARED AT 18 


503000 


06084600 
500300 


48580100 48580700 *18580300* 18580410 
REAL ARRAY == DECLARED AT 18700300 
18740100 48740700 48740300 48740400 
18810200 18810200 

REAL ARRAY 7" ODFCLARED AT 19302000 
19303000 

REAL ARRAY "" DECLARED AT 19503000 
19569000 19571000 19574000 19575000 
Real ARRaY 7" nrelaRen at 18500300 


16503400 


REAL ARRAY «= 
REA|, ARRAY == 
REAL ARRAY == 
REAL ARRAY == 
REAL, ARRAY == 


18559000 

DECLARED AT 18 
DECLARED AT 49 
DECLARED AT 18 
DECLARED AT 18 
DECLARED AT 19 


700300 
503000 
500400 
700400 
504000 


REAL "™" VALUE pARAMETER ©" DECLARED 

REAL ™" VALUE PARAMETER = DECLARED 
00379600 

REAL 7" VALUE PARAMETER *" DECLARED 
00428000 

Reab =" Valle PaRaMETER |= DECLAREN 
REAL 7" VALUE PARAMETER =" DFECLAREN 

REAL = VALUF PARAMETER == DECLARED 

REAL == VALUE PARAMETER #= DECLARED 
02952700 

REAL = NAME PARAMETER «= 

NAME "=" DECLARED AT 07191000 


*02207000% 02216510 «02218000*% 02219000 


STREAM VARIABLE == 


02255100 
REAL Ce) 


STREAM VARTABLE == 
REAL «= 
02434170 
STREAM VARIABLE == 
STREAM VARIABLE == 
STREAM VARIABLE = 


VALUF PARAMETER == 


DECLARFD AT 02434420 
02434970 *02434390* 


02434350 02434360 
REAL ©" NAME PARAMETER = 
REAL 7" VALUE PARAMETER == 
PEAL =" VALUE PARAMETER =* 


06115600 


*18580500**18580600%*48580700* 


18740900 


%19576600% 


00089100 
00379700 


00429000 


00463300 
00480100 
02021000 
05052800 


DECLARED AT 02478500 


02223000 


DECLARFN aT 02255000 


DECLAREN aT 02379000 


02434330 


NECLAREN AT 02385000 


02434630 


DECLARED AT 02434170 
DECLARED AT 02434270 
DECLARED AT 02434330 


DECLARED AT 02696700 


DECLARED aT 04121600 
DECLARED aT 04121650 


18744000 


02253050 


02434850 


18741100 *18770;00*% 18770200 


02255000 


18552600 


18552700 *78553100« 18553400 
18555800 


18770900 48849400 


uoww °°] 
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STREAM VARIABLE 7" DFECLARFN AT 04213000 
04244000 
STReaM VaRTaABLF =* pEclAREn at 94271800 
STREAM VARTABLE == DFCLARFN AT 94371930 
STRFAM VARIABLE -= OFCLARED AT 04398400 
04398800 
REAL, ARRAY == DECLARED AT 04703000 
*#04707000% 04711000 04725000 04732000 04736000 
INTEGER =" DECLARED AT 05702000 
*05703000% 05704000 05722000 05724000 +#05727000« 05728000 
LABFL *" NFECLAREND AT 05841650 “"" OfecuRS aT 05842700 
05843200 
tNTFRER == DECLARED AT 05847700 
*95850490* 05853495 
REAL = DECLARED AT 059517200 
05951400 05952210 05953000 «05953070% 05953139 05953140 05953210 05953220 05953350 
#05961400% 05964000 £05967900«%%0596B8 200% 05968400 £05969200% 05975600 *05979340% 
STREAM VARIABLE =" DECLARFN aT 05953000 
05953015 *05953025" 
STREAM VARIABLE 7" DECLARED AT 05953140 
05953155 
STREAM VARIABLE =" DECLARED AT 05964000 
REAL ™" DECLARFD aT 06068300 
06074100 06078000 «06092500*% 06092600 %06097100« 06097300 06097400 06098300 06098700 
STReaM VARIABLE =* NAFCLAREN AT 96074100 
06074900 06075500 06075400 #06076000* 06076100 06076500 
STREAM VARTABLE == MECLARED AT 06078000 
06081600 
STREAM VARIABLE = DECLARED AT 06098700 
STREAM VARIABLE =~ DECLARED AT 06196000 
STREAM VARIABLE == DECLARED AT 06206140 
06206175 
STREAM VARIABLE ©" DECLARED AT 06234000 
INTEGER “" DECLARFD aT 06351250 
*06380525% 06380550 06380750 06380800 06381250 
STREAM VARIABLE = DFCLARFEN AT 07179260 
07479270 
REAL, == VALUE PARAMETER wm DECLARED AT 07268100 
07948000 07268199 07271900 
REAL w= VALUE pARAMETER #= DECLARED AT 07354000 
07357000 07358000 07369000 
STRFAM VARIABLE = DECLARED AT 07358000 
07359000 #07360700«+07 367000 
REAL "" DECLARED aT 07386000 
*07389000% 07391200 07392000 07393000 07400000 07402000 07404000 
STREAM VARIABLE "= NFCLARFN aT 07393000 
07394000 _ 
REAL == DrclaRen aT 074608000 
%07442000% 07473000 07474000 074;8500 
STREAM VARIABLE = DECLARED AT 07418500 
REAL ** VALUE PARAMETER #= DECLARED AT 07457000 
07461000 *07461570% 07481800 07463000 07468100 
STREAM VARIABLE = DECLARED AT 07461000 
07461100 
STREAM VARIABLE == DECLAREN AT 07463000 
REAL =" VALUE PARAMETER *© DECLARED aT 07473100 
07475000 «07476000% 07479100 07480000 07483000 


05953400 


05956300 


an 


L dead 


REAL =" pDrcbaRen aT 07486000 
*07487000* 07488000 

STREAM VARTABLE == fFCLARFD AT 07488000 

07489000 *07491000**07494000* 

STREAM VARIABLE == DECLARED AT 07549000 
STREAM VARIABLE = DECLARED AT 08029015 

08029020 *08029045% 

STREAM VARIABLE ** DECLARED AT 08051000 

08051004 

STREAM VARIABLE =" DECLARED AT 08051010 

08051050 
REAL ™* VALUE PARAMFTFR =" DFCLAREN aT 08070000 
STREAM VARIARLE "=" NFCLARFN AT 08110350 

STREAM VARIABLE *= pFCLARFN aT 98112150 

08412350 

STREAM VARTABLE = DECLARED AT 08479600 
REAL *= DECLARED AT 08983000 

082985000 082929000 

STREAM VARIABLE == DECLARED AT 08285000 

08286000 *NB289NNNeaNB2900NNk 08290500 «08291125 %e08291225% 08305000 08310000 08315000 
STREAM VARIABLE "= NECLARFEN aT 08310000 
Real "= ValUrF PARAMETFR == NECLAREN aT 08317000 
08333000 08340000 

STREAM VARIABLE = DECLARFN AT 08333000 

08334700 #08334900% 08335000 083356900 08337500 «08338000 
REAL == DECLARED AT 08344000 

08344200 *08359000* 
STREAM VARIABLE == DECLARED AT 08344200 

08346000 *08354000 «#08 355000* 08356000 
REAL ** DECLARFD AT 08377000 

¥0B380000% 08381000 08381100 08383000 08383100 08384000 08387000 
REAL "" DECLARED aT 08391000 

08397000 
STREAM VARTARLF @= NECLARFN aT 98397000 

08398000 *08405000« 
Real ==" pecbaRen at 08418500 
+08454000% 08428000 *08433000**08434000% 08435000 08436000 08437000 *08437200*% 08437450 
STREAM- VARTABLE = DECLAREN AT 064274000 

STREAM VARTABLE -e= NECLAREN AT 086437200 
REAL == VALUE pARAMETER me DECLARED AT 08438900 
REAL = VALUE pARAMETER == DECLARED AT 08439000 


08440000 08444000 08448050 08451100 08480000 *08481000* 08482050 0A483N00 40848400N* 08484500 


#08494000%%08498000% 08501000 08502000 08507000 
STREAM VARIABLE =" DFCLAREN AT 08444000 
STREAM VARTABLF == DFCLAREH AT 08448050 


08448110 
STREAM VARIABLE == DECLARED AT 086451100 
08451240 
STREAM VARIABLE == DECLARED AT 08488000 
08489000 


STREAM VARIABLE == DECLARED AT 08502000 
REAL == VALUF pARAMETER = DECLARED AT 085297000 
08525000 08526000 08540000 08544700 
STREAM VARIABLE = DECLARED AT 08540000 
REAL ** DECLARED AT 08547000 
08548000 
STREAM VARIABLE *™ DECLARED AT 08572520 


08488000 


fee] 


wow 


woo o ao ies] wm 


xz 


08572540 
REAL ™* VaLUF PARAMFTFR =" DFCLAREN aT 08575000 
08576000 08577nN00 08577100 *08577600* 
STREAM VARTARLE == DFCLARFN AT 08577100 
08577200 *08577400* 
REAL = DECLARED AT 08601000 
*08604000* 08604100 08605000 08624600 
STREAM VARIABLE == DECLARED AT 08605000 
08615000 
REAL "=" DECLARFD AT 08626000 
#08629000*" 08630000 08671000 08673000 08676000 
REAL "=" DECLARED aT 08801000 
*08802500% 08804000 *08831000* 08832000 08833000 08834000 
STREAM VARTABLFE. =] NFCLARFN AT 98804000 
08805000 08823000 
REAL == DECLARED AT 09601000 
09632000 09633000 09633400 09634100 09625000 09670000 
STREAM VARIABLE "= DECLARED AT 09633400 
STREAM VARIABLE == MNECLARED AT 09670000 
REAL ™* DECLARED AT 09679300 
094679900 09680600 09680800 09681545 09681800 
REAL 7" VaLUF PARAMFTER *" DECLAREN aT 09700000 
09703000 09705000 09708000 
REAL se prcbaRen aT 12503500 
12594000 «4952745008 42522500 42545500 142546500 42547000 
12653500 12655000 12657000 #12672500" 12757000 
STREAM VARTARLE == NFCLARFEN AT 12657000 
*12661000* 42661500 *12663500% 
REAL == DECLARED AT 12803500 
12804000 42843000 12880500 12887000 
STREAM VARIABLE == OECLARED AT 12880500 
12881500 
STREAM VARIABLE ™" DECLARED AT 12887000 
REAL "= DECLARED aT 13004000 
13036000 13049000 13057000 13062000 13069000 13072000 
REAL 7 VablUr PARAMFEFTFR == prcbaREn aT 14342100 
STREAM VARIABLE == DECLARED AT 14383700 
14383200 
STREAM VARIABLE = DECLARED AT 14414000 
14420000 
STREAM VARIABLE =" DECLARED aT 14535000 
REAL 7" VALUE PARAMETER #== DECLARED aT 14543000 
14552000 14559300 14562000 14569200 14570000 14585300 
STREAM VaRTaBhr “™ orcbaRrn aT 14570000 
14576000 
REAL @= PFCLAREN AT 14624450 
* 14636000 «*1 4637000 *# 14640000 %1 4649000 %4 14643000" 744645000 
STREAM VARIABLE == DECLARED AT 14645000 
REAL ARRAY == NECLARED AT 45170000 
*15182000% 745485000 *15186000* 
REAL, *= VALUE PARAMETER = DECLARED AT 16044000 
16070000 1609088000 46124000 16135000 146139000 46187000 
STREAM VARIABLE "= DECLARED AT 16088000 
STREAM VARIABLE == DECLARED AT 16139000 
STREAM VARIABLE =" DECLARED AT 16187000 
*16193000« 
REAL *" VALUE PARAMETER @* PECLAREN aT 16345000 


088635000 


12559000 


13075000 


14585360 


*(47142550* 


127607000 


13076000 


14599910 


12645500 


14600000 


12623000 


14603000 


12648500 


16371000 
REAL ae 
16696200 


16521n00 16529000 
DECLAREN AT 16696100 
16708000 «16713000 


16714000 16828100 
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@®eeeeeeeeee#esreeree?ee#eeeeeee@e 
ovmvoaaowno ww 


ae 


STREAM VAR] ARLE 
STREAM VARIABLE 


NECLAREN 


AT 


16714000 


DECLARED AT 16828100 


DECLARED AT 16904000 


DECLARFD AT 18002000 


DECLARED AT 48156000 


DECLARED AT 20362015 


REA|, == VA\UE PARAMETER on 
16917500 16948500 16959000 16960500 
STREAM VARIABLE ** DECLARED AT 16962000 
STREAM VARIABLE 7" DFCLARFD AT 17003400 
17003900 
REAL 7" DECLARED aT 17902000 
*17909000% 17914000 
STREAM VARTABLE =" NFECLAREN AT 17909000 
REAL == NAME PaRAMETFR =e 
18900000 48027000 48031500 18035000 
REAL #= VALUE PARAMETER om 
18455000 481456000 48225000 48228000 
18439125 148443000 18454000 148455000 
STREAM VARIABLE == DECLARED AT 18438120 
18438150 
STREAM VARIABLE "" DECLARED AT 18455000 
18457000 
STREAM VARIABLE *™= DFCLARFN AT 186528100 
18528500 
STREAM VARIABLE “== DFCLARFN AT 19768768 
19768772 
STREAM VARIABLE -= DECLARED AT 19768900 
19768950 
STREAM VARIABLE = DECLARED AT 20020800 
STREAM VARIABLE © DECLARED AT 20031500 
20031800 
STREAM VARIABLE °°" DECLARED AT 20043800 
20044100 
STRFAM VARIABLE == DECLAREN AT 20088700 
STREAM VARIABLE 7" DFCLAREN aT 20106000 
20196300 
REAL =" VALUE PARAMETER == 
20382010 9703827064 270382700 
STREAM VARIABLE = DECLARED AT 20511370 
STREAM VARIABLE == DECLARED AT 20531660 
STREAM VARIABLE == DECLARED AT 20571700 
20571820 
STREAM VARIABLE =" DECLARED aT 20592000 
20592500 
STREAM VARIABLE ©" DECLAREN AT 20595950 
STReaM VARIABLE = peECcLAREN aT 22181000 
REAL ARRAY *™ WECLARED AT 22901000 
#22913000«% 229144000 229145000 22916000 
REAL #* NeclLaRen aT 24004000 
*24006000% 94044000 2740;7000 
STREAM VARIABLE == DECLARED AT 28052400 
STREAM VARIABLE == OEFCLARED AT 28053600 
STREAM VARIABLE -*= DECLARED AT 28071400 
STREAM VARIABLE == DECLARED AT 28073700 
STREAM VARIABLE =" DECLARED AT 28081600 
STREAM VARIABLE ==" DECLARED AT 28248800 
STREAM VARIABLE °°" DECLAREN AT 28249600 
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STREAM VARIABLE =" DECLARFN 
STREAM VARIABLE == DECLAREN 
STREAM VARTABLE == NECLAREN 
28977600 

STREAM VARIABLE «= DECLARFD 

REAL = VALUE PARAMETER oe 
32000000 

REAL 7" VALUE pARAMETFR oe 
36906000 

STREAM VaARIARLF "=" AFCLARFN 
STREAM VARTABLF =") DFCLARFD 

STREAM LABFL 2= nMFeLARED aT 
STREAM VARTABLE == DECLARED 
STREAM VARIABLE = DECLARED 
STRFAM VARIABLE = NECLARED 
STRFAM VARIABLE = DECLARED 

REAL = VALUE PARAMETER «= 
39905000 *399330004*39938000% 

REAL *°" DECLARED AT 40004000 
40255000 *40285005* 40286000 
40317700 *40323600% 40323700 
STREAM VARIARLF =" DFCLAREN 
STReaM VARTABLF ==" NFCLARFH 

REAL = VALUE PARAMETER eo 
44397200 44347700 44348630 

STREAM VARIABLE <== DECLARED 
41320380 

STREAM VARIABLE *= DECLARED 

REAL = VALUE pARAMETER) w= 
41333010 

STREAM VARIABLE ©" DECLARED 
41333033 41333037 

STREAM VARIABLE "=" NECLAREN 
41501300 

REAL  °™ DrcbaRen at 44011000 

REAL |= DECLARED AT 44206700 
44240500 *44240820% 44240900 
STREAM VARIABLE = DECLARED 
44240520 

REAL == DECLARED AT 45002000 
45992140 45116000 45135110 
STREAM VARIABLE = DECLAREO 
45092160 

STREAM VARIABLE =" DECLARED 

STREAM VaRTaBLE ™™ DFCLAREA 
STREAM VARIABLE 7* NFCLARFN 
STREAM VARIABLE =" DECLARED 


w= LarRFL == DFCLARFN aT 28005 


28043800 


=e LABEL #2 DEC) ARED AT 98940 


28231200 
== STREAM VARIABLE == NECLAR 
37394260 37394300 37394350 
“@ LABEL "=" DECLARED AT 1462 
em NFFINE =" PFCLARED AT 202 
20461100 20461320 20468000 


AT 28255200 
AT 28263400 
AT 282972400 


AT 28451600 
DECLARED aT 32000100 


DECLARED aT 36001000 


AT 37046192 
AT 38014200 
38134000 = occURS aT 38135000 
AT 38459500 
AT 38919000 
AT 38290000 
AT 38593000 
DECLARED AT 39900000 
39943000 39946000 39947000 39950000 


40292212 «40293010*% 40293030 40293060 
AT 40255000 

AT 40292212 

DECLARED AT 41316000 

41320240 441329360 44399500 44323410 
AT 41320360 


AT 41322500 
DECLARED AT 41327000 


AT 41333010 


AT 41500800 


40309200 «40317300 40347400 


44323150 


*44260000* 44260500 44964500 *44969500% 44971500 


AT 44240500 


45135170 
AT 45092140 


AT 45116000 
AT 451351410 
AT 45135170 
AT 48076000 
800 #= OCCURS aT 28026000 


800 =" OCCURS AT 282970600 


ED AT 37394200 
37394400 

8000 

46000 
20470110 38647000 


w= ReaL ©" DFCLARFD aT 22230000 


40317600 


2292968000 277284300 292786070 *92296000* 22307000 92309000 22315000 
22390000 227410000 
BACK == REAL == DEC).ARFD AT 24004000 
*24006000% 94017000 274018000 24019000 
BACK = LABEL |= DECLARED AT 28095800 == OCCURS AT 28042600 
28095800 2786043600 
BACK = JABEL -= DECLARED AT 28210800 == oCCURS AT 28230000 
28220400 28231000 
BACK = LABEL °° DECLARED AT 28402800 == goCCURS al 28459600 
28461200 28464600 
BacK "=" LaREL *" DEeLAREND aT 40008050 "= OCCURS aT 40027230 
40027245 60065050 40065130 40078078 40078091 
BACKAGAIN © Label == pnrFCLARFH AT 22236000 ** OCCURS aT 22371200 
22379000 
BACKCLOSE e= PROCEDURE »= DECLARED AT 38540000 
41744000 
BACKSPACER ew DEFINE == DECLARED AT 28006400 
28046000 780899200 
BACKSPACIT = SUBROUTINE "= DECLARED AT 28045600 
28087800 280914600 28093000 
Ban =" LarnFL =" DECLARFN AT 01250500 =" OCCURS AT 01261450 
01261170 01261200 
BAN =" STREAM LABFL =" DECLAREN AT 04326600 "== OCCURS aT 94332000 
04396800 04328500 04328400 04330800 04331200 04334400 
BAD == LAREL == DECLARFD AT 08984000 -}= OCCURS AT 08298800 
08995600 08296800 08797400 
BADEX1T == LABEL == DECLARED AT 24412500 == OCCURS AT 24155500 
24152000 
BADFM = SUBROUTINE | NDECLARED AT 12832000 
12836500 12865n00 
BADFM e* SUBROUTINE = DECLARED AT 37036100 
37037300 37047615 
BANMHDR 7" Lapel =" pnEChLAREN aT 28210800 =" Oc¢eURS AT 28257800 
28280800 
BADNM = LABFL ©" DECLARED AT 26403000 == OCCURS AT 28479200 
28476600 
BASE == DEFINE = DECLARED AT 00338000 
BASE == REAL «|= ODEC)ARFD AT 09679300 
*096R0400% 09680500 09680600 09681600 09681650 09681700 9681800 
BASIC =" NEFINE "" PMECLARED AT 20235075 
BB "= REAL "7 DECLARED AT 02133150 
02148000 «021732308 02173275 02173294 02173300 02149000 
BB 7" STREAM vaRTABLF °= DECLAREN ar 02173300 =" OCCURS aT 02148000 
02173305 
BC == STREAM VARTARLF == DECLARED AT 94679050 
04679300 
BC == STREAM VAR[ABLE -- DECLARED AT 38762000 
38763000 
BCL e# STREAM VARIABLE = DECLARED AT 07066100 
07066350 
BCL, oe DEFINE == DECLARED AT 37502000 
37512000 37521200 
BCNTR =" INTEGER “= DECLARED AT 42482000 
*420R8100% 42489000 42506000 42506300 
BD "= LABEL @" DECLARED AT 06351500 "= OCCURS AT 06380350 
06380650 
BEN =" Real ARRAY "* NFCLARED aT 00094000 


29354000 


09681900 


22356300 


22363000 


22365300 


i 


#02007 300%*«020075004¥«02008100**0 2008 200% 22042000 *22043000%%22044000% 229399000 44363000 


48063000 48075000 48076000 
BEDENTER w= LAREL == PDFCLARFD AT 02004900 = oaccuRS AT 029008000 
02007400 
BEFORETRYNEXT 2 |,ABE; == DECLARED AT 90597650 == OCCURS AT 20604050 
20599000 
BF = INTEGER "=" DECLARED AT 30904000 
*30907000% 30920n00 30930000 
BF *= STREAM VARIABLE =" DECLARED AT 30920000 
#30921000% 30922000 *£30924500*«30926000% 30927000 30928000 
BH ** LaARFL == nNecLARFN aT 28210800 "= occuRS aT 28280400 
28273200 
BHS == DEFINE == DECLARED AT 28208400 
282957400 2782780400 278780600 
BIGGERQ lina) NAME add PECLARED AT 49901840 
*19904400e 19904450 19904700 19904860 
BITLOCN = STREAM VARIABLE ** DECLARED AT 04659400 
04660100 04662300 
BITS  *= NMEFINE @" DFCLARED AT 19523000 
BK *= LaRFL ©" DECLARED AT 16055000 “= OCCURS AT 16219000 
16064000 
RKUP f= STREAM VARTARLE =" DFGLARFD AT 04679050 
04679250 
BKUP == STREAM VARTABLF "=" DECLARFD AT 04680350 
04680608 
BKUP =e {,ABEL == DECLARED AT 38661000 = oCCURS AT 388148000 
384642000 
BKUP e= j,ABEL == DECLARED AT 41005000 == gCCURS AT 41144000 
41006000 
BKUPTAPF == REAL SUBROUTINE == DECLARED AT 37038000 
37945000 37046000 37046120 37046800 
BL *= STREAM VARIABLE =" DECLARED aT 16506000 == OCCURS aT 07361500 
16508100 
BLASTQ "=" PROcFOURE =" NFCLAREN AT 37320000 “= FORWARD at 00392000 


04252800 144254000 14676000 144700000 280,2030 28012110 28033200 
38405600 38203600 38699000 38719000 38794000 3875,000 438798000 


BLEN = INTEGER = VALUE PARAMETFR == ODFCLARED AT 00396000 
00393000 00394000 

BLEN em RFAL == NEC; ARFD AT 02791600 
02276270 *02276300™ 

BLEN = INTEGER =" VALUE PARAMETER "= ODFCLARED AT 37421000 


37418000 37419n00 37424000 37424200 37425000 37426000 37446000 


BLEN "= INTEGER 7" pECLARED AT 38003000 


380143400 38024000 «38024300% 38025000 38096000 438027300% 38029000 


BLFN =  INreGrR =" nrelaRen AT 38102300 


38422000 #38423000« 38143000 «38150000 381451800 38352000 *38458000x 


BLEN =» < tNTEGEFR == MECLAREN AT 38200300 


*38240000% 38790500 *38246000*% 38249000 38977000 38996500 38997500 


BLEN =  {NTEGER =" DECLARED AT 38359000 
38394040 38398000 38399000 38404000 38405000 38444100 
BLEN == INTEGER == DECLARED AT 38544000 
38585000 
BLEN = INTEGER =" DECLARED AT 38652000 
38681000 38688090 38704000 
BLEN ™" INTEGER "" NECLARED AT 39002000 


28086600 28222400 


38030000 38036000 


39932000 39033000 390936000 *39084000* 39144000 39230000 *39243000% 39244000 39293400 


BLpN @= INTEGFR @* p~rebLAREn AT 41002000 


48015400 


37214000 


38056000 


48062000 


37336000 


38096000 


*44045000* 
BLKCNTR w= FYELD == PFCLARED AT 00061060 
31943400 37044000 34975000 42489000 427506300 
BLKODF == REAL oo VALUF PARAMETER == DECLARED AT 37342000 
37337000 37339000 
AMSG *= JFLAREL "= DECLARED AT 20085800 
BO == LARFL == DECLARED AT 16355000 #= QCCURS AT 16379000 
16363000 
BOJBIT ""* DEFINE = ODFCLARED AT 00417010 
BOJMESS == DEFINE == DECLARED aT 00405000 
20043000 29100700 20105000 20118370 
BOMB 7 LaBEL 7" DECLARED AT 07009000 == OCCURS aT 07231000 
07028100 . 
BOMB "= LABEL *= DECLARFD AT 18205000 
BOMBFR °" LABEL @" nFCLARED AT 12512500 =" OCCURS AT 12635000 
12629500 142632002 12647500 12650000 12652000 
BOMBOYT ** LABEL == DECLARED AT 14548000 s= OCCURS AT 14620000 
14583300 
BOMBOUT =" LABFL “* DFCLARED AT 44207250 == OCCURS AT 44274000 
44262000 44266000 44267500 
BOMBTYMF = SURROUTINF ** DFCLARED AT 07027000 
07121000 07221000 07225000 
BOTH “= SUBROUTINE 7 PECLARED AT 20566752 
20566855 20571600 20576720 
BOUNDARYCK =" SUBROUTINE “= NECLARED AT 06086600 
06094400 
BREAKMASK «= OFFINE = DFCLAREN AT 00081970 
BREAKSET w= DEFINE = DECLARED AT 02110260 
BREAKTOG 7= DEFINE = DECLARED aT 00084960 
BRL «= DEFINE == DECLARED AT 37502000 
37543000 37546000 37517000 37549000 37544000 
BS == LABFL =" DECLARED AT 16355000 "= OCCURS AT 16395000 
16363000 
BS  "" REAL 7" NECLARED AT 22230000 
22266900 422281000 4422784000 4422286030 % 22286050 422286150 6422286 180 29301000 ce 22326400 22326800 422329200» 
*22377000«#22387000% 22390000 *22393000%«22395000%4223970008%22399000%#29421000" 
BStZF =" Real == prebLAaRen aT 04554100 
*04568520% 04568530 
BSIZE w= REAL = DECLARED AT 04668500 
*04678200% 04674925 04675650 04675700 04676500 04676700 04676850 04677050 
BSIZE == REAL ==" VALUF PARAMETER = DECLARED AT 37343000 
37338000 37340000 *37352000« 
BSIZE =" REAL ™"™ DECLARED AT 37388400 
37496000 37408000 37413000 
BU "= REAL ™* NDECLARFD AT 97269000 
07284000 
BU == STREAM VARTABLE == DECLAREN AT 07284000 
BU em REA}, == DECLARED AT 08440000 
BUF ews REAL ARRAY = DECLARED AT 02133200 
#02473110% 021731290 02173180 02173230 02173240 02173282 02173284 02173288 02173292 «02173294" 02173296 
02173300 02173301 92173380 
BUF ©" STREAM VARIABLE 7" OFCLARFD aT 02178150 
BUF @" STREAM VARIABLE  "" MECLARFD al 02173240 
BUF °°" STREAM VARI ARBLe 7" DecbaRED aT 02173301 
BUF ©" STREAM VARTABLE °" NFCLARED AT 081132175 
BUF =" STREAM VARIABLE == NECLARED AT 08887000 
068890900 


BUF 


BUF 
BUF 
BUF 


BUF 
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BUF A 
BUFA 
BUF A 
BUF A 
BUFF 
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BUFF 
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BUFF 
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BUFF 
BUFF 
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2- REAL w= DECLARED AT 70289035 
20789055 2N2R9NKN 27027R9065 #2028914R% 20989163 29289252 270289255 
20289360 20289365 20289395 20269510 20289530 20289590 
"™ STREAM VARTABLF =" PFCLARFD aT 20289163 
20289165 20289475 *20269190%«20289205%«20289215%"20289225% 
=" STREAM VARYTABLE =" NECLARED aT 20289265 
*202989975* 20289980 *202789305* 20289315 
=a* STREAM VARTABLE == DECLARED AT 20789395 
20289400 *90289415% 20289495 
== REAL == PECLARFED AT 327000200 
*32000300*% 32000510 37000650 370008149 32001575 3290902300 
we STREAM VARTABLF == NECLARED AT 32000510 
ee STREAM VARIABLE «== DECLARED AT 37000812 
32004000 
© STREAM VARIABLE ~= DECLARED AT 373949250 
37394260 37394200 37394360 
me RFAL ARRAY = DECLARED aT 16049000 
me REAL ARRAY ‘= DECLARED aT 16350000 
me REAL ARRAY "= DECLARED aT 16697100 
™e REAL ARRAY "= NMFECLARED aT 16912000 
we Real 2° Valur PARAMETER =" DFCLARED aT 02393100 
me RerAlL #2" VALtE PARAMETER == prcbaRrp AT 02434110 


024341400 02434410 «0243447048024 34215* 02434220 07434330 *07434695« 


w= STREAM VARIABLE = DECLAREN AT 02434220 
we STREAM VARIABLE == DECLARED AT 02434330 
02434365 02434367 
== STREAM VARIAB)E == DECLARED AT 67434700 
ve REAL =" VALUF PARAMETER == DECLARED AT 05950000 
05953140 *05953350*% 05954000 05955000 05956300 905959200 05964000 
we STREAM VARIABLE “™ DECLARED AT 05954000 
we 6STREAM VaRITARLF @™ PECLAREN AT 05955000 
we STREAM VARIABLE "= DECLARED AT 05959200 
ew STREAM VARTABLE w-= DECLARED AT 05964000 
== STREAM VARIAB)F «= DECLARED AT 05978050 
05978200 05978900 
me REAL =" VALUE PARAMETER == DECLARED AT 06068100 
06948000 06068100 06077400 06084500 06115800 061345900 
me REAL @* DECLARED AT 06351000 
#06353500* 06353555 06355000 06360510 «06360600* 06361100 06361610 
w= STREAM VARIABLE *°™ DFCLARED AT 06355000 
™= STREAM VARIABLE 7" DECLARED AT 06361100 
we REAL =" VALUE PARAMETER =°™ DECLARED AT 07485000 
*07487000% 07504000 07511000 
m= STREAM VARIABLE *™ NFCLARED AT 07504000 
*07506000«% 07507000 
om REAL == NAME PARAMFTFR == DECLAREN AT 08001000 
08000000 08003000 *08004000* 08006000 08009000 08033000 08045;00 
ew» STREAM VARIAB)E == DECLARED AT 08006000 
me STREAM VARIABLE == DECLARED AT 08009000 
w= STREAM VARIABLE = DECLARED AT 08015100 
ee STREAM VARIABLE == DECLARED AT 08019000 
™= REAL ©" VALUE PARAMETER =" DECLARED AT 08024000 
08028000 08029015 08030200 080314000 08033993 08034000 08043000 
08052000 08055900 
me STREAM VARIABLE ** NFECLARED AT 08030200 
om STREAM VARIABLE == DECLARED AT 08034000 
mm STREAM VARIAB)E = DEC).ARED AT 08033993 


20289965 


02434700 


05978050 


06365410 


08019000 


08044000 


202893256 


02434870 


05979340 


08044600 


20289335 


05979400 «059795008 


08051000 


20289350 


08051040 
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“e STREAM VARIABLE == DECLARED AT 08034000 
m= STREAM VARIABIF =" PECLARED AT 08051000 
ee STREAM VARIAB)E == DECLARED AT 08051010 
me REAL ©" DECLARED AT 08080000 
08083000 98092n00 08993000 
=e STREAM VARIABLE =" DECLARED AT 08092000 
me REAL ©" VALUF PARAMETER ** DECLARED AT 08098700 
08998600 08098650 *08101520*% 08106350 «08145300% 08115950 08116050 08116950 
"= STREAM VaRTABLE 7" DECLAREN AT 08106350 
ee STREAM VARIABLE “™* DFCLARED AT 08115950 
we ReAL «= VALUE PARAMETER == DFCLARFD AT 08282000 
082839000 08285000 082993500 *08296400* 08298900 08999000 08301800 
em STREAM VARIABLE == DECLARED AT 08993500 
m= STREAM VARIAB)E == DECLARED AT 08799000 
#08300000« 
em REAL =" VALUE PARAMETER =" DECLARED AT 08343000 
08359000 *08361000*" 08373000 98374000 
se REAL &°" VALUF PARAMETER "=" DECLARED AT 08376000 
08384100 08385700 
we RraL =" Vabur PARAMETER =" DrcbaRFD at 08390000 
08391000 *08408000* 08442006 08415000 
me ReAL == VALUE PARAMETER == DECLARED AT 08418000 
08449700 08449500 4084;9700*% 08420000 08437200 08437550 *08438200% 
we STREAM VARIAB),E == DFCLARED AT 08419200 
08449300 *08419500« 
we STREAM VARTABLE = DECLARED AT 08437200 
08437300 
me STREAM VARIAB)E == DECLARED AT 08437550 
08437600 *08438000% 
we REAL ©" VALUE PARAMETER =" DECLARED AT 08625000 
08624000 08625000 08629000 08632000 
"e STREAM VARIABLE “" DECLARED AT 08632000 
08634000 *08642000« 
== STREAM VARTABLF “"™ NFCLARFN AT 08690100 
08690110 *06690;80« 08690240 
=e  tNTEGER = HFCLARFEN AT 08733000 
*08735000% 08784000 08791000 08798500 
m= STREAM VARIABLE == DECLARED AT 08793000 
*0B8795500" 08796000 
ee REAL ©" VALUE PARAMETER =" DECLARED AT 08800000 
#08802500*% 08839600 08848000 
we STREAM VARIABLE 7" DECLARED AT 08839600 
ee Real ow" VALUE PARAMETER @* DECLARED AT 08850100 
08850000 08882050 +*08882500#«08886000*% 08887100 08903000 08905000 08906000 
08947100 08947400 08947600 
we STREAM VARIABLE “= DECLARED AT 08887100 
08888000 
ee STREAM VARIABLE = DECLARED AT 08905000 
em REAL 72 VALUE PARAMETER == DECLARED AT 09400000 
ee REAL =© VALUF PARAMETER © DECLARED AT 09600000 
09631000 09633490 09659000 09670000 09676000 
ee REAL =" VALUF PARAMFTER =" DECLARED AT 09679100 
09679800 09681000 09681515 09682200 09682800 
v= Realb ©" PrcLARFN AT 12204000 
*#12222000% 12223000 12298000 12310000 12321000 . 
w= STREAM VARTABLE =" DECLARED AT 12310000 
me REAL eo VALUE PARAMETER em DECLARED AT 45400000 


08941000 


08926000 


08927000 


5404000 45423000 45427000 437100 8060 
BUFF ane STREAM VARIABLE ee DECLARED At 15404000" ; 
15495000 
BUFF = REAL =" NAME PARAMETER = DECLARED AT 15500 
. *15501200«% 15501600 15531200 
BUFF == STREAM VARTABILE "" DECLARED AT 15531200 
15531300 *15531500« 
BUFF w= RFAL =" VALUE PARAMETER =" DFCLARFD AT 1553 
15541000 155500900 
BUFF "= STREAM VARTABLF =" DECLARED AT 15541000 
BUFF =e STREAM VARIABLE “" DFCLARED AT 15550000 
BUFF w= STREAM VARYABLF == DECLARED AT 16036200 
160326400 46036500 46037500 46040600 *16040700# 
BUFF = STREAM VARIABLE == ODECIARED AT 16043200 
16041800 *16043300% 
BUFF = REAL =" DECLARED AT 16048000 
16049000 16070000 «16072000* 16076000 16079000 
16343500 16343700 
BUFF 7™ Real =" DFCLARFD AT 16349000 
16350000 146371000 «*16373000*% 16377000 16494000 
16689100 16689300 
BUFF == STREAM VARIABLE <= DECLARED AT 16506000 
16508000 
BUFF em REAL e= DEC) ARFD AT 16692500 
16693000 16697100 16708000 #16710500" 16712500 
BUFF == REAL =" DECLARED AT 16908000 
169NB5N0 16912000 ¥16918500%*16919500" 16921000 
16956040 16958620 16959000 16962000 16965000 
BUFF °" STREAM VARTABLF “" NMFCLARFD AT 16956040 
16956050 
BUFFADR = REAL ARRAY = DECLARED AT 28804000 
28834000 *28874000% 28872000 28873000 
BUFFEND = STREAM VARTABLE = DECLARED AT 04652200 
04652400 04652500 04653400 04653600 
BUFFER = REAL == ODFCLARED AT 04554600 
*04651500*% 04652700 04652200 04656400 04657700 
BUFFER = STREAM VARTABLE =" DECLARED aT 04656400 
04656800 
BUFFER == STREAM VARTABLFE == OECLARED AT 04657700 
04457900 
BUFFER ==" STREAM VARIABLE == DECLARED AT 04659500 
BUFFERSIZE -*" REAL == DFCLARED AT 04554600 
4046546008 04652900 #04654700% 04656300 04657600 
BUFFERS'ZE “" STREAM VARIABLE "= DECLARED AT 04656300 


04656900 

BUFFERS?'ZF ==" STREAM VARTABLE == DECLARED AT 04657600 
04658000 

BUFFS;ZE == DEFINE =~ DECLARED AT 15501300 
15591200 

BUFFSTART == STREAM VARIABLE =* DECLARED aT 04652100 
04652600 


BUILDaVaIL =" SUBROUTINE =" MNECLAREND AT 40027100 
40100300 49100700 40100900 40101300 40261046 

BUTLOWEADER @* SURROUTINE =" nrclaRED aT 20289045 
20289140 20289520 

BUILOLABEL == PROCEDURE == DECLARED AT 37337000 
37455000 38975500 


15438150 


000 


4000 


*16085000™" 


16500000 


16713000 


16921500 
#16967000~ 


04658800 


04658900 


40292050 


164109500 


16503000 


16714000 


16925500 
16967500 


04659500 


16154000 


16503400 «16503200 


16819400 


16926000 
*16968120« 


16247000 


16654800 
16927000 


16261000 


16505400 


16902600 
16954000 


16343200 


16506000 


16902800 
16954500 


BUILOMESS = LABEL == MECLARED AT 43316500 == OCCURS AT 41321700 
41318500 
BUMP = REAL "= VALUE PARAMETER == DECLARED AT 02347210 
02347200 97347010 027347240 
BUMPF,~ °" REAL **™ DFCLARFO AT 28003000 
28003200 
BUMPFA "* RFAL c= Decl aRED aT 28401400 
28429000 28429100 28443200 *26457000* 
BUMPTUMASK =" nerrNe == necLARFn aT: 00060950 
BUMPTUTYME = DEFINE «= DECLARED AT 00080950 
BUS w= REAL == DECLARED AT 08626000 
*08629000*% 08660000 086467100 08669000 
BUS =" STREAM VARIABLE «= OfCLARED AT 08660000 
 BYBY == DEFINE == DECLARED AT 00005220 
02181000 94004170 06037300 06380350 14603750 18013000 40978150 
BYE =" LABEL =" DECLARFD AT 14547000 =" OCCURS AT 14603750 
14598000 
BYF =" LarRFlL =" DECLARED aT 40008050 =" OCCURS AT 40278150 
40293102 . 
BYPaSS "™" RrakL 7" peecbaRrfo at 00418850 
#14596000% 144598000 144598200 #44603330% 14603700 40044000 £40266000% 40278400 *40278200««40293090% 40293300 
40293103 *44240500% 44240580 
BZ we LABFL == DFCLAREN AT 05847800 == OCCURS AT 05853700 
05849000 
BZ we LABFL == DECLARED AT 05952600 == acCcURS AT 05967000 
05971400 
B6500 =" NEFINE == DFCLARED AT 20247800 "©" OCCURS AT 161927000 
B6500 °°" NMEFINE =" pECLARED AT 28007800 
28022400 28025000 28028600 278036400 28063200 78063800 
B6500 *" neEFINEG °°" perl aREN aT 28208800 
28243200 278217000 28239600 28225000 28225400 278235000 28235200 28237700 28273400 278276000 
B6500 == neEFING =" MFCLARED AT 28405400 
C =e REAL == VALUF PARAMETER ee DECLARED AT 00379700 
00379660 
C me REAL w= VALUE PARAMETER == DECLARED AT 00429000 
00428000 
C == INTEGER e-= VALUE PARAMETER == DECLARED AT 00432000 
C == REAL |= VALUE PARAMETER == DECLARED AT 00452800 
00452600 00452700 
C *" REAL °°" NAME PARAMETER = DECLARED AT 02052800 
02952700 
c oo") 6sTReaM VARI able os") pechaRen at 02275800 
02275900 
Cc 7" «6 REAL Oo ODFCLARFD AT 02361000 
#02364000%402368000% 027371000 02372000 
C = REAL &=* DECLARED AT 02384000 
02392000 
C = STREAM VARTABLE == DECLARED AT 02392000 
C ee REAL == VALUE PARAMETER #= DECLARED AT 09393500 
02393400 
C we REAL @ = VALUE PARAMETER oe DECLARED AT 07696200 
C == REAL = DECLARED AT 04004000 
04007000 04034002 
C =" STREAM VARTABLE = DECLARED AT 04109000 
04111000 
C 7" REAL = VALUE PARAMETER © fECLARED aT 04122000 
04128900 04129000 04134060 04146100 041446200 04150200 04194600 


oO 


LABFL = DECLAREN AT 95844650 "= OrclRS aT 05843600 

05842500 05843950 

TNTEGER =? DECLARED AT 05847700 

05848300 *058650410*" 05850130 0585743C0 *05852000* 05852100 05852700 
INTEGER =" DECLARED AT 05953800 

05952220 *05961200*% 05961600 «059686008 05968800 05968900 05974800 
05974400 

INTEGER =" DECLARED AT 06069100 


06074100 06086300 ¥06092700% 06092800 06093700 «06097200 %«06097 300 **06098700«%06101000« 


STREAM VARIABLE = NECLAREN AT 06074100 
06076200 *06076300« 
REAL eo ODECLARFO AT 06462,00 
06463600 064863620 06463680 06464800 06464900 *06465000% 06465400 
REAL = DECLARED AT 07244000 
#07251000% 07253000 07253100 #07255000" 07259200 07262400 
STREAM VARIABLE "=" NECLARED AT 07262400 
07763200 
STREAM VARIABLE "= DECLARED AT 07295020 
07295050 
REAL @* DeclaRen aT 08099450 
08104900 08104950 08105400 08112150 
STREAM VARIABLE = pECLAREH aT 08112150 
08142400 
INTEGER == DEC) ARFO AT 08306000 
*08307000* 08308000 08309000 
REAL SUBROUTINE == DECLARED AT 08344100 
08344200 08358000 08356100 08360000 
STREAM VARIABLE == DECLARED AT 08344200 
08355000 
REAL @" DECLARED aT 08377000 
#08385100% 08385200 08385300 08385400 08385500 
STREAM VARIABLE "= DECLAREN AT 08473000 
STREAM VARTABLF == NECLAREH AT 08887004 
08888000 
STREAM VARIABLE == DECLARED AT 12657000 
12659500 
REAL = DECLARED AT 14002000 
*140 38000 ee 1L40GONOD ee LAOS 800014064000 14066000% 14067000 14078000 
REAL *" VALUE PARAMFTER © = DECLAREN aT 14155000 
14186000 14186460 14186170 14206320 14206330 14208000 14216000 
14299000 
REAL ©" VALUE PARAMETER w= QOFCLAREN AT 14342100 
STREAM VARIABLE == OQDECLARED AT 14535000 
$8537100 
STREAM VARIABLE == DECLARED AT 14570000 
14578000 
REAL == VALUE PARAMETER = DECLARED AT 15169000 
15168000 15168400 15170000 15176000 15182000 
REAL ARRAY "=" DECLARED AT 15600400 
# 15690800 46 156009504%15601000%415601600% 15602500 15602600 15602640 
sTReaM vaRTapbe 7" nrebaRen aT 16088000 
STReaM VARYABLF "= DFCLAREN AT 16828200 
STREAM VARTABLE "= DECLARED AT 18455000 
16456000 
SWITCH LABEL © DECLARED AT 148501800 
18504000 185243000 
STREAM VARIABLE == DECLARED AT 18521000 


05972000 «05973000%«0597 3600" 05974000 


06465850 «06465910* 


14218030 


15694000 


14218088 


15604100 


14225000 


15604800 


14239000 


an 


18521400 

SWITCH LABEL e= 
18702200 

SWITCH LABEL == 


DECLARED AT 
DECLARED aT 


195276000 

STREAM VARIABLE 7" DECLARED 
20031700 

STREAM VARIABLE * = DECLAREN 
20044000 

STREAM VARTABLE "= DECLAREN 
20054100 270054500 

STREAM VARYABLE =| DECLARED 
20061300 20062900 

STREAM VARIABLE *= DECLARED 
20196200 

REAL ** NAME PARAMETER &= 
20382010 20382056 20382095 

STREAM VARIABLE "= NFCLARFED 
20511670 20511702 

STREAM VARIABLE = NECLAREN 
20571820 

STREAM VARTABLE == DECLARED 

REAL, = VALUE PARAMETER w= 
32000000 32000800 

STREAM VARIABLE == DECLARED 

#32001400% 

STREAM VARIABLE © DECLARED 
STREAM VARIABLE = DECLARED 

STREAM VARIABLE *= DECLARED 


REAL *=2 
37357300 37357400 
STREAM VARIABLE == 


*#38161000%%*368162000«8 
REAL of 

38456000 38464000 
REAL, = 
REAL, ow 
REAL = 

40257030 40257n69 


REAL == 
41194400 
STREAM VARIABLE == 
STREAM VARIABLE == 
STREAM VARIABLE = 
STREAM VARIABLE == 
41501400 
STREAM VARIABLE == 
41606400 
REAL 7" 


REAL "=" 


VALUE PARAMETER == 


DECLARFH 


DECLARED AT 38362000 


DECLARED AT 38547000 
DECLARED AT 38655000 
DECLARED AT 40004000 


40258000 


DECLARED AT 41003000 


DECLARED 
DECLARED 
DECLARED 
DECLARED 


DECLARED 


DECLARED aT 44011000 
44037300 *£44037400%¥44154010% 
DECLARED aT 44206700 


#442640004*44265000% 44265500 


LABFL == 
16364000 


DFcbLAaRen at 45002000 
DECLARFN AT 16355000 


18701300 


19511600 


AT 
AT 
AT 
AT 


AT 


DECLARED AT 20382015 
*20382600%%203R2680% 


AT 
AT 
AT 


DECLARED AT 39000100 


AT 


DECLARED aT 37357500 


aT 


20030800 
20043700 
20053200 
20061490 


20105900 


20511660 
20571700 
20595950 


32000800 
37046192 


37256000 
37284130 


38159500 


40264010 
*40286000% 40287000 *£40293050« 40293060 
40323100 *40323710*% 40323900 


44266500 *44268500% 44270000 


41317780 
41320360 
41320600 
41500800 


41606200 


40261044 
40293070 


40261048 40261200 
40293080 «40321400« 40321500 


44271000 442741500 


== OCCURS AT 16486000 


40261300 ~40285010« 40285030 


40285500 
40321700 *£49321910«% 40322400 


44272000 


CADDR == REAL == DECLARED AT 20566100 
*20580300% 
CADOR == REAL == DECLARED AT 20581000 
20582100 20582350 
CADDR =" REAL "* DECLAREN AT 20584000 
*20585550« . 
CAMDR =" REAL =" DECLARED AT 20586800 
CANDOR =" REAL = DFFLARFDN AT 20589800 
canoR == REAL #= HEPLARFD AT 20591000 
CADDR w= REAL = DECLARED AT 20595000 
CADDR w= REAL == DECLARED AT 20596800 
CADDR =" REAL "= DECLARED AT 20600010 
20605050 *20605340* 
CADODR =" REAL *= DECLARED AT 20701500 
CALCULATEPURGE =" INTFGER PROGEDURE ©" DECLARED AT 02380000 
#02391000% 02641000 06188100 08105700 15622000 20157700 22012000 29909000 
CALLENORCONT "7" REAL "" NECLARFD AT 19693000 
*19696700% 19697200 19799060 
CANDEYTNPUTARFAV 7" DEFINE &" pFCLARED aT 00017572 
CARD w= RraAL =* VALUF PARAMETER == DECLARED AT 20289020 
20989010 70289020 270789152 70289760 
CARD == STREAM VARIABLE = DECLARED AT 20289160 
20289210 20289940 
CARD = REAL © VALUE PARAMETER == OECLARFD AT 20511120 
20541100 20511110 70511420 20511720 
CARD ™" REAL =" DECLARED AT 20566100 
205466785 20574925 
CARD ™* REAL =" DECLARED aT 20581060 
CARD "= Rrab =" DECLARFO AT 20584000 
20585610 
CARH w= RrAL =" DECLARED AT 20586800 
20587370 
CARD «= REAL «== DEC; ARED AT 20589800 
CARD == REAL == DEC) ARED AT 20593000 
20592700 
CARD "= REAL =" DECLARED aT 20595000 
CARD = REAL =" DECLARED AT 20596800 
CARD "=" REAL =" VALUE PARAMETER =" DECLARED AT 20597550 
CARD ‘= RFAL =" DECLARED AT 20600010 
20600850 20600900 «20600950« 20601000 20601200 20602000 20602470 20602480 
20604400 20605500 20605540 20607020 20607600 206086112 20608114 20608870 
20610260 
CARD w= RrabL =" DECLARED AT 20701500 
CARD #8 LABEL == DNECLARED AT 29064000 = OCCURS AT 22209000 
22065000 
CARDLOC = REAL, == VALUE PARAMETER == DECLARED AT 20292200 
20292000 20292300 20795100 20298000 20299000 20299030 20300000 20303000 
CARDLOC == STREAM VARYABLE = DECLARED aT 20299030 
CaRDLoC == STREAM VARIABLE "= PECLARED aT 20300000 
20301000 20301100 20301500 
CaRpLOc "=" REAL 7" vaLUe PARAMETER ™™ DFCLARED aT 20314200 
20314000 20334100 20325000 20374400 20374401 20374415 


-CARDLOC &*. STREAM VARYABLE 7" NECLARED AT 20374401 


20374402 *203744044%20374406% 
CARDLOC = STREAM VARTABLF = DECLARED AT 20374415 
20374425 
CARDLOC == REAL == VALUE PARAMETER == DECLARED AT 20386000 


28448400 


20602500 
20609435 


37345000 


20602530 
20609436 


20602900 
20609660 


CARDLOC 


CARDLOC 
CARDLOC 


caRnboc 
CARnLOC 
CARDLOC 
CARDLOC 


caRnLoc 
caARnLoc 


CARDLOC 
CARDLOC 
CARDLOC 
CARDLOC 
CASEO 
CASFL 
CASE2 
CASE3 
CASE4 
CASES 
CASES 
CASE? 
CASES 
CATCH 
CAUSEL, 
cc 
cc c= 
Cl <"s 
CC = 


20384000 
wm REAL 
20566900 
w= REAL 
ee REAL 
20584200 
we REaL 
20587100 
a. REal 
20590000 
ww REAL 
20591400 
um REAL 
20595350 
wr REal 
w~ REAL 
20600040 
20603250 
20640200 


we STREAM VARYABLE == 


20385000 20397200 
w= PECLARED AT 20566100 
20576754 20576756 20576768 


“= DECLARED AT 20581000 
we MECLAREN AT 20584900 
20585715 20585725 

=" pECLARFD AT 205686800 


== neebaRED aT 20589800 
“= DECLARED AT 2059;000 


=" DECLARED AT 70595000 
20595400 20585550 
"" MECLARED AT 20596800 
“= AWFCLARFD aT 29600010 
20600450 20600176 
20604405 20604850 


20600480 *20600060 


=a STREAM VARTABLE Salad 


20600410 


== STREAM VARIABLE = 


20407260 
“= REAL 
20706000 
er LABEL 
28010000 
em LABEL 
280140000 
wr LABEL 
280;0000 
we LABEL 
28010000 
ee LABEL 
28010000 
7" LABEL 
28010000 
#= LABEL 
28010000 
=" LABEL 
260;,0000 
ee LABEL 
28010200 


ee INTEGER 


*14358150% 
ee LABEL 
19901700 
LABEL == 
16365000 
LABEL == 
20599000 
LARFL == 
38845000 
LABEL == 


LAREL == 


20600460 


=» MECLARED AT 20701500 
=" DECLARED aT 28006000 
“" DFCLARFD AT 28006000 
“= DECLARED AT 26006000 
== OFCLARED AT 98006000 
== DECLARED AT 98006000 
wm DECLARED aT 28006000 
=" DECLARED aT 26006000 
“= DFCLARFD aT 28006000 
e= DrCLARED AT 98006000 


se DECLARED AT 14351200 


14383740 
“= DECLARED AT 149901600 


DECLARED AT 16356000 “= 
DFCLAREN AT 20597650 “= 
20606700 20608810 
nFchaREn at 38661000 == 


DECLARED AT 41005000 ee 


DEC) ARED AT 20566600) w= 


29595540 


20595900 


20600390 *20602000* 
20605050 


20607020 


DECLARED AT 20600170 
DECLARED AT 20600390 


DECLARED AT 20607020 


OCCURS 
OccuRS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 


OCCURS AT 19903500 


AT 


20595950 


20602100 
20608070 


28050000 
28067200 
28067600 
28050100 
28067800 
28068200 
28075600 
28094400 


28097600 


OCCURS AT 16505000 


OCCURS AT 20602650 


20609410 


OccURS aT 38725000 


OCCURS AT 41054000 
OCCURS AT 20580300 


20596200 


20602150 
20608200 


20596300 


20602250 
20608700 


20602530 
20609000 


20603100 
20609350 


20603150 
20609435 


20576790 20580000 270580100 
CCA ©" REAL ARRAY =" ODFCLARED Al 28004400 
28012130 280123940 28053600 28954600 
CCA *" REAL ARRAY “" NFCLARED aT 28401800 
28409600 28409800 28455400" «28455600% 28456000 278458400 28459000 28460000 28461000 278462200 
28464400 28465400 28482400 28482600 
CCAYN e= REAL we DECLARED AT 28002400 
28002600 278053600 278054600 


~ CCAIN #= REAL == DECLARED AT 28404200 


#28440200e%984560008 28458400 278459000 *26459800*% 98460000 784641000 28462000 ¥28462600" 78462800 
28465400 *28481000«% 28482400 
CCC we LABEL == DECLARED AT 20590910 == OCCURS AT 20594450 
20592850 20594000 
CCC »" LABEL =" DECLARFD AT 20597880 == OCCURS AT 20605870 
20609560 20609570 
CCCOMPILE = REAL PROCEDURE =" GFCLARED AT 20583800 
*20584340"«%20585950ee20585350%420985360«e 20586650 20603750 
CCcOUNT == DFFINE =" nrclaRED aT 02112100 
CCFRR #* LABEL == prcbaREN aT 20701000 = OccuRS AT 20782000 
20714500 20737000 20738000 207741000 
CCFIND == REAL PROCEDURE == DECLARED AT 20596750 
#20597450% 90597500 70602950 270604450 
CCFINISH == PROCEDURE == DECLARED AT 20580800 
20583750 20609600 
CCLABEL =" REAL PROCEDURE == DECLARED AT 20594850 
*20595750%«20596500"%20596600% 20596700 20609500 
ccLIB *™" REAL PROCFDURF “™" DECLARED AT 20566000 
*20580100%%20580200% 20606606 
CCSFCMAINT "=" REAL PRocernuRe =" NeclLARep aT 20590850 
#20594750 «#2059 4850 020592800 4% 20594400 #4 20594500 442059455044 20594700% 20594800 20606050 70606100 
CCSET == REAL PROCEDURE -*= DECLARED AT 20700000 = FORWARD AT 20580400 
20606700 *90744700%#707B;000% 20784000 
CCTAB)S7 «= DEFINE == DECLARED AT 00441000 
206901660 20601720 20601740 
CCTBLADDR =" DEFINE © DECLARED AT 02412200 
20601640 20601760 20610420 20610430 
CCTBLWORD =" REAL °° DECLARED AT 02112000 
_ 206016008 20601640 20601660 «20601760 %420610400% 20610420 «20610430% 
ccryPe 7" LaRFL =" neelaREnN at 29597650 =" OcruRS AT 20602800 
20599000 20606000 20608086 20610100 
CCUNTT == REAL PROCEDURE = DECLARED AT 20589700 
*20590300«*90590730*490590740* 20590800 20606800 
CD 28 LABEL = DECLARED AT 16700000 == OCCURS AT 16786000 
16704500 
CD =e STREAM VARIABLE == OFCLARED AT 38274000 
CD e= LABEL == DECLARED AT 38664000 == QCCURS AT 38802000 
38662000 
CD == LABEL = DECLARED AT 41005000 “= OCCURS AT 41054000 
41096000 
COATE = REAL = VALUE PARAMETER *= DECLARED AT 00373000 
00371000 00372000 
COATE ©" REAL °°" VALUF PARAMETER ™" DECLARED aT 00376000 
00374000 00375000 
CDATE ©" REAL ** VALUF PARAMETFR =" NMECLARED aT 37002000 
37000000 37001000 37046478 37046730 37174100 
CDATE w= REAL == VALUE PARAMETER == pECLARED aT 37179000 
37177000 37178000 37493000 37197500 37499300 37246000 37294200 37940700 37260000 


28462800 


28464400 


20606350 


COATE ©= REAL <= VALUE PARAMETER = DECLARED aT 37342000 


37337000 37339000 
CDOATE =" («INTEGER “= DFCLARED AT 38007000 
38014400 *38015a00* 
COATE *™ INTEGER *" DFCLARFD AT 38102700 
38104900 38105800 38113000 38151000 
CDATE °™ INTFGFR @=" PNFCLARFD AT 38200700 
38202900 38203800 3862713500 38274000 38275500 
COATE =" tNTFGFR == prclaRFo aT 39004100 
39087100 *39087500« 39443000 
CDEX = REAL == DECLARED AT 20566100 
*20580300* 
CDEX == REAL == DECLARED AT 20581000 
20582250 20582300 *20582500% 270583300 20583450 
CDEX "= REAL =" DECLARFO AT 20584000 
#205R4750ee20585H00% 
CDEX 77 REAL =" DECLARED AT 20586800 
COFX "*" Real "" DECLARED AT 20589800 
CpFX 7" Rrab =" NECLARFD AT 20591000 
«205919006 20592000 *20592950* 20593650 
CDEX = RrAL ©= ODFCLARFD AT 20595000 
CDEX se REAL w= DEC) ARFD AT 20596800 
CDEX == REAL == DEC) ARED AT 20600010 
20605050 *20605340« 
CDEX = REAL =" DECLARED AT 20701500 
CDOFREE = DEFINE "" DECLARED AT 00081710 
COMASK ©" DEFINE ™* DECLARED aT 00081710 
07901640 07001840 07272500 97296000 07301000 
07455000 07572000 45138000 
CONUM we sTREAM vaRTARLr = DECLARED AT 07001680 
07001720 
CDONLY = DEFINE == DECLARED AT 00416780 
07253100 20152300 227909400 
CDONLY =" REAL =" DECLARED AT 07007100 
07059110 *07072000» 
CELL *= REAL =" ODECLARFO AT 04257600 
CELL 7" OEFINE ©" DECLARED AT 06073200 
06990600 06090800 06101600 06108000 06109000 
CRON "=e Real ARRAY "= NECLARFD aT 20566100 
CFQAN = Real ARRAY t= nFCLAREFD aT 29581000 
*20582200 «*205829504420582300% 270569350 
CEQN =» REAL ARRAY == ODEFCLARED AT 20584000 


38296750 


20583500 


97352000 


96115700 


20583600 


07371300 


07371600 


07371950 


07426000 


#2058 44600 449058 4550442058 4600 4%20564650 *«%20584700 *4905847 10 %%005 84850 «490584900 420585000" 270585450 


20586000 270586050 

CEQON =» REAL ARRAY = NECLARED AT 20586800 

CEQN #2 REAL ARRAY we fMECLARED AT 205898600 

CEQN *= REAL ARRAY we PECLARED AT 20591000 

CEQON "= REAL ARRAY w= NECLARED AT 20595000 

CEQN "=" REAL ARRAY "= DECLARED AT 20596800 

CEQN = REAL ARRAY = MPECLARED AT 20600010 
*20601900% 20605050 

CEQN *" RFAL ARRAY = PECLARED aT 20701500 

CF 7= FIELD "* DECLARED AT 00060100 
00060120 00656200 01250800 01261100 01261300 
02216010 02216200 027262000 02263000 027275600 
02323000 92662000 04004450 04137250 04437270 
04647100 046713750 04686450 04726000 04727000 


01261400 
02276400 
04194500 
05953400 


02133300 
02285000 
04568470 
06043000 


92173230 
02318000 
04568520 
060371000 


02208000 
02319000 
04568530 
06086400 


02212000 
02321000 
04638200 
06089900 


07427625 


20585630 


02215000 
02322000 
04638900 
06097000 


CHAIN 
CHAN 


CHANG 
CHANGE 


CHANGFARORT == 


CHANGFOATE 7° 


CHANGFFACTOR 


CHANGEINTRINSICFILE <= 
CHANGEMCP =e 


16801500 


CHANGFNaAME == 


06463880 
07451000 
06259450 
08866060 
12561600 
14186460 
14387000 
15601400 
16853000 
18053000 
16720200 
19707000 
19779000 
20035900 
20125300 
20567350 
20577775 
20583250 
20610490 
222786050 
27363000 
24033200 
76254000 
28823000 
37947600 
38452000 
38732100 
49065090 
40309200 
44319000 
44150000 


44411660 


06463988 
07503000 
06269200 
08932000 
42647500 
14206320 
14403900 
15602200 
16853100 
18063000 
18720400 
19714300 
19784000 
20049800 
20163700 
20569975 
20577925 
20583350 
20610430 
22286060 
22365300 
24034000 
2827 3400 
28858000 
37233500 
38458000 
39303000 
40070000 
40317210 
44329800 
44189550 


DECLARED AT 14351210 


DECLARED AT 20566600 a= 


“- NECIARED AT 20225500 


me PMECLARED AT 20597800 


06380525 06414000 
07333000 074170900 
08177200 08179600 
08839000 08864000 
12397000 42422500 
13194000 44045500 
14360600 44362000 
154292000 15601000 
16852100 746852800 
18047500 18049900 
16443000 148559000 
19685350 19685360 
19768750 49778000 
20035500 20035700 
20124900 20125000 
20567335 20567345 
20576210 20577475 
20582550 20583;50 
290601760 270607040 
22284000 92284500 
22354000 22356300 
240924000 274030000 
28051200 78246R00 
28467000 28812000 
32003500 37046830 
38439000 38443000 
38594300 386863000 
40060302 40062000 
40293101 40293440 
41310900 443411000 
44104000 44149000 
ae REAL na 
*14358800% 144116270 
LABEL == 
20566620 20579900 
NEF INE 
we = ABEL 
20598000 
PROCF DURE 
06187000 20180600 
PROCEDURE 
06188100 08373000 
PROCFHURE 
08849000 46432000 


PROCEDURE 
16168000 
LABEL == 
18524400 
LABFL == 


CHANGFNAME == 
CHANGFOPTION #= 


16254000 


CHANGEPRIORITY 


CHANIO 


07512000 


we REAL ARRAY 
*04007000% 04128900 


PROCFnURF 


PROCEDURE «= 


16251000 


07003440 
07559000 
08269300 
08936000 
12653500 
14280000 
14431470 
15602500 
16853500 
18071000 
18740600 
19720000 
19785000 
20050000 
20174300 
20572300 
29578600 
20583600 
20704250 
222864180 
22390000 
24034400 
28999600 
28882400 
37255900 
38466000 
40041000 
40078030 
40347300 
41334700 
44189600 


occURS aT 


OCCURS AT 20606500 


v= DECLARED AT 22900000 =" 


15622000 


20157700 


DFCLARED AT 08376000 == 


22012000 


“= NMFCLARED aT 08800000 


PROCEDURE 


07264000 
07565000 
08270000 
08938000 
12665500 
14283000 
14598000 
15602640 
16926020 
18075500 
18740900 
19724000 
19900760 
20066600 
20187300 
20572500 
20578650 
20585375 
20758000 
22296000 
22410000 
24035800 
28307710 
28887000 
37329000 
36474000 
40016200 
40078032 
40324700 
41334900 
44204300 


20576850 


FORWARD AT 06179000 


22012500 


DECLARED AT 09600000) m= 


DECLARED Al 09679100 == 


DECLAREN aT 


DECLARED AT 18501100 
19521000 


07978000 
08105350 
082976500 
09618000 
12863000 
14284000 
14598200 
15604200 
16928500 
18232000 
18810300 
19727000 
19900815 
20089600 
20382680 
20572700 
20580305 
20587550 
22069440 
22301000 
22907000 
24037000 
28409800 
30910000 
37509000 
38476000 
40027240 
40078038 
40322220 
44500200 
44240690 


FORWARD AT 02393100 


22909000 


FORWARD AT 02111100 


v= OCCURS AT 18525700 


=" OFCLARED aT 08624000 


DECLARED AT 00169000 


44164020 


DECLARED Art 07485000 


07312000 
08495400 
08296350 
09622000 
13036000 
14354350 
14599910 
16224000 
17003000 
18272200 
18844600 
19750000 
20021700 
20105350 
20511420 
20575050 
2058;400 
20588900 
22145550 
29307000 
22918000 
24037300 
28425200 
31010000 
38137000 
38496000 
40047400 
40078040 
40323200 
47602600 
44260000 


FORWARD AT 02411200 


07338000 
08106040 
08299000 
09657000 
13975000 
14358398 
14600000 
16505100 
18045000 
18273030 
18845200 
19751000 
20025000 
20419000 
20511610 
20575100 
20584800 
20594350 
22264000 
22344000 
24006090 
24152000 
28431800 
31917300 
38247500 
38499000 
40048000 
40078049 
40323300 
42525120 
44260500 


07321100 
08108200 
08434500 
12271500 
143080100 
14358615 
14603700 
16804500 
48048000 
18273040 
19569000 
19754000 
20034500 
201201400 
20566830 
90575200 
20582000 
90600120 
22266000 
22326800 
94007000 
28012140 
28455600 
31047400 
38284000 
3857 3100 
40049000 
40078048 
44204000 
42525150 
44265500 


07339300 
08116350 
08718000 
12387500 
130814000 
14360370 
14702600 
16851200 
18022000 
18276500 
19575000 
19766300 
20035300 
20121800 
20567325 
20575600 
20582350 
20601640 
22267000 
22328400 
24017000 
28013000 
28459000 
31021000 
38437000 
38587000 
40051000 
402784300 
41340700 
44037400 


CHANNEL ©" REAL ARRAY 7" DECLARED AT 00170000 
#04005000% 04129000 «04156000 44164010 48117200 
CHAR "™ Rerabh =" PFCLARFD AT 22230000 
22259006 22283000 *22286020% 22286040 22286170 *22300000% 22305000 *29307000* 22341000 *72314000« 22315000 
22320000 ¥22376000%*22420000% 
CHECK = SUBROUTINE = ODFCLAREN AT 02434462 
02434600 029434630 
CHECK «= LABEL == OFCLARED AT. 14548000 = OCCURS AT 14563000 


14589000 

CHECK = LABEL |= DECLARED AT 16914000 *= OCCURS AT 16946600 
16926270 

CHECK © LABEL =" DECLARED AT 18202000 “= OCCURS AT 18291000 
18302000 


CHECK =" SUBROUTINE =" DECLARED AT 20566665 
20566805 20566R10 20569925 2057003n 20570140 20570160 20570560 20570577 20576220 
cHEcK1O ©" Real SURROUTINE 7" necbaRED aT 37323100 
37323300 37324000 . 
CHECK.JORORFILEMESS == PROCEDURE w= DECLARED AT 41312000 = FORWARD AT 04194500 
04283000 04366800 43951620 43314900 
CHECKLINK = DEFINE == DECLARED AT 00616560 
CHECKSTACKSPACE = DEFINE © DECLARED AT 02693000 
04103100 08173200 449144100 19525000 31005010 425437100 
CHECKTERMIX = SUBROUTINE =" DECLARED AT 37185310 
37218400 37228000 37241500 
CHK e«* STREAM LABEL =" DECLARED AT 04363200 "= OCCURS AT 04363800 
04363400 
CHKLBL =" DEFINE "=" DECLARFD aT 28009200 
28095600 28026200 2760299400 28055000 26062600 28066000 78068800 
CHKLABL &" DEFINE @" DFeLAREN AT 28209800 
28220200 287270800 
CHRERR == STREAM VARJABLE == DECLARED AT 04658600 
*04661300*% 04662400 
CHUNKSIZE «»= DEFINE w= DECLARED AT 00339000 
Cl = LABEL = DECLARFN Al 16700500 = gCCURS AT 16798000 
16704500 
CIDROW ©" REAL ARRAY *" DECLARED AT 02187500 
02347330 07372100 07409000 07415100 «07419800*% 07429000 «07433000*%«07437300%%07453000e 07462500 07478500 
08175300 08478800 20297000 «20489100%%20585050% 20595450 *£20595500 «*20595550 4420596450 «%20606900e 37241020 
38446500 *38447000% 38804000 39545930 44764500 
CIDROWAREAV © DEFINE oe DFCLARED AT 00017390 
CIOTABLE ==" REAL ARRAY == DECLARED AT 02187500 
02347300 07372700 7417400 08478900 «20289444 20289160 20289163 20374700 20374200 270608650 37046410 
37241030 38806300 
CK ee LABEL == DECLARED AT 06069900 "== oCcURS AT 06085900 
06085300 
CKBKUP *= SUBROUTINE = DECLARED AT 38570000 
36583000 38584090 38588000 386591100 38595000 
CKFM "" LABEL @* DECLARED AT 37007000 *™ OCCURS AT 37046960 
37046060 370466075 
ch == STREAM vaRIARLE 7" PECLAREN aT 00032000 
00033000 
CL == STREAM VARTABLE == DECLARED AT 02473300 
02473325 02173240 
CL == REAL #* DECLARED AT 14007000 
*#14099000% (4020000 44030000 *#14072000*% 14077000 
CL == STREAM VARIABLE == DECLARED AT 14070000 
*140292000%*14027000« 


Ch oo = LARFL == DECLARFD AT 16055000 "= QCCURS AT 16203000 
16063000 
CLAIMT =" LABEL =" NECLAREN AT 37004000 =" OCFURS AT 37046160 
37046940 
Chek "= INTEGER =" nrebaARED aT 08395000 
*#06410200% 
CLEANUP == LABFL == PFCLARED AT 38363000 == OCCURS aT 38537000 
38599000 
CLEANUP == LABEL == DECLARED AT 38663000 == ocCURS AT 38818000 
38792000 
CLEANUP =" LABEL =" DECLARED AT 41007000 "= OCCURS AT 41188000 
41142000 41269000 
CLEAR ©" LABEL =" DECLARED AT 04357600 == OCCURS AT 04432400 
04378800 04391800 04406000 
CheraR *" SUBROUTINE =@" nechaREn aT 40009000 
40267000 40293140 
CLEARTHFFILE == SUBROUTINE =" PECLARED AT 20704200 
20704280 90769000 
CLEARWRS == DEFINE #2 DECLARED AT 00413000 
CLOCK e# REAL, = DECLARED AT 00024005 
00939055 91269455 01261170 02008300 02027000 029034000 02107000 
04194050 04194600 4377400 04557200 04557300 04568364 04568366 
06203700 06237000 06361705 06415000 07048000 07262000 08276360 
12403500 42419000 142420000 12452500 12536500 142540000 42610400 
12817600 142849500 12853000 12857500 14205000 44383750 14431650 
18503300 18559400 18710900 18714200 18730300 48730200 148739300 
20583100 22044;00 22920000 9704000N 22069330 29247400 92252000 
37285200 45432000 45428000 45135030 45435230 «48000000% 48000500 
CLOCK =" REAL = DECLARED AT 08394000 
08395000 +#08411000« 
CLOSE we |,ABEL e= DECLARED AT 44466000 we OCCURS AT 144258000 
14268000 
CLOSE e* {ABEL == ODFCLARFED AT 14627300 == OCCURS AT 14659000 
14632000 
CLOSE -= ABEL = DECLARED AT 18205000 == OCCURS AT 18431000 
18358000 18366000 18373000 
cCLOSERIT "= NMEFINE "= necbLARED aT 00417050 
CLOSFnH 7" LaARFL =" neclaRFn AT 38661900 =" OfceURS AT 38818000 
38662000 
CLOSEN == LABEL =" NECLARED AT 41005000 == OceURS AT 41308000 
41006000 44041000 44243000 
CLOSE;NPUT == LABEL == DECLARED AT 18206000 == OCCURS AT 18359000 
18243000: 
CLOSEMESS == DEFINE «= DECLARED AT 00416000 
38610250 41191200 
CLOSEQUT == LABEL *" ODFCLARED aT 38548000 == QCCURS AT 38645000 
38643000 
CLOSEOUT *= Lapel =" neclaRED aT 38692000 ©" OccURS aT 38817000 
38733000 38738000 38744000 38747000 
CLOSEOUT 7? LaRFlL =" nrclaRrn at 41035000 ©" OccuURS AT 41167000 
44307290 
CLOSEQUTPUT = LABEL = DECLARED AT 18906000 = OCCURS AT 18363000 
18274000 
CLOSEPROTECT == LABEL == DECLARED AT 18210300 == OCCURS AT 18374000 
18220000 
CLOSESHARED ==" LABEL = DECLARED AT 18706000 == OCCURS AT 18350000 
18213000 


02185900 
04671400 
08533700 
12612000 
17904600 
19774650 
22294120 
48040074 


02364000 
04671450 
08536000 
12696000 
17926100 
20178900 
22429230 
48010080 


04007000 
06190000 
08538000 
12701500 
18032000 
201480350 
24045700 
48080200 


04014009 
0620 3650 
08886300 
12750250 
18032040 
20190620 
37283000 
48124000 


CLOSEWRITELOCK °* LARBFL “" DECLARED AT 18206000 * OCCURS AT 18367900 


CLOSE 
ol 


CMM 


CMM 


CMM 


CMM 
CMM 


CMM 
cMM 


CMM 
CMM 
CMM 


CMM 


cMM4 


CMPLR 
CMPLR 
CmMPLR 


CMPLR 
CMPLR 
CMPLR 
CMPLR 
CMPLR 
CMPLR 


CMPLR 
cN = 
CN = 


CN 


18214000 
XCLUSIVE "* LARFL @*™ NECLARED al 18207000 *= OccURS aT 18371000 
18214000 16278000 18374600 
© LAagneL = peclbaRrr AT 16055000 = Q¢cURS AT 16167000 
16063000 
wm REAL ARRAY ==" NAME PARAMETER = NECLARED AT 205111430 
205411900 205144981 20511182 20594184 20541188 20547300 20541306 20541315 20541350 2705414370 «20541457% 
*20511480e 20541515 *#20511530*«20541560%*20541590% 20511620 20511660 20511665 
mw" RFAL ARRAY 7" QOFCLARED aT 20566100 
* 20566755 0#205667604%20566785% 20566850 20567057 20567097 *20569420% 20571702 20572300 70572500 20572700 
#2057 2800 4420597 3402462057 3410442057 3430 nn 20573440% 20573450 20573900 20574400 420574300 %%20574400% 20574750 
20574850 20574910 20575050 20575100 20575200 20575550 20575650 20575700 *20576050* 20576216 20576217 
20576230 20576940 20576350 20576500 *29576758% 20576768 «20577025%«20577050% 20577300 70577325 «20577600« 
*20577695*" 20577675 20577750 20577810 29577845 20577826 20577875 20577975 20578425 70578200 70578375 
20578400 90578425 20578595 20578550 20578575 70578600 70578625 20578650 
e- REAL ARRAY ©" PDECLARED AT 20581000 
#20584 3504*905814950%*20582550% 20582600 *20582650#«9058 3050 «#2058 37400 «9058 3550« 20583600 
e= REAL ARRAY == DFCLARED AT 20584000 
#20585 450 #*90585500«*20585550 420585610 %*20585630%e20585750«% 270586450 
wm REAL ARRAY = DFCLARED AT 20586800 
20587200 20587950 20587310 20587550 270588050 *«20588200%*20588250«*20588500%420588550«% 70588900 70589000 
#20589 300 6 %20589 4004420589450 «% 20589 460% 4205894704 ue 20589480 "%e20589490» 


ee Real ARRAY 7" DFCLARFN aT 20589800 


ee Real aRRay 2° pnechaRen at 20591000 
# 20591800 4«20591900% 20592000 %20592950*% 20592300 20592400 20592725 «20592900 «20593200 **905933 10 %%20593300" 
20593350 270593400 270593450 70593650 20593700 90593750 70594350 


m= Real ARRAY 
w= REAL ARRAY 
w= REAL ARRAY 


m* REAL ARRAY 


w= DECLARED aT 
m= DECLARED AT 
mm DECLARED AT 
*20604850% 206014900 «290603200 270603250 
20606865 20606870 


20610350 
we PECLARED AT 20791500 


20595000 
20596800 
20600010 


20605050 #20605340**20605 360 **206054008 20605405 *20605480«*20605500« 


20704260 20704970 *20716000 **207 17000 %%«20719000%%20720000% 20724000 20725000 «20726000* 207279000 20731000 


*20732000% 20765000 20766000 20769400 20771100 20779000 
ee Real =" pechLaARFD aT 20586950 

#20587200* 20587550 20588100 20588250 20588900 20589000 
m= REAL == DECLARED AT 20566100 

v= REAL == DECLARED AT 20584000 

== REAL == DECLARED AT 70584000 

*20585450« 

w= REAL == DECLARED AT 20586800 

wm REA] ©» DECLARED AT 20589800 

ve? REAL =" DECLARED AT 20591000 

m= REAL “" DECLARED AT 20595000 

er REAL "= DECLARED AT 20596800 

we" REAL "= DECLARED AT 20600010 

20604300 20604500 
e" REAL =" DFELAREN AT 20701500 


= prriNe =e 
- DEFINE oe 


19542000 19553000 


DecLaRen at 18701100 
DECLARED AT 19545000 
19566000 


= REAL = DECLARED AT 20566190 
20566847 270566915 *20567045* 20567065 «20567080 90567105 *20567115% 20567420 #20567158%*20567160% 20567166 
% 20567178 4% 20567 9154420567 225%%20567235% 20567240 20567250 20567255 29567265 20567270 #2056727 14%20569 260% 


«229569320, 20569610 


19580000 


19586000 749588000 49682000 19685560 49685595 49685596 


20569650 *20569670% 20569690 420569710% 20569730 «205697508 20569770 £20569780% 20569790 


#20569800% 20569809 «20569804 «20569846 4420569860" 20569930 20569940 *20569960% 20569970 «20569990% 20570000 


CN = 
CN ee 
CN te 
CN "e 
CN os 


CN == 


CN =e 
CN Fe 
CN &e 
CN we 
CNT = 
CNT om 


CNT ef 


CNT == 
CNT == 


CNTCTL 
CNTCTL 
CNTCTL 
CNTCTL, 
CNTLBIT 
CNTLBIT 
CNTLaIT 
CNTRS 
COBOL 
COBOL 
COBOL 


* 20570065 270570400 *«20570130% 20570450 *20570490«" 20570210 «20570235%*205702950% 20570270 70570310 20570370 
20570400 *290570430% 20570450 «20570462 20570470 30570500 370570520 *20570575«%20573400% 70573410 420573430" 
20573440 *90573470% 20573480 *20573500% 20573540 420573850" 20574100 *20574500% 20574700 70576500 «20570600« 
20576700 *20576995* 20577005 270577050 *20577300% 20577325 20577350 
STREAM VARTARLE == DECLARED AT 20566915 

*20566940% 

REAL, @= MECLARED AT 20581000 

*20581200% 20583700 
REAL, *" DECLARED AT 20584000 

*20585200% 20585250 20585300 +*20585350*" 20585355 
REAL "" DECLARED AT 20386600 
REAL ™" DECLARED AT 20589800 

#20590050% 20590900 £205903504%20590500%%20590600« 20590650 *20590655 420590670 %%205906754%*20590690 8420590695" 

#205907 30» 

REAL #* DECLARED AT 20593000 

# 20594800 %*20592000"*20592400% 20599700 *20593050* 90593060 205937450 20593000 «20593950 «*70593310%%205933008 
20593850 
REAL = DECLARED AT 20595000 

#20595 150 ##90595 9450 *#20595400%*90595450* 20595650 
REAL == DECLARED AT 20596800 
REAL == DECLARED AT 20600010 
REAL ==" DECLARED AT 20701500 

*20712000% 20713000 20714000 20714500 «20716000* 20717000 *20719000% 20720000 *20722000" 20725000 *20726000" 
tees 20779000 *20780000* 20781000 

AL ™" peckaRFn aT 06068400 

06687100 *06091500« 06093700 06093900 06094100 %06094800« 06095000 06095300 06095200 

STREAM LABFL == DECLAREN AT 068294050 == OCCURS aT 08291125 

08291125 

REAL * DECLARED AT 270566245 

20546247 #20566675%*20566700* 20566805 20566810 20567958 20567098 *20569740* 205695295 70569528 20569529 
20569670 20569710 20569750 20569780 20569800 20569804 20569890 29569935 20569940 20569965 20569970 
20569980 20570040 20570050 20570140 20570160 20570200 20570220 20570560 20570570 20570577 205760230 
20576240 

RraL == MFCLARFN AT 28002800 

REAL == DECLAREP AT 28203200 

28233800 28237400 «282404008 *2824 4400 44282446008 

7- INTEGER °™ NMFCLARED aT 38005000 

*38024000% 38025000 38928000 38030000 
"= INTrGeER == necblaRen at 38102500 
38106600 *€38422500m4 387 29000%# 38144 500%% 384430004 3814450044 384 49000% 
ee INTEGER **= DECLARED AT 38200500 
38204600 *38244000 **3824 9500 *% 38245500 *% 38959000 %438260500% 

"= INTEGER == DECLARED AT 39003000 
39097000 £39237000 4839241000 «%39293200% 

S =~ REAL SUBROUTINE == DECLARED AT 38106500 
38106600 38107400 

S = REAL SUBROUTINE =" OFCLARED AT 38204500 
38204600 38205100 38270500 

s 7" Real SUBROUTINE =" necbaREn at 39026000 
39027000 39032000 

="  NTEGFR 7" NFCLARED AT 24107000 

#24128000%«24131000% 24132000 24133000 *£24141000%*24442000% 247443000 

e= REAL = VALUF PARAMETER © DECLARED AT 00376000 
00374000 00375000 

w= REAL we VA; UF PARAMETER = DECLARED aT 00385500 
00385000 00385500 

w= NEFINE =" DECLARED AT 20235100 


COROL 
cOROL 
cOBOL 


COBOL 
COBOL 
COROL 
cOROL 
cOBOL 
COBOL 
COBOL 
COBOLN 
cOROLF 
COROL6 
cOR66 
CODE 
CODE 
CONE 
COnE 
COne 
CODE 


CODE 
CODE 
CONE 
COnE 
CONE 
CODEAD 
CODEAR 
CODE IN 


20585200 20585355 20604300 


we" REAL '" VALUF PARAMETER ** PNECLARED aT 37179000 


37177000 37178000 37180100 37225050 


as AY == VALUF PARAMFEFTFR @" MECLARED aT 37386000 


37385000 37385500 37388400 37388700 37388800 
ee oNTegrR == prclaRFn AT 38004000 


37394025 


38053000 38094500 «38054900% 380977400 *38007700% 38041000 


38062000 38072000 38982400 38099900 

** INTEGER "= DECLARED AT 38102400 
38113000 

== INTEGER = DECLARED AT 38200400 
38243500 38262500 38770000 38279000 

e" INTEGER ©°*" DECLARED AT 38360000 
38389000 38389100 38391020 38528000 

=" INTEGER ©" NFCLARED AT 38545000 
38586000 

e= oo NTearR == precbAREn AT 38653000 
38682000 

»= INTEGER = DECLARED AT 39003000 
39041000 *£39094;,00% 390929040 39145200 39146000 

e- INTEGER == DECLARED AT 41002000 

#41951000e 41051100 41212100 


39147000 


38044000 


39233000 


CWR 7" LABEL "= PECLARED aT 14628000 *" OCCURS AT 14660500 


14632200 
IRARFAV "* DEFINE ™™ HECLARED AT 00017250 
8 =" MFFINF =" prcbARFN aT 20235080 
"= REAL == DFCLARFD AT 15066000 
#45073000*% 45080900 15102900 


em REAL |= NAME PARAMETER *= DECLARED AT 01240000 


01240100 


== REAL == VALUE PARAMETER == DECLARED AT 08098700 


08998600 08098450 08101650 08192000 08102050 
"= STREAM VARIABLE 7" DECLARED AT 08737000 
*08742000% 08743000 *08752000%*08753000* 
\e= RralL =" DECLARFO AT 14624100 
14634000 *14645800" 14658000 *14682000*% 14686000 
w= STREAM VARTABLE =" DECLARED AT 14694000 
14492000 
we REAL w= DEC; ARFD AT 45063000 
159074000 15080000) 15982100 *15094000* 15095000 
15101000 15102000 
"es LABEL '" DECLARED AT 22236000 ** gcCCURS aT 
22303000 
we INTEGER =" NECLARED AT 38359000 
38419000 38426000 38429000 38503000 38510000 
"= INTEGER ™=" NMFECLARED aT 38544000 
38581100 - 
m= INTEGER 7" necbaRen aT 38652000 
38752000 38774000 38778000 38782000 38787000 
me INTEGER ==" npFCLAREN AT 41002000 
#44038000%444487000% 44190700 44242000 
DRESS == DEFINE == DECLARED AT 02697740 
14203000 
EAV we DEFINE w= DECLARED AT 000147200 
02716000 14364300 16853000 22303000 


em LABEL 7" DECLARED AT 14166100 =" OCCURS AT 14203020 


14186152 


08102700 


14691000 


15096000 


22352000 


38518000 


38799000 


08104550 


15997000 


*38817000% 


38049500 38057000 38053500 3806;,000 


39394000 


98105450 08105600 08106020 


15097500 «15098000 *475099000% 15109000 


CONMEOLAY "= NEFINE "= pECLARFN aT 00416730 

COnFOVFRLAY == SUBROUTINE =" DrcbLARED AT 22254000 
22286000 22371220 22423500 

CONES == REAL = DECLARED AT 06462100 
06462105 *06464009% 06464400 06464800 06465100 06465850 

COMINIT == LABEL == DECLARED AT 00009000 =e OCCURS AT 48022000 
48049500 48111000 

COMJOB == LABEI, =" DECLARED AT 20597700 == OCCURS AT 20605050 
20604750 

COMMA = DEFINE == DECLARED AT 20213000 
20379000 20424000 70430000 20436000 20484050 20567115 20570250 29570520 20573470 
20590650 20590670 20590690 20593850 20780000 

COMMON f= R == pecbaRen at 12501500 


FAL 
12581000 142667750 1267000G 12675500 12676000 49680250 42686500 12706500 «12755500««12756500« 


COMMON == REAL == DFCLARED AT 12801500 
12849500 
COMMON == REAL w= ODFCLARED AT 43002000 
13994000 
COMMON =" REAL == DECLARED AT 49696300 
*19738200*% 19776400 
COMMON "" LABEL 77 DECLARED AT 22063000 =" OCCURS AT 22222000 
22998000 22103000 22201000 22207000 22209700 22213000 
COMMON "" REAL =" NFCLARFD aT 28000400 
«28070600% 
COMMON "© REAL @= neclaRen at 28200400 
28290600 *28294600» 
COMMON w= REAL e= DeCLARED AT 78400400 
#28435800% 58437000 78437800 28438200 278452000 98452400 78453400 28454000 28455600 
COMMON "=" STREAM VARIABLE == OECLARED Al 28438200 
COMMON = REAL == DECLARED AT 28802000 
28857000 278858000 
COMMONV == DEFINE == DECLARED AT 20232000 
COMMUNICATEQD == PROCENURF =" DECLARED aT 18700000 “= FORWARD AT 00478000 
18872000 195269700 
COMMUNICATEt “™" PROCEDURE =" DECLARED aT 18500000 “™* FORWARD AT 00478500 
18599000 19526100 
COMPARE "=" REAL STREAM PROCEDURE 7" DECLARED AT 28421600 
*284293400% 28468700 28476800 
COMPGO ©" REAL =" neclaRFn aT 38366020 
*38444000" 38494000 
COMPGO == REAL = DECLARED AT 38562000 
COMPGO *= REAL == DECLARED AT 38659000 
COMPGH == REAL == DFCLARED AT 41017200 
COMPI =" QOEFINE =" DECLARED AT 202270000 
COMPILE == LABEL = DECLARED AT 20597650 = OCCURS AT 20603750 
20597950 
COMPILEJOg "=" Lapeb == prcbaRED aT 20597700 == OCCURS at 20605000 
20604650 
COMPLAIN == SURROUTINE =" DFCLAREN AT 08115800 
08116100 081174,00 
COMPLFETF = LABEL == NFECLARED AT 18208000 w= OCCURS AT 18345000 
184382410 
COMPLEXSLEEP == DEFINE «= DECLARED AT 01240900 
02958000 94568366 06703700 06360530 06463300 07427630 09635000 12710000 12861500 
14292150 14358386 14378000 14582000 15114700 147906250 17915000 18029000 18032000 
16580400 18840900 19799060 19900670 20582440 28085600 28096800 282742000 28293600 
36007000 37046760 37189250 37227000 37241400 37324000 45435230 


20576600 


28456400 


14193100 
18540200 
28848000 


20579900 


28456600 


14279550 
18559500 
28852100 


COMPLEXSNOO7F == PROCFDURF 2°= NECLARED AT 01240000 


02258000 04568366 06203700 
14279550 44292;50 14358386 
18559500 748580410 48840900 
288521900 36007000 37946800 

COM11 =" PROCEDURF "= fNECLARED AT 
14272000 4147134000 19578000 

COM13 = PROCEDURE #e DECLARED AT 
15106000 19580000 

COmM19 =" PROCEDURE == PECLARED aT 
12665500 19586000 

COM2 "~ PROCEDURE 7 MNECLARED AT 
19305000 19542000 

COM23 == PROCENURE "= NECLARED AT 
07242000 19588000 

COMS = PROCENURF *= NFCLARED AT 
02329000 44353000 19553000 


06360540 
14378100 
19799070 
37189500 
14623000 
15960000 
13000000 
19300000 
07004000 


14343000 


CONFLICT == LABEL = DECLARED AT 05952620 


05976450 
CONFLICT == REAL = DECLARED AT O 


#06090900*% 06091900 6112500 *06113100* 


6068900 


06463300 
14582000 
19900670 
37297000 


07427630 09635000 49710000 42864500 
15114700 147906250 147945000 48029000 
20582440 278085800 278096800 28242000 
37244400 37324000 45135930 


“= FORWARD AT 00475000 


== FORWARD AT 90477000 


=*° FORWARD AT 00483000 


== FORWARD AT 00487000 


CONQUER "" REAL PROCFNURF *°" DECLARED aT 15168000 


15176000 15177000 «15187500 
CONTINUF *" Reak @" neeblaRFo aT 0 
0703920009070393006 07059140 


CONTINUr == LABEL ==) neclAREn AT 
073144290 

CONTINUE wm LABEL |= ODFCLARED AT 
08868000 


CONTINUF @= LABEL = DFCLARED aT 
127714500 142718500 12724500 
CONTINUE = LABEL °™ DECLARED al 
209023200 270037500 20047000 


CONTINU 7" LaREL  "™ DECLARED AT 
20146900 

CONTINUE =" Lapel =" necLaRFn at 
28446000 

CONTINUF == LABEL == PAFCLAREN AT 
44973500 


CONTINUED == DEFINE ew NECLARED AT 19696500 


19696800 19697300 


18790400 
7008200 

07118550 
07299600 
08855000 
12513000 
20020300 


20146600 


28403000 


44207950 


07139520 


CONTINUEING = DEFINE == DFCLARED AT 20018900 


20923200 20037400 20046900 


CONTINVEING ** DEFINE == OECLARED AT 20087800 
CONTINUEING @" DFFINE ©" DECLARED AT 20148000 


20185800 20199400 


CONTINUITYRIT “== PROCFOURE “" NECLARED aT 08171000 


08181000 14047000 48106000 
CONTROL, == Lapel @* pnecblaRepd at 
20604115 20608076 


20597700 


CONTROLCARD == PROCEDURE == DECLARED AT 20597550 == 


09347430 06353450 97449000 
28440200 38732100 


14544400 


16522000 


CONTROLCARDAREAV =" DEFINE "=" DECLARED AT 00017562 


07087000 14533000 18438120 
CONTROLFR 7" LaBEL '= DECLARED aT 
20604050 20604950 20605150 


18520600 
20597700 


28435000 


accuURS 
OCCURS 
oCCURS 
OCCURS 
OccuURS 
OCCURS 
OCCURS 


FORWARD AT 00469000 


OCCURS AT 05976650 


07179205 
AT 07330050 


AT 08860000 
AT 12746000 
AT 20025200 
AT 20151800 
AT 28430600 


AT 44276500 


FORWARD AT 02111600 


OCCURS at 20604300 


FORWARD AT 00427000 
16523000 18438180 48529700 20600760 


"" OCCURS AT 20604150 


12900000 
18032000 
98293800 


20610650 


14193100 
18540200 
28845000 


22212400 


CONVERT ne SeeaM LABrL =" DECLARED AT 08820000 == OccURS AT 08823000 
a4 
CONVERTIME == REAL SUBROUTINE = DECLARED AT 98529000 
08533100 098534000 08537000 08538500 
COOLOFF == SUBROUTINE == DEELARED AT 38370700 
38376000 38391n50 38394300 38397000 38441030 
COOLOFF = SUBROUTINE *= DECLARED AT 38552000 
38559000 38581500 38589000 
COOLOFF °°" SURROUTINE ** DECLARED AT 38665000 
38672000 38691000 384699000 38746000 38751000 38798000 
COPNBIT "7" DEFINE *" pFeLARED aT 06417040 
COPNMEFSS "=" HEFINE "= NECLARED aT 00415000 
38103700 38201700 41191300 
cOPy == Real =" pFcLaRrn aT 08283000 
#082914 460%#08294750% 08295200 08296350 «*08996375* 08298000 
COPY = RFrAL == DECLARFN AT 12503000 
*12676000*41 9680050" 12686500 *12707250* 
COPY = REAL ==" DECLARED AT 12803000 
12849500 *12850000* 
COPY == REAL == ODEC,ARED AT 13004000 
COPYAROW = SUBROUTINE == DECLARED AT 28238800 
28259400 
COPYF =" NEFINE *" DECLARED AT 12516200 
12676000 
COPYF =" OFFINE 7" NECLAREN AT 12815300 
COPYING *" QOEFFINEG ** OFCLARED aT 28009300 
28011810 28084400 
COPYING "=" NEFINE © = NeelLARED at 28209900 
26246700 28258600 282761100 
COPYN #= OEFINE == DECLARED AT 20221500 
20448050 20449400 20461300 20464810 20470000 20475400 20566807 
20569810 20570280 20570290 
COPYO |=" NEFINE =" NECLARED AT 12516350 
COPYO =" nEFINE ™" MECLAREND AT 12815600 
12849500 
CORE ** RFAL =" VALUE PARAMETER *7 DECLARED AT 00019300 
00019100 00019200 
CORE = ReralL =" DECLARED AT 00426000 


20566822 


20567260 


20567600 20569590 


*08859000% 08833000 08838000 08839000 414441200% 20463700 20465300 %20170600%420176405##4420 1 300%44420 16008 


#44902000%*44213500% 

CORE = INTEGER = VALUE PARAMETER "= DECLARED AT 06003000 
06000000 06001000 *06004100* 06040000 06012000 06043900 

CORE == REAL ©= VALUE PARAMETER == ODECLAREO AT 06063000 
06061500 06062000 06065000 

CORE "2 REAL =" DECLARED AT 22235000 


*22267000% 22268000 222773000 22278000 *22284200*% 27284300 22284500 «22286060*" 22286070 


22391000 
COREINDX “* MEFINE “= RECLARED aT 12217500 
12251000 12274000 
COREINDX = DEFINE =e NECLARED AT 12368U00 
12395500 12465000 
COREND = REAL PROCEDURE += DECLARED AT 44441000 == FORWARD AT 08303200 
08303300 44104000 44120000 44128000 44449000 44204300 46000000 
COREPRINT = pROCEDURF == DECLARED AT 415600000 
15604900 16788000 
CORESEARCH *" SUBROUTINE =" DECLARED AT 12884000 
12402500 12429500 


22286110 «22390000 


COREST "" DEFINE "" DECLARFND AT 00416740 
COREV =" nEFINE " nFCLARED AT 20232500 
20594500 

COUNT = REAL |=" VALUF PARAMFTFR "= PpECLARED AT 07268100 
07268000 97268100 07281100 07295010 

COUNT «= REAL = DECLARED AT 17000600 
*17000900* 17001300 

COUNT = REAL 28 DECLARED AT 24042550 
*24044300% 

COUNT = INTEGER = DECLARED AT 242705000 
*24231000% 24213000 24226006 

COUNT =" INTEGER "@" DECLARED AT 37160200 


#37 1865004%37187420%"37195030% 37195200 37195600 
37221200 #3722122044372212404%37235250" 37240050 


37196200 *37201000««37207000" 37209000 #37210250« 37221160 
37240100 «37240300» 


CP =e LABEL == DECLAREN AT 37007000 |= QccuURS AT 37058000 
37008000 37046855 

Cp ese LABEL @= DECLARED AT 38663000 == gCCURS AT 38735000 
38662000 

CP se LABEL = NPECLARFD AT 41005000 "= OCCURS AT 41054000 
41006000 

CPT *" INTEGER *" DFCLARED aT 08528000 


*08534000% 98540000 


CPY =" STREAM VARIABLE <=" NFCLARED aT 08285000 
08291050 
cR "= REAL 7" NECLAREN aT 19694000 
*19739000% 419767760 
CR =e LABrL = DECLARED AT 986641000 == OCCURS AT 38699000 
38662000 
CR we LABEL == DECLARED AT 41005000 = OCCURS AT 41054000 
41906000 
CRD w= STREAM VARIABLE == DECLARED AT 20607040 
20607260 
CREATIONDATE 7" ODFFINF =" DECLARED aT 08101000 
08114350 ' 
CS = LABEL =" DECLARED AT 16357000 "= OCCURS AT 16613000 
16366000 ; 
CS w= LagrlL == pecbLaREn aT 41316500 "= OCCURS AT 41318250 
41318810 
CSW ee SWHTCH LABFL == OFCLARED AT 04070000 
04075000 
CT =e LABEL = QECLARED AT 146700500 "= oCCURS AT 16802500 
16704500 146705000 
CTC #= FIELD DECLARED AT 00060120 
02173275 02173294 02287110 04285060 04377600 04634200 04675900 04676000 04676150 04676300 04676500 
04676850 04683000 04683100 04683950 04684050 06046100 06407400 096417500 06421000 06463900 08104600 
09508700 12655500 13128000 44209300 14242019 14282000 148845400 19900440 49900550 20349200 20150400 
20169600 20376033 20289055 20567340 20567360 20567530 20569460 20569890 205841430 270584330 205873920 
20588700 90590020 70594620 20595090 20596947 70597460 70600760 20708000 22264000 77270300 22273000 
22278000 92279000 22284500 22286090 22286419 27286120 22331800 29334200 29335200 22336000 224802000 
24009000 24041000 240437000 24027000 24035400 24035600 24039300 24039400 28049400 78069800 28246000 
28431000 38044000 38048000 38100000 38430500 38492000 382740500 38240500 38248500 38249000 38298500 
38387000 38538000 38581000 38646000 38696000 386819000 39447000 40341400 40347800 42525130 425254350 
44240600 44240695 44242020 44281500 45075590 45248000 48032930 
CTF = FIELD DECLARED AT 00060110 
02019000 02434445 04137120 04300600 04352600 04419400 04671850 04671900 04674000 95976800 06011000 
06090800 06093900 06094100 06109000 06360516 06441010 06463260 07179200 07503500 09508800 12897500 
14242000 14279250 14293000 14354000 14358383 14581700 45601500 16124000 47003100 18037000 48241000 


18273055 
19904350 
20589610 
24049000 
28033800 
28990400 
28958400 
37394700 
38298500 
44493000 
LASFL w= 
16704500 


CU = 


CUED == REAL = 


18540420 
19904450 
20590754 
24025000" 
98034000 
28094800 
28262900 
37429000 
38442900 
44124000 


DECLAREN AT 16700000) w= 


16584400 
20080400 
20594751 
24035700 
28941400 
28995000 
28273000 
38100000 
38538000 
44126000 


18844490 
20119900 
20596654 
24035800 
28942600 
28191200 
28303200 
381905400 
38590000 
44130000 


DECLARED AT 22935000 
DEC|ARED AT 00067040 


we VALUE PARAMETER 


w=" VALUE PARAMFTFR 


42488100 


37408000 


37 388400 


42506000 


NECLARED AT 37388100 


37412000 


19575000 
20440200 
20597460 
249038900 
28044800 
28243090 
28463400 
381458000 
38646000 
44216940 


37413000 


19697400 
29178900 
20601600 
24039100 
28046000 
28216400 
28478400 
38192000 
36819000 
44240640 


OCCURS AT 16787500 


37414000 


ve DECLARED AT 00385500 


"" DFCLAREN aT 37386000 


37388800 


“= oarclaRrp aT 123504000 


“= DFCLARED AT 42804000 


CURBLKCNTR = DEFINE 
310744000 31015000 
CURLOC 2 INTEGER @=- 
*37406000% 37407000 
CURRENT @™* REAL 
003a5000 90385500 
CURRENT ™"* REAL 
37385000 37385500 
CURROW =" REAL 
12505000 
CURROW = REAL 
12805000 


CURROW = REAL, 


e= DFCLARED aT 


13005000 


37389000 


37390000 


#1 2564000 «12628500 ee 1 2633000K% 12633500" 17634000 


19768700 
201495700 
206419400 
24039200 
28059600 
28923009 
28833000 
3820 3400 
41332300 
44940695 


*#37416000" 


37393000 «37398000 


19796000 
20569890 
20783000 
24146000 
28074600 
28223200 
36006500 
38240500 
44333500 
44248000 


*12642000" 419643500 


19900450 
20580340 
22328400 
24223000 
28082200 
28230000 
37046735 
38246500 
42501400 
45122000 


49900560 
20583740 
94010000 
28044850 
28089700 
28232600 
37225800 
38248500 
44113000 
45248000 


CYCLE «= REAL om 


13996000 *13044N00« 143049000 


CUTY = LABEL, == DECLARED AT 16053000 == OCCURS AT 16478000 
CX == STREAM VARIABLE == DECLARED AT 06074100 
06974600 06074700 96974800 «06075100 %406075200 4406075 300 %*06075800 4406075900 «406076100 %406076600% 
CX "= STREAM VARIABLE =" DECLARED AT 06078000 
06978500 06079800 «96980300% 06081500 «06081800%%06082000%*06082800%*06082900" 
cx "= STRraM vaRtaBle = pecblaREN aT 16823100 
168273500 *16823600«*16824100%*16824700* 16824800 
CYc © STREAM VARTABLe == OFCLARED AT 12306500 


12315000 


VALUE PARAMETER == DFCLARED AT 00373000 


00371000 00372000 
CYCLE = REAL © VA) UF PARAMETER == DECLARED AT 00376000 
00374000 00375000 
CYCLE = REAL #7 VA) UE PARAMETER == DECLARED AT 02637000 
02635000 92636000 02641000 
CYCLE ©" STREAM VARITARLE 7" NECLARED AT 02641000 
02651000 
CYcLE =" REAL ©" VALUF PARAMETFR ™* DFCLAREOD aT 37002000 
37000000 37001000 37046178 37046192 37046730 37174200 
CYCWE =" REAL @* VALUF PARAMFETFR 7" nFCLARED aT 37179000 
37177000 37178000 37194000 37195500 372136000 37224200 
CYCLE #»= REAL = VAIUp PARAMETER "= WECLARED aT 37342000 
37337000 37339N00 
CYCLE e= INTEGER "== DECLARED AT 38007000 
CYCLE =" INTEGER "= DECLARED AT 38102700 
38105000 38105800 38113000 38151000 
CYcLE =" INTEGER °" DFCLARED AT 38200700 
38203000 38203809 38213500 «38273500% 38275500 38296750 
CYcLE =" {NTEGER ™" NECLAREN aT 39004100 


*39087500«% 39143000 


37240200 37248500 37260000 


19903700 
20586695 
240;,8000 
26021800 
26090200 
28256400 
37292800 
38249000 
44114000 
48032935 


m= PECLARFD aT 12204500 


*12269000*% 12306000 


m= STREAM VARTARLF =" pFCLAREN at 12306000 


CYcLETOKG 7" REAL 
*#12247000» 
CYCLETOG 
12344500 
CZ ee LABEL == DECLARE 
CZ se LABFL == DECLARED 
05955800 
CO == LABEL == DECLARED 
04070000 04077000 
CO =e LARFL == DECLARFN 
18501600 
CO = LABFL == DECLARED 
CO =e LABFL #= DECLAREN 
Ci = LAREL =" DECLARED 
04070000 
C1 "* STREAM VARIABLE @e 
*06074400*% 06075,00 
C1 =» STREAM VARJABLE) oe 
*06078300*% 06081800 
C1 se» LABEL =" DECLAREN 
08864000 
Ci = LAREL "= DECLARFD 
Ci 7 LABEL == DECLARED 
18701300 
Ci c* LABEL = DECLARED 
C10 ==" LABEL =" DECLARED 
C10 «= LABEL ==" DECLARED 
c10 -- LAREL #= DECLARED 
19541000 
Citi oe LAREL #= DECLARED 
Ci9 © LABEL © DECLARED 
C14 == LAREL == DECLARED 
195414000 
C12 ee" LagpeL =" DECLARED 
C12 w= LABEL ==" DECLARED 
18701400 
Ci2 ee" LABEL =" DFCLARED 
C13) ©= LABEL =" DFCLARFO 
C13 »* LbLAREL =" DECLARED 
C13) =" LABEL =" DECLARED 
19541000 
C14 «== LABEL © DECLARED 
Ci4 w= LAREL == DECLARED 
C14 = LABEL ==" DECLARED 
19511000 
C15 w= LABEL = DECLARED 
18501900 
ciS »* Laneb == DECLARED 
C15 * LARFL *= DECLARED 
Ci6 e= LABEL =" DECLARED 
18501900 18540400 
Ci6 = LABEL == DECLARED 
C16 » LABEL |= DECLARED 
C17 == LABEL = DECLARED 
C17) ©= LABEL ©" DECLAREO 
18701400 
C17 = LAREL ©" DECLARED 


AT 05847800 
AT 05952600 


AT 04069000 
AT 18500600 
AT 18700600 


AT 19506000 
AT 04069000 


OCCURS 
OCCURS 


OCCURS 


OCCURS 


DECLARFD AT 06074100 
06976100 06976600 
DECLARED AT 06079000 


06082900 
AT 08855900 


AT 18500600 
AT 18700600 


AT 19506000 
AT 18500600 
AT 18700600 
AT 19506000 


AT 18500600 
AT 18700600 
AT 19506000 


AT 18500600 
AT 18700600 


AT 19506000 
AT 18500600 
AT 18700600 
AT 19506000 


AT 18500600 
AT 18700600 
AT 19506000 


AT 18500600 


AT 18700600 
AT 19506000 
AT 18500600 


AT 18700600 
AT 19507000 
AT 18500700 
AT 18700700 


AT 19507000 


L dad 


OCCURS 


OCCURS 


OcCURS 


OCCURS 


OCCURS 


OCCURS 


OCCURS 


OCCURS 


OCCURS 


OCCURS 


AT 
AT 


AT 


AT 


AT 


AT 


AT 


AT 


AT 
AT 


AT 


AT 


05975630 
04077000 


16510100 


04078000 


- 08861000 


18710100 


19566000 


19568000 


18760100 


19580000 


19582000 
16530100 


18540100 


18770100 


LABEL 
LABEL 
LABEL 
19512000 
LABEL 
LABEL 
LABEL 
19542000 
LABFL = 
04070000 


oe 


DECLARED 
DECLARED 
DECLARED 


DECLARED 
DECLARED 
DECLARED 


18500700 
18700700 
19507000 


18500700 
18700700 
19507000 


DECLARED 
04079000 


STREAM VARTABLE == 
%06074700% 06075900 
STREAM VARIABLE «<< 
#06079900% 06082400 


LARFL = 
LABrFL = 
LABEL ® 
19541000 
LABEL 
LABEL 
187091400 
LAREL 
LAREL 
LABEL 
18701500 
LAREL 
LABEL 
LABEL 
LABEL 
18791500 
LASEL 
LABEL 
LABEL 
LAREL 
19512000 
LAREL 
LABEL 
LABEL 
195142000 
LABEL 
LABEL 
18701500 
LABEL 
LABEL 
LABEL 
18791500 
LABEL 
LABEL 
LABEL 
LABEL 
19542000 
LABEL 
LABEL 
LABEL 
19512000 
LABEL 
LABEL 


DECLARE 
DECLARER 
DECLARED 


AT 64069000 
04087000 
DECLARED AT 
06075800 
DECLARED AT 
06083200 
AT 18500600 
AT 18700600 
AT 19506000 


DECLARED 
DEC. ARED 


DECLARED 
DECLARED 
DECLARED 


18791700 


DECLARED 


DECLARED AT 18701000 


DECLARFN 
DECLARED 


DECLARED 
DECLARED 
DECLARED 
DECLARED 


DECLARED 
DECLARED 
DECLARED 


DECLARE 
DECLARED 


DECLARED 
DECLARED 
DECL.ARFD 


DECLARED 
DECLARED 
DECLARED 
DECLAREN 


DECLARED 
DECLARED 
DECLARED 


DECLARED 
DECLARED 


AT 


18560700 
18700700 


19507000 
18500700 
18700700 


19507000 


18500700 
18700700 


19507000 
18500709 
18700700 
19507000 


18500700 
18700700 
19507000 


18500700 
18700700 


19507000 
18500700 
18700700 


19507000 
18500800 
18700800 
19507000 


18500800 
18700809 
49507000 


18500800 
18700800 


e- OccURS aT 19584300 


e* OCCURS AT 19586000 


== OCCURS AT 04097000 


06074100 


06078100 


z= oOoCccURS AT 195437000 


== OCCURS AT 18780100 


v= OcCURS AT 18790100 


“= OCCURS AT 18790600 


e~ OCCURS AT 18800100 


e= OCCURS 
e= OCCURS 
e= OCCURS 
== O¢ccURS 
ee OCCURS 
ee OCCURS 


AT 


AT 


AT 


AT 


AT 


AT 


AT 


19588000 


19590000 


18610100 


18820100 


19602000 


19639000 


18630000 


18701500 
LAREL 
LABFL = 
04070000 
LABFL = 
LABFL « 
18701300 
LABEL = 
LABEL 
18850200 
LABEL 
18502000 
LABEL 
LABEL 
LABEL 
18555400 
LABEL 
18555300 
LABEL 
18502100 
LABEL 
LAREL 
LABEL 
18502100 
LAREL 
LABEL 
LABEL 
18502100 
LABEL 
LABEL 
LABEL 
LABEL 
LABEL 
19543000 
LABEL 
LABEL 
LABEL 
19513000 
LABEL 
LABEL 
LABEL 
19543000 
LABEL 
LABEL 
LABEL 
19513000 
LABEL 
LABEL 
18701600 
LABEL 
LABEL 
LABEL 
18701600 
LAREL 
LABEL «@ 
04070000 
LABFL = 


om 


DECLARED AT 19508000 
DECLARFN AT 04069000 


DECLAREN AT 18500600 
DECLAREN AT 18700600 


DECLARED 


AT 19506000 


DECLARED AT 18701000 


DECLARED 


AT 


18500800 


DECLARED AT 187060800 
DECLARED AT 19508000 


DECLARED AT 
18555900 
DECLARED AT 18501000 


18556500 48556800 


DECLARED 


DECLARFDN 
DECLARFD 
DECLARED 


NECLAREN 
DECLARFD 
DECLARED 


DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLAREN 


DECLARED 
DECLARED 
DECLARE 


DECLARED 
DECLARED 
DECLARFD 


DECLARED 
DECLARED 
DECLARED 


DECLARED 
DECLARFD 


DECLARED 
DECLARED 
DECLARED 


DECLARED 


AT 


AT 


18501000 


18500800 


18700600 
19508000 
18500800 


18700800 


19508000 
18500900 


18700900 
19508000 
18500900 
18700900 
19508000 


18500900 
18700900 
19508000 


18500900 
18700900 
19508000 


18500900 
18700900 
19508000 


18500900 
18700900 


19508000 
18500900 
18700900 


19508000 


DECLARED AT 04069000 


DECLAREN AT 18500600 


ae 


OCCURS AT 04080000 


OCCURS AT 18720100 


OCCURS AT 18720200 


OcCURS AT 18550100 


OCCURS AT 18557100 


OCCURS AT 18557200 


OCCURS aT 18559000 


OCCURS 


OccURS 


OCCURS 


OCCURS 


OccURS 


OCCURS 


OCCURS 


AT 


AT 


AT 


AT 


AT 


AT 


AT 


18560000 


18570000 


19680200 


19681000 


19683000 


19685010 


16840000 


OCCURS AT 18850000 


OCCURS AT 040861000 


OCCURS AT 18520100 


c4 
c4 

C40 
cay 
cap 
C43 
Cha 
c45 


C45 
CAa6 


C47 
C47 


C48 
C48 


c49 


cag 
cag 
C5 


C5 
C5 
C5 


C6 


Cé 
C6 


C6 
C7 
C7 
c7 


c7 
c8 
C8 


oo” 


A «= 


18501800 
LARFL = 
LABFL = 
LAREL 
19543000 
LAREL 
19513000 
LABEL 
19513010 
LABEL 
19543040 
LABEL 
19543010 
LABEL 
18502200 
LABEL 
LAREL 
195130410 
LABEL 
LABEL 
187043700 
LABEL 
LABEL 
18704700 
LABEL 
18502200 
LABEL 
LABEL 
LABEL «= 
04070000 
LABEL -» 
LABEL = 
LABEL «@ 
195141000 
LaBeL «= 
04070000 
LABEL » 
LABFL * 
18701300 
LABEL = 
LABEL « 
04070000 
LABEL = 
LABFL = 
18701300 
LARFL = 
LASFL «= 
LABFL @ 
18701300 
LABFL = 
LABEL # 
LABEL = 
LABEL = 
19541000 


00379600 


- 


-~ 
Lad 
- 


DECLAREN AT 18700600 
DECLAREN AT 19506000 


DECLARED aT 19508000 


DECLARFD AT 19508000 


DECLARED 
DECLARED 
DFCLAREN 
DECLARFD 


DECLARE 
DECLARFD 


DECLARED 
DECLARED 


DECLARED 
DECLARED 


DECLARFD 


AT 
AT 
AT 
AT 


AT 
AT 


AT 
AT 


AT 
AT 


AT 


DECLARFE AT 


DECLARED AT 18501000 


DECLARED 


040829000 


DECLARED 
DECLARED 
OF CLARFN 


DECLARFN 


DECLAREN 
DECLARED 


DECLARED 
DECLARED 


DECLAREN 
DECLARED 


DECLARFD 
DECLARED 
DECLARFD 


DECLAREN 
DECLAREN 
DECLAREN 
DECLARED 


STREAM VARIABLE == 
REAL = 


AT 
040 
AT 
AT 
AT 


AT 


19508000 
19508000 
195080190 
18500900 


18700900 
195080410 


18500900 
18700900 


18500900 
18700900 


18500900 
18700900 


04069000 
92000 

16500600 
18700600 
19506000 


04069000 


18500600 
18700600 


19506000 
04069000 


18500600 
18700600 


19506000 
18500600 
16700600 


19506000 
18500600 
18700600 
19506000 


zm 


OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 


OCCURS 


OcCURS 


OCCURS 


OCCURS 


OCCURS 


AT 


AT 


AT 


AT 


19685340 
19685550 
19685560 
19685570 
19685595 
18580000 


196865596 


18860000 


18870100 


18590000 


OCCURS AT 04095000 


OCCURS 


OCCURS 


occURS 


occURS 


occURS 


OCCURS 


AT 


AT 


AT 


AT 


AT 


19553000 
04083000 


18730100 


040868000 


18740100 


18750100 


OCCURS AT 19560000 


DECLARED AT 00042000 
VALUE PARAMETER = DECLARED AT 00379700 


ooo o oococo”797o oO o ooo V,v000 070 0°09 o oc o0Jo ooo oo 


o 9 9. 98s 


oe 
Lad 
we 


INTEGER eo 
REAL == 
00452600 00452700 
STREAM VARIABLE «= 
STREAM VARIABLE == 
REAL = 
02052700 
STREAM VARIABLE <= 
STREAM VARIABLF = 
STREAM VARIABLE == 
REAL = 


VALUE PARAMETER 
VALUF PARAMFTFR em 


NECLARED 
DECLARED 


NAME PARAMETER ow 


DECLARED 
DECLARED 
DECLARED 


DECLARFD AT 02382000 


“= DECLARED AT 00432000 
DECLARED AT 00452800 


AT 00652000 
AT 00657000 
DECLARED AT 02052800 


AT 02276400 
AT 02281000 
AT 02347350 


#023870004#023899000e%«02390000" 02394000 


REAL °o* 
#02434520" 
STREAM VARIABLE 7 
STREAM VARIABLE == 
STREAM VARTABLE Pr 
STREAM VARIABLE =<» 
STREAM VARIABLE #=# 
STREAM VARIABLE = 
STREAM VARIABLE == 
STREAM VARIABLE *= 
STREAM VARIABLE == 
STREAM VARIABLE “== 
LABFL = DECLARED 
058424190 05843300 
INTEGER == 


{NTEGER == 
05952230 05953000 
STREAM VARIABLE == 
STREAM VARTABLE «= 
STREAM VARIABLE = 
STREAM VARIABLE == 
tNTEGER «= 


DECLARED AT 02434120 


NE CLARED 
DECLARED 
NECLARED 
DECLARED 
DECLARED 
DECLARED 
NECLARED 
DECLARED 
NECLAREN 
DECLARED 


AT 05844650 -- 


95843500 


05958600 
DECLARED 
NECLARED 
DECLARED 
NECLAREN 


AT 94105300 
AT 04280400 
AT 04285000 
AT 04568550 
AT 94588320 
AT 04588460 
AT 04655000 | 
AT 04679050 
AT 04680350 
AT 04681450 
OCCURS AT 058449200 


DECLARED AT 95847700 
05848255 *05549490e805849500*% 05850410 
DECLARED AT 959514800 


05850;30 05851220 
*05961000* 05961200 
AT 95953000 
AT 05958600 
AT 06013000 
AT 96022300 


05961600 *05968900« 05971200 


DECLARED AT 06069100 


06088900 06101000 *06109200* 06109300 06140500 06443400 
REAL =" DECLARED AT 07006460 

#07409000e 07139500 07139542 07167000 07171000 
STREAM VARIABLE 9% DECLARED AT 07139519 
STREAM VARIABLE = DECLARED AT 97956600 
REAL = DECLARFN AT 07355200 
€07371200" 07371800 07371900 07374200 
REAL ** DECLARFD AT 05099500 

08104900 08105250 98106040 08106350 08142200 
STREAM VARTABLE ** DECLARED AT 08106350 

08106450 

STREAM VARIABLE *= DECLARED AT 98112200 

08112650 
REAL ARRAY |=" HFCLAREN AT 08255600 
#98967500% 08268950 08769100 08269200 08269300 08269400 08969530 


08270450 
REAL °* 


08270600 


DECLARED AT 08318000 


08325000 *08327000*% 08330000 *08332000* 08332200 


INTEGER = 

*08370000% 08371000 

STREAM VARIABLE == 
08372000 


NECLARED 


DECLARED AT 08344000 


AT 08371000 


05971600 


05971800 


08269600 £08269800% 08270000 


05972000 


08279200 


oO oo 9 o oo0ocV8M 900 Go t=] Oo o oS uOoIUSF ooo0co0co o o oo of 


o oogos 


"= DECLARED aT 08377000 


REA 
#08381100% 086385300 


STREAM VARTABLF 
STREAM VARIABLE 
08571900 
STREAM VARIABLE 
08444000 
STREAM VARIABLE 
08690300 
STRFAM VARIABLE 
STREAM VARTABLE 
STREAM VARIABLE 
STREAM VARTABLE 
STREAM VARIABLE 
STREAM VARIABLE 
REAL == 


W141R60008 14186010 


14734000 
sTReaM vaRTaBbr 
STREAM VARIABLE 
STREAM VARIABLE 
STREAM VARIABLE 

14742000 
STREAM VARIABLE 

15417000 
STREAM VARIABLE 


14279000 


Ladle 


*15430000*% 15431000 


STREAM VARIABLE 


*#15438080% 15438090 


REAL °° 

15602600 
STREAM VARIABLE 
STReaM VaR anbe 
STREAM VARTABLE 
STREAM VARIABLE 
STREAM VARIABLE 
STREAM VARIABLE 
STREAM VARIABLE 
STREAM VARIABLE 
LABEL © 

18701200 
REAL ARRAY °7" 


15602640 


halal 


DECLARED 


¥19761000% 19764000 


STREAM VARIABLE 
20427600 
STREAM VARIABLF. 

REA|, = 


SWITCH LABEL == 
20450000 

STREAM VARIABLE 
STREAM VARIABLE 

STREAM VARIABLE 
STREAM VARJABLE 
20596000 

STREAM VARIABLE 
*20600460» 


NECLAREN 
NECLARED 


DECLARED 
DECLARED 


DECLARED 
DFCLARFDO 
DECLARED 
DECLARED 
DECLARED 
DECLARED 


DECLARED AT 14158000 


14186020 
14299000 
npebLaRen 
DECLARED 
DECLARED 
DECLARED 


DECLARED 


DECLARED 
15436000 
DECLARED 
15438130 


DECLARED AT 15600300 
*#15604250% 15604600 


NFCLAREN 
nr cblaRen 
NECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLAREN 


19766000 
necLaRen 


DECLARED 


NAME PARAMETER == 
20382010 #20382660# 


DECLARED AT 


DECLARED 
DECLARED 
DECLARED 
DECLARFN 


NECLAREN 


08473000 
08571800 


08605000 
98690100 


08718000 
09535100 
12468000 
12473910 
12823000 
12851000 


14187000 


AT 
AT 
AT 
AT 
AT 
AT 


AT 


AT 


AT 


AT 18701000 


14431530 
145707100 
14645800 
14711000 


15404000 
15427000 
15438060 


15602600 
15602640 
15604950 
15615000 
16088900 
16592000 
16828700 
16854800 


14203400 


14203500 


== OcCURS aT 18710700 


NECLARED AT 19692000 


19766100 


AT 
AT 


DECLARED AT 20382015 


20127300 
20172100 


20394000 


20511666 
20571702 
20592400 
20595950 


20600400 


19766200 


19766300 


14206310 


19766400 


14208000 


19766500 


14212200 


14225000 


14230000 


ooo 0 920 000 °F oo So oOo oO 


ooocc oo 


o couco9g oo So oo°o ~~ oS 


STREAM VARTABLE = DECLARED 
«20607480 

STREAM VARIABLE == DECLARED 
STREAM VARIABLE == DECLARED 
28276800 

STREAM VARIABLE ** DECLARED 
28798000 

STREAM VARIABLE “" DECLAREN 

REAL *° VALUF PARAMETER & 
32000000 

STREAM VARIABLE = NECLARFD 

pai acoder tat resol ae 

STREAM VARIABLE NECLARED 
STREAM VARIABLE == DECLARED 
STREAM VARIABLE = DECLARED 

STREAM VARIABLE == DECLARED 
STREAM VARIABLE ©" DECLARED 
STREAM VARIABLE "= NECLARED 

STREAM VARIABLE "= DECLARED 
STREAM VARIABLE “™" DECLARED 

ReaL *" ValUF PARAMFTFR == 
37357300 37357400 


tNTFaER =" DECLARED AT 37388000 


373881400 *37390000" 37391000 


STREAM VARIABLE -= DECLARED 
STREAM VARIABLE = DECLARED 
STREAM VARIABLE ww DECLARED 


REAL *" DECLARED AT 38362000 


38422000 38456000 38464000 


AT 


AT 
AT 


AT 


AT 


DECLAREN aT 32000100 


AT 


DE CLAREN aT 37357500 


20607060 


22069060 
28976600 


28297800 
28831000 


370461992 


37046520 
37240700 
37256000 
37284120 
37295000 
37314200 
37344000 
37353000 


37398000 
STREAM VARIABLE == DECLARED AT 38104300 


AT 
AT 
AT 


38902300 
38249500 
38271500 


STREAM VARIABLE "" NECLAREN AT 38422900 


38423000 


RFAL =" DECLARED AT 38547000 


38587000 *38608,00*% 38608200 


*38626300« 


REAL ** DECLARED AT 38655000 


38683000 38711000 38762000 
STREAM VARIABLE DECLARED 
STREAM VARIABLE =" DECLARED 

38712000 
STREAM VARIABLE =" DECLARED 
STREAM VARTABLF "= NFCLAREN 
STReaM VARIABLE e= NFCLARED 
STREAM VARIABLE == DECLARED 

39997200 


38608400 

STREAM VARIABLE == DECLARED AT 38587000 
STREAM VARIABLE == DECLARED AT 38608500 
STREAM VARIABLE == DECLARED AT 38626000 


38807000 


AT 
AT 


36683000 
38711000 


38762000 
38807000 
39086000 
39997400 


REAL ARRAY #= MECLARED AT 39902000 


39905000 £39933000 4439938000 %*«3994H0004%%39946000" 39948000 


STREAM VARIARLE "= DECLARED AT 39905000 


39997000 


REAL ** DECLARED aT 40005210 


40100700 40100900 46101250 


40261300 *40290400*% 40297050 


STReaM VARIABLE =" nFCLARFn aT 40261300 


REAL == DECLARED AT 41903000 


41946000 *44047500% 414191000 


D ee STREAM VARTABLE == DECLARED AT 41046000 
D == STREAM VARIABLE == DECLARED AT 41324800 
D ee STREAM VARTABLE = DECLARED AT 414333010 
D = STREAM VARIABLE = DFCLARED AT 41500900 
41591500 
D ** STREAM VARIABLE *" DECLARED AT 41603100 
41603400 41603500 
D 9" STREAM VARIABLE ==" DECLARED AT 41606200 
Oo ™" STREAM VARI aBle "= pFcbaREn aT 44093000 
*44095000% 44098000 
D o*™™ STREAM VARIABLF == NFCLARFN AT 441444000 
D *= STREAM VARTABLE == DOFCLAREn AT 44240500 
44940540 
D = STREAM VARIABLE = DECLARED AT 44974500 
D = STREAM VARIABLE == DECLARED AT 451455000 
DA se STREAM VARIABLE == DECLARED AT 04325800 
04326400 094329800 04330600 *04332200« 
DA 7" REAL "7 DECLAREN AT 28002400 
*28062000% 28062200 «28068400 28093600 28099000 
DA f= Real c= pnecblaRep aT 28202800 
78946800 *28253000% 26254000 282765200 2629708;9 278770842 *28270830« 28272800 
28282600 28283900 78285800 *28307710* 28307715 
DA == REAL © DECLARED AT 28401000 
#28466800%498467000«" 28473200 28474600 278476000 
DA == DEFINE ew DEC).ARFD AT 40008140 
40046900 40016940 40016990 40027270 40039000 40047100 40060300 40060305 
40948000 40068400 40078033 40078074 40322400 
DAAT *= STREAM VARIABLE =" DECLARED AT 20305400 
20196900 
DAC ©" DEFINE "= DECLARED AT 40008140 
40047000 40055000 40056000 
DALOC *" REAL ARRAY ©" NECLARED aT 00333000 
06411000 «064210004 «06422000%«06423000% 14117000 14360600 


neriNe = 
06431000 06413000 
DALOCROW = REAL ARRAY 
06412000 06476000 
DALOCROWAREAV == DEFINE 
20127300 
DALOCSIZE =" DEFINE e#* 
20127300 20127600 
REAL =" 
15404000 
DATAAREAV @™™ NFEFINE = 
22386100 28457600 
DATACOM == LABFL == 
04358600 
DATACOM == LABEL == 
22966000 
DATADDRESS *" DEFINE = 
14202000 14292100 
DATAOLAY "= DEFINE = 
DATAV #* HEFINF = 
20597000 
Real os 
02385000 
08333000 


nalLOcMaxSZ <== 


DATA °° 


DATE °%* 
02641000 
08371000 


necbaRen pT 06408300 


DECLARED AT 00333000 


06417000 *06417500% 44360700 *20397300*% 24150000 
w= DECLARED AT 00017440 


DECLARED AT 


26457000 


DECLARED aT 15402000 
15424000 «15427000* 15437100 «15438060« 15438150 
NECLAREN aT 00017210 


20087700 


DECLAREN AT 04358000) «=e 


DECLARED AT 22064500) = 


OCCURS aT 04410200 


OCCURS AT 22919000 


DECLARED AT 02697730 


22331400 


DECLARED aT 00416750 


05953000 
08383000 


DECLARED aT 00111000 
05953085 *061884;00*" 06202400 


NECLARED AT 20226500 


08385400 


08442200 


06241200 
12699500 


06353600 
086572520 


28281550 


40060400 


06463984 


98281600 


40064000 


18740800 *20128000*«20128100* 24210000 


07549000 


12854500 «15622000* 15623000 


2828;800 


40065020 


44160000 


08320000 
16600000 


18455000 48710700 *270387700% 20172600 20289080 20289265 20754000 *29012000*% 22014000 277457000 «22909000 
22910000 28297800 370946492 38943900 382146500 36349000 38974000 44346525 44347780 44370200 44322200 
41334200 43603700 *44246950% 45099740 «45435140% 45735230 

DATE = STREAM VARIABLF =" DECLARED AT 02641000 


02649000 

DATE = STREAM VARIABLE ** DECLARED AT 05953000 
05953010 

DATE ™™ STREAM VARIABLE 7" DECLARED AT 05953085 
05953095 


DATE @™=" STREAM VARIABLE “"™ DECLARED AT 064639864 
DATE == STREAM VARIABLE == DFCLAREN AT 07549000 


07549100 
DATE = STREAM VARIAB).E «= DECLARED AT 08320000 
08321000 
DATE == STREAM VARIABLE “= DECLARED AT 08333000 
08336500 


DATE “= STREAM VARIABLF “" DECLARED AT 08385400 
DATE °" STREAM VARTABLE “" DECLARED AT 98412200 


08412300 

DATE 7" STREAM VARIABLE “™ DECLARED AT 08572520 
08572530 

DATE = STREAM VARTABLF =" DECLARED AT 16600000 
16602000 

DATE em STREAM VARIABLE = DECLARED AT 20172800 
20173000 

DATE = STREAM VARIAByE ©= DECLARED AT 20289080 
20289085 

DATE = STREAM VARIABLE °'" DECLARED AT 20289265 
20289285 

DATE ** STREAM VARIABLE “" DECLARED AT 20754000 
20755000 

DATE 7* STREAM VARTABLF 7" DECLARED AT 38219000 
38219500 

DATF = STREAM VARJABLF “== DECLARED AT 38274000 
38274500 

DATE we STREAM VARTABL.F == DECLARED AT 41316525 
41316530 


DATE "= STREAM VARIABLE 7" DECLARED AT 41317780 

DATE = STREAM VARIABLE “" MFCLARED AT 41603100 
41603300 

DATE *" STREAM VARIABLE “"" DECLARED AT 45092140 
45092150 . 

DATFOUT @" OFFINE ™* nrcblaRFn aT 08342000 
08385000 45075600 

DAY e* Real SUBROUTING = PFCLARED AT 08348400 
08348700 08348800 08330000 08339900 

DAYS = LABEL == DECLARED AT 08318900 == QCCURS AT 08340700 
086332300 

DC == LABEL == DECLARED AT 04125000 "= OCCURS AT 04174000 
04128000 04134800 04134955 

DC =» LAREL ==" DFCLARFD AT 386619000 == OCCURS AT 38818000 


38662000 . 

Oc 7? baneh = pecbhaREn aT 41005000 “= OCCURS aT 41281000 
41006000 

OCBUFRLS = LapFL ==" prebLaRFo aT 14628100 ==" oOccURS AT 14660500 
14632200 


DCIN = LABEL #= DECLARED AT 39006190 = OCCURS AT 392931400 


39008000 

DCINTYPE == DEFINE == DFCLARED AT 00005120 
094633200 442744000 

DCN e#* LABEL = DECLARED AT 36103300 *=* OCCURS AT 38151000 
38151800 

DCN ®*" LaREL ©" DECLARED AT 38201300 ** OCCURS AT 38296750 
38258500 

DCN #* LapelL =" PECLAREN aT 39007000 = O¢cURS aT 39143000 
39092055 39094000 39255000 

p0cO == Lagrh == DECLAREN AT 39049000 == O¢cURS at 39235000 
39050000 

OCQPTSTOPPEND == DEFINE == DECLARED AT 00081650 

OCQUEVEAREAV == DEFINE = DECLARED AT 00047430 

DCWAITING w= DEFINE == DECLARED AT 00081640 


DCWRITER == LABEL == DECLARED AT 14628000 <= OCCURS AT 14660500 


144632200 
DC19 *= LABEL °° DECLARED AT 38193300 -= gcCURS AT 38152250 
38111000 : 
Dci9 = LABEL "= DFELARED AT 390068090 == QcCURS aT 39236000 
39092045 
pce19 == Lapel == peebLaRED AT 41004100 == OCCURS aT 41307010 
41906000 
DCY9QUEVEARFAV w= DEFINE = DECLARED AT 00047490 
DD = REAL == DECLARED AT 06185112 
06195095 *06195125* 06195185 
DD =» STREAM VARIARLE 7" DEGLARED AT 06195125 
DD "= NAME "= DECLARFD AT 14162000 
#14192000«% 14193000 14193100 14194000 14195000 14199000 
14225000 14226000 14227100 14227210 14228000 
Dp 7 LarnrL ©" pnrcbaRrn aT 16055000 == o¢cuURS aT 16156000 
16063000 
Don ee ReAL ARRAY == VALUE PARAMETER = OFCLARED AT 08438900 
DDD w= REAL ARRAY = VALUE PARAMETER == ODFCLARED AT 39900000 
39962000 39965000 *39964000« 
DDD == REAL ARRAY == VALUE PARAMETER == DECLARED AT 40003000 
40000000 40004000 40008340 40280000 #40281;00*% 40283100 
*402850204%402851354440785160% 49285600 402R7000 40290200 
40322440 £40322442 4440322800 44032410 9%n40327000m 40356800 
DDN =" Real ARRAY == NFCLARFEN aT 41600400 


14203600 14206140 14213000 14223000 144224000 


¥40283200 %#40283300%440285000% 40285005 40285040 
40292212 47293010 £40311100%4«40317800e4 403271100" 


#41602900 m4 1603700 m4 4 160 3806 ee 4 1603900 m4 4 1604000 md 1604 100444 1604200 844 1604 300 He 4 160440084 {604500 e«4 1604600" 
#41604700 m4 1604800 eH 4 1604900 me4 1605000 a4 1605100 m4 1605200 4 1605300 44 4605400444 1605500484 1605600 4441605800 


*41605900%#41606000% 41606200 41607300 
DOD ee" REAL ARRAY ©" NMECLARED AT 44017000 
*44202500« 
DDD w= REAL ARRAY = DECLARED AT 442071450 
44909200 442709300 44209400 44209500 44243500 4424000 


\ 


44214100 44216900 44216910 44216940 44246950 


M4240500 44242000 44243250 44243750 44245000 *44245500% 44250500 44253000 44255500 #44256200« 44256500 


44262000 44265000 
DDD =" Real aRRaY *" necbLaAREN at 45002700 


45092220 45092230 45992240 45092250 45092260 «45092270 «%45092310 4445092320 4445092330" 


DECK = LaRBEL "" DFeLAPFED AT 09701000 =" OCCURS AT 09718000 
09707000 
DECKREMOVER. =" PROCEDURE °" DECLARED AT 07354000 
16539000 
DECLARECCVARTABLES = DEFINE == DECLARED aT 20288000 
20566100 20581000 270584000 20586800 20589800 27059,000 
DECWORD ©= REAL SUBROUTINE *= DECLARED AT 05952705 


20595000 20596A00 20600040 270704500 


05952735 05952740 05954750 05957350 095977600 
DELAYOK =" REAL SUBROUTINE = PECLARED AT 18503000 
18503300 18559500 
DELINK "" SUBROUTINE "=" DECLARED AT 20020500 
20022500 20046600 
DELINK "* SUBROUTINE =" NECLARED AT 20088400 
(20090400 20130000 
DFLINKI, @** LaReL &" neclaRFn at 02058000 == oOccuRS at 02097400 
02082000 
DELINKIT == SUBROUTINE «= DECLARED AT 14351300 
14358395 144358397 
DELTA == DEFINE == pECLAREN AT 00067080 
24035500 74038R00 
DEND == ODFFINE == DFCLARED AT 05780700 
05845500 05850300 5850400 95850500 05850600 05854700 05851800 05962000 
05962800 060872700 96987300 06089300 06097100 06097200 06097300 06099500 
06411800 40322440 40324102 
DESc = ReraAb =" DFCLARFD AT 22231000 
*222967000% 72269000 92270000 99770050 222703090 992970200 92972000 29977000 
22286080 22786090 22286110 27286420 *22397200« 92397600 223298000 97378400 
DESC == RFAL ARRAY = PFCLARED AT 42484000 
-#42490000% 42493000 42497000 42498000 42500000 429504050 42501200 42501300 
DEST “= STREAM VaRTABLE "=" DECLARED AT 07003640 
*07003760" 07003880 
DESTIN = REAL == ODFCLARFD AT 28002200 
28070200 278070600 278070800 27807;4000 28072800 78073200 278097800 
DESTIN =" REAL =" DFCLARED AT 246202600 
282542700 28270814 28780800 28283000 28304600 
DESTIN ™" REAL “" DFCLARED AT 28401000 
28436400 28444400 78444200 *284546004%28456000" 
DETACHINT °" SUBROUTINE ™" PNFECLAREN AT 19901900 
19992500 19902800 19903400 
DETACHL = LABEL == DECLARED AT 19901600 == OCCURS AT 19903400 
19901700 
DETAIT,RECORDENTRY |= SURRQUTINE | DECLARED AT 94977800 
04282200 04296000 04305600 04315000 04334400 
DETAILRECORDENTRY ==" SURROUTINE == DECLARED AT 04365000 
04370209 94377000 04382000 04387000 04393400 04395800 04405400 04416600 
DEVIATION =" REAL 7" OFCLARED aT 12352500 
*12444000*" 12444500 
DEX © Real s* NAMF PARAMFTFR =f" NECLARED AT 20386000 
20384000 20401000 *20406000* 20440000 *20491000* 
DIDGETESPOISK == REAL == DECLARED AT 20566330 
20566340 #70566687 %49056941,0*% 20572210 *205761425* 
DIE = LABEL == DECLARED AT 22062000 = OCCURS AT 22124000 
22134000 
DIFFCQM == LABEL = DFCLARED AT 00089200 == OCCURS AT 48144000 
02329000 195264300 19576200 14954290n 19553000 19566000 19578000 49580000 
19685560 19685595 19685596 
DIMENSIONS =" FIELD =" nFclaREn at 00061050 
42501900 
DrR #* RralL oo vALUF PARAMETFR © DECLARFN AT 01250200 
01250100 04250700 03258400 
DIR ©" REAL ARRAY #= DFCLARED aT 06069300 
06999100 06092500 16997700 06093000 06093100 06093200 06093300 06093400 
DIR = LABEL = ODECLARFD AT 09701000 = OCCURS AT 09715000 
09704000 


05962200 05962400 
06100100 06110900 


22279000 *92286060" 92286075 


22329000 


42501400 42501650 


04421400 


19586000 19588000 


06093700 *06107200 


05962600 
06111000 


42501900 


19682000 


DIRADDR 
DIRDSK 
DIREC 
DIREC 
DIRFC 
DIREC 
DIREC 


DIRECT 
DIRECT 
DIRECT 


DIRECT 
DIRECT 


DIRECT 
DIRECT 
DIRECT 
DIRECT 


OrRECT 
DIRECT 


DIRECT 
DIRECTO 


DIRECTO 


OrRECTO 
DIRECTO 


OrREcTOo 


7° STREAM VARTABLE = VALUE PARAMETE 
28441600 
"= REAL == DECLARED AT 900400500 
04195510 38078000 44240500 
e7 NEFINE =" NMECLARED aT 15071000 
15080000 
=" UNTEGFR 7" PDFCLAREM AT 38004000 
38936000 38064600 38975500 38097000 
== oNTearR @* nreclaRFn aT 38102400 
38196600 *38422500*% 38125000 38430000 
o= INTEGER == DECLARED AT 38200400 
38704600 ¥*38241000#* 3824 7500%#38 245500 4% 
-* INTEGER "= DECLARED AT 39003000 
39027000 39032n00 39035000 39036000 
39303000 
er REAL ARRAY =" NAME PARAMFTER && 
20314050 20362000 20363000 20364000 
me REAL ARRAY == NAMr PARAMETER == 
20384100 270397300 
e= REAL ARRAY == DECLARED AT 20566400 
20566902 
m= REAL ARRAY == DECLARED AT 20581000 
e= REAL ARRAY = DEC),ARED AT 20584000 
20584200 
"= REAL ARRAY == DECLARED AT 20586800 
20587100 
"= REAL ARRAY = DECLARED AT 20589800 
20590000 
k= REAL ARRAY * DECLARED AT 20591000 
20591400 
me REAL ARRAY =" DECLARED aT 20595000 
20596300 
ee REAL ARRAY = DECLARED AT 205968006 
em REAL ARRAY w= NECLARED AT 20600010 
20600040 #270601660#*20601720% 20604900 
m= REAL ARRAY = DECLARED AT 20701500 
20706000 
RYBUILDER = PROCFDURE "= DECLARED AT 
44242000 44242910 44242020 
RYMASK "= DEFINE |" PECLAREN AT 00081 
06103500 06116000 06463992 07562000 
146138000 48023000 48033000 48273000 
RYSFARC == REAL ©= DECLARED AT 004302 
05976800 1468716500 20578495 20593950 
RYSEARCH ee REAL PROCEDURE w= DECLARE 
00430225 05953800 05975750 05977900 
074147500 07449,;00 08259295 08273750 
09680800 09681545 09681650 12562000 
16810000 16815500 *£18467000« 18525700 
20289340 20511306 20541350 20544620 
20577806 370578500 76578400 70585360 
20765000 92069030 278044830 28013400 
28281600 28287000 278296400 28307725 
37292800 38034900 38509000 38545000 
64245000 44250500 45092110 45093000 
RYTOR, == OFFINF == DECLARFD AT 000819 
06103500 07562000 08268000 44560000 


R w= DECLARED AT 28411200 


38137000 38444500 38442000 *381450008« 38149000" 


382461000 


39037000 39038000 39039000 «39089000 «% 39237000 **39241000%% 392932008 


DECLARED AT 20314300 
29365000 
NECLARED AT 20386100 


20605100 


40000000 


976 

07568000 08259575 08268000 08270650 14560000 
18425200 18425400 148466009 20760000 20769200 
25 

20594650 278283600 

D AT 18155000 = FORWARD AT 00478000 * 
06353530 06463200 06463979 07256000 07303000 
08296600 08296800 08568700 08570880 09633000 
12590000 127630000 142632000 44372000 14585300 
18526800 18553400 19575000 19698000 19799000 
20574850 205749340 20575650 20576916 20576300 
29587200 970588250 90589000 90594950 70592300 
280;3600 28087400 278093600 378099000 28265200 
28415400 28417000 28439000 28419600 28446300 
38578500 38608200 40353200 44347800 43320400 


74 
14588100 18033000 48273000 16425400 


14569000 
20771020 


07333000 
09634100 
16807500 
20045600 
20577675 
20606865 
28266400 
26884000 
41602200 


14588100 
40336000 


07410100 
09642000 
16809000 
20289146 
20577845 
90734000 
28270846 
28889000 
44243750 


DIRECTORYTOP == REAL == DECLARED AT 00418050 


DrRMONH 
DIRSRW 


05959000 05967700 06991600 070048290 07314700 07327000 07547100 07571000 08384000 
08438430 08571200 085715090 08597810 08597830 08630000 08673000 08832000 08834000 
14601000 15504300 18232000 18233000 18234000 28466800 39960000 39968000 40275300 
*44083100% 44086400 44202700 44202900 44209100 44243000 45437000 

m= DEFINE = DPFCLARED AT 00419150 

40262500 40347900 

== REAL SUBROUTINE == DECLARED AT 06463000 

06463810 06463820 6463860 


DIRTOPAREAV = DEFINE == DECLARED AT 00017350 


DSc 


DISC 
DISC 


"= REAL -= DEC),ARED AT 04958800 

04280000 04283700 £042784200* 04286600 04305400 04375400 04346800 
we REAL =" DECLARED AT 04356200 
=e (LABEL == DECLARED AT 22064000 -= oCCURS AT 22715000 

22965000 


DISCONDC “" DEFINE "= DECLARED AT 00414100 


DISK 
DISK 
DISK 
D1SK 
O1SK 
DISK 
DISK 
orsk 
DISK 
DISK 
DISK 


DISK 


DISKAn 


m= REAL =" VALUE PARAMFTER =" DECLARED AT 00019300 
00019100 00019200 
em LABEL &* DECLARED AT 04357800 “= OCCURS aT 04411600 
04358400 
ee INTEGER =" vALUF PARAMFTFR *= DeCLAREN aT 06003000 
06000000 06001000 *06004190% 06005000 060;3000 06016100 
w= STREAM VARTABLE == DECLARED AT 06013000 
060;4000 
em REAL = VALUE PARAMETER #= DECLARED AT 06063000 
06061500 06062000 06065000 
ve LABEL == DECLARED AT 07244100 == QCCURS aT 07265500 
07256000 07258400 
e= LABEL ©" PECLARED AT 08255700 == OCCURS AT 08276590 
08270700 08273750 08276150 
“= LaARBEL @" porebaRFD AT 09701000 =" OCCURS AT 09711000 
09703000 
ee MEFINE == DECLARED AT 20242000 
20461700 970474000 270567265 70570430 38539000 40078093 
e= LABEL &= DECLARED AT 22061200 == QgCCURS AT 22069560 
22069030 22069150 
me REAL == DECLARED AT 22231000 
422323000 %#22325200% 22325400 22331400 «22333800 22335200 22336000 
ee REAL =" DECLARED aT 41600300 
*41602100% 41602200 41607200 
"= ReaL =" prcbaRFp aT 07408100 
#07448100% 07418200 07418900 


DISKANDR #= REAL = OFCLARED AT 09503000 


*09505500% 909506500 09508500 #09509000* 09509500 09510000 


DISKADDR 2 REAL == DECLARED AT 09602100 
DISKADDR #= INTEGER == DECLARED AT 14159000 


*14186148 4414198700 %*14202000414203000*% 14206000 44212000 


DISKADDRESS =" REAL PROCEDURE == DECLARED AT 37286000 == FORWARD AT 00390000 


DISKAV 


*37298000« 37299000 38975000 38401000 38411500 38453000 38461000 
“= INTEGER "" DECLARED aT 06069200 
#06109500*% 06110300 96114300 


DISKAVATLTABLEMAX 7" nAEFINE =" neclaREn at 00165820 


05849008 44086200 


DySKBOTTOM = REAL == DECLARED AT 00418100 


08568900 144567000 148795000 20389420 400169109 40290000 40993020 40993030 40329150 


DISKCELL == REAL == DECLARED AT 04259800 
DISKCHAIN *= REAL == DFCLARED at 07008900 


18384000 08438410 
12321110 12321160 
44320330 44320350 


403227430 444240580» 


DISKCLOS 


DISKERR 
DISKF ILE 


DISKHFAN 
pr1SK10 


DISKMrSs 
DISKMse 

DISKORAU 
DISKREAD 


07996300 070964 
E == PROCEDURE 
41215000 
v= LABEL 
OPFN °** PROCFNURF 
38101000 392579000 
FRARFAV "™" NEFING 
07097000 18286000 
== PROCFEONURE = 
06050000 06065000 
07444000 07445700 
08946000 13049000 
20494000 20588400 
AGF "™" SUBROUTINE 
04277400 04295800 
"* DFFINE = 
441333090 
XERROR 
04224010 04353000 
we REAL 


ee NECLARED AT 04125000 


PROCEDURE == 


38355000 


occUuRS af 041513090 


28288000 


00 #070796500% Se eas #07479230% 07479250 *07479320% 
DECLARED A 


=m FORWARD AT 00432000 


06254000 
08630000 
14381000 
28237200 


== OFCLARED afl 38000000 
=" pecblaRen aT 00017270 
20028300 28070000 
DFCLARED AT 06000000 
06998400 06244000 
07445300 08384000 
14206000 14292000 
22929000 22331400 


“= orcblaRED aT 04271400 


04305400 


04314820 


necbLaRen at 00416570 


we DECLARED AT 00029000 
*00040000% 00044000 


DECLARED AT 24900000 


242277000 


42479000 


04334200 


DECLARED AT 04256000 


06464800 
08865000 
14383800 
38247500 


07445000 
089145000 
14388000 
38784000 


m= FORWARD AT 00363000 


42535500 


DECLARED AT 40008190 


40321400 


INTEGER PROcFHURF & 


OF CLARFH aT 24101000 


DFCLARED AT 38011000 


22333800 *«24144000*%24156000% 24169000 
“= OCCURS aT 14659000 


16610400 


DECLAREN AT 14627300 


16610600 


== DECLARED AT 40005100 


DISKRTN = PROCENURE == 
14360370 18845300 

DISKRUNNING =" DEFINE 
40027250 40078092 

DISKSFTUP °°" SUBROUTINE 
38046000 38049000 

DISKSPAcE = 
22325200 

DISKSPACE =" LABFL «== 
14637000 

DISKSQUAaSH ow PROCEDURE 
06102900 16610300 

DISKTOP ==" REAL 

DISKTYPE = DEFINE == 
20584650 

DISKWalT == PROCEDURE 
02173210 02173286 
05728180 05844930 
06089900 06091800 
07479250 07257600 
07373800 07448500 
08442050 08259450 
08569940 08570800 
08742140 08745900 
09682640 12321419 
14607000 14609000 
18022000 18047500 
18273040 48276000 
19766300 19768750 
20035700 70035900 
20989325 20 289 360 
290567335 20567345 
20583600 270604740 
28301600 278409800 
28887000 30947000 
38496000 38608000 


DEGLARED AT 06061500 >" 


02173350 
05846360 
06997000 
07264000 
074,8900 
08268950 
08571200 
087 16300 
12321160 
15501300 
18049006 
18461000 
19779000 
20046200 
20989365 
20567350 
20603250 
28437000 
32000500 
39960000 


DECLARED AT 20584300 


022190090 
05850120 
06140300 
07276000 
07435000 
08269 300 
08574500 
08839000 
14411660 
15531100 
1807 1000 
18740900 
19784000 
20050000 
20289510 
20572500 
20704250 
28437800 
38437000 
39968000 


DECLARED AT 06068000 


04740000 
05853425 
96144300 
07282000 
07438900 
08270000 
08597810 
08834000 
14556000 
15548000 
18075500 
19685065 
19785000 
20059300 
29382440 
205762410 
20758000 
28452400 
38439000 
40008 330 


07448000 
08933000 
14392000 
40278000 


FORWARD AY 04121410 


“= FORWARN AT 00365000 


04722000 
05964400 
06380400 
07344200 
07547300 
08975750 
08597830 
09505500 
14563000 
15549000 
18226000 
49707000 
20022000 
20089900 
20514610 
20576768 
22069110 
28453400 
38443000 
40275300 


FORWARD AT 00019100 
04731000 


05967200 
06 380900 
07347000 
07559440 
08976500 
08604100 
09506500 
14592000 
16041110 
18229000 
19711300 
20022200 
20090 100 
29566690 
29581800 
22069440 
28454200 
38452000 
40993719 


05704000 
05975600 
06463880 
07392000 
07564000 
08384000 
08631100 
09508400 
14598400 
16827900 
18240000 
19720000 
20027300 
20121800 
20566820 
20582000 
29907000 
28467000 
38458000 
40341300 


07467000 
08935000 
14398700 
40317210 


05722000 
05977000 
06463988 
07327000 
07566000 
08438410 
08673000 
09640000 
14600500 
17003000 
18245509 
19750000 
20028900 
20125000 
20566830 
20582350 
229 18000 
26842000 
38466000 
403147400 


07476000 
08939000 
14399300 


05724000 
05977550 
07004820 
07330200 
07574000 
08438430 
08690020 
09646000 
14602000 
18015000 
18247500 
19751000 
20030700 
20476054 
90566840 
20583250 
28042140 
28893000 
38474000 
40347600 


07402000 
08942000 
19738000 


05728000 
06086400 
070276400 
07339400 
08405400 
08569900 
08742110 
09680 300 
14603400 
18918000 
19248500 
19754000 
20034500 
20289255 
90567330 
20583350 
28254000 
28882400 
38476000 
40322600 


DySP 


LAY 


1 
DIVIDEBYZERO == 


OK 
OK 


OK 
OK 


DK 
pK 
OK 


DKAD 


R 


40324500 40332000 40334057 40353140 
41320220 41320260 41370330 443270350 
41333600 41334300 41502300 41602600 
44243000 4427460900 44254000 44256300 
45092340 45094700 45137000 
em PROCENURF == DECLARED AT 150190 
8530400 48540,00 
LABEL == DECLARED AT 49514 
42512000 
LABEL = ODFCLARED AT 04125000 "= oO 
04128000 
LABEL = DECLARED AT 07008200 ee og 
07118690 


41318370 44318740 44318820 
41321450 44321500 44324650 
41607300 44037300 44202600 
44261500 44266500 44271500 
00 
000 = OCCURS aT 42550000 


CCURS AT 04167900 


CCURS AT 07119100 


STREAM LABEL == 
STREAM VARTARLE © 


DECLARED AT 08299400 


OCCURS AT 08299800 


08479300 
STREAM VAR 
37241050 
LagrL «= 
38662000 
LABEL == 
41006000 


—— REAL - 
*06464200% 06464600 


DKBUSINESS ** PR 


NKPN 


DKPO 
DKRN 


DKRO 
DKSG 
DKSN 
oKso 
DKUN 
OKUO 
DK4 
DUNK 
DLOO 
DLYX 
DLX 
DMP 
DNE 


Row 


om 


P 


16805000 
LaREL * 
39092050 
LABEL = 
LABEL = 
39008000 
LABEL = 
39050000 
ve REAL 


LaAREL wm 


39008000 
LaBFL * 
39050000 
LABEL = 
39008000 
LABEL = 
39050000 
LABEL == 
39248000 
REAL ARR 


er LABEL 


14279600 
LaRFL == 
20094700 
LABEL «= 
20989600 
LABEL == 
09704500 
LABEL = 
38721000 


}ABLE * 


= DECLARED AT 08478900 


= DECLARED AT 37241 


DECLAREN AT 38661000 "= QO 


DECLARED AT 41005000 e= og 


= DECLARED AT 06462100 


OCEDURE 
19685460 


06464700 


96464800 *06466100% 


030 


CcURS AT 36818000 


CCURS AT 41215000 


“= DECLARED AT 05950000 


= PFeLAREN AT 39007000 == 


= DFECLA 


REN AT 39049000) «- 
- DECLARED AT 39007000 w= 


= DECLARED AT 39049000 o= 


“=~ pEC 


- neela 


LARED AT 06462100 
06462105 *06463996«% 06464600 


NEcLAREND aT 39007000 == 


REN AT 39049000) == 


= DECLARED AT 39007000) w= 


= DECLARED AT 39049000) «= 


DECLARED AT 39055000 == 


39251000 
AY =m 


NECLARED AT 08854000 


*08930000m 08933000 *£08934000*% 086935000 


“= DFCLARFD aT 14166200 =-« 


DFCLARFN AT 20020300) =m 


DEC)ARED AT 270085800) «« 


DEC) ARED AT 09701500 «=- 


DECLARED AT 38663000 == 


OCCURS al 


OCCURS A 
A 


1 
ocCURS AT 


oCCURS AT 


OCCURS aT 
OccURS AT 
OCCURS AT 


OCCURS AT 


39252000 


39252000 
39247000 


39247000 


39256000 
39256000 
39250000 


39249000 


OCCURS AT 39257000 


08939000 *08941000«% 08942000 
OCCURS AT 14278100 


OccURS at 20022300 


OCCURS AT 20090200 


OCCURS AT 09720500 


OCCURS AT 38711000 


41318860 
44322450 
44202700 
45092190 


08947000 


41318940 
41328900 
44202900 
45092210 


41319200 
44330500 
44209100 
45092250 


41319320 
44332400 
44213000 
45092280 


DNE »* LABEL =" DECLARED AT 41007000 


DOCREATOR =" SUBROUTINE 
08113050 08114500 


DODATFORLAST "™" SURROUTINE 


08108850 08114310 
NOTONOW "=" SURROUTING = 
04568250 04568350 
04588560 04594000 
DOTONOW © SUBROUTINE «= 
04673550 04675950 
04683150 04684450 


=" DECLARED AT 08111500 


"=" PFCLARED ar 08107750 

08114360 

DECLARED AT 04556000 

04568440 04568530 04579000 04579200 04587000 04588050 04588070 
94598000 04604000 04631000 04636000 04638700 04657300 04658300 
DECLARFD AT 04671100 

94676050 04676200 04676350 04676550 04676900 04678809 04679650 
04684400 


DOtT = {,ABEL = DECLARED AT 02189000 == OCCURS AT 02275300 


02276500 


DOIT "= SUBROUTINE ** fPECLARED AT 08443000 


08485000 08499900 


DOIT = SUBROUTINE "= NECLARED AT 39930000 


39942000 39963000 


39969000 


pOyTOVEFR = LAREL =" necbaRen at 37007000 


DOLITTLF == PROCEDURE «= 


36010000 37047000 


DECLARED AT 36001000 
37048006 37085000 37400000 37443000 38044600 


DOLP == |,ABEL *= DECLARED AT 09658000 «= QCCURS AT 02075000 


02197000 


DONE = {ABEL *= DECLARED AT 19901600 =" gCCURS AT 19904300 


19903970 


DONE "=" LABEL @" DECLARED AT 37505000 == ocCURS AT 37530100 


37523000 37524000 


DONTWAIT "" Lapel 7 = necbaRrn aT 18208000 == OccURS aT 18260500 


18254000 
DOOPT;ONS = SUBROUTYNE 
08445000 08445400 
DORECS = SUBROUTINE == 
08107650 08114950 


DOSAVEFACTnR == SUBROUTINE 


08113800 08114550 
DOSECURITY =" SUBROUTINE 
08111400 08114450 
DOSIZr "" SURROUTINE == 
08109800 08114400 


v= DECLARED AT 08413900 


DECLARED AT 08306950 
m= DECLARED AT 08113150 
w= DECLARED AT 08109900 


DECLARED AT 08108950 


DOUBLFPRECTSION = ReAL SUBROUTINE ™* NWFECLARED aT 42517010 


42547050 42546000 


42551300 


DOWN we (LABEL == DECLARED AT 14548000 w= gcCURS AT 14558500 


14553000 


DOWN w= LABEL = DECLARED AT 20392000 == OCCURS AT 20510000 


20480000 2705077100 


DOWN "= LABEL @™" DECLARED AT 20597850 == OCCURS AT 20606610 


20603900 20606050 


20606100 20606350 20606800 20609500 


DOWNR =" Lapel =" prcblaRFp aT 20566610 == OccuRS aT 20575900 


20574925 

pP ose bLaprL == pecbaRrn 
16063000 

DRAINO == PROCEDURE «= 
02347460 06328300 

DORM we STREAM LABFL = 


AT 16054000 == OCCURS AT 16137000 


DFCLARED AT 02347200 


DECLARED AT 41333933 == OCCURS AT 41333039 


DROPOUT =» LABEL == DECLARED AT 98300350 == OCCURS AT 08103600 


08103350 


DRUM em LABEL == DECLARED AT 04357800 == QCCURS AT 04411400 


04358400 


04588410 


04679800 


04588450 


04680000 


DRUM 


DRUM 
nS s 


pS = 


OSD -« 
DOSED 
DSFO- 
DSFN) 
DSFD 
DOSED 


DSED 
DSED 


DSED 
OSFOD 


DOSED 
DSED 
DOSED 
DSED 


DSFD 
oSyT 


DS1ZE 

OSIZE 

DSk -« 
OSKaDR 
DSKADR 
DSKCHE 
DSKT0G 
OSM os 


22214000 


OCCURS AT 14583100 


12710500 


28061800 


28249200 


28882000 


37172000 


04300600 


05962800 


28085800 


28958700 


05974400 


“= OccURS At 20484000 


20484550 


"= LABEL © DECLARED AT 22064000 == OCCURS AT 
22065000 
e= INTEGER “" NFECLAREN AT 24206000 
LaRFL =" pFCLARFR aT 04125000 "= OccURS aT 04155000 
04171000 
LABFL == pECcLAREn aT 16054000 == QOccURS aT 16111000 
16062000 
DEFINE «= DEC) AREO AT 36004000 
36007000 36008000 
= LARFI == DEC. ARFD AT 14548000 == 
14559500 14585400 
"= MEFINE *" DECLARED aT 04670750 
044684550 04686000 04687350 
"= nrFINE =" prcblaReED aT 12515500 
12545000 12649900 12699500 12705250 12740000 
"= oneFINe == prcbaRep aT 12814500 
12861500 142878000 42880500 42900000 42904000 
ee NEFINE == DFCLARED AT 43020000 
13108000 
ee DEFINE == DECLARED AT 48007000 
18929000 18034900 
w= PNEFINE == DECLARED AT 18201000 
em DEFINE == OFCLARED AT 19900280 
19900670 
s= NMEFINE |" DFCLARED AT 28007200 
28092200 28036900 28041600 28043000 28046400 
28097200 
w= NEFINE == DECLARED AT 28206600 
28946800 978225500 78730400 978232800 28942000 
28303200 278303600 78307730 
se OEFINE == DECLARED AT 28406600 
28467400 78472800 278476200 
we DEFINE == DFCLARED AT 28807000 
28848000 78849000 278852100 28852200 28863000 
me NEFINE = DECLARED AT 37006000 
37046800 37046810. 37047250 37048100 37121000 
we REAL SUBROUTINE 7" DECLARED AT 37181000 
37185330 37186750 37218000 37227000 37241400 
we Real SUBROUTINE ™" NECLARED AT 39009050 
me obapelL = ngebaRFn aT 04261200 == OccURS at 
04303000 
m= PEFINE == QECLARED AT 05780100 
05845000 95845300 05850600 05851700 05962600 
06101700 06108F00 40322442 
== OFFINE =" NECLARED AT 20318000 
= STREAM VARIABLE == NECLARED AT 41333010 
41333033 
== STREAM VARIABLE °™ DECLARED aT 28831000 
28831500 
S§ ** REAL 7" NECLARED AT 04260400 
04271800 04281400 04285000 «042858008 04325800 
CK == LABEL =" nreLaRFD at 20391000 
20457000 970484900 270482000 20483000 20484050 
ew» OEFINE == DECLARED AT 00436500 
04105510 38078000 
~= LABEL w= DECLARED AT 16053000 == 


16118300 


16206200 


OCCURS AT 161273000 


20484800 


28086200 


28270804 


05974800 


20484870 


28089600 


28285400 


06074000 


28095600 


98293800 


06088200 


28096800 


98995800 


0609 3800 


DSZE == STREAM VARIABLE "=" DECLARED AT 02222200 
02751100 
OT “se REAL *°™ VALUE PARAMETFR ©" DECLARED AT 08070000 
08317000 08319700 08320000 08339500 
OT te bagrlL == pechaRrn aT 16355000 == OceuURS aT 16490000 
16364000 
DT =e REAL == PECLARED AT 20012200 
DT ==» REAL == DECLARED AT 2008;400 
20105350 70105400 
DT * REAL == DECLARED AT 20141800 
20172100 : 
OTOG "= STREAM VARIARLE =" DECLARED AT 20105400 
20106900 
DUMMY ©" LABEL "" DFCLARED AT 08100350 OCCURS AT 08103200 
DUMMY =" LABFL == DeclaRFD AT 38364000 == O¢cyRs AT 38485000 
DUMP = ArEINE == DECLARED AT 20222000 
DUMPADR w= DEFINE © DECLARED AT 00644300 
00656600 


DUMPCORE == PROCEDURE -» DECLARED AT 02434100 e= FORWARD AT 00480400 


02434880 16154000 18870700 

DUMPCRD ©" DEFINE =" NECLARED AT 00644200 
00657000 

DUMPDIR =" DEFINE =" DFCLARED aT 28009800 
28084400 

DUMPDIR "=" DEFINE =" NMECLARED aT 28210600 
28266600 28268800 

DUMPNOW =" DEFINE == nrcLaRED aT 00012160 
18870700 


DUN = STREAM LABFL ©= DECLARED AT 20600425 == OCCURS AT 20600455 


DUN «a» LABEL == DECLARED AT 37780650 eo OCCURS AT 37495500 
37195400 
DV == STREAM VARIABLE «= DECLARED AT 06195195 
#06195150"#06195160%*06195162%e06195170« 
DV os" STREAM VARIABLE 7= DECLARED AT 12319000 
#12312500«%12313500««12315000%%12316000K412317000% 
DV oe" STReaM vaRraBlr -= pecbLaRED aT 12467500 
*12470000% 
DW we STREAM VARIABLE == OFCLARED AT 08333000 
DX = LABEL == DECLARED AT 04125000 = OCCURS AT 04176900 
04152600 
DX, =e LABEL w= DEC)ARFD AT 04425000 == OCCURS AT 04476900 
DY = REAL == DECLARED AT 08344000 
*08360000% 08363000 *08366000**#08369000* 08370000 
DZ e= LABEL == DECLARED AT 05847800 “= OCCURS AT 05853600 
05849460 
D17 -" LABEL == DECLARED AT 04357200 == OCCURS aT 04385800 
04389400 
D19° =" LABEL =" DECLARED AT 04357200 == OCCURS AT 04389400 
04390200 04394400 04400400 04406400 04408000 04413200 
D22 = ba~arho =" nrcbaRrn aT 04357200 == OpcuRs aT 04388200 
044;8600 04423800 
E em REAL #= VALUE PARAMETER == DECLARED AT 00454200 
_ 00454000 00454,;00 
E se REAL == NAME PARAMETER #8 DECLARED AT 02052800 
02052700 
E ove STREAM VARIABLE == DECLARED AT 02347350 
02347390 *07347400% 


04418000 


— 7" REAL °°" DECLARED aT 04126000 
04127000 «041300004404132000« 04135000 04160000 04196200 04227000 
Loe" prclaRen at 04257200 


*04 333800 «#04 3354004404 336600 *404337400% 
E == REAL == DECLARED AT 04353800 
#04373200% 04374500 04379600 04380000 04386000 04387800 *04389400* 04390000 04390800 
04395000 04396800 *04403000% 04404000 04405700 04408800 04410400 0412600 04444400 
04492800 04424000 *04425200*% 04429400 04430000 04430600 
E 7" REAL 7" DECLARED aT 04704000 
*04732000*« 04733000 
—E =" LABEL ** DECLARED AT 05841650 “= OCCURS aT 05844920 
05842500 05843800 
FE 7" REAL &* DECLARFN aT 05847700 
*05849500* 05850110 05851600 «05859700» 
F 7" REAL =" prclaRep aT 05952200 
05952260 05952970 *05961000* 05961200 *05967600* 05967800 05968000 05969000 05971400 
—E o-= REAL *= DECLARED AT 06068300 
*06092400% 06092300 06093000 *06098300* 06098400 06098500 06098700 *06108300*% 06108800 
REAL = DECLARFD AT 06351000 
*06380100%*06380749% 0638015C 06380300 06380550 *06380650%*06380700« 
—E == STREAM LABEL =" DECLARED AT 07360200 == OCCURS AT 07368000 
—E = REAL =" DECLARED AT 08099550 
08104900 08106040 08106350 08111850 
E *" STREAM VARIABLE "= DECLARFN AT 08106350 
—E =" S§TReaM LaREL @" NFCLAREN aT 14421000 =" OccURS aT 14428000 
15416000 
EF = STREAM VARTABLE |= DFCLARFN AT 16828200 -#= OCCURS AT 15412000 
E m= REAL == VALUE PARAMETER w= DECLARED AT 147000400 
17900000 47000500 17003250 
E =» STREAM VARIABLE = DECLARED AT 17003950 
17004250 
E #* REAL = DECLARED AT 20294000 
E 
E 


m 
| 
i] 


*20794800*% 20296200 70799000 
w= REAL °" NAME PARAMETER "= DECLARED AT 20382015 
20382010 *20382660« 
“" STREAM VARIABLE @" DFCLARFA AT 20600170 
20600180 
—E 7° LABFL =" NFCLARFN AT 36003000 "= O¢cuRS aT 36009000 
36005000 36008000 
E w= DEFINE = DECLARED AT 37501000 
37510000 37511000 
E == STREAM VARIABLE = DECLARED AT 38711000 
38714000 
E =" STREAM VARIABLE ** DECLARED AT 38807000 
38810000 #*38810500« 
—E "" STREAM VARIABLE "=" DECLARED AT 41500900 
41501100 
EA oc REAL =" pEcblaREN aT 28403000 
*28435600% 28438000 *28488800« 2846738600 28463800 
EAYN = REAL = DFECLARFD AT 28002600 
EAN #= REAL @=* DECLARED AT 28401200 
*28432400% 28432800 278433200 278444600 *£28459400%u9846 4800 «#2846 38004 
EB =e STREAM VARIABLE == DECLARED AT 07032100 
07036280 
EBCDIC *= REAL == DECLARED AT 07009200 
07031200 *070314008#07039600% 07059010 07060100 07066100 


REA 
#04 304800% 04340400 04341200 04344600 04314000 04347800 *04318400% 04319000 404349600% 04325400 


04392200 
04418600 


06109200 


04332600 


04393200 
04422600 


06109300 


ERCDICCONVERT =" STREAM PROCEDURE "" DFCLARED aT 07003610 
07060100 
EBTABLE "= PROCENURE == NECLAREN AT 07003270 
07003420 07003430 07031500 
EBTABLEADR == REAL == NFCLARED AT 07009200 
*07039700«% 07060500 
ECH = LABEL == DEC)ARED AT 15403000 wa OCCURS AT 15439000 
15448500 915419000 45421000 154272000 15495000 15438020 
ED w= LABEL =" DFCLAREN AT 16356000 == OCCURS AT 16541000 
16345000 
EGGSELECTSTOPPED °= DEFINE == DECLARED al 00081600 
EH "=" INTEGER "" BECLARFD AT 08852500 
*08886300%*08886600% 08887100 
EH o"m STREAM VARIABLE =" NPECLAREN AT 08887100 


08891000 

Et ose LABFL == DECLARFN AT 16700500 =. OCCURS AT 16866400 
16705000 

EL, = LABEL = DECLARED AT 22062000 = gCCURS AT 22086000 
22126000 


EM oe INTEGER *= DECLARED AT 08852500 
*08886600« 08887100 
EM == STREAM VARIABLE == DECLARED aT 08887100 
EMASK =" DEFINE =" NECLARED AT 19901850 
19902130 19902850 19903650 
EMPTY =" SUBROUTINE =" NECLARED AT 38680000 
38735000 38740000 38746000 38758000 38795000 
FN -e STREAM LaRFL == NECLARFD AT 07363000 |= O¢cuRs AT 07365500 
07364000 
ENDAIT =* REAL == DECLARED AT 14354205 
*14356335* 44358340 
ENDECK =" LABEL =" DECLARED AT 20597800 == OCCURS AT 20608110 
20599000 270607750 
ENDF = LABEL "= DECLARED AT 20597800 == ocCURS AT 20608450 
20598000 
ENDFI =" DEFINE =" NECLAREN AT 20226000 
20374300 20596950 20608300 20608749 
ENnIT =" Laprlh == DeclLARED aT 04555000 =. OccuRS aT 04651010 
04648300 
ENDMVE = LABEL == DECLARED AT 06070000 == OCCURS AT 06402100 
06099506 0610;800 
ENDOFDECK = PROCEDURE w= DECLARED AT 07406000 ex FORWARD AT 02177100 
02347450 07372500 07479100 20608870 
ENDOFREEL = REAL SUBROUTINE == DECLARED aT 28032800 
28039600 28040000 28043600 28063400 28076600 
ENDOFREEL =" REAL SUBROUTINE == DECLARED al 28222000 
28228800 28229000 282731000 28303800 
ENTE "" UaBEL "=" DECLARED AT 20566600 == OCCURS AT 20569230 
20566620 
ENTr c= LaBebL =" nreLaRFn AT 20597750 == occurs AT 20606400 
20597950 
ENTERCONTROLDECK == PROCFNURF = DECLARED AT 07541000 == FORWARD AT 07002;00 
07780009 07575000 148596700 48527400 
ENTERFILE == SUBROUTINE == DECLARED AT 05953060 
95953225 059754630 05977150 05977650 
ENTERSYSFILE == PROCEDURE =" DECLARED AT 41600000 “" FORWARD AT 090464000 
07265200 08276560 20587340 22069530 41607700 45099900 45099910 45099990 
ENTERUSFRETLF == pEFINE "= DECLARED AT 02378000 


05953130 08572600 14692000 20289530 28299400 38499000 44318360 41323609 44607200 
F9D == LARFL #* DFCLAREN AT 38664000 = OccURS aT 38804000 
38842000 
EOD we LABEL = DECLARED AT 41007100 
EOF ee" LABEL ©" DECLARED AT 04357400 == OCCURS AT 04449000 
04408600 
EoF ee» LAREL =" DEC) ARFD AT 12533000 == OCCURS AT 19726000 
12714500 12717000 12718500 
EoF «#" LABEL =" DECLARED AT 14627200 == OCCURS AT 14637000 
14631000 
EoF =" LaREL *" DECLARFOD aT 37287000 =" oOccURS aT 37297000 
37290100 37291200 
FOr »" ReralL "= pECLAREN AT 37451000 
«37457000" 37458000 
FOF =" LagrL =" percLARen aT 38363000 -= OccuURS AT 38376000 


38374000 

EOF ee LABEL = DECLARED AT 38548000 == OCCURS AT 38559000 
38557000 

EOF e= LABEL =" DECLARED AT 38663000 == OCCURS AT 38672000 
38670000 


EOF = LABEL =" DECLARED AT 41007000 
EOFIT =" LABEL *" DECLARED AT 38693000 “™= OCCURS AT 38759000 
38773100 
EOFIT *" LABEL *™ DFCLAREND aT 41036000 
EOFPOINTER =" NEFINE @" NECLARFO aT 08101150 
08107100 
FOF2 7 LABEL "= nrrelLARFn AT 37287000 == OCCURS AT 37297500 
37292000 
EOJBIT |= DEFINE == DFCLARFED AT 00417020 
EQJMESS == DEFINE <= PECLARED AT 00406000 
14430400 
EoS * STREAM VARIABLE =" DFCLARED AT 20600390 
#20600450»" 
FOoT -" LaREL =" DECLARED AT 14627200 == OCCURS aT 14640000 
14631000 
EoT ©" Lanelb =" DECILAREN AT 38548000 =" OccURS aT 38623000 
38581600 
FQLTOR *= STREAM VARTARLF =" DECLARED aT 12225500 
*#12230500* 142232500 *12240000% 
EQN we REAL ARRAY == NAME PARAMETFR =e DECLARED AT 20386100 
20384000 *o0403N00%e 20404000 20405000 «2044000044904 740400% 20441000 *20447000%% 204 1 8000%*00494000% 20427000 
20433000 *204358008 270439000 *£20453000 «#20465 1 00%%20478505 #204 78550 *# 20484500 442048475044 90484865 ee 204900008 
EQUAL =" DEFINE =" DECLARED AT 20214000 
20380000 20416000 20484200 20495000 20567045 20567080 20569930 20569960 20570130 270570190 20573400 
20573430 «20577000 = 70590100 20593150 20593200 20605700 20716000 20719000 
EQUATSNG @* HEFINE “= NECLARED aT 20019300 
20048100 
EQUATING "© DEFINE == DECLARED AT 20088200 
EQUATING ee DEFINE we DECLARED AT 20148400 
20387600 
ER ee» STREAM VARIABLE »= DECLARED AT 20511370 
20511400 
ERASE10Q == REAL ™= DECLARED AT 04554000 
*04606000*% 04628000 04632000 
ERR =" LABEL =" DECLARED AT 02434135 "= OCCURS AT 02434760 
02434178 
ERR #* STREAM LABEL ©" DECLARED AT 06082200 "=" OCCURS AT 06083900 


ERR 


FRR 
ERR 


ERR 
ERR 


ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 


ERROR 


ERROR 
ERROR 
ERROR 
ERROR 
ERROR 


FRROR 
ERROR 


ERROR 


ERRORFIXER == 


06082500 
LABEL = 
07372700 
STREAM L 
REAL “- 
*19697400"% 
STREAM L 
LABEL = 
20511313 
7? LABEL 
01255400 
= Real 
02347200 
== LABEL 
07051470 
ae STREAM 
088146000 
#= DEFINE 
09633000 
am LABEL 
12262000 
=" LABEL 
16961000 
162745000 
ee LABEL 
16362000 
e= LABEL 
16703000 
we LABEL 
16934000 
we LABEL 
19701000 
we LABEL 
20396000 
20861900 
7" LAREL 
20511190 
ee LABEL 
20590100 
== REAL 


06083300 
= DECLARFD AT 07355100 = 


ABFL == 
DFCLARER AT 19694000 
*19700000% 49793000 49799000 
ABEL «= 
= DEC; ARED AT 20841165) == 


pechaRen at 16824600 


DECLARED AT 20500200 
OCCURS AT 20511340 


OcCURS AT 07374100 


== OCCURS aT 16825100 


19796000 


19797000 


19799050 


w= OCCURS AT 20501100 


01260500 


07214000 


12292000 


16343600 
16129000 
16263350 
16689200 
96640400 
16902700 
16856300 
16964500 


19787000 
20479000 
20422000 
20478540 
20511366 


20590740 


"= DECLARED AT 01250500 "= OCCURS AT 
01256300 01259100 
"= VALUF PARAMETER =" pECLARED aT 02347210 
02347210 02347260 02347435 02347450 
"= DECLARED AT 07009000 == OCccyuRS AT 
07319300 07120090 
LABEL = DECLARED AT 08814000 a= 
08817000 
== DECLARED AT 09626000 
09634900 
ee DECLARED AT 42214500 = OCCURS AT 
12286500 12288500 
“= DFCLARED AT 16053000 = OCCURS AT 
16083000 16100000 16110000 16119000 
16245000 16257000 16262000 16263200 
"= OFCLARED AT 16354000 == OccURS AT 
16489000 46504000 46576000 46588000 
w= DECLARED AT 46699000 == OCCURS AT 
16785000 146807000 146825400 146825600 
== DFCLARED AT 169144000 == OCCURS AT 
16948000 46948500 16955500 169858630 
m= DECLARED AT 19695000 = OCCURS AT 
"= DFCLARED AT 20389000 = OCCURS AT 
20396010 20409000 20436000 204136500 
20470430 20471000 20476000 20478510 
we MFCLARFD aT 20511165 == OccyRSs AT 
20511303 
\= DECLARED AT 20589720 == OccURS AT 
20590950 20590655 20590675 20590695 


em DECLARED AT 40005110 


40097230 4440057000 ee 40060400 4440064000 aug 0068000% 40078094 


18821900 


ERRORMESSER = 


30931000 


ERRORMS, 7° HEF 


ERROROUT == 


30930000 
04672150 


ERROROQUT -8 LAB 


ERRORS 
ERRORTOG = REAL =~ 


ERRORTOG == 
ERRRBIT 


15113300 
oe LABEL 


PROCEDURE == 


LABFL = 


DECLARED AT 31900000 == 


42551000 


31025000 42524100 42540000 
PROCEDURE °™ DECLARED AT 30903000 
31017220 
INE “= peclbaREp aT 00416050 


NECLARFD aT 04670650 
04672750 04673200 04676;400 
EL we MECLARED aT 15112700 


== DECLARED AT 04125000 «== 


DECLARED AT 12205000 


*122992500% 49307000 
STREAM VARIABLE «= 
12311500 
me DEFINE *" DECLARED aT 00417052 


04676250 


OCCURS AT 04129900 


DECLARED AT 12307000 


FORWARD AT 


48142200 


04676650 


OCCURS AT 08822000 


16149000 


16640800 


29426000 
20484200 


40078092 
00019500 


occuRS AT 04686900 
04677000 
OCCURS AT 15115600 


19799060 
16150100 16163000 16163200 
20432000 20438000 270461320 
20484250 20496000 70503000 
*40292930% 

04678500 04681050 04684350 


16202000 


20461400 
20507400 


a 


ERRTOG 7" STREAM VARIABLE =" DECLARED aT 06077900 


«06083900» 
ERRTOG *" STREAM VARTARLF =" DECLARED aT 16823100 
*16825100* 
ERSYS = ULABFL "© prcLARFN aT 20511192 == OCCURS AT 20511190 
20511363 


ERTOG = REAL #e DECLARED AT 14346000 
*14358200«% 14376000 44409000 
Eri =" REAL =" DECLARED AT 20511152 
#20591175 4420511190 462051130344 20511313 4420511335 4m 20511 3644420511365" 20511370 
ER2 "" Real @" MECLAREN AT 20511152 
#205111904 42051 1303 .442051131344205113935 e205) 1364442054 1365% 
ER3 -* Realb = pecbaRen AT 20511152 
*20511313* 
ES =e INTEGER ©= DECLARED AT 08852500 
*088B6600* 08887;00 
ES == STREAM VARIABLE == DECLARED AT 08887100 
*08892000*% 08893000 
ESAD = NMEFINE |= DFCLARED AT 00005200 
ESED == REAL »©* DECLARFD AT 06185000 
*062707100*% 06208000 06229100 
ESLL == LABEL = DECLARED AT 08856000 
ESPADD *"" REAL “* DECLARED aT 40005100 
#40008330% 40353140 40353160 *40353170* 
ESPBIT *'" PROCEDURE =" OFCLAREN AT 00025900 
00028000 00056000 22402000 44242020 44281500 
ESPcOUNT w= Rrab == necbaRFo at 00399000 
06099100 06029600 *06033000%«06038200¥"44473300% 
ESPOISKAREAV -#= DEFINE =* DECLARED AT 000147568 
28455400 98655000 
ESPDISKROTTOM = REAL = DECLARED AT 00404000 
06932000 06037100 06037700 *44087000* 44087400 441513700 444573300 
ESPDOISKTOP =" REAL ™= PECLARED AT 00401100 
06937200 22029000 22907000 22918000 «440871008 44151700 44173300 44254000 44256300 
ESPTAR 7" REAL *" DFCLAREN aT 00399000 
06023000 06031000 06038000 *44173200% 
EST #* INTEGER <= NrcLARFn AT 20142950 
#20163700*% 20163800 20165300 
ESTIO == REAL, == DECLARED AT 19696400 
"19738120" 19776010 
ESTPRQOC == RFAL == DECLARED AT 19696100 
*#19738110% 19776000 
ET #2 INTEGER == NECLARED AT 08528000 
*08538500« 
ET "= DEFINE =" DECLARED AT 08852500 
08886300 08886600 
ETIMEINDX =" DEFINE ©" DECLARED AT 12217000 
12250500 12274500 
ETIMETNAX =" NEFINE =" DecbaREn aT 12367500 
12418500 12464000 
ET?P = LABEL == DECLARED AT 01250500 = QcCCURS AT 04263160 
01261200 
ETRUNG == DEFINE == DECLARED AT 00305000 
04137180 04279400 04346600 06463540 18524000 148553000 20049800 700843500 20066690 
37276100 37277000 37278200 37280000 38039000 41314300 
FU te STReaM vaRrapbe =" prebaRepn aT 04325800 
04330000 04331600 


98050800 


28051600 


<= IN -- R 

ca b5074600 9607408 
06114700 

EU == STREAM VARTARLE == 
06080000 

EU se STREAM VARIABLE == 
168294400 


EU =e DEFINE =" DECLARE 
20484100 705672715 


Fr 6910 


NECLAREN AT 06078000 
DECLARED AT 16823100 


D AT 20247600 


EUA =" STREAM VARIABLE =" DECLARED AT 094326000 


04330000 04331600 
FUF =" Real PROCFOURF = 
05953130 07559000 
443148370 41324600 


NEcbARED at 14543000 *" FORWARD AT 02379000 
08572600 08714140 #14649000« 16845000 20289530 
41607200 


EU1TO ee REAL ARRAY = NECLAREN AT 00166000 


*04044009% 04194600 
EVIOFFSET es DEFINE e-= 
05842900 220711500 
EVIOHOLNER ©" DEFINE == 
EULIT = STREAM VARIABLE 
16823800 
EUM ©" RFAL @"" DECLARED 
40100300 40100600 
FUMaSK ©" Real @" prcla 
#40334075% 40334085 
EUNOTSQUASHFD = REAL ve 
06969000 06074500 
EUNP == NEFINE == DECLA 
06108300 16826600 
EUNUM = STREAM VARIARLF 
*39909000*% 39910000 
EUS =" REAL ARRAY ©" DFE 
06069400 06074000 
EUSU "" REAL *" DECLARE 
*40261100% 40261300 
EUTAPFR == pFFINEG © nF 
22041500 
EUVAL e= REAL = DECLAR 
20046700 *20045900* 
EU =" STREAM VARIABLE = 
06080600 06083100 
EU2 = STREAM VARIABLF = 
*06083100% 
EVENTANDINTERRUPT == PROC 
19685596 19906300 
EX *©= STREAM LABEL = 7 
07461330 07461520 
EX "= DEFINE ©" NECLARF 
08104550 08105600 
EX ee LABFL oe DECLARED 
16704000 
EX = LABEL == DECLARED 
EXCEPT w= DEFINE = DFC 
s 20549990 20573500 
EXEC *" LaAREL “"* DECLAR 
20597950 
EXECU ** HEFINE =" neECL 


05842900 *29044500%*44085100%#44940880« 
DECLARED AT 057803;0 

44240800 

DECLARED AT 00465800 

"= DECLARED AT 16823100 


AT 40005100 
40100800 40101300 «40292050» 
REN aT 40005110 

DFCLARED AT 06068900 
*06404300**06108600*% 06443500 
RED AT 05780025 


“== DECLARED AT 39905000 


39918090 
CLARED AT 06069300 
#06077500%*060852004«06085700% 06101700 06108400 
Dp at 40004500 
*40261500* 
CLARED aT 00165810 


EO AT 20076600 
20065300 *20065400% 20065900 70066000 
= DECLARED AT 06077900 


= DECLARED AT 06077900 


20578375 28299600 


06108800 


FOURE ==" DECLARED aT 19900900 == FORWARD AT 18468200 


FCLARED AT 07461320 "= OCCURS AT 07461540 
Nn AT 08400600 
AT 16699500 == QcCURS AT 16745000 


AT 48205000 == OCCURS AT 18467000 
LARED AT 20247970 


ED AT 20597700 =" OCCURS AT 20605300 


AREN AT 20221000 


38227000 


Nn AT_060 0 
06978000 06494200 06493700 *06407900% 06408000 *06408900% 06108300 06108400 06108800 


38499000 


EXT 
exyT 
EXIT 
EXIT 
EXIT 
EXT 
EXT 
EXIT 


EXIT 
EXIT 


EXIT 
EXIT 
EXIT 
EXT 
EX1T 
EXIT 
EXIT 
EXIT 
EXrT 
EX1T 
EXIT 
EXIT 
EXIT 
EXIT 
ExT 
EXT 
EX1T 
EXIT 
EXIT 
EXIT 


20604550 
v= LaBrl 
01257000 
on STREAM 
024615300 
ve = 6L ABEL 
04012000 
ee LABEL 
04567040 
ze Lapel 
04674900 
ee Large 
04709000 
ee LABEL 
05954400 
wm =LABEL 
06441030 
ee LABEL 
w= LABEL 
07059112 
ee §=LABEL 
07275000 
we LABEL 
07310000 
wm LABEL 
07409000 
wa LABEL 
07496400 
c= LABEL 
0748;006 
em LABEL, 
08007000 
ee LABEL 
08029000 
ve LABEL 
08083000 
ve Lapel 
081403800 
=e STREAM 
084411050 
ee LABEL 
08413000 
ee LABEL 
08429000 
we 6LAREL 
08486000 
we LABEL 
08547600 
=e LABEL 
08569400 
alld LABEL 
== STREAM 
we STREAM 
08746000 
ee LABEL 
08828000 
ve LABEL 


20604750 20605300 
"= DFeLARFN AT 01250500 = 


04258400 01260200 01260455 


OCCURS aT 
01260465 


01261300 


LABEL == PFCLARFO AT 02613000 == OCCURS AT 02631000 


02617000 02627000 07624000 
== DECLARED AT 04004000 


e= DECLARED AT 04555000 == 
04567855 04568374 04588000 
"= DERLAREN AT 04670650 -= 
04666850 04687300 

"= nrebaRep AT 04705000 == 
04720000 

me DECLARED AT 05952600) mm 
059554900 05956600 05956700 
m= DECLARED AT 06408000 ae 
06420000 

== DECLARED AT 07003410 

"= DECLARED AT 07009000 «= 
07118520 07129100 

== DEPLARED AT 07270000 == 


"= DECLARED AT 07300000 ¢= 


"= DECLARED AT 07408500 == 

07415400 

"= NEPLAREN AT 07423000 «== 

07497619 97430000 07439000 
== DECLARED AT 97474000) wa 


e= DECLARED AT 08002000 == 

08016000 

"= DECLARED AT 08025000 == 

08030500 08032000 08033994 
"= DFCLARED AT 08082000) == 


m= onrebaRep aT 08100350 == 
08110750 


02627000 
occURS AT 


oCCURS aT 
04588090 
OccURS aT 


OecURS AT 
ocCURS AT 
05960900 
OCCURS AT 
OCCURS AT 
OCCURS aT 
OCCURS AT 
OCCURS AT 
OCCURS al 
07437400 
occURS aT 
ocCURS AT 
OCCURS AT 
OccURS aT 
OccURS aT 


02629000 
04015000 


04651000 

04588180 04588560 04602000 
04687550 

04742000 

05979310 

05960685 059663110 05975640 
06424000 
07232000 
07292000 
07351000 
07420100 
07455000 


07450000 
07484000 


08022000 
08052000 
08093000 


08104250 


LABEL = DECLARED AT 08410750 "= OCCURS AT 08111250 


08111100 08111150 
=e DECLARED AT 08393000 «= 


“= DECLARED AT 08419000 == 
"= DECLARED AT 08442000 == 
“= DErLARED AT 08547100 == 
== NEeLARFD AT 08568300 == 


== DECLARED AT 08576100 


ocCurRS AT 
occURS aT 


OCCURS AT 


OCCURS AT 


occURS aT 


08416000 
08437100 
08509000 
08566000 
08573100 


LABEL «= DECLARED AT 08683000 2 OCCURS AT 08687000 
LABEL = DECLARED AT 08740000 = OCCURS AT 08753000 


08749000 08749500 08750000 
-= DECLARED AT 086802000 = 


=" DECLARED AT 08856000 == 


OCCURS AT 


occURS aT 


08848000 


08997000 


04639200 


05979400 


EXIT 
EX1T 
EX]T 
EXIT 
EXIT 
EXIT 
EXrT 


EXIT 
EXIT 
EXIT 
EXIT 
EXtT 
EXIT 
EXIT 


EXT 


EXIT 
EXIT 


EXIT 
ExyT 
EXyT 
EXIT 
EXIT 
EXIT 


EXtT 
EXyT 
EXIT 
EXIT 


EXIT 


089901500 
we LarFl 
09633000 
w= {,ABEL 
09681400 
we §=LABEL 
14186180 
we (LABEL 
1591144900 
we LABEL 
15542000 
we LaBEl 
16133000 
we LABEL 
46390000 
465 34000 
er LABEL 
{6737000 
em LABEL 
16961000 
me LAREL 
18212000 
=e STREAM 
18871000 
w= LABEL 
70095900 
== STREAM 
20032900 
en LABEL 
Om LABEL 
20449000 
wm = 6LABEL 
e@- LABEL 
20585250 
se LaBElL 
20587700 
we LABEL 
20590300 
em |, ABEL 
20594750 
ee LABEL 
20595750 
oe LABEL 
20599100 
ee LABEL 
22320100 
22411000 
we =6LAREL 
24147000 
we LABEL 
286053000 
ee LABEL 


089049009 0890906000 08911050 
“= preblaRFn aT 09602000 


09634900 
w= DECLARED AT 09679400 «= 
09681550 
=e DECLARED AT 10144500 «<= 


14712300 34228000 14243000 
== DECLARED AT 15112700 = 
15115500 
“" DECLARED AT 15537000 °°" 


"= DFeLARED AT 16053000) e= 
16155000 16169009 16248000 

"= DECLARED AT 16354000) «= 
16394000 46406000 46440000 
16537090 16540000 46543000 

7" DECLARED AT 16699000 © 
16743800 16747000 46749000 

7" DECLARED AT 16914000 => 
16966000 

“= DECLARED AT 18204000 == 
182180900 18255200 14262000 


08926000 
OCCURS AT 


OCCURS AT 
occuURS al 
occURS aT 
OCCURS aT 


OCCURS aT 
16252000 
occURS aT 
16485000 
16589000 
ocCURS aT 
167505900 
occURS AT 


OCCURS aT 
18266000 


08927000 
09676000 


09682600 
14301100 
15116000 
15554000 


16343900 
16255000 
16689400 
16492000 46495000 146498000 46501000 46527000 46530000 
16610700 16615000 16615200 
16902900 
16797500 46802000 146803500 16805500 146819500 16822000 
16968000 


18463000 
18284000 18296000 18425800 


LaARFL =" pECLARFN aT 18820900 == OCCURS aT 18821400 


188211400 16821200 
w= ofebLaRep AT 20020300 == 
20099000 70032875 270036400 


OcCURS al 
90038000 


20080000 
20047500 


LABEL = DECLARED AT 20032875 == OCCURS AT 20032950 


ee DECLARED AT 20085800 == 

w= DECLARED AT 20389000 -« 
20461000 20461950 20467000 

“= DECLARED AT 20511171 

"= DECLARED AT 20584250 == 
29585350 70585380 

m= peebLaRED AT 20586715 == 
20587850 20587950 20588360 
m= DECLARED AT 20589720) w= 
20590730 

== DECLARED AT 20590910 == 
20597850 20592800 270594400 
“° DECLARED AT 2090594870 °** 
20596500 

m= PECLAREO AT 20597850 == 


=e DECLARED AT 22235709) = 
22325410 22351000 22356000 


*- DEeLARED AT 24113000 eo 
“= ODFCLARED aT 28005800 «= 


98067000 78067400 978075400 
== DECLARED AT 32000280 == 


32001600 


we LABEL 
37046320 

bed LABEL 
37185390 


m= DECLARED AT 37004000 == 
37046640 37046845 37047100 

"" DECLARED aT 37180600 == 
37221500 37234250 37248500 


oCCURS AT 
ocCURS AT 
20477000 


ocCURS af 
OCCURS aT 
OCCURS AT 
OCCURS AT 

20594500 
occurs aft 
occuURS aft 


OCCURS AT 
22356400 


OCCURS aT 


OCCURS aT 
28094900 
occurs aT 


oCCURS AT 
37047660 
OCCURS aT 
37264000 


20140000 
20485000 
20586600 
20589600 
20590750 
20594750 
20594550 
20596650 
20610250 


22429100 
22364000 22365400 22383100 22386500 272386600 22405000 


24157000 
28401200 
28097400 984971000 
32002350 
37175000 


37269000 


EX'T = LABEL == NEFLARED AT 37422309 -2= QcCURS AT 37447500 
37498300 

EX1T ee» ABEL == DECLARED AT 37505000 == gCCURS AT 37545000 
37510008 37530100 

EXIT = {LABEL == DECLARED AT 38009100 = 9CCURS al 38099100 
38013600 

EXIT = {aBEL = DECLARED AT 39009000 "== QcCCURS AT 39307000 
39096000 39156000 39758000 

EXIT 7 (aAREL "=" DECLARED AT 40008050 

EXIT == LaBEL =" DECLARED AT 41316500 "= ocCcURS al 41323000 

EXIT 7" LAREL °°" BECLARED AT 41600500 =" gccuURS AT 41607600 
41601900 

EXITS =" STREAM Lapel ==" pEeclaREN aT 08822000 ~~" OCCURS aT 08824000 

EXITTOCOM19 -= Lapel © nECLAREn AT 12812500 *= OCCURS ar 12901500 
12879000 42893000 

EXP ew STREAM LABEL -#= DECLARED AT 18820800 == OCCURS AT 18821200 

EXPIRED == DEFINE =|" DECLARED AT 20228300 
20569690 

EXpIREFD == DEFINE == ODFCLARED AT 28404200 
28417B0N 28418000 

EXPUNDERFLOW "= LABEL *" DECLARED AT 42511000 -* OCCURS AT 42542000 


42512000 

EXRUN =" LABEL ©" OFClLARFO aT 20597700 = OCCURS AT 20605320 
20605650 

EXT = STREAM LARFL -= DFCLAREN AT 95952885 "= OCCURS aT 05952960 
05952940 


EXT w= STREAM LABEL «= DECLARED AT 05978500 "== goCCURS AT 05978950 
05978600 05978650 05978750 05978900 

EXT == STREAM LABFL = OECLARED AT 06075700 = OCCURS AT 06076800 

EXT = STREAM LABFL @= NFCLARED AT 06081700 7" OCCURS AT 06084000 
06082300 06083600 06083800 . 

EXT = STREAM LABEL =" DECLARED AT 16609500 7= OCCURS AT 16610100 
16609700 16609900 

EXT ©* STREAM LABEL =" ODFCLAREN AT 16823700 ™" OCCURS AT 16825200 

16824800 

EXT |* LaRneu =" DECLARED AT 18202000 == OccURS aT 18235000 
18231000 

EXTERNAL = LABFL == DECLARED aT 00008000 «= QCCURS AT 48016000 
07099008 04038000 047158000 46044500 46042000 46042500 48470000 48425000 48477000 

EXTERNALEND ee PROCEDURE == DECLARED AT 07473100 
16542000 . 

EXYT 2 LABEL = DECLARED AT 06462200 = oCCURS AT 06466600 
06443225 06463925 06463950 06463980 06464400 

EXYT "= LABEL °" DECLARED AT 20511160 "= occURS aT 20511800 
20511430 

F 7" REAL &" VALUE PARAMETER = DECLAREN AT 00426700 

Fo REAL @°" VALUE PARAMETER ==" DFCLAREN aT 00452800 
00452600 00452700 

F oe» REAL w= VaLUF PARAMETER w= fECLARED aT 02393500 
02393400 : 

F ewe REAL = VALUE PARAMETER #= DECLARED AT 02696100 

02696000 02696100 

e= REAL ARRAY =" VALUE PARAMETER "= DECLARED AT 02696300 

ee REAL ARRAY "7 VALUE PARAMETER “= DEELARED AT 02696500 

ee REAL 7" DECLARED AT 04354400 


a4 


04359400 4043736004404376200 440438 1800 4404 386400 %404 388200 eH 04 39 2600 ¥ #04 395600 404403200 4404404400 «e044058008 


%04440B00 4404416000 404419400 me 044 239200Ke04404800% 04425200 04426800 04432600 


48433000 


Fr rx.) 
Fo ow 
F = 
r ae 
F ow 
Fr we 
F Cd 
F =e 
F =a 
F on 
F me 
F on 
F me 
F =e 
Fr ae 
F = 
F om 
r oe 
Fr i ie 
F. we 
F on 
F om 
F ow 
F me 
F on 
F ow 
F we 
Bowe 
F =m 
F =m 
Fa ™* 
FA fe 


STREAM LABEL == NFCLARED at 04647900 «w= OCCURS aT 04647450 
ABE}, =» PECLARED AT 05841650 = ocCuURS AT 05845000 
05845200 
INTEGER == DECLARED AT 05847600 
05852350 
REAL =" DECLARED AT 06068300 
*#069971004*060984008 
REAL =" DECLARED AT 07244000 
*07256400" 07256600 *07257800* 07264400 
STREAM VARIABLE =" NECLAREN AT 97295030 
07295130 
REAL ©= prclaRep aT 07355000 
*07370000% 073714000 07374400 *07374500% 07372900 
REAL = DECLARED AT 08955400 
«08974250 08274560 08274500 *08276000*% 08976520 
STREAM VARIABLE == DECLARED AT 08709600 
08740000 
STREAM VARIABLE = DECLARED AT 12575000 
STREAM VARIABLE = DECLARED AT 12582500 
STREAM VARIABLE == DECLARED AT 12631000 
REAL = DECLARED aT 14624450 
14645600 
STREAM VARIABLE ** DECLARED AT 14645600 
14650000 14650400 
STREAM VARIABLE "" NECLARFH AT 15404000 
15410000 
STREAM VARTABLE == OFCLARFO AT 16828300 
REAL e= DECLARED AT 48198000 
18240000 1482481000 ¥*48273040% 48273050 148273055 *186276500%*18986000*% 18461000 
STREAM VARIABLE == DECLARED AT 18528200 
18528500 
REAL oe DECLARED AT 19696100 
419738100" 19775100 
REAL 7" DECLARED aT 20011600 
20021200 20030500 270034300 20034500 20035700 20035900 20046700 20061100 
STREAM VARIABLE =" DFCLAREN AT 20061100 
20061300 2006;900 
REAL e DECLARED AT 20080800 
20089300 
REAL = VALUE PARAMETER = DECLARED aT 20140800 
REAL = DECLARED AT 20141200 
20149900 20150100 20150200 20176024 20199200 
REAL °™ DECLARED AT 22061120 
22061130 *22069050e 22069060 *22069120" 22069500 
Real 7" pecbhaRepn at 24004000 
*24007000% 24007700 24009000 24010000 
STREAM VARIABLE =" DECLARFD AT 28248600 
STREAM VARTABLE == DECLAREN AT 282919200 
STREAM VARIABLE == DECLARED AT 32000510 
STREAM VARIABLE = DECLARED AT 37256000 
STREAM VARIABLE == DECLARED AT 37314000 
REAL = VALUE pARAMETER w= DECLARED AT 37357500 
37357300 37357400 
REAL @" DECLARED aT 28001200 
28074400 28074600 28094500 28094600 28096000 28096200 28097000 28097100 
Real °* neclaRen at 28201600 
28253200 278307720 


18465000 


FA es REAL #8 DECLARED AT 28400800 
28497800 78499500 978499400 98499600 78479800 
28435600 28436700 98436400 78436800 28437000 
*#28443000% 28443400 «28452600 28452600 28453200 
FACTOR "" DEFINE "™" DECLARED AT 06070600 
06111000 06111800 
FACTOR *™* REAL © ODFCLARED AT 08801000 
08826000 08828000 08829000 *08838000* 08839000 
FaluL @= LABEL &= DErLARED AT 07299600 = OCCURS AT 
07318010 
Fath "= Lapeb =" neebaREpD at 37180650 == OCCURS aT 
FAIN == Real =" DECLARFN AT 28001400 
28001600 28012800 
FAN se ReaAL == DECLARED AT 28201800 
28202000 
FAIN == REAL = DEC,ARED AT 98200800 
2B497B00 *2BADBNOOe DE4DB40N 78430600 28431000 


*98430000% 98430900 


28437400 


28453400 


07303500 


37195100 


28434800 


e2B442000e 2B442R00 #2644360 0% 2B4544 0a 28457600% 28458600 


FAINFEO on Real =m 


prcbaRen at 26001200 


28003400 278013000 28074200 278074800 28093800 
FAINFO = REAL == NeCLARED AT 28201600 
28207800 28246800 78765400 28270830 28307710 


FAINFO «= REAL eo» 
*98430000" 78434000 
FALLOUT = LABEL oe 
28970200 
FAROUT w= REAL «= 
*20445200* 20489700 


28433800 


DFCLARED AT 298400800 


28433000 


DECLARED AT 28211000 
DECLARED AT 90397050 


28434000 #29844 4800%%98943400%*98459800% 28454600 *98457200» 
AT 28303600 


OE CURS 


FAST =e DEFINE == DECLARED AT 202747900 
20484650 29567955 
FaASZ «= REAL = DECLARED aT 28001400 
28074400 28074600 28087000 28095800 28096000 
FaSZ 7" Real =") DecCLARFED aT 28201800 
28246200 286246400 278797200 24309600 28307700 
FASZ "= Rrab =" DFCLARFD AT 284008600 
28478400 *98499000% 28499400 78499600 278430200 
28454600 ¥28457000% 28457200 278489400" 
FB wm REAL *= PECLARED AT 20047500 
200747600 *20049800* 70953200 270063500 70066600 


FB «= STREAM VARJABLE == DECLARED AT 20653200 
FBADRS = REAL w= OFCLARED AT 290046700 


20046800 *20063500% 20064100 20065600 20065800 


28093900 


28097000 


28432400 


20066000 


28437800 


28453800 


28432800 *28433600* 28434000 


28482400 
28099200 


28433200 


"= OCCURS AT 12660000 


QccURS AT 16819300 


02063000 
027294000 
04569100 
06090000 
073141500 


FBADRS *" STREAM VARIABLE *"™ DECLARED aT 20064100 

FE == LABEL = * = DECLARED AT 16357000 = OCCURS AT 16590000 
16366000 

FER ©" STREAM LaREL == PFCLAREN AT 12659500 

FERGIT 7" Lapel =" pnrcbaREn aT 16699000 «= 
16812000 

FETCH == PROCEDURE == DECLARED AT 20292000 
20395000 970374400 270608070 90608900 270608700 

FF =e FIE!D == DECLARED AT 00060090 
00060410 00656400 07006000 09007300 02063000 
02275950 92285000 02287000 07287300 02287420 
04299200 04391560 04391570 04421900 04426600 
04686700 04711000 04728000 05976000 06077400 
06463988 07026500 07062000 067257800 07262200 
08379800 08259450 082770450 08276000 082776400 


08705000 


02077000 
04437270 
04569200 
06107900 
07313000 
08839000 


28430600 


28444800 428443200% 78443400 «98454400 


02089000 
04437280 
04671750 
06108200 
07548400 
08931000 


28432600 
28438000 428441600" 78441800 
28454200 *28456800* 28457200 


02186000 
04190000 
04682250 
06203600 
08177000 
08939000 


28439800 


28436000 


02275600 
04194550 
04685400 
06203700 
08177200 
08942000 


28434000 
28442800 
28457400 


28436200 


02275850 
042860400 
04686600 
06463380 
08179600 
08944500 


FH 
FH 
FH 
FH 


FH 


FH 


FH 


FY 


FIB 


FIB 
FIB 


FIR 
FIB 


09505000 42271500 12454000 42454500 12473060 42473070 42473080 147863500 44199000 144354350 14351400 
14351440 144351420 44358580 44358584 14358595 44358598 44358600 144358800 144382000 144383900 44389000 
14391000 44392500 14394000 434395000 14398700 414431440 14431450 14434460 14555500 14595000 414596000 
14598000 144603330 15114700 15601;000 15602600 145604200 146418200 146206;00 16225000 16238000 16239000 
16343950 16610300 16689450 46825500 16825900 16902950 46918500 46956000 147000900 17005600 46032000 
18016000 18017000 18022000 18046000 18047500 18053000 18059000 18063000 1806800n 18075500 18228500 
16276000 18289000 18492000 18720800 188140200 18810300 148840300 18841600 18844200 148844400 19685020 
19685065 19685350 19685370 19685455 197;4000 49739000 49779000 49783000 199006340 19900620 49900630 
19990815 819902000 19902120 19902150 19902200 19902300 19902350 49902900 19903600 349903670 49903825 
19903830 19903850 19904360 19905200 20021400 20035700 20036200 20089300 20092000 20092300 20120000 
20150200 20165300 20170600 20173900 20176105 20382540 20489200 70489300 205413610 270567340 20567360 
20570055 70570932 20576216 205814950 20583250 20585100 320585425 20588550 20589480 70595350 20595400 
296016900 20606910 20606990 20610400 20704950 270758000 22069420 22069340 22259000 272977000 22786030 
22286040 22286410 292301000 22309000 22342000 223293000 272324800 22327600 22356200 27357000 22365200 
22377000 22386250 92387000 22393000 22395000 9292397000 22399000 29497000 24006000 274007000 24030000 
24033700 24033800 274934500 24035100 24036400 24037100 24037300 24037500 24038400 74038800 24153000 
24221000 28013400 278093600 28099000 28254000 28265200 28272800 28428000 28425200 78459000 28823000 
28857000 28882400 28887000 37046835 37046855 37046860 37047605 37048000 37230000 37232500 37241525 
37327000 37328000 37332000 38045105 38250000 38266500 38267000 38288500 38291000 38378000 38435000 
38440000 38573;00 36575000 38577000 38583000 38594300 38595000 38642000 39306300 40017200 40041000 
40046000 40057000 40078058 40278200 40293090 44054500 41310900 44344000 41348360 41348370 44319000 
44349080 44320060 44374650 44329900 44331000 41602600 429478400 495295150 42535500 42551090 42551100 
44037300 44136000 44138000 44204500 44201600 44240620 44240690 45092490 48035400 48034100 48054000 
48054400 48065000 48079100 
ee REAL == VALUE PARAMETFR © DECLARED AT 00490000 
00489000 00490000 
ew REAL ARRAY == DFCLARED AT 06462140 
#06463900* 06463910 96443930 06463940 06463960 06463970 06466620 
we REAL 7 VALUE PARAMETER =" DECLARED AT 09500000 
09505000 09505500 
w= REAL ** DECLARED AT 09602000 
#096330008% 99633100 09634000 09657000 09658000 
eke REAL ARRAY “* NFeLAREN at 18200000 
*18273050%%18276500m%18277500%%18286000«% 18292100 18293200 18299000 18308000 148309000 *18314100"«018344200" 


*18321100% 18324000 *18327100% 16333000 «18336100* 186342000 148343000 #18345000« 18357100 *18357200%«183573008 
*18 3641004418364 700% 1836570081 8369400%«18372000% 48389000 «18392100 %%18399,00e 18492000 184951008 18425300 
18475600 #18426400% 48428000 148429000 418434050" 148437300 148431400 #48439400%m18432450%% 48432200" 48432600 


18433000 {8438300 *18438170*% 18445000 18446000 18455000 18460000 ¥*18462000« 
em DEFINE =" DECLARFD AT 20704100 
20794220 20704230 20704240 
ew REAL '* DECLARED AT 41316300 
44316515 41316520 41316525 44316560 41316590 #41317800%*414318210" 414318220 41338230 41318240 41318360 
41318370 41318400 443386490 414348620 44348680 443138740 44320260 44320440 44320420 414320430 44320440 
41321650 41323400 41323500 41323550 
ee Real, ** nrcbaRen at 40007500 
#40983500% 40347500 
#* REAL ARRAY == DECLARED AT 02194500 
¥02975000% 92275;400 02775450 409275500*% 029275600 09275650 02975850 £09975950%%09276200e#092762708 02276300 


02976350 *02276360% 022776370 02276400 *02287200*% 02287210 02313500 
e= REAL =" VALUF PARAMETER == DECLARED AT 04121550 
04121500 04121550 
ev REAL ARRAY "" DECLARED AT 04668800 
*04674050m 04674100 04674150 04674200 04674225 04674250 04674300 04674350 04674400 «04677400% 04677459 


#94677550%*04678900% 04679050 «0468 3400440 468 4850 #0 4685500 4«0 4685550 «#0 4685650%e04685750% 04686450 
°7 ore iNe == neebaRep aT 08173100 

08776000 8477000 08177100 08477200 

em REAL ARRAY == DFCLARED AT 14624600 


08178000 08179600 08179800 


FIB 
FI8 


FIB 
FIB 


FIB 


FIB6 


FIR 


FIB 


FIB 


FIB 


*14644000% 14644400 14645600 #14675000*%14681000% 14682000 44683009 142684000 44687000 44688000 414698000" 
14699000 144701000 14702600 14703000 
m= REAL ARRAY == OFCLARED AT 15065000 
#15973000 «e45080000% 45981000 *15082000%%«15083000% 15098000 *15101000%"15102000% 15103000 *15104000% 
7" REAL ARRAY =" DFCLARED al 18502400 
*185293700# 18523900 18524000 18524400 18524500 «18552800*« 18552900 18553000 
"" REAL ARRAY °° MFCLARED aT 19521000 
m= REAL ARRAY ™™ NFCLAREN aT 38008000 
*38913100% 38013300 38013400 38013900 38014100 38015000 38020000 38024400 «38028000 ««38032000%% 38033000» 
38034000 «38036000% 38037000 «38038000% 38041000 £38044100m 38044000 «38045000 4438045100 4%38045105e 38045155 
38949300 *380497004«% 38055000«« 38056000% 38059000 38060000 38062500 *38064600* 38066000 38070000 38082500 
*38090000* 38093000 38094000 38095000 «38096000%* 38097000» 
w= REAL ARRAY = NDFCLARED AT 38102800 
38442000 #*38444000e 38125000 #381449500* 38454900 *38156500%*38457500%%38 158000" 
~= RFAL ARRAY = DFCLARED AT 38200800 
38712000 #3821 6000 %«36234500%*38240500%% 38245500 %#3 8248500443824 90008e38250000* 38266000 *38266500%438267000% 
38276000 38279000 38288500 *38289500%**38291000* 38297000 
7" RFAL ARRAY *"" DECLARED aT 38357000 
38377400 38388000 38389200 38389300 38389400 %38389500«% 38389700" 38389800 « 38389900" 38390100 «38390200» 
*38399500% 38391030 «38391050% 38391060 38391080 438391090% 38398000 38400000 38401000 38402000 38404000 
38405000 38406000 38406500 38444400 384744300 38444500 36444600 38411750 38492000 38434000 38507800 
38508000 *38528000* 
e= REAL ARRAY = DECLARED aT 386542000 
38574000 *38579000* 385273100 38574900 38575000 *38577000« 38584200 «385844008 38581800 38584920 38582000 
38585000 *38586000% 38587000 38588000 38594300 «38595000% 38597000 38610250 «38610600» 
"" REAL ARRAY °&= DFCLARED AT 38650000 
38631000 *386870900% 38683000 38688000 *38690N00* 38702000 38762000 *38773000*%«38773100*% 38803000 
ey REAL ARRAY @™ NECLAREN aT 39005000 
439032000 %439035090% 39942000 «39042100 %439083000e 39084000 39088000 39089000 39090000 39091000 39091100 
39092000 39092010 39992020 39146000 %39147000#e39148000% 39230000 *39232000%439233000%%39294000K%39295000" 
*39296000e%39297000% 39299000 *39300000%«39301000%%39301100%*39303000% 39304000 *39306000% 39306100 39307200 
ee REAL ARRAY == OFCLAREN AT 41001000 
#44040000% 41041000 44042000 41043000 41044000 44045000 44049000 44057000 44054100 410574200 44051400 
44951620 41052000 #44494000% 41195000 *412040004«44244000% 44212100 442342200 
we REAL == VALUF PARAMETER = DECLARFO AT 41312100 
4134929000 4431424900 44343600 414313800 443,3900 
w= INTEGER =" PECLARED AT 38009000 
*38060000«e 38062500 *£38063000%4*38064600% 38075500 38094000 
ee INTEGER =" nECLARENM AT 38402900 
ee INTEGER =" NECLARED AT 38200900 
ee INTEGER =" DECLARED AT 39006000 
e* REAL == VALUF PARAMETER =" DECLARED AT 00373000 
00371000 00372000 
ee REaL = VALUF PARAMETER ** DECLARED AT 00376000 
00374009 00375000 
wm Real == VALUF PARAMFTEFR ==" ODFCLARED AT 00390200 
00390000 00390,00 
o> REAL w= VALUE PARAMETER == DECLARED AT 00395000 
00393000 00394000 
7" REAL =* VALUF PARAMETER == DECLARED AT 02637000 
02635000 02636000 02641000 
m= STREAM VARIABLE =" DECLARED AT 02641000 
“7 REAL ©" DECLAREN AT 05950800 
05950900 05953130 05953135 *05953600« 05953800 05958600 05959200 05960600 05960650 05960660 05964000 
05967900 *05977600« 
em STReaM VARTABLe == OFcbakrp aT 05953135 
e= STREAM VARTABLF == DECLARED AT 05959000 


FID 


FID 


[ed 


FILEBYT 


FIFLO 


05959600 
STREAM VARITABLF «= DECLARED AT 05964000 
REAL == VALUF PARAMETER #= DECLARED AT 06460200 
064460000 96460100 06463200 06463225 06463240 06463580 *06463620% 
REaL =" DECLARED AT 08099400 
08102150 08102200 08192300 08102550 408102600% 08102700 «08102750 08104900 
Rea "=" pecbaRen at 12503000 
12503500 142539000 142567000 142567500 12572500 42575000 
12629500 429630000 142631000 42632000 «12681500 *e49687700%%749743500% 49749500 
RFAL = DECLARED AT 12803000 
12803500 
REAL == DECLARED AT 13004000 
REAL = DECLARED AT 44624100 
REAL == DECLARED AT 19688050 
«196967008 19698000 19699000 19768000 19768200 19799000 
STREAM VARIABLE =" DECLARED aT 19768200 
REAL =" DECLARED AT 28000600 
28000800 28011200 28011830 28013600 28087400 
RralL "=" pecbaREn at 28201000 
28201200 28212000 «26253200«% 28263400 28266400 28770816 
28296400 28799600 *28307720% 26307725 
STREAM VARTARLe =" nrcbaRep aT 26263400 
RFAL == DECLARED AT 28400600 
28408900 98445500 78415400 784747000 28449000 78449600 
28473200 £984734004428476400%4%78480 200% 
REAL «= VALUE PARAMETER == DECLARED AT 37002000 
37000000 37004000 37046730 37046835 37046980 37047625 
REAL = VALUF PARAMETER == DECLARED AT 37179000 
37177000 37178000 37190000 37195600 «37195650««37195750« 
37240200 37242300 37261000 
Real =" vaLUr PARAMETFR =" DECLAREN AT 37286200 
37286000 37286300 37292800 
REAL #2 VALUF PARAMETFR = DECLARED AT 37342000 
37337000 37339009 
REAL == VALUF PARAMETER == DECLARED AT 37420000 
374148000 37419000 37424200 37428100 
REAL =" DECLARED AT 38007000 
38013030 «380130404 389143300 38014900 38045420 
REaL @™ MECLAREN aT 38102700 
38105800 38113000 38151000 38159500 «38163000* 38164500 
STREAM VARIABLE *" DFCLARFED aT 38159500 
38162000 
Rea -= oFcLAREn AT 38200700 
38903800 38243500 38233500 38259000 382775500 38287500 
REAL == DECLAREN AT 38362000 
38404000 38444500 38483000 38456000 384613000 38464000 
38548500 
REAL == DECLARED AT 38547000 
386;,0200 
REAL = DECLARED AT 38655000 
REAL = DECLARED AT 39004100 
*390910008" 39143000 
REAL === DECLARED AT 41003000 
41190800 ‘ 
RFaL "=" DECLARED AT 41316400 
41317710 44e41318 980% 41320400 41321600 


NFECLARFD AT 00061040 


12584500 #42590000« 12592500 


28448000 «98467800» 


#37232250*" 37236000 «37236750+« 


38045400 *£38066000e«38070000e 38080500 «38088000% 


FILEBI,0 


cK ew» RrAL ARRAY 


06780000 


06384000 


FILEBLOCK = REAL ARRAY 
*1{43560008% 14430800 
SE == PROCEDURE 


FILECLO 


02266300 
37240600 


FILFHEAnFR = 
*37447000* 37448000 


FILEHOL 


D0 #= PROCEDURE 


02314000 
37244000 


m= VALUF PARAMETER ©#= DECLARED AT 06182000 


06209000 06230100 06234000 
wm DECLARED AT 14353000 


m= DECLARED AT 90389100 


92321000 2325000 14259000 
42493006 42497000 


Real PRocenuRe °° necbaRen at 37418000 


36043100 
DECLARED AT 48000000 


06244000 


15100000 48525600 


18527300 


w= FORWARD aT 00393000 


18935000 48255000 18260000 182765000 18460000 70704260 
FILEID == LABEL @" NPECLAREN AT 05952620 = OCCURS AT 05956650 
05957400 
FILEMESS == DEFINE == DECLARED AT 00452300 


06463220 064632930 127619000 12636500 12899000 44015220 48027000 18770700 

37224000 37240700 37285340 37384000 37474200 38045120 38105700 38151000 
338463000 639143000 

FYLEMFSSAGF "=" PROCFDURF =" DECLARED AT 37357300 == FORWARD AT 00452600 
02668500 04681800 06463295 06463740 07074;00 08744300 42649000 45637000 
18770900 280329n00 36006000 37046730 37236000 37224200 372740200 37285320 
38404700 38105800 386151000 38202700 38203800 38230000 38796750 38456000 
41190600 


FILEOK "=" REAL =" DFCLARED aT 06069000 
*#06092400% 06092900 *06093600% 
FILEOPEN == PROCEDURE == DECLARED AT 39000000 = FORWARD AT 00379000 
00379200 145086000 39569000 39308000 
FILEV «= DEFINE == ECL ARED AT 20228200 
20398000 70604300 20744500 
FILLBUFFERS == pRoCEDURE == DECLARED AT 37385000 = FORWARD AT 00385000 
38025000 38152000 38267500 39144000 39146000 39230000 39244000 39293400 
FILTOG °" REAL @™ PNFCLARED AT 05952270 
05952300 905953045 05953135 05953140 05953195 «05956800«% 05960680 
FrLTOgG *" STREAM VARTaRLF &™ DECLARED at 05953135 
05953175 
FIN = REAL = DECLARED AT 04068000 


04971000 04072000 04073000 *04074000%*04078000%«0 4080000%#0 408 1000%«0 4086000%«0409 10004 


FIN e©* REAL == DECLARED AT 04427000 
*04905000«% 042725000 0427278000 04234000 

FIN =" REAL == DECLARED AT 04258200 
*04304600%#04309600*% 04309800 

FIN #™ REAL @" OFCLARED AT 04355600 
*04495400% 04427700 *04428000% 04429200 

FIN =" Real =" nFCLAREN aT 06004000 
*06016100% 06017000 

FrNaL =" Real == VALUE PARAMFTFR = pnECLARED aT 00385500 
00385000 00385500 

FINAL #* REAL ARRAY w= VALUE PARAMETER == DECLARED AT 04042000 
04040000 064041000 04964000 

FINAL == REAL, = OFCLARED AT 07269100 
*072790600* 07295030 

FINAL =" REAL ARRAY =". DECLARED AT 14624400 


14797000 

FINAL =" LABEL *™ DECLARED AT 24112000 “= OCCURS AT 24144000 
24130000 

FINAL #© L ow" VALUE PARAMFTFRK "=" fWFCLARED aT 37386000 


FINALYN oe Laprh == nrelaRFn AT 39009000 == O¢cURS aT 39148000 


18527700 


36006000 
38203700 


12899000 
37494200 
38464000 


REA 
37385000 37385500 373A8400 *«37388600% 37389000 37393000 37394050 37394200 *37399000« 


19571000 


37946680 
38296750 


14045220 
38045420 
38640400 


37123000 


37215000 
38455000 


18027000 
38045160 
39443000 


39246000 
FINALOUT = LABEL, == DECLARED AT 39009000 «== OCCURS AT 39930000 
39239000 
FINALQUE |= REAL ARRAY == DECLARED AT 90173000 


*OAD6A000w 14131000 04137140 C4169000 04205000 04279200 04282000 04284600 


04285000 


04300200 


04304600 


04309600 04316600 04366400 04367000 04373000 04428000 404565000» 04569200 4«04672000%*04685250" 44169000 


FIND t= LaBeEL =" preLaRFn AT 20382030 == OCCURS AT 20382640 
20382480 9270389500 
FIND =» SUBROUTINE = DECLARED AT 24124000 
24148000 24153000 74155000 
FIND ** LABEL == DECLARED AT 38103300 == gccURS aT 38191500 
38114000 381527;00 
FIND == LABEL = DECLARED AT 38201300 == OCCURS AT 38798000 
38934500 38768000 38779000 3829;000 
FIND == (LABEL "= DECLARED AT 39054000 == gCCURS AT 39231000 
39156000 
FINDBUF =* LABEL =" DECLARED AT 14628000 == OCCURS AT 14660500 
14632200 
FINOFILE "=" REAL SUBROUTINE =" DECLARED AT 12561000 
12568500 12576000 12585000 12682500 12744500 
FINDINGADDRESS 7" DEFINE "™" DECLARED AT 00081700 
FINDINPUT =" REAL PROcEDURE == pecbaREn at 37177000 == FORWARD aT 00374000 
07072400 42537000 18555700 28028000 «37269000*% 37270000 38443000 
FINDIT "=" LABEL ©" NECLAREN AT 00057100 
FINOIT == LABEL =" DECLARED AT 28005800 «== OCCURS AT 28027800 
28030000 
FINDOUTPUT = REAL, PRoOCENURE == DECLARED AT 37000000 == FORWARD AT 00371000 
92643000 04681250 *37175000* 37176000 38213500 
FINDSFG "=" REAL SUBROUTINE "= DECLARED AT 24115000 
24122000 24123000 74130000 24142000 
FINDTHETAPE "=* SURROUTINEG "=" DECLARED al 28027400 
28039600 28055200 78067400 
FINDTHETAPF =" DrFINE == precbaRen at 28207400 
289298600 
FYNOX -* LABEL ©= DECLARED AT 20596760 == OCCURS AT 20597450 
20596950 70597000 70597050 
FINE ee STREAM LABEL == DECLARED AT 20600200 == OCCURS AT 20600360 


20600270 

FINIS =" (LABEL == DECLARFO AT 05952620 "= OCCURS AT 05977800 
05977200 

FINIS =" LABEL =|" DECLARED AT 20597850 = OCCURS AT 20609600 
20604360 

FYINTS *" STREAM LABEL =" DFeLARFD AT 28411400 == UccURS aT 28413600 
28413000 , 

FINTS == STREAM LARFL == PECLARED AT 28421800 = OCCURS aT 28423600 
28492400 

FINISHDFTATL == SUBROUTINE == DECLARED AT 04282600 


04352400 

FINISHED == LABEL == DECLARED at 12371000 == gCCURS AT 429473500 
12402000 12406000 

FINISHOFFIQ =" PROCEDURE =" DECLARED AT 04067000 
04220000 04428800 

FINISHUP "" LagFl. "" nrcblARFED aT 41316500 =" occURS at 41323140 
41320270 

FYReyTUP == LABEL =" ODFCLARED AT 08255800 «= OccURS AT 08271750 
08959700 08259870 

FIRST wwe REAL «= DECLARED AT 07006400 


07059010 07059410 *97109000«% 07116000 407118510" 07124000 *07476500% 07139511 *#07169100% 


FIRST =" REAL "= DECLARED AT 07269100 
*07273100% 07290300 *07290400 
FIRST =" REAL ©" DECLARED AT 37180000 


%37225000««372253100% 37226000 37229500 «37251000« 37252000 «37253000«% 37266000 «37267000 «%37267050« 


FIRSTCARD °" Real &™ pnrcbaRED at 07006020 
*0790B7000« 07118000 07139530 07156000 07179260 07214100 07236000 
FIRSTCARD =" STREAM VaRraRBlLe “7 NECLARED aT 07139530 


07139540 
FIRSTCARD = STREAM VARYTABLE *= DECLARED aT 07156000 
07159000 
FIRSTCARD == STREAM VARIABLE == DECLARED AT 07274100 
07247000 


FIRSTDECK «= REAL =" DECLARED AT 07000200 
07273000 097313000 *07314110% 07371400 07432000 «07560000« 
FIRSTFIN "=" REAL *°" DFCLARED AT 12504000 
12504500 12506000 012584500 12629500 «12679500*e 12681500 12713500 *12723000" 
FIRSTFIn 7 Real "= nechaRep aT 12804000 
12804500 12806000 
FIRSTFIn w= Real = NFCLARED AT 13005000 
439008000 
FIRSTIME == REAL = DECLARED AT 20566270 
20566280 *90570330% 90570350 *20570440* 20570480 270575900 *20576000% 90576740 
FIRSTLINK == DEFINE == PECLAREN AT 40008130 
40049000 40078049 
FIRST}O0C «= INTEGFR w= DECLARED AT 37388100 
*37407000% 37416000 
FIRSTORSEC ** REAL = MECLARED AT 07006176 
#07408100*% 07115500 *07119100* 
FIRSTREC 7" REAL @* DECLARED AT 04668700 
*04675650*e 04676000 04676850 04683100 04687650 04687750 
FIRSTREcIO == Real  " necbaRED aT 04666700 
*#04677150*% 04683000 
FrRSTwArT =" REAL =" DFCLARED aT 00279000 
02097000 *04046700% 04447000 *04119000% 04165000 04477000 48004000 
FIX em» LAREL == DECLARED AT 04357400 #= OCCURS AT 04495000 
04373800 04394200 04414800 04417400 044;9800 
FIX ee SUBROUTINE == DECLARED AT 44079000 
44954200 44156900 44156100 44157000 441457100 44157200 44758000 44159000 
44160500 44162000 44162050 44162100 44463000 44163020 44163030 44463040 
84164600 44165790 44166000 44167000 44168000 444368200 441469000 44470000 
44175000 44176000 44177000 44178100 44179000 44179050 44479100 
FIXANDWRITFHEADER == SUBROUTINE == pECLARFD AT 96086100 
06099800 
FIXARRAY == DEFINE = MECLARED AT 05780700 
05844110 05844930 058501720 0595307N 05961400 05966600 06077500 06095100 
16827100 
FIXCOLDHDR ©" SUBROUTINE =" OECLARED AT 41316505 
41316595 41318750 41320255 
FIXED -" MEFINE ©" DECLARED AT 20247940 
20712000 
FIXFIR '* LABEL @* DECLARED AT 39054000 =" OCCURS AT 39294000 
39148000 39234000 39259000 
FIXMV =" LaBFL @" nrcbaRFD aT 06070000 == OccURS AT 06093700 
06092900 
FJ ee REAL =" DFCLARFN AT 40007500 
*40983500% 40317400 40347600 


44160000 
44164010 
44171000 


06107200 


44160050 
44164020 
44172000 


06109400 


44169400 
4414164500 
44173000 


06389440 


FK = STREAM VAR 
045885270 

FL = STREAM VaR 
04588510 

FLAGBIT 77 LABEL 
42512000 


FLAGGFR =" 


FLoc 


FM 


FNUM 
FNUM 
FNUM 
FNUM 
FNUM 
FNUM 
FNUM 
FuUm 
FNUM 
F NUM 


FOG 


FORGET 


FORG 


ET 


REAL 


429537050 


== NAME «=e 


15073000 
SUBROUTINE 
12830500 
=" DEFINE = 
06443220 
37224000 
39143000 
REAL => 
00374000 
REAL =e 
REA, == 
00454000 
REA|, == 
170nN0000 
STREAM VAR 
20061500 
REAL 7" 
37177000 
Real on 
37274000 
37285300 
we REAL == 
*04674150*% 
“= INTEGER 
380 43030 
"= INTEGER 
38104800 
eas INTEGER 
38202800 
we €6INTEGER 
38401000 
we INTEGER 
38603000 
ee INTEGER 
ee INTEGER 
#39084000% 
39297020 
7= §€6INTEGER 
#€41042000% 
BP. ReRE ee 


7 LABEL no” 
22303200 
me LABEL 
06465600 
we LABEL 


JABLE <= 
IARLE == 


DECLARED AT 04588450 


DECLARED AT 04588430 


“= DECLARED aT 42511000 


== mFCLARED aT 04554800 
—— €04568595"%*#04569900%404647750% 04648050 
FLAGTFSTER == RE 


AL = 


necLARED aT 42513500 


DEC, ARED AT 15064000 


OCCURS AT 42520000 


04654200 


12899000 
38045420 


14015220 
38105700 


AT 00376000 


AT 00377000 


AT 00454200 


AT 17000400 


15984000 15100000 

m= DECLARED AT 12822000 
12849000 128627500 17866500 
~ DECLARED AT 00452400 
06463230 12619000 12636500 
37240200 37285310 37424200 
VALUE PARAMETFR == DECLARED 
00375000 
VALUE PARAMETER == DECLARED 
VALUE PARAMETER == NECLARED 
00454400 
VALUE PARAMETER == DECLARED 
17900200 17003250 
TABLE == DE@LARED AT 20061000 
VALUE PARAMETER ©" DECLARED 
37178000 37214000 37218300 
vaLUF PARAMETER =" nECLARFD 
37275000 37276000 37278200 
37285320 


DECLARED AT 04668500 


04680050 


94661250 


04684850 


m= MECLARED AT 36003000 


38013040 


36013900 


38015700 


7" MECLARED AT 38102300 


38105600 


38106100 


38113500 


w= NMECLARED AT 38200300 


38203600 


38204100 


38213000 


"" NMECLARED aT 38361000 


38411500 


38412200 


38422000 


=" nmeclaREn aT 38546000 


=" PECIARED AT 38654000 
== DECLARED AT 39002000 


39985000 
39297100 


39086000 
39306010 


39087500 


"" MECLARED AT 41002000 


41046000 


41048000 


41144000 


DFCLARFN aT 41312300 
*41313900% 41314300 #41314500% 41314600 
DECLARED AT 22236100) ax 


22334400 


*= NMECLAREN AT 06462200 
06465900 
=~ DECLAREN AT 46053000 


-— 


AT 37179000 
37242200 37242300 
AT 37271000 
37281000 37283000 
04682050 04684700 
38045900 38039000 
38414500 

38214500 38216500 
38453000 38461000 
39089000 39097000 
41212000 

413414700 


OCCURS AT 06464400 


OCCURS AT 16343400 


OccURS AT 22350000 


18027000 
38451000 


37248000 


37284000 


38075000 


38232500 


39092170 


18770700 
38203700 


37255000 


37284430 


38235500 


39099475 


36006000 
38296750 


37284150 


38236010 


39238000 


37046680 
38455000 


37285100 


39242000 


37215000 
38463000 


37285200 


3929 3300 


16199000 16127000 16161000 16166000 16172000 16200000 46242000 16244000 

FORGET °°" LABEL ™* DECLARED AT 16354000 " OCCURS AT 16689000 
16524000 146580000 16589000 16605000 16608000 16610900 

FORGET "" LABEL 7" PECLAREND AT 16699000 =" OCCURS AT 16902500 
16740000 16769000 16773000 16779500 16785500 16787000 46788500 46792000 

FORGET @" LARFL =" neeLaAREnN at 16914000 == Oc¢euRS AT 16966500 
16931000 

FORGET == LABEL == DECLARED AT 37505000 == OCCURS AT 37539000 
37591300 

FORGFT == LABEL == DECLARED AT 49005230 == OCCURS AT 40101510 
40100300 

FORGETEM = SUBROUTINE © DECLARED AT 09616000 
09695000 09636000 

FORGETESPOISK e= PROCEDURE == DECLARED AT 06020500 == FORWARD AT 90364000 

FORGETESPDISK == PROCEDURE == DECLARED AT 06036000 
06261000 07559420 14399000 14399500 14411740 200227300 270045800 20046300 
20572700. 20573100 28012150 28410000 28813000 38459000 40353160 

FORGETEVERYTHING @" SURROUTINE =" DrcblaREn aT 08116200 

~ 08146450 08117450 

FORGETIT = SUBROUTINE == DECLARED AT 07096100 
07076800 07229000 07731000 

FORGETONE = SUBROUTINE == DECLARED AT 07022100 
07096700 07026600 

FORGETSPACE = PROCEDURE <= DECLARED AT 24000000 *°* FORWARD AT 00090000 
01261400 02049N09 0212450N 02173380 02173389 02253050 02271000 09313600 
024348650 04195100 04687750 04687800 05729000 05846390 05853595 05953220 
05977850 06084600 06095300 06114400 06444900 06115600 06244000 06328100 
06365110 06380440 06380950 06381085 06417000 06463720 06464400 06466620 
07235000 07236000 07238000 07239000 07240000 07264200 07290650 07295940 
07374200 07447000 07449400 07420050 07452700 0746;800 07480000 07567000 
08959595 08770600 089765;0 08297300 08998700 08387000 084934600 08438440 
08674000 08676000 08695400 08696000 08744170 08746500 08784300 08835000 
09505750 09536009 09624000 09624100 09634000 09634100 09643000 09648800 
09684650 09682000 09689700 493241370 142474500 47475000 42561600 49630500 
14292140 44364709 144372000 144396100 144399700 44443700 44431000 44621000 
16043550 146236000 16503000 16769000 16840500 16831000 16815500 46819400 
18465000 18466700 18527100 18544100 18555200 18790500 48800200 18800300 
19709000 1497144100 19766800 19786009 19904850 20034060 20034200 20034600 
20420800 20176030 20176144 20230400 202130500 90230700 20289380 202789590 
20567030 20570070 270573350 20574905 20574920 20575650 20576215 20576300 
20577899 90578500 70578240 30578400 20580302 70585380 20585385 70588040 
29608050 90640700 20640300 20640350 20640420 90739000 20769600 29050000 
22383100 22386400 292403000 2724298000 22991000 24033000 24035900 780549200 
28302000 28420600 28429800 28482000 28482200 28482600 28823500 28868200 
30999500 32000600 32001575 37232500 37254000 37763000 37979000 37463000 
38408000 38478000 38546000 38525000 3861,0600 38630000 39970000 40075000 
40317800 40323700 40335000 40353200 40356550 444199000 41209000 44323550 
42478600 42500000 42539050 44139000 44240660 44242010 44244500 44246500 
44281000 45092360 45099600 451346000 45135010 45435800 45443000 

FORGETUSERDISK =" PROPENURE @" DECLARED AT 05846600 =" FORWARD aT 00316000 
05853700 05977050 05977100 07025000 07478300 07345000 44360900 14406000 
19592008 20210600 28795400 268300600 37546000 37549000 38480000 38523000 

FORKEM ©" DEFINE “"" DECLARED AT 28007600 
280713800 

FORKEFH == DEFINE == DECLARED AT 28208600 
26247800 28305000 

FORKEN == DEFINE = DECLARED AT 28405200 


16259000 


16795500 


20059600 


02317000 
05966100 
06329000 
07079000 
07348040 
08055000 
08572400 
08947000 
09658000 
12704000 
15552800 
16829550 
19575000 
20045400 
20382580 
20576450 
20588450 
22069450 
28062400 
28868400 
37545000 
40076000 
41334600 
44248500 


14583200 
38599000 


16263700 


16830200 


20090200 


02434830 
05966400 
06353540 
07083000 
07332000 
08446350 
08597840 
08947600 
09684540 
12757000 
15604800 
18019000 
19685070 
20045600 
20541340 
20577725 
905997905 
22225000 
28286800 
28882140 
380 14900 
40317230 
44335000 
44252000 


18425600 


16866530 


20180800 


02434840 
05975620 
06353555 
07093000 
07373000 
08446400 
08621600 
08998000 
09681545 
12898000 
15627000 
18078000 
19700500 
20066500 
20511350 
20577823 
206014200 
22350000 
28295600 
28888000 
38228000 
40317700 
41607500 
44272000 


18446000 


28454800 
FORKED == REAL == ODFCLARED AT 41316400 
*413172004%41318620% 41318840 41320255 41325600 
FORM "" DEFINE =" DFCLARFD aT 20240000 
20448050 20450000 
FORMFSS 7" REAL PROcENURF “"" OFCLARED AT 08418000 
*08420000%*08438300% 16244000 
FORMS =" RFAL == VALUE PARAMFTFR *= MFCLARED aT 00373000 
00373000 00372000 
FORMS «== REAL w= VA) UF PARAMETER == DECLARED aT 37002000 
379000000 =379014000 37046730 379046740 837046825 37046960 37047800 
FORMS =="  {NTEGFR “= DFCLARED AT 38004000 
*38075500% 38082500 «38091000* 38094000 38097000 38098000 
FORMS ee" INTEGER =" DECLARED AT 38102400 
FORMS "="  NTEGER "" DECLARED AT 38200400 
38215500 38252500 
FORMS =" REAL “" DECLARED AT 38362000 
*38421000% 38489000 38505000 
FORMS *" RrabL "=" preLaREn aT 38547000 
FORMS = Rrab == nrelLaRrn AT 38655000 
38737000 38743000 
FORMS == INTEGER == DECLARED AT 39003000 
*39089000* 39099470 
FORMS w= REAL == DECLARED AT 44003000 
*41048000*« 
FORMTIME "= PROCEDURE == DECLARED AT 05607000 == FORWARD AT 00480010 
02173297 
FORMTOG ©" REAL 7" NMECLARED AT 12505500 
12700500 12753000 12757500 
FORMTOG "=" RralL @" nNECLAREN at 12805500 
#12849000s 12860500 *12878000~ 
FORMTOG = REAL == HWECLAREN AT 13007000 
FORSEVEN e= STREAM VARIABLE e= DFCLARED AT 04658700 
04669100 *04660R00™ 
FORTRAN = DEFINE == DECLARED AT 20235000 
FORTY == REAL = DECLARED AT 40004500 
40916026 40016019 40947285 40017295 40039100 49040500 40078068 40100700 
440261043 4440261047 44 40290500% 40290600 440292060 44403213104 40322000 40322450 
FORTYMILLorsk ==" HEFINE @* oFCcLARFD AT 40008200 
40261910 40261200 40290400 40324310 403747200 40397000 
FOUND = LABEL == DECLARED AT 02189000 == OCCURS AT 09237000 
FOUND w= LABFL == DFCLARED AT 04705000 == OCCURS AT 04736000 


04732000 

FOUND w= {LABEL ©= DFCLARED AT 05952620 = OCCURS AT 05976900 
05976450 

FOUND e= LABEL |= DECLARED AT 06462120 == OCCURS AT 06463600 
06463580 

FOUND =" LABEL ==" DFCLARED AT 08255800 == OCCURS AT 08270600 
08270300 

FOUND =" LABEL =" DECLARED AT 14547000 == OCCURS AT 14599000 
14594000 

FOUND ©" LABEL °°" OFCLARED aT 18204000 == OCCURS AT 18232000 
182278000 

FOUND ©" STREAM LARBFL =" DFCLARFN AT 28411400 == OccURS aT 28413400 
28412400 


FOUNDAFYLE == REAL we NECLAREN AT 08100250 
08145250 *08117000 08117100 
FPB e* REAL ARRAY ©= DECLARED AT 04668800 


40100900 40104250 %40249105« 
40324102 *#£40334054.% 


*04680100% 046812950 04681850 *04682050« 
FPB @" REAL ARRAY °* DECLARED AT 06462110 

*#06463520% 06463560 06463580 *06463660%%06463680* 
FPR =" Real ARRAY ™" NFCLAREND aT 07010000 

#97048000 4407019000 4%07073500%«07076010%4%07093010%«07104500»% 
FPR e* Real ARRAY == nrcbLaRen ar 12502500 

* $25 36500 e841 9539500 «814 2540000%41 2675750" 42700000 42700500 *127025004%419703000%«12750950% 
FPB e= REAL ARRAY == DECLARED AT 12802500 

*412876500* 
FPB we REAL ARRAY == DECLARED Al 13003000 
FpB e* REAL ARRAY == DECLARED AT 14624600 

*14644000% 14645600 *14677000% 14679000 *14684000% 14685000 44688000 *14705000" 14707000 
FPR ©" REAL ARRAY "" DFCLARED aT 18502400 

*16323800% 18524100 18525700 18526800 «18552800* 18553100 18553200 18555700 18555800 
FPR =" Real aRRay =" nrebaRen at 19521000 
FPR oe" Realb -= prcbaRrn aT 20017600 

*#20049000% 20049500 70050000 20053200 200614100 20066500 
FPB e»= STREAM VARTABLE == DECLARED AT 290053700 

20053400 
FPB == STREAM VARIABLF ==" DECLARED AT 20061300 
20061400 

FPB w= REAL ARRAY == NECLARED Al 37180400 

&372421004*37242900%% 37 242300% 
FPB ©" REAL ARRAY "=" DECLARED al 37272000 


«37273000% 37274000 37275000 37276000 37276100 37278000 37278200 37279000 «37280000 ««37281000«%37283000« 


*37284000« 37284430 *37284150% 37285100 «37285200«%37285300% 37285320 
FPR @* Real aRRay =" neclaRrn at 36008000 
*38013030**3801 3040%*3804 3900**358015709%%380,5950* 38075000 
FPB ew REAL ARRAY = NECLARED AT 38102800 
38404800 *38145000% 
FPB == REAL ARRAY |= DECLARED AT 38200800 
38202800 38213000 38244500 *38216500** 3823 3000%«38936000#* 389360104 
FPB ew REAL ARRAY == DFCLARED AT 38357000 
384019000 38411500 38412200 38422000 38453000 38461000 
FPB -*® REAL ARRAY =" DECLARED AT 38542000 
384693000 
FPR ©" REAL ARRAY ®** DECLARED AT 38650000 
FPB =" REAL ARRAY “™* ONPECLARED aT 39005000 


*39083000% 39085000 39086000 39087500 39089000 39094000 «39092170% 39092175 «39297010 %«39297020% 39297100 


*#39306010« 
FPB =" Real ARRAY ™* NFcbARED aT 41001000 
*41040000% 47046000 41948000 414144000 
FPBAREAV w= DEFINE == PECLARED AT 00017560 
20049000 970049800 70187400 28950800 
FPBpTR = REAL == DECLARED AT 298001800 
28044200 278028000) 78037400 *28050400% 278050600 78050800 278051000 2780574600 28052400 278052800 
«28068600» 
FPBPTR "" REAL °* ODFCLARFD AT 28202200 
28226400 #28 246000 % 28247400 £282482004%28250400% 28250600 28251200 28305200 28305400 
FPRPTR @" REAL *" pnrcLaRFn aT 28401000 
28434200 28481600 
FPBSi7e == REAL =" pECLAREN AT 06462105 
*06463520% 06463540 
FPBVERSION == REAL == DECLARED AT 20016800 
20016900 *20053;400% 20083200 20061100 20064000 
FPB3 == REAL =" VALUE PARAMETER ==" DECLARED AT 00390200 
00390000 00390;00 


FPB3 "= REAL =" VALUE PARAMETER =" DECLARED AT 37286200 

37786000 37286100 37293220 37293240 
FR = STREAM VARIARLE 7" DECLARED AT 08838000 
FREE "= STREAM LABEL ==" DECLARED AT 08110550 = OCCURS aT 08111200 
FREE 7" NFFINE @"" DFCLARED AT 20219200 

20511660 20511664 
FREEF =" nEFINE =" nFeCLARFO AT 29247930 

20448050 20461050 20461650 20467100 20473400 
FREEF @= REAL == DECLARED AT 37004200 

*37046005% 37046370 
FREEL w= LABEL «= DECLARED AT 37004200 =2 OCCURS AT 37046460 


37046420 

FREEMASK = DEFINE == MECLARED AT 00081300 
094630000 

FREES °* UWABEL =" DECLARED AT 20597750 “= OCCURS AT 20606250 
20597900 


FROG "= STREAM LanFlL == DECLARED AT 04662100 “= OCCURS AT 04662300 
FROM = ReraL =" Valttf PARAMETER =" DeclbaReo at 01250200 
01250100 01250200 01254900 01255800 01257300 
FROM == NneFINE =" DECLARED AT 20238000 
20570400 
FROMCOPY == DEFINE == DECLARED AT 278008200 
28012000 278049400 
FROMH1.0 == REAL ==" DECLARE! AT 20566290 
20566300 20566810 #20569522%% 205698 50 ee 20569860ee 20570460 ee 20570464% 20570570 
FRONT ©" Real "" peebLaRFn at 22230000 
22264000 272268000 222773000 22278000 22284300 27284500 22286070 2292864310 *22296000* 22307000 22309000 
22344000 92328400 22331400 22350000 22354000 99356300 22363000 279365300 229383300 272386400 922391000 
22403000 22410000 272428000 
FRONT = REAL = DECLARED AT 24004000 
*24007000% 94041000 
FS =e REAL, ARRAY == DECLARED AT 00419400 
04105650 *380390008% 44162050 
FSAREAV == DEFINE 7 DECLARED AT 00017480 
20181000 
FSROW ©" REAL ARRAY «= DECLARED AT 00419400 
*20181000% 
FSX =" REAL =" DECLARED AT 04100000 
*04105650*" 04105750 
FT = REAL '" PDFCLARFEN aT 20016900 
20017000 20061000 *20063700%%20063800e 20063900 
FY = STReaM vaRyaBLe == prclaRrpD AT 20061000 
20061800 
FT =m REAL ©= DECLARED AT 20704100 
*20774500% 90769000 
FTC w= DEFINE == DECLARED AT 00067070 
022775450 44358800 14360350 22427000 38266000 385743000 
FYIF ©" DEFINE "= DECLARED AT 00067060 
02067000 02097400 04201000 14218088 17002600 22383050 22424000 28470000 28474000 38107100 38205400 
Fri o#* Real = neckhaRen at 20017800 
*20063700% : 
FUNC == SWITCH LAREL == NECLARED AT 20511170 
20541450 
FUNCY w= ABEL == DECLARED AT 70511165 == OCCURS AT 20511455 
20541170 
FUNCTION “7 SWITCH LABFL 7" DECLARED AT 14631000 
14634000 


FUNCO *" LABEL ** OFCLARED aT 20511160 "= OCCURS AT 20511460 
20511170 
FUNCL =" LABEL =" AFCLARED aT 20511160 "= OCCURS AT 20511510 
20511170 
FUNC2 ©" Lapel =" prcbaRfp aT 20511160 == Oc¢cuRS aT 20511540 
20511170 
FUNC3 = LABEL ==" DFCLARFD AT 20511160 == OCCURS AT 20511570 
20511170 
FWD == STREAM LABFL m= DECLARED AT 37394400 == OCCURS AT 37394500 
FXT9oG «#= REAL == DECLARED AT 20702000 
20702100 #*20712N00%*2071450N0% 20729000 270745000 20767000 
Fi = STREAM VARIABLE "= DECLARED AT 12410500 
12412000 
F2 "= STREAM VARTABLE *" DECLARED aT 12410500 
12412000 
G 7" LABEL "* NFCbLAREN aT 95841650 "= OecuRS aT 05846395 
05843600 05844000 
G oes  NTEGFR =" DECLARED AT 05847700 
*05848255*% 05848300 *05850200* 05854220 05851300 05852200 05852400 05859500 
G == INTEGER #= DECLARED AT 05957000 
*05961800«% 05974900 05971600 *05971800* 05972000 «059794008 


G oe" (ABEL "=" DECLARED AT 07270000 *" OcCURS aT 07275000 
Go oe= REAL == DECLARED AT 08441000 

*08497000% 08497400 
Go o== INTEGER == VALUE PARAMETER == DECLARED AT 15169100 


15168000 15168100 15172500 15175000 #15176000"%15177000« 
G *" STREAM VARIARLE 7" DECLARED AT 15404000 
15406100 
GET 7" Real SUBROUTINE =" NeECLARED AT 13033000 
13090000 143097nN00 13118000 
GETAROW == LABFL “= DFCLAREN AT 18205000 = OCCURS AT 18421000 
18288000 
GETASEGMENT = SUBROUTINE ==" DECLARED AT 28409200 
28455800 278459800 28462600 28481000 
GETASEGMENT ©" SUBROUTINE =" DECLARED AT 98809000 
28224250 278859000 28868000 
GETBUFFFRS =" OEFINE 7" DECLARED AT 90387000 
38925000 38152000 38297500 39144000 39230000 39244000 39293400 
GETEM ©" LABEL =" prcbaRFp aT 20566600 == OcclRS aT 20569920 
20570250 
GETESPD1SK == REAL PRocENURE == DECLARED AT 060291000 = FORWARD AT 02411000 
%06031000% 06249000 07179230 07263800 98276490 49685020 19737000 149768700 419777000 
20403000 20566685 20569400 20576100 20576758 20581950 20582500 20585550 20603200 
40008330 44269500 44271000 
GETFILESPECIFIER =" SURROUTINE =" DFECLAREN aT 08101800 
08102800 08116600 
GETFROMFRONT "" FIELD =" DECLARED AT 24042595 
GETMOREOLAYNISK “= PROCENURE =" DECLARED aT 06400000 
24167000 
GETNEXT °°" SUBROUTINE =" DECLARED aT 08858000 
08870000 08885000 08910000 08927000 
GETONe @= LARFL =" neclAREn AT 28806000 == O¢cURS AT 28862000 
28868100 
GETOUT == LABEL |= DECLARED AT 14003000 «= OCCURS AT 44072000 
14951000 144074000 
GETREADY w= SUBROUTINE |= DECLARED AT 08101400 
08101700 08116550 


20034500 
22069430 


20400000 
38495000 


AT 08104400 
DECLARED AT 24942200 
02181000 02206000 
04278200 04359600 
04679950 04674750 
05844110 05844930 
06090000 06095;00 
06353545 06353600 
07095100 07096000 
07371200 07429100 
08276410 08380000 
08604000 08605000 
08881000 08886000 
12468000 124732410 
14380000 14398600 
15022000 151413800 
15622000 16044400 
179003450 147909000 
48528200 48570,00 
19714100 49749000 
201031300 20196000 
20289148 20374415 
20604850 20607060 
24049675 «24045500 
28069600 28069800 
28439400 78435000 
28868300 28869000 
37249000 37277000 
38246500 38399000 
40263000 40965000 
41320600 41323430 
44240840 44241000 
45135170 45155000 

AT 00012001 
08569709 08714130 
41502100 45092430 


DECLAREN AT 05841700 


DEeLAREN aT 08317000 = 


*44269500* 


45115000 45418000 


20105350 45075600 


NECLARED AT 90409000 


DFCLARED AT 00410000 


DECLARED AT 04588300 


GETSET = SUBROUTINE "= DECLARED 
_ 08104650 08116700 
GETSPaCr = INTEGFR PROCFNURE 7 
00039035 01250700 02173110 
04004170 04251;00 04272000 
04568550 04644000 04672500 
04707000 05703000 05709000 
06037300 06074200 06077500 
06206140 06210000 06211100 
06463880 06464000 07087000 
07257400 07274000 07304000 
08267500 08274750 08975500 
08568600 08577700 08597800 
08715100 08775000 08831000 
12321100 42407000 12408000 
14203020 44281;000 14353000 
14570100 14603750 14645800 
15600800 45604950 415634000 
169962190 146956040 47902600 
16286000 48438,20 48520600 
19680200 149685025 19705000 
20049800 200593420 20089820 
201481000 20187400 20194300 
20600950 20604500 20601726 
22163000 22904000 22909000 
28062000 28965000 78069000 
289914000 283045;0 78499000 
28466600 288655000 28856000 
37946180 37046520 37240700 
38407000 38905000 38248000 
40016400 40249;,00 40249120 
41314000 41317790 44318240 
44202120 442025009 44703200 
=: 45431100 45135040 45135110 
GETUSFRHISK °" DEFINE @" DECLARE 
05954800 06420000 07045000 
44318240 44320500 44321200 
GETUSERnISK =" DEFINE == 
05843600 05845500 05846500 
GI == REAL ARRAY == DECLARED AT 44017000 
GI =e REAL ARRAY == PFECLARED AT 44207150 
*40956100% 44256150 44260000 
GI == REAL ARRAY == DECLARED AT 45002700 
45103000 451405000 457314000 
45134000 
GIMEDaTe “™* PROCEDURE “" 
08108200 08385000 16494000 
GIN #* bLanFL =" DECLARFN AT 14627300 
GIVEDATF © DEFINE ve 
45335100 
GIVET;ME == DEFINE eo 
45135160 
GIVEUP e* LABEL == DECLARED AT 04554200 «= 
04568600 04627000 
GIVEUP == LABEL =* DFCARED AT 07356000) «= 
GM = STREAM VARIABLE = 
04588370 


v= FORWARD AT 00014000 


02218000 
04365400 
04675000 
05850120 
06103900 
06353680 
07097000 
07433000 
08385100 
08629000 
08930000 
12679500 
14444640 
15115700 
16506000 
48943000 
487907400 
197341000 
20124900 
20382058 
22008000 
24046200 
28070000 
28443200 
30907000 
37314200 
38434000 
40275200 
414328600 
44256100 
48054400 


08716010 


45121000 


OCCURS AT 04642900 
OCCURS AT 07371450 


02255000 
04371930 
04675650 
05952995 
06407200 
06360600 
071401000 
07446000 
08410000 
08631000 
09505000 
12708250 
14411820 
15174000 
46591000 
18044000 
18790600 
19768768 
20127300 
20511370 
22012000 
28048000 
28913400 
2845 1800 
30945000 
37360000 
38625000 
40275500 
414333040 
44262500 


18425100 


45122000 


FORWARD aT 08070000 


02347320 
04404000 
04675700 
05953070 
06107300 
06 380440 
07139530 
07564000 
08424000 
08690000 
09506000 
12823000 
14415300 
15180000 
16756000 
48948000 
18794620 
20021920 
20153700 
20567005 
22069000 
28023800 
28218400 
28452600 
32000300 
37406000 
39934000 
40278 ,450 
41602900 
442764500 


18425300 


- 45123000 


02434320 
04555250 
04683500 
05961400 
06109400 
06380350 
07155000 
08104600 
08437200 
08693200 
09535000 
12833000 
14431530 
15501200 
16827400 
18273040 
18820200 
20026600 
20157700 
20567020 
22069050 
28050800 
28263400 
28455400 
32000500 
37440000 
39939000 
40292212 
44149000 
45075600 


19736000 


45124000 


02434430 
04567320 
04686400 
05966600 
06188100 
06380400 
07214000 
08112000 
08438400 
08709800 
09639000 
12848500 
14533000 
15546000 
16828300 
18276000 
18830600 
20098300 
20176048 
20592400 
22069400 
98056400 
98267400 
28457000 
32100500 
37454000 
39958000 
40320200 
44150005 
45104000 


20289150 


45125000 


02639000 
04567790 
04686950 
06022300 
06195125 
06414000 
07256400 
08115300 
08498000 
08712100 
09680200 
12892500 
14559250 
15549000 
16949500 
148280000 
18879700 
90049000 
20176090 
20600400 
22069350 
2805 38600 
28288000 
28459000 
37036300 
37508000 
40016240 
41312700 
441452000 
45130000 


28435800 


85126000 


GM = REAL 7" DECLAREN AT 14164200 
GNX #* LaREL =" DECLARED AT 08855000 "= OCCURS Al 08869000 


08862000 

GOGO c* LaREL 7" NECLAREN AT 20316000 == OCCURS AT 20321000 
20374500 

G9G0GO "" LARFL =" nrelLARFn AT 09008000 == OceURS aT 48024000 
48044000 


GOT w#= REAL = DECLARFN AT 31005000 
31005310 31005330 *#31070000* 34042000 
GOT = STREAM VARIABLE += DECLARED AT 31005310 
GOTB = INTEGER =" QECLARED AT 37003000 
37021000 *37045000% 37946820 37046940 
GOTC "= INTEGER ™" NMECLARED AT 37003000 
«37019300% 37021000 37039000 37046820 37046950 
GOTIT =" LABEL *"= DrcbLaRED at 13019000 = O¢ccyRS AT 13119100 
13099000 
GOTL "= INTEGER =" nECLAREN AT 37003000 
#37042000% 37021000 37039000 37046820 «37047500 
GOTP == INTEGER == DFCLARED AT 37003000 
*37017000"*37047K500% 
GoTT = INTEGER == PECLARED AT 37003000 
*#37035000*% 37046A20 37946940 
GOTTEN " LABEL =" PECLARED AT 13018000 == OCCURS AT 13090000 
13085000 
GRaplyr 7" LapeL @" mecbaREn at 14627400 
GUARDFILFEFIn 7" nrFINe =" neclaRFnp aT 06101100 
08110150 08110350 
GUARDFILEMFID == DEFINE == DECLARED Al 08403050 
084491400 08110950 08440350 
H we REAL, ARRAY == VALUE PARAMETER *= DECLARED AT 00390900 
00390008 00390;00 
H == REAL ARRAY == VALUE PARAMETER = DECLARED AT 02347160 
02347150 0273471460 
H == REAL =" NAME PARAMETER == DECLARED AT 02696100 
02696000 
H *" INTEGFR =" DECLARED AT 05841615 
#05842930% 05843700 «05845100% 05845300 05845500 05845700 
H *" INTEGER =" PECLARED aT 05847700 
#05850 300 ¥¥05850 400 4 %05850600* «05851500 %405851850*% 05852000 05852700 
H **  NTEGFR == DECLARED AT 05952000 
05953085 *05962000%*05962900%*05965600% 05962700 05969900 05970800 05977800 05973400 05973800 «05974400" 
*05974600" 05974800 
H es STREAM VARIABLE = NECLARED AT 95953085 
05953105 05953110 
H m= REAL ARRAY == VALUE PARAMETER == DECLARED AT 07002100 
H = REAL ARRAY = DECLARED AT 07010000 
07023000 07025000 07926400 07026500 07043000 £070440004«07045000«%07097000%«%07111000% 07112000 «07112100 
w97T ITB 200 O71 79000 07179050 ue 07179100 mR O71 79200 we07179220% 07179250 07179260 07180000 07238000 
H =" REAL ARRAY == yALUE PARAMETER “= DeCLAREN aT 07377000 
07376000 07377000 07389000 07390000 07393000 07395000 #07 3960004807 397000 «07 399000%«07400400% 074034000 
*07403000%*07404000% 
H e= REAL ARRAY == PECLARED AT 07407000 
*07009000«e 07440000 07410100 07412000 07436000 07417000 07420010 07420050 
H = REAL ARRAY =" NECLARED AT 07425000 
#97433000«#074 340008 07436200 07436300 07436500 07437800 #074 38100#4074410008m07442000% 07444000 «074450008 
07445100 07445200 07445300 07446100 07446350 «07446200% 07448500 07451000 
H °™ REAL ARRAY =" VALUE PARAMFTFR 7" NFCLAREN aT 07541000 


07545000 *«0754800084+07548100% 07549000 *07550000%407550400"«07557000% 07559000 


H o@™ tNTearFR © DFCLARFO aT 08306000 
#08309000*% 08340000 
H *= STREAM VARIABLE |= ODFCLARED AT 08310000 
08342000 
H == REAL == DECLARED AT 08418500 


#084 34000 %#084 344008 *084349000% 08434300 08434500 08434600 08434700 *08531000% 


H == REAL =" DECLARED aT 08704000 
*087909800%*08712100% 08712110 08712120 08712130 08712140 08712150 
08714120 08714430 08714150 08714170 *087453100* 08715200 08736100 
08728500 08728700 

7" sTReaM VARTABlr *" prebLaRen aT 08709800 

STREAM VARTABLE == necbLaRen aT 98713250 

== REAL ©" DECLARED AT 14545400 

*14552750%*44569900" 14569500 14570000 44584700 

P= REAL ARRAY == PECLARED AT 18502400 == OCCURS AT 45032000 


x zrrt 
a 
4 


*18594500%*185247008«465P4900*18525300* 18525500 *48525900%*18526300%*185726500* 


18527400 48527500 *78527600**4852984;00% 1485282700 
H *" REAL ARRAY =" DECLARED AT 19521000 


*#19685025%#19685030"*19685055* 19685065 19685070 «19685570««19685580ue1 9685585" 


H ** REAL ARRAY *" PECLARED AT 19692000 
%*19731000% 19732000 #19733000%4197 35000 ««19735050%%19736000% 419738000 
%#19768600%%19768650% 19768750 19768768 19779000 «19780000« 19781000 
H ow" ReabL aARRay = necblaRen aT 28004400 
26044800 *«98070000% 28091800 «28099800% 78100200 
H w= REAL ARRAY #= DECLARED AT 78204800 
28940000 98740500 287954000 *98255800% 28957400 98758400 278958800 
282978600 378979400 76983200 278286400 *28989700% 278290000 278990900 


28295400 28297800 «28298600% 28298800 «28299000% 28299600 28999800 


H == STREAM VARIABLE == DECLARED AT 28291200 
28292400 
H ** REAL ARRAY =" DECLARED AT 28604000 
*28892000%*28829500e 28923500 278836000 78836500 «28883000 28882440 
28888000 
H *" REAL ARRAY 7" VALUF PARAMETER ™" DECLARED AT 37286300 


07559110 
085329000 
08712160 08712170 
087164190 08746200 
18526700 
19751000 49754000 
19786000 
28259000 28273400 
*282990400%«28290600* 
28300200 28301600 


*28882000% 288864000 


37286000 3728614099 37289000 37290000 37291000 37292600 37292800 *37293270« 37294000 


H 7" REAL ARRAY ™" NAME PARAMETER =" DNFCLARED AT 37500000 


07559180 


06713250 
08716300 


18527000 


19766300 


282976600 
28294200 


28885000 


*07559500« 


08714110 
08716500 


18527100 


19768200 


98977600 
28295000 


*28886000" 


37519000 37511000 37512000 37513000 37545000 37516000 «37517000% 37521000 «37521200%%37531000« 37533000 


37535000 «*37538500« 37547000 37543000 «37544000 
H = §TREAM VARTABLE == DECLARED AT 38014200 
38044300 
H ewe STREAM VARIABLE «= DEC |,ARED AT 384272000 
38423000 
H ** REAL == DECLARED aT 40007500 
*402R01L00% 40283600 40293070 40317500 40317610 
Ha ™" bLagrlL =" pFclaREn aT 00650750 = OccURS aT 00655200 
00655800 00656400 
HA =" REAL "=" DFCLARFN AT 05952240 
*05976000*% 05976800 05977000 05977550 
HADDR w= REAL == DECLAREN AT 19694000 
#49737000% 49738000 49767800 *49777000*% 49780000 49789000 49783000 
HALT = PROCEDURE -= DECLARED AT 02036000 
02257000 07363000 027434480 04674500 06403800 44358383 146425000 
22244000 42501500 
HALTED "7 REAL =" ODFCLARED AT 16698230 
*#16850900% 16856200 
HALTSET °" DEFINE "=" DECLARED AT 00416751 


19785000 


16850900 


18584400 


19905320 


22041900 


00656600 441822700 
HANDLFRR @* LARBFL =" DECLARED aT 28211000 = 
28242800 282743800 
HANG "= AFFINE =" NFCLARFN AT 00006100 
HARDFILL ** SUBROUTINE "=" NFCLARFEN AT 01253800 
01254700 01256900 073258000 01259200 
HB = LABFL = ODFCLARFED AT 00650750) == 
00656208 
HD =» REAL ARRAY == DFCLARED AT 05951600 
05951700 
HD = LABEL =" DECLAREM AT 16700500 ‘= 
16705000 
HDR *" REAL ARRAY ™™ DECLARED aT 05952260 
#05976050% 05976450 05976300 
HOR ©" Reralb t= nrclaRrn at 07244000 
*07256000*% 07257600 07257800 072699200 
HDR w= REAL ARRAY = NFCLAREN AT 08100000 
*08194600*% 08105350 08105400 08105500 
08110050 08110100 08110150 08110250 
08116350 
HOR =" REAL @* DECLARFN AT 08255400 
#08273750% 082742960 08275750 08276000 
HpR =" Real ** pnrcbaRrn aT 20012400 
#20098300% 20028900 270031500 20034009 
HDR =" Real == pFcbaRen aT 20081600 
HOR == Rrab c= necbaRen aT 20142000 
#207450200% 20769600 92901469800 20469900 
HOR = REAL == DFCLARED AT 22061100 
22961110 *22069030* 22069140 27069120 
HDR ww" REAL ARRAY == DECLARED AT 28205400 
*28989000%* 98 289400%*28 289600" 28290400 
HDRICHK = SUBROUTINE |= DECLARED AT 01251700 
01252400 01255309 01256200 01259000 
HORIFILL = SUBROUTINE =" DECLARED AT 01252500 
01253700 01255400 01256300 01256800 
Hran "7" Real aRRayY 7" nmFCLARED aT 40005050 
#400 16510 040017050 4440017200 %440047250 %4"40097295% 
#40076054%*40078058« 
HEADER == REAL == DFCLARFD AT 0595722750 
*05975750% 05975850 05976000 *05976050* 05976800 
HEADER = REAL «=» NAME PARAMETER 
06440000 06463200 06463840 06463860 
HEADER == NAME #= PDFCLARED AT 08703000 
*08796000e%08707500% 08708000 08709000 
08745100 «087160004 08716100 8716110 
HFANER *°" Real aARRaAy = nrcbaRen aT 12502500 
12503000 42564600 *42562000*#12563000« 12564500 
12633500 42642000 1427643500 
HEADER = REAL ARRAY == DFCLARED AT 12802500 
12803000 
HEADER == REAL ARRAY ee DECLARED AT 13003000 
13941000 13042000 13044000 43949000 
HEADER °" REAL ARRAY == DECLARED AT 14624400 
HEADER =" SUBROUTINE == DECLARED AT 18238000 
18270000 18287n00 18426000 
HEADER "* REAL ARRAY '" DECLARED AT 20289040 


= OCCURS AT 28245400 


01259700 


OCCURS AT 00655600 


05976350 «05976950« 05977350 


08405700 
08110350 


08276400 


20034060 


20474300 
22069340 


28995200 


01257900 


08105900 
08112050 


20034200 


20176054 


28296000 


01259100 


40043000 


05977000 


wm DECLARED AT 06460200 


0646 3880 
08709400 
08716200 


06463925 


05977400 


08106040 
08112150 


20043800 


28299200 


01259600 


40046000 


05977550 


06466610 


*05977500* 


08107100 
0a112175 


20044800 


28299800 


440049000 «40057000 e*40078042% 


05977850 


*06466620* 


05952400 *05953070*% 05953075 *05953080* 05953085 *#05953117%*0595 37420 #40595 3425» 
OCCURS AT 16823000 


08109100 
08113300 


20045400 


28300400 


08109250 
08114300 


28300600 


08709500 *08711000e 08711600 »08712000% 08712100 
4087 (22004#087125004%08713000% 98713250 «087441 20%%0B714130% 08744440 


08717000 «08721000 


12565000 


12627500 


087144150 


087414310 


08714320 


08109300 
08114350 


40078052 


08712120 
087145000 


12630500 *12632000**72632500" 12633000 


*#29289055% 


20289080 «2028910544%20289) 104% 29289113 «4202891 150% 209894 20% 420289 {25 nu 202891 3044702891 35% 


HEADFR &™ REAL ARRAY = DFCLAREN AT 38010000 
38014700 38044400 «38020000 38032006 %38035000% 38040000 38045440 38049400 38049500 


#36014100% 
38075500 


380760090 380914000 


HEADER ©= REAL ARRAY == DFCLARFD AT 38103000 


38193200 


HEADER == REAL ARRAY == DFCLARED AT 38701000 
38201200 *382751000%* 3825 15004*38 259000 4% 382527500 «3895 3000 #3895 3100 &% 3825 3500 38254000 &¥ 38266000 «4438288500 


* 38789300» 


38290009 38291000 


HEADER *" REAL ARRAY “= DECLARFD AT 38357000 
#38 388000 4% 38389600 6438390000 e%38390300% 38401000 ~38406500% 38411600 3641180004384 122004 38421000 


2384940004 
38465000 


38597500 
HEADER == REAL, 


38426000 38427000 38429000 
38467000 38468000 38479000 


38508000 385748500 38523000 


38049600 


38422000 


*38430000«% 38437000 «38453000% 36454000 38457000 «384614000% 38462000 
38473000 *38475000*% 38476000 38479000 38480000 38481000 «38482000» 
#38456000 44 38489000 wx 38490000 %% 38491000 %%38492000% 38496000 38499000 38503400 638503600«*38505000% 38506000 


38595000 


ARRAY == DECLARED AT 38542090 


HEADER e= REAL ARRAY == DECLARED AT 38650000 
HEADER = REAL ARRAY == DECLARED AT 39056000 
HEADER =" REAL ARRAY = DECLARED AT 41001000 
DEFINE «= DECLARED AT 08401300 


HEADERADDRESS) e« 
08195350 

HEADERUNLOCK °° 
05976800 


HERE = STREAM VARIABLF ** 


00083000 


HEURTST+C == DFFINE = OFCLARED AT 24114000 


24164000 


98105400 08106040 08116350 


NEFINEG *" NECLARFD aT 00430000 


16816500 20578425 20593950 


VALUF PARAMETER 
00087000 


HH =e STREAM LABE|, se DECLARED AT 150397000 


Hl == REAL == 


DECLARED AT 06068300 


06088100 *06088900*% 046097800 046100800 


HI == REAL °* 


DECLARED AT 37180000 


#37187100"«37187950«% 37168500 37195200 


37232000 
HICNT =") Real 


37232250 


m= nrcebLaRED AT 06068800 


*06087000%406087300" 906087900 06088000 
HIGHLINK =" nerINe == pneclbaREp aT 40008170 


40060302 
HME == REAL eo 
20567055 

HN4 7 REAL =a 
* 16895500 


HN2 e* REAL =e 


40070000 40078030 40078049 
DECLARED AT 20566265 
20567095 *90569980* 20570000 
DECLARED AT 16698000 
16625600 *46825B800* 46826500 
DECLARED AT 16698100 


*16825600#*%16825900« 16826500 


HOLD ™= REAL = 


*02355000» 


HOLD ™“=* REAL = 


18000000 


DECLARED AT 02349000 
02357000 #£092357606*% 02358000 


20594650 28283600 
"" DFCLAREN aT 00082000 


== OCCURS AT 45033000 
#06111500% 
# 3719528044" 37195 300e% 37195400 ee 37195 7008% 37212000" 37213000 


06088100 06088200 06088500 06089309 06089900 06090000 
40078048 
29570420 #20573450*% 20573510 


*16830400« 


VALUF PARAMETER =" DECLARED AT 18002000 


18001000 18908000 18047500 


HOLp * = SuRROUTINE “= pFCLARFD aT 18252000 


483074000 

HOLOCT = REAL 
#04677300« 

HOLOER = REAL 
18042000 


18317000 18330000 48339000 
“= DFCLARED AT 04668650 
04677400 On677650 04685650 
ee DFCLARED AT 00418850 
18075000 *18946000% 48018000 


HOLOFREE = NEFINE = DECLARED aT 00080700 


08571000 


413203140 


18075500 
18348000 18395000 18435000 
04685750 


18046000 48049000 *18059000% 18074000 ¥44086100« 44086200 


HOLDLIST == REAL ARRAY = DECLARED AT 18005000 


¥18914000% 


18015000 «18017000* 18018000 


18019000 «18048000% 18049000 18053000 18056000 18063000 


37220000 


18068000 


HOLDMaSK = 


HOLDMAX 


HOLD! 


HOLD2 


HOLD 3 


HP 


HPPTR 


HPOMASK 


HP2TOG 


HS 
HU 
Hi! 


H3 


18071000 18078900 
TFINE os= nFcLARED aT 00080700 
08378000 08379000 08388000 08577000 08571100 08573600 08627000 08628000 08677000 08689200 08689300 
08696100 08830000 08836000 44390310 413320320 44370355 454735720 
-= DEFINE © DECLARED aT 00418900 
480742000 44086,00 
=> REAL == DECLARED AT 20566247 
20566250 *90573480"*20573760*% 20576600 *70577300*% 90577325 20577450 20577600 
“= REAL = DECLARED AT 20566250 
20566255 *20577300« 70577395 20577450 20577625 
=" REAL *= DECLARED AT 20566255 
20566260 «20569030e 20569935 *20569960«e 20569965 «205699854«%20569990% 20570090 «20574905" 20576215 20577325 
STREAM VaRtaRbr @* nFrebaRFn aT 07003640 
07003660 07003890 
w= STREAM VARTARLF == DECLARED AT 07003640 
*07093680*% 07003780 
r= DEFINE == DECLARED AT 00080100 
02043000 48085000 48098000 
me MEFINE == DECLARED AT 00080100 
LABEL =" DECLARFR AT 16357000 "= OCCURS AT 16611000 
16366000 
DEFINE "=" DECLARED AT 00430100 
05976800 16816500 20578425 20593950 20594650 28283600 
Real @* VablUp PaPAMETFR ©°™ DECLARED AT 08418000 
08499000 08430000 08433000 08437100 
STREAM VARTABLE ©* DECLARED AT 20289080 
20989090 70289095 
REAL = VALUE PARAMETER = DECLARED AT 00452800 
00452600 09459700 
REAL == VALUE pARAMETER e= DECLARED AT 00650000 


*00451000* 90651800 #00657000* 00655200 
STREAM VARIABLE °=" ODECLAREL AT 00651800 
00653200 

REAL = DECLARED aT 02057000 

*02091000% 02092000 «02093000% 02094000 


TNTEGFR =") DECLAREN AT 92193000 
"02197000" 02198000 
INTEGER == DECLARED AT 02349000 


00656200 


*02356500* 027357000 
INTEGER w= DECLARED 


REAL == VALUE PARAMETER w= 


INTEGER =" NAMF PAR 


02357600 *02357700* 02358000 

AT 02434125 

DECLARED AT 02696500 
AMETER = DECLARED AT 02696700 


REAL © DECLARED AT 04126000 
#904168000%8 04170800 «041947008 04195000 
TNTFGER °™ DECLARFN AT 04551000 


04237000 


#94568360% 04568366 04568370 «04653900% 04654000 4«04658800% 04659200 


tNteaeR =" DECLARED AT 04668450 
#04677250% 04677300 *04682650* 04689700 
INTEGER |= DECLARED AT 04703000 
404792000 *#047260008%04798000% 04729000 » 
INTEGER == DECLARED AT 05702000 


04682750 


04733000 04734000 


04735000 


#05705000% 05706000 05707000 #05745000* 05716000 «05797000 05794000 


INTEGER =" DECLARED AT 05841350 
05441615 95842700 05842900 
05845700 

INTEGER *" DECLARED AT 05647700 


05848255 *05849500" 05850120 05850130 


05850200 


05843000 «05843200%%058441108"05844920% 05845000 


05728000 «05728140* 057281480 «057282200« 


05845100 *«058452004%05845500" 


WrearR oe FCLARFN AT 05951800 
#05964 000« 05964 400 05961606 0596;600 *05967400% 05967600 059689200 


*05976300% 05976350 05976950 #05977050*«05977400%«"05977350% 05977400 
INTEGER == DECLAREN AT 06069400 

#06085200%*06087400% 06087200 06087300 4060889008 06089000 06089400 
06093000 06093900 06094100 *06096700* 06096800 06097000 06097400 
06100100 06100200 *06100500e*06101000% 06101100 #06109200% 06109500 
06111000 06111300 06111600 06111700 06141800 «*06113400« 

INTEGER 7" DECLARFN AT 06164000 


05968600 05968900 05969200 05971800 
05977500 


06089300 «06094900* 060991400 06092500 
06097200 06097300 06099400 06099500 
*#06110500" 06110700 06110800 06119900 


#06213000% 06214900 06216000 06217000 *06218000* 06219000 06220000 *06221000* 06222000 06223000 «06224000 
06225000 06226000 *06227000%«06229000% 06231000 06232000 *06233000* 06233400 06234000 06235100 06236000 
06237000 06238000 06241100 06241200 #06242000% 06248000 *06252000% 06254000 06255000 *06256000%406266000" 


06267000 
INTEGER == DECLARED AT 06493000 
*06444000% 06446000 06417500 06448000 %06490000* 06492000 
REAL = DECLARED AT 06462105 
*06463540% 06463560 06463580 06463640 06463660 06463680 
INTEGER == DECLARED AT 07008000 
*07147000%*07151000% 
REAL ©" DECLAREN AT 07244000 
#072461600% 97261800 
REAL "* DECLARFD AT 07269000 
*07274000% 07276000 07278000 07281000 07282000 07284000 07290000 
07295235 07295240 
STReaM VaRtaBLe =" NECLAREn aT 07264000 
STREAM VARTABLE *= DECLAREN AT 97293000 
STREAM VARIABLE == DECLARED AT 07995030 
REAL =" DECLARED AT 07299000 
#07303000%*073040008 07305000 07311500 073142000 07313000 073145000 
07343000 073457000 07346000 07351000 
STREAM VaRIaBlLe °°" DECLAREN AT 07305000 
STREAM VARIABLE =" NECLAREN AT 07346000 
INTEGER ©" DECLARED AT 07388000 
#07401000e 07401900 07402000 
REAL °" DrcblaRen aT 07408000 
*07411000% 07442000 *07447400" 07447500 074149300 07449300 
REAL =" DECLARED aT 07424000 
*07448500« 
REAL == DECLARED AT 07458000 
07461000 07461900 *07462200* 07469300 07463000 
STREAM VARIABLE == DECLARED AT 07463000 
07465000 
INTEGER =" DECLARED AT 07543000 
#07564000*% 07565000 07566000 07567000 
INTEGER @=* NAaMe PARAMETER 7" DECLAREN AT 08001000 
08000000 *08008000% 08015100 
ReaAL ™" PecbaRen at 08026000 
06029000 08039000 08047000 08048000 
INTEGER #= DECLARED AT 08081000 
08083000 08084000 08089000 08090000 
INTEGER == DEC)ARED AT 08098900 
*08103150% 08103200 08103300 08108250 «08114050* 08114100 08114200 
STREAM VARIABLE == DECLARED AT 08114650 
#08114800% 
INTEGER =" DECLARED AT 08255200 
#08269000% 08269400 08269200 08269300 08269530 08270000 082770200 
08276500 08276510 


07290650 07293000 07294000 07295030 


07318010 07330100 07332000 «07333000 


081144650 


*08276340% 08276350 «08276410% 08276480 


STREAM VARTARLE == NECLAREN AT 98276410 
REAL = DECLARED AT 08283000 
08999000 08296925 *0B8996395* 08296350 *08996600%%08996800«% 08997200 08997300 
STREAM VARIABLE == DECLARED AT 08996925 
08296250 
REAL = DFCLARFD AT 08392000 
INTEGER e= DEC) ARFD AT 08418700 
408432000 #*084340004 08435000 08436000 08437000 *08438400% 06438410 08438420 08438430 08438440 
INTEGER @* DECLARED AT 08568150 
08568200 08569000 08569910 *08569920%*08571300*% 08571400 08571800 08572600 08572700 
STREAM VARIABLE = nECLAREH AT 08572700 
08572800 
REAL == DECLARED AT 08576000 
*08579000*% 08583000 08584000 08584100 «08585000% 08587000 *08588000% 08590000 
STREAM VARIABLE == DECLARED AT 08590000 
INTEGER @= DECLARED AT 08704100 
#087720008% 08712900 08714140 08714300 *087;7000* 
STREAM VARIABLE 2 QDECLARED AT 08774000 
08777000 08778000 
STREAM VARIABLE == DECLARED AT 08838000 
*#08841000%*08844000%%08845000* 08845500 
REAL ** DECLARED aT 09601000 
09602100 #09606000% 09607000 09608000 «09611000%#09641000% 09642000 09684000 09645000 
ReaL ** prcbaRen at 14164300 
14186100 4142480764 414218078% 14248080 *142;8084* 14218088 144227400 
STREAM VARIABLE = NECLARED AT 14186100 
STREAM VARYTABLE "= DECLARED AT 14297400 
14997520 
REAL *= DECLARED AT 14347000 


14349000 =$4351310 14351340 14354350 14351400 14351420 414358394041 4358395 0914358397 4414358398*% 14358580 


14358595 14358597 414358615% 143586620 14362000 14364500 14364700 «14364800%414385000% 14387000 
14392500 14394000 144395000 #14404000m 14405000 14406000 *144141000*% 14415000 

STREAM VARYABLF 2 NFCLARFH AT 14415000 
14449000 #14419500* 

REAL == DECLARED AT 14532000 

#14534500% 14535000 *14540300%81454;,0008 14541100 

REAL ** DECLARED aT 14545000 


14389000 


#14551000" 14551500 14552000 14552750 14554000 #14583100% 14583200 *14593000* 14594000 #14598500% 14600000 


*#14601500% 144602500 14603000 144603310 14604000 

REAL =" DECLAREN AT 14624550 

*14686000 04447123008414712750% 

REAL =" DECLARED aT 15171000 

*15184000" 15185000 

STREAM VARIABLE “™* MNECLARED AT 15404000 

#15409000«*154170004 

REAL &" DECLARFN AT 15536060 

#15549000% 15550000 15552800 

REAL f= DeclhAReN aT 15612000 

* 1562000084 15621000% 15626000 

REAL = DECLARED AT 16048000 

* 16079000 «#16082000% 16983000 16085000 #16100000%«16 1060008 167407000 16408000 162080008 746205000 
16246000 16224000" 162275000 16234000 «162370008 146239000 *16244000% 16245000 «16263300*% 44343100 

REAL = DECLARED AT 16349000 

#16598000*« 16599000 

REAL *" DECLARED AT 16695000 

16695500 «616698200 «16742500 416743500 me 16744500e%16745500m 16746500 *16782500% 16784500 16806500 
16809000 16810000 16811500 16815000 16845500 16816500 16817000 16818000 «16826500« 16826600 


16215000 
16343200 


16807500 
16828100 


r- 


Cr 


16828200 
REAL == DECLARED AT 16919500 
16941000 *469960208 169260972 46926040 #16996200*% 469276210 
STREAM VARIABLE == DFCLARED AT 16926040 
*16996150% 169276457 *«16926154™ 
STREAM VARIABLE == OFCLARED AT 169262710 
16926230 
STREAM VARIABLE == DECLARED AT 17003250 
179003500 
REAL 7" DECLARFN AT 18198000 


*18232000% 18241000 18248000 *18357100% 18357300 «18445000« 18446000 


REAL *" DrcbaRrn at 18502300 

* 18503400 4418520400« 18520600 18524000 «18523900% 18524400 
18555700 18555800 «*18556200* 18556300 18559600 

STREAM VARIABLE ==" PECLARFN AT 18521000 
18521600 *718522000% 18527100 

REAL =e DECLARED AT 48701800 


18525700 18526800 418552900«% 18553100 48553200 


418770204 18710946 *18740254* 18740258 18710760 #48710272% 18710274 *18720500" 18720600 48720700 «18749200» 


18741000 *18770100%418770300% 18770900 *18780200« 18780300 
* 18800 1004418800 200 4m 188 20100nn 188 20200m 18871600 18822100 
#18841600% 16841700 +18844400%%18845200% 18845300 
STREAM VARTABLE = DECLARED AT 18820200 
REAL «= DECLARED AT 19519000 
REAL = DECLARED AT 19901500 
*19903960% 49903970 *19903980% 19903990 «19904060* 19904400 
REAL = DECLARED AT 20011900 
*20030200% 20030760 70930800 270034000 420035700*« 70035900 

20043700 *20059500«e 20960900 «20066200» 

STREAM VARIABLE °7* DECLARED AT 20030800 

20932150 
STREAM VARIABLE °* OECLARED AT 20043700 

20944400 
REAL "=" DECLARFD aT 20081100 
*20091200% 20091300 270091400 20094600 20091700 20091800 

20093500 20093700 4200940004420119000e 20119900 20120000 
REAL == OrcbaRrn aT 20141500 

20442950 20470800" 70472800 204732700 #20475700% 90475300 
INTEGER | DECLARED AT 20289040 
*20289260**20289350% 270989360 20289365 
REAL == DECLARED AT 20319000 


18780400 *18790600% 18791610 *18791620% 18791670 
#18840 200 0% 18840300K%. 18B40400% 48840600 18840700 


*20039500*% 20039600 20039700 70039800 970039900 


20091900 20092000 20092300 *20092600% 20093400 
#20129400«" 20129500 20129700 


20475400 20475500 *20494400*% 270494300 370494400 


*20320000%420327000%%20362000«% 20363000 20364000 «70365000 «%20 366000 %420 372000 He 20374300 #420374320 440203744156 


20374430 *20377000% 20381000 

STREAM VARIABLE "" NECLARED AT 20374415 

REAL =" DECLARED at 20382050 

#2038 2068%420382;50% 20382165 20382200 20382300 270382660 
INTEGER =" DECLARED AT 20566340 

*20567162% 20567466 20567170 *20567172" 20567176 

REAL = DECLARED AT 22002000 

#220714300% 22034500 220741600 4220,4400m 2207;4500 292074600 
22019000 227022700 22023500 22024000 22024500 29025000 
22042000 22043000 22944000 *22046000* 

INTEGER == DECL,ARFD AT 22060000 

22061000 *£22069310«% 22069320 *22069350*% 22069420 22069440 
22092000 *22094000«% 22101000 22102000 22109000 22185000 
STREAM VARIABLE ** DFCLARFN aT 22069350 

REAL "=" DFCLAREN aT 28803000 

*28844000*% 28865000 28866000 *28868000*% 28868100 


20382680 20382700 


22014620 22014640 «22015000% 92047000 22038000 
*22032000*% 229033000 229034000 72035000 «22041000 


22069450 *29075000% 22080000 272086000 22089000 
22209200 


ae 


REAL -—w 


DECLARED AT 31005000 
*37005300% 34005310 *31009000**31010000* 310473000 


STREAM VARIABLE = DECLARED AT 31005310 
31905320 
REAL = DECLARED AT 32100100 


*32100200» 
INTEGER 2 


37 285320 
INTEGER oof 


REAL == DECLARED AT 37303000 
*37305000« 37306000 
REAL == DECLARED AT 37323000 


#373293300% 37326000 *373297000%*37332000* 37333000 *37334000« 


REA!, s* VALUE PARAMETER == DECLARED AT 37357500 
37357300 37357400 37361000 

STREAM VARIABLE == DECLARED AT 37361000 
37362000 


INTEGER =" 


32100300 


32100350 


DECLARFD AT 37272000 
*37275000% 37276000 *37276100% 37277000 


37285400 


DECLARED AT 37287250 
#37290000%#37291000% 37292800 


37293270 «37294000 


DECLARFD AT 37388000 
*37392000% 37394050 437405000*% 37406000 


37278000 


37416000 


37278200 


37280000 *37285100%437285200« 37285300 


37285305 


Real 7" DeclbaRep at 37507000 

#37514000«% 37515000 37516000 *37532000# 37533000 37535000 

INTEGER ©" DECLARED AT 38360000 

#38370800% 38371000 38372000 38374000 «36377800 4438378000 4438467000 438472000 43850780044 38509000% 38541000 
38573000 385;6000 *38522000* 38523000 

INTEGER = DECLARED AT 38545000 

*38553000% 38554000 38555000 38557000 «38581910%«38607100% 38608200 38608920 38609300 38610100 «38625000% 
384676000 34628000 38628100 38629000 38630000 «38631000 

STREAM VARIABLE "= DECLARED AT 38626000 

INTEGER =" DECLARED AT 38653000 

#38666000% 38667000 38668000 38670000 38700000 *38701000*% 38704000 38711000 38754000 

STREAM vaRtaRbr =" necbaRen aT 38711000 

*#38716000x 

REAL ==" DECLARED AT 39904000 
39905000 *39964000% 39962000 *39963000%«39964000*% 39965000 39966000 *39969000% 

STREAM VARIABLE == DECLARED AT 39905000 
39991000 

REAL «= DECLARED AT 49004000 

40908340 *40253000% 40254100 40257000 40261010 40261044 40261048 402761049 40261100 *402612008440279000" 
40280000 40280100 40281100 *40281200% 40283100 40283200 40283300 40283500 40285000 40285005 40285010 
40285020 40285435 40285160 40285600 40287000 40290200 40292212 40293010 40342000 «403472008 40317240 
40317230 *40321300%#40321400*% 40322000 40322100 40322220 40323600 40323700 


tNtegrR os 


DECLAREN AT 41002000 


*4199049000% 44050000 €44051400%*41057500%«41197000% 41201000 
INTEGER =" DECLARED AT 41430300 
*41500500 **4 1500700 %*41500800%#41502000" 41502100 
TNTEGER == DECLARED AT 42475000 
*A2A7TIONOO**4D47TBAOOeK AON TBBOO* 42479000 
INTEGER == DECLARED AT 42482000 
#42488000e*49489000% 42505000 42506400 
REAL == DECLARED AT 42514000 
42525115 42525120 *42525130*% 42525150 %42531000% 429532000 
REAL "* DECLARED AT 44011000 

44037300 44037400 44080000 44084000 «44086300% 44087000 44087100 «44151000 44152000 44158000 #44154100% 
46155000 4444163000 ee 44163020 4444 163030 44441639040 we hd 164000 444 164500 4444 165700 8a 44 166000444 1662004044167 600" 
*441681004%44174000%4 441781 00%« 44179000 «e441 79050%m 441 79100%%44489550% 44189600 44189800 #44192000% 44193000 


41502300 


42506200 49506300 «42506400 


442011420 *44207400* 44204500 *442074600%%44202349" 


#44993200% 44493400 44493600 *44494000% 44495000 #442044 0% 
I 77 REAL == DECLARED AT 44206700 
*44240560% 44240600 44740620 44240640 44240680 *44240700% 442740800 44240820 
44943750 44745000 44245500 442505CO 44253000 *£44254500*e 44955000 44755500 
44264500 *44268000% 44768500 44269500 44270000 «44276000% 
To" REAL "* DECLARED aT 45002000 
#450921106n 45092420 45092130 45092140 45092180 45092190 45092230 45092310 
45094600 45099600 445104100* 45104200 445106000% 45107000 45309000 45411000 
45123000 45127000 45131000 45131100 #454354110* 45135130 *45435170% 45435490 
1 =" STREAM VARTABLF == NFCLARED AT 45431100 
45431400 
1B 6 REAL ARRAY == VALUF PARAMETER == DECLARED AT 02347160 
02347150 02347160 
IB == REAL ARRAY = VALUE PARAMETER == QECLARED AT 07377000 
07376000 07377000 07393000 07394500 07396000 073981400 *07400000*% 07409000 
1B == STREAM VARTABLE == DECLARED AT 07393000 
IB = STREAM VARIABLE = DECLARED AT 07398100 
07398300 
ICW ©= REAL == PFCLAREN AT 14002000 
*14918000*% 14058000 149059000 05952915 
ID "= STREAM VARITARLE =" DECLARED AT 08887100 =" OCCURS aT 05952865 
08890010 
1D) = «STREAM VARYTARBLF =" DFCLARED AT 20030800 
20032100 
IDENT @* WEFINE == pECLAREND AT 20219000 
29397000 50366000 20409000 20446500 29470000 90476000 90432000 50438000 
20567105 20567458 20567995 20567970 20569260 70569830 270569940 70569970 
20573410 270573440 20577050 20587800 20590655 20590675 20590695 20591750 
20594450 20596350 20717000 20720000 
IDLETIMF = PROCEDURE ** DECLAREN aT 02360000 
06191000 126110900 12818500 20167650 22011000 
TObeETmMeR =" SUBROUTINE =" nrcbaREn AT 12609500 
12612500 12698000 
IOLET+MFR w= SUBROUTINE #= DECLARED AT 12817000 
12820000 47854000 
IL == REAL == VALUE PARAMETER == DECLARED AT 08546000 
08565000 
IL 2 LABEL = DECLARED AT 16054000 = gCCURS AT 16081000 
16062000 
IL ** STREAM VARIABLE =" DECLARED AT 20289395 
20289485 
Ih = REAL @" DECLARED AT 37180000 
37180300 *37233500« 37248500 
ILL =" Real =" DECLARED aT 00299000 
IMasK ©" nFeFINE =" peclARED ar 19900280 
19900400 49900490 19900660 19900680 19900860 
IMASK se DEFINE == DFCLARED AT 19901850 
19903907 19904360 
IN @= LABEL == DECLARED AT 16357000 == 9CCURS AT 16580600 
16366000 
INBUFF == REAL <= DECLARED AT 07906000 
07032100 07051419 07957000 07959000 07060100 07066100 *071401000«% 07418000 
07139575 07140000 07179260 07235000 
INaAUFF 7") STREAM VaRTaBLr =" NecbaReD aT 07032100 
07033000 #07034500% 07036220 07036250 07036290 
INBUFE =" STREAM VARTABLF =" OFCLARFD ar 07066100 


07066300 07066610 +*07086630"*07066660*% 


44240900 44240920 4442432508 
*44259500% 44760000 442762500 


45092360 «*45093000~% 45094000 


45112000 45143000 45422000 
#45455000«% 45157000 

20478540 270484250 970567065 
20570150 270570230 90570450 
20591850 20593150 20593310 
07125000 07127500 07128000 


INBUFF == STREAM VARIABLE == 
INC w= REAL oe DECLARED AT 28002800 
INC =" REAL = NECLARFD AT 28203700 


28203400 *282740400 4278 244600% 


DECLARED AT 07479260 


INCR "* LABEL °° DECLARED AT 04124000 7" OCCURS aT 04194000 
04165000 04189900 
INCR 78 LABEL °* DECLARED AT 08680500 == o¢cURS AT 08692600 
08693400 08695600 
INeCSc #* LABEL =" DECLARFN aT 29566600 == OccuURS AT 20580200 
20573200 206577075 205771450 20580000 
INCSC w= LABEL == DFCLARFD AT 20597800 == OCCURS AT 20606850 
20599400 270602650 70692850 70607950 20603750 70604200 70604360 70604450 706049900 20605;100 
20605460 20605700 20605702 20606700 20608072 20608080 20609420 
INCH @= REAL |= DECLARED AT 14002000 
*14015000«% 140145700 14016000 144947000 14048000 14031000 *414035000% 14036000 14037000 44038000 
14059000 *14060000* 14964000 14077000 
INDEPENDENTRUNNER =" PROCEDURE *" DECLAREN aT 02012000 
02033000 02137000 02347430 04137260 04224000 05706100 06353650 97264400 07449000 08276520 
08998400 12425200 12528500 14432000 14541100 16263600 16522000 16523000 16610600 16784500 
18438160 18522700 19685460 19799050 20609700 22045000 92069500 29242400 24167000 28440200 
36789000 41310800 48009000 48040082 48014000 48084300 48126430 48432000 
INDEX = REAL == DECLARED AT 15402000 
15404000 145478500 145420000 45426000 15438020 45438040 15438050 15438060 
INDEX == STREAM VARTABLE = OECLAREND AT 15426000 
INDEX = STREAM VARTARLE * DECLARED AT 15438060 
15438070 
INDEX e= INTEGER == DECLARED AT 24105000 
24426000 24133000 24143000 ¥2414500N* 241446000 *241539000%#241540004"24155000% 
INDEX =" INTEGER “"" DECLARED AT 24203000 
*24212000% 24213000 24714000 24223000 24224000 
INMPX "" STREAM VARIABLE 7 DECLARED AT 02222000 
02251010 02251020 02251050 
INDX = REAL =" DFCLARFO AT 28003700 
28003400 
INDX == REAL |= DECLARED AT 28401400 
*28.4352008##958435,00% 78438200 *28468200* 28468600 «98476800% 28477700 
INDX @» STREAM VARIABLE == DECLARED AT 28438200 
28438400 
INFO ee REAL = DECLARED AT 08099700 
#081901650 «+08 103300%%08103550*% 08104550 081144100 
INFO ** DEFINE == ODFCLARFD AT 12370000 
12392000 12395500 12418590 12420500 12422000 12422500 12435500 12438000 12444000 12459000 
12463000 12464000 12465000 12466900 


INeFQ te Reab =" DFCLARFN AT 14624550 


G]606000 45946 37000504 464000040) 260 3000¥ 61h eu a 0d Omdamea ay ude 
14707000 «44742540% 


14690000 #1 4695000 «414705000% 14706000 
INFOS}ZE *= DEFINE == NECLARED AT 12218500 
INFOS|ZE == DEFINE = DECLARED AT 12369000 


12411000 
12464000 


12392000 127395500 12408000 12408500 
12444000 12459000 12462000 12463000 

INFO! =" STREAM VARIARLE =" DECLARED AT 16609100 
16699400 

INFO2 ©" STREAM VARIARLE 7" DECLARED AT 16609100 


INTT "= Lapel @* MEcLAREN aT 18501100) == 
18501800 18501900 18502000 18502100 
INT oe LaBeEL =" nrelaREN AT 18701000) ao 
18704300 48704400 48701500 4870;600 


OCCURS AT 


18592200 


OCCURS aT 


18701700 


12418500 
12465000 


18505000 


18702300 


14645000 «14679000«%14685000" 14687000 


14742550 


12420500 
12466000 


12422000 


12422500 


12435500 


20605430 


14045000 


08836500 
16959500 
36732100 


12462000 


14684000 


12438000 


INTT 
INITCW 


ee LABEL 


20572100 


ou REA, 


20599000 


INITI ghyiZ—E os 


08303100 


INtTiabtZe = 


12515000 


INvTraAbyZe 


13995000 


INITIALIZEIT 9 


29576770 


DECLARED AT 20566600) #= 


em DFCLARED AT 22235000 
*223000004% 272301000 
INITIALIZATION 


LABEL 
20605550 


PROCFNURE 


44101000 


LAgFL  =* 


NEF TNE &= 


e- DECLARED AT 20597650) <== 


7" MECLAREN AT 44010000 &™ 


441490900 


necbLaREn aT 12514000 


DECLARFN AT 13025000 


REAL, PROCEDURE =» 


44201300 


DECLARED AT 20586700 
*20587700%*20587850**2058795 0%*20588 350%«2058955 0 


44206400 


oCCURS AT 20580;100 


46000000 


OCCURS AT 20603900 
FORWARD AT 08303000 


== OCCURS AT 12665000 


20589650 


20603900 


INITIATE ** LABEL =" DECLARED AT 00024970 == OCCURS AT 48018000 
04238000 06360579 06463340 07072500 07091100 12670750 143094000 144193200 14203600 
14659000 14660525 14670600 14680000 14697000 147046000 14709000 14713000 15105000 
18525800 18529500 18530100 1416540300 18541100 48557400 48559700 48565600 18574200 
18544700 48593300 48702300 18740249 487;9766 48740278 18710500 18710600 487430700 
18711300 18711400 18731500 48714600 18741800 48721000 48730400 48743200 48750200 
18781000 48791900 18800400 148810400 18835700 48843800 48845600 18860200 46870900 
19584000 19584700 19595000 19637000 19668000 49683500 19685075 19685350 19685440 
19685590 28018600 28307730 28307800 28874500 28891000 31005500 34023000 37047250 
38106200 38204900 39307300 42525160 42528000 42539300 42548000 49552000 48408000 
INITIATFIO == PROCENURE =" DECLARED AT 04000000 
04025000 04050000 04118000 041380000 
INL we LABEL DEC|,ARFO.AT 07009000 em OCCURS AT 07145000 
07127000 07169500 
INLP owe LABEL @= DECLARED AT 44020000 = OCCURS Al 44104000 
44110000 
INOUT =" NMEFINE =" pECLARED AT 15071000 
15980000 
INPUT ©" SUBROUTINE =" DECLARED AT 07049000 
07069000 071152900 07220000 
INPUT == LABEL == DFCLARFD AT 22067000 == OCCURS AT 22179000 
22156190 22167000 22173000 
INPUT == DEFINE == DECLARED AT 38385600 
38389300 
INPUT), == LABEL == DFCLARED AT 07009100 == OCCURS AT 07051110 
07051130 
INOCT »* REAL = DECLARED AT 00299000 
INQINPUTAREAV == DEFINE =" DECLARED AT 00017400 
INQUEST ** Lapel =" DFCLARFN AT 00008000 *= OCCURS aT 48125500 
46011000 
INQUIRYRUFFARFAV ==" PFFINEF @= OFCLARED aT 00017240 
INQUPTSTOPPFH == DEFINE 7" DECLAREN AT 00081660 
INREC == REAL ARRAY w= DECLARED AT 12502000 
12502500 *426455008+ 126 46000%* 126232008 12647500 «49655500% 1429668000 
INREC *= REAL ARRAY »* NECLARED AT 12802000 
12802500 12823000 142849000 42850000 12851000 49855500 12858000 49858500 142859000 
12860100 
INREC ©" STREAM VARIABLE ** DECLARED AT 12823000 
12825500 
INREC ©" REAL ARRAY =" DECLARED AT 13003000 
13035000 «13036000 «813048000 «413975000 %e13076000u0"13080000% 13080100 13081000 13099000 


13124000 
INs ae Real an 
4122995008 142304500 


DFCLAREN aT 12205500 


12302000 142302500 42303000 49303500 


14279350 
17927500 
18580800 
18740800 
18760500 
19571000 
19685456 
37185400 
48146000 


12859500 


13101000 


14292160 
18505000 
18581400 
18711000 
18771000 
19577000 
19685550 
38015100 


12860000 


13127899 


INS ~= REAL == DECLARFO AT 12353000 
*12434000% 49435500 142438000 427444000 
INSERTORFORw ~= SURROUTIME =e DECLARED AT 28427400 
28470200 28474200 PB478600 
INSTRUCT ©" REAL “" DECLARED AT 12206000 
#12252000 481 2257500e 12295000 «12296000e 12296500 4£12297500% 12299500 «12300500» 
INSTRUCT “" REAL =" PFCLARED AT 12353500 
#12431500% 12434000 %12435000« 
INSH "" SWITCH LABEL == DECLARED AT 39008900 
39093500 
INT we LABEL = DECLARED AT 14766100 == OCCURS AT 14208010 
. 14206340 
INTAB.E == REAL ARRAY == DECLARED AT 001435100 
14186100 142274009 22476000 4415410n 
INTABLEROW <=" REAL ARRAY “" DECLARED AT 00135100 
€143671004*20193300n4270194300% 20194400 22408000 22413010 
INTARRAYAREAV @" MFFINF =" NECLAREN AT 00017410 
09506000 
INTERRUPT =e PROCFOURF = NeCLARFN AT 42510000 == FORWARD AT 00370500 
14278055 42554000 48107000 
INTFIN?TSH w= PROCEDURE == DECLARED AT 45090000 == FORWARD AT 446008998 
44980000 
INTFREFE «= DEFINE =—9 DECLARED AT 00081300 
09630000 09677000 44260000 
INTLOC ## REAL == DECLARED aT 09501000 
#09506000%*09508600e 09508700 09508800 
INTO "= STREAM VARIABILE 7" VALUE PARAMETER ©" DECLARED AT 07003610 
07003615 07093720 07003730 
INTRINSIC ©" LABEL “" PFCLARED aT 22236000 "=" OCCURS AT 22406000 
22286190 22386010 
INTRINSICTARLEBUTLDFR == PROCENURF "=" NECLARED aT 09500000 == FORWARD AT 00489000 
09657000 442748000 
INTRNSC = REAL ARRAY == PECLAREND AT 00135000 
#09506000% 09506500 09507000 095080008 09508600 409508700 «409509500 4%%095;0000« 09534500 


09612000 409624400" 


09636000 44186020 44186460 44498400 0 14203300%« 142035008 149064 35%%14909300K 45545000 #99497000« 


INTRPTX == DEFINE =" DECLARED AT 00067410 
48037400 460329700 48032930 
INTS = REAL ©" DECLARED AT 44012000 
#44149000" 
INTS ** REAL =" DECI,ARED AT 44206800 
44240600 44240640) 44240660 *#44240680*% 44281000 
INTS © REAL &" DECLAREN AT 45002100 
INTSIZE  "" REAL &" nFeLAREND AT 09135000 
09508000 #095 34500 ¥%09605000"x0961 2000" 19539000 20153400 20454000 20194400 
INTSS 7 REAL 7" NECLAREN AT 44012000 
*44150005* 
INTSS w= REAL == DECLARED AT 44206800 
44281000 
INTSS ee REAL = DECLARED AT 48002100 
INTWORD == REAL =" DECLARED AT 15536000 
*15545000«% 15548000 
INT1 "=" INTEGER =" PECLAREN AT 16696700 
%16826800% 
INTI3 ©" SUBROUTINE =" DECLARED AT 22286010 
22419500 22423300 
INT2 "* INTEGER =" NECLARED AT 16696800 
*16826900% 


{NT3 
INTS 


INUSE 


INUSEOK 


~ INTEGER =~ neECLARED AT 16696900 
*168280008 
* INTEGER == DECLARED AT 16697000 
*16826800 


we LABEL == DFCLARED AT 05952600 “= OCCURS AT 05966200 


05963100 
we REAL SUBROUTINE =" DECLARED aT 06091300 
06996300 06112200 


INVALTDSNDEX "= LaREL == pDECLAREN AT 42514000 =" OCCURS aT 42530000 


42512000 


INVALTDNUM =" SUBROUTINE == DECLARED AT 12618500 


12691500 42706500 


INVLDAUXIO = DEFINE = DECLARED AT 00642100 


INXLST 


INXLST 


10 
10 
10 
10 
10 
10 
10 
10 


10 


ball al 


06009300 

me REAL om) DECLARED AT 20382050 
*20382240%*20382320% 20382480 

we DEFINE = NECLARFD AT 28404800 

28448200 28469000 278469600 28477600 28478200 
REAL °°" VALUF PAPAMETFR =" DECLARED aT 00390200 
00390000 00390100 

DEFINE =" NFCLAREN aT 20730000 

20504000 

SUBROUTINE == NFCLARED Al 78233400 

28941200 

SUBROUTINE == DECLARED AT 78829000 

28838000 278847000 

REAL =" VALUE PARAMETER == DECLARED AT 37286200 
37786000 37286100 372791200 37294400 

INTEGER ™" DECLAPFN AT 38093000 

38028000 38032000 38045110 38045160 38049300 38056000 38072000 
INTeGER == pnecbaRern at 38102300 

38196700 

INTEGER == DECLARED AT 38200300 

38204700 

INTEGER == DECLARED AT 39007000 

39098090 39040000 390414000 *39088000e 39092060 39099500 39095000 


TOBUFFERAREAV ==" DEFINE =" DECLARED AT 00017220 


LOBUSY 


10 
10n 
19n 
10D 
10D 
10n 
19p 
19D 
ToD 


or] 


07095100 97101000 12672500 
ee LABEL *™ NECLARED AT 00024270 =" OCCURS AT 48117000 
46002000 

Real 7" VALUF PARAMFTFR =" DECLARED AT 00019000 
00018000 00019000 

Real == pFCLARFN AT 04068000 

04074000 04083000 04088000 04094000 04695000 04097000 
STREAM VARYABLF = NECLARFD AT 04083000 

04084000 

STREAM VAPYABLE «== PECLARED AT 04088000 

04089000 

REAL = DECLARED AT 94102000 


*04108000% 04105000 04105100 04105510 04105750 94105950 04105998 


Real =" peck aAREN aT 04127000 


#94194100y% 04194400 04195100 04206000 04207000 04208000 04209000 


Rea~ab == vyabuUr PaARAMETFR ==" DECLAREN AT 04242000 
04240000 04241000 «0424400U0% 04246000 04247000 «04248000% 04949000 
STREAM VARTABLF == DECLARED AT 04251200 
04251600 

REAL = DECLARED AT 04257800 
04280400 *04286400% 04300000 04310400 *04312600*% 04312800 


38076000 


38095000 


391455000 «39249000« 39303000 39306040 


04106000 
04210000 
04250000 


04212000 #04231000«% 04232000 


04251200 


10d 
100 


10D 


10p 
10n 
10n 
19h 
10D 
100 
10D 
100 
100 
10n 
10p 
10D 
IoD 
100 


19n 


10D 
10D 


10D 


100 
10D 


7= REAL == DECLARED AT 04355800 
*04495600 48944297800 % 044728200 04428000 04429400 «04431400% 04431600 
#7 RFaL =" NECLAREN at 04552000 
04555609 94560000 04565000 04507250 04567300 404568340 %%*04569410«404568500% 04568520 04568530 404578000« 
#£94582000 4404585000 4494588020 0404588070 0404588100 0404588130% 04588210 04588220 04588240 +04588250y% 04588260 
04588300 94588430 *04588540% «04599000 4%04597000 #0 459900040 46 28009 #0 46 32000 %4046 34900440 46 35000%%046 34650" 
404657200%%*0 4658900» 
w= REAL w= DECLARED AT 04668650 
04674300 04671700 94672000 94679350 94672400 #04675900 44046760008 «0 4676450404676 300%*04676500% 04675700 
04676800 *0467685%% 94677050 04677150 404678750 %404679500 404679600 404679750 #40 4679900 #0 468 3000 440468 3400» 
%94683950«#04684050%404684 300" 
e* REAL ** DECLAREN AT 06004000 
#06010000" 06016100 060917000 
ee Real =" DECLARED AT 06068400 
06068500 *06098500% 06998900 *06107400% 
me" Real = prcbaRfn aT 08172000 
#08174000*« 08176000 08177000 
er Real == prebaRrn at 08704000 
08704700 *087220004%«08724000*% 08726000 08778000 
ee REAL 2= NFCLARED AT 08851000 
08865000 08866000 08915000 08933000 08935000 08939000 08940000 089497000 08943000 08946000 
ee REAL ew DECLARFD AT 09601000 
em REAL =* DECLARED AT 12503500 
12592508 *€12627500% 12639500 12641000 12643000 12643500 *12648000 «4196490004481 2650500441 2651000« 12651500 
#127Q95008ee12751500« 
ee REAL =" DECLARED AT 12803500 
== REAL =s DECLARFD AT 13004000 
13049000 13951900 13952000 *13062000*" 13066000 
er Real ==" pneckhaRen aT 14164000 
#14 1861520%14203040% 14203020 14206000 142061400 1442061410 44292000 44992340 14292120 
e= REAL == QDFCLAREN AT 19694000 
19738000 49743000 
es REAL == DECLAREN AT 20388000 
20404000 20407000 #90495000* 20496000 *90497000*«%90507000% 290507400 
e* REAL == DECLARED AT 22231000 
#22322000% 223252700 27331400 22333800 
wm REAL ARRAY = NECLARED AT 28004600 
*28069000% 28969900 28969400 28074050 «28077600% 28078000 28078400 28078800 «28079000% 28080000 28080400 
28080600 *28080800% 28984250 28085800 «28095800#%28096200% 28096600 28096800 
em Real aRRay == necbaRrn at 28205000 
29234800 *58.235400% 98936000 28236200 28236400 78237700 *2874060Q» 28244800 282949000 78949400 98944900 
28245000 *282459700* 28267000 28768600 
e= REAL ARRAY =" DECLARED aT 28804000 
28832000 78832500 *28869000*% 28870000 28871000 «*28877000%«98873000» 
w= REAL = DECLARFN AT 38365000 
*38495000*% 38496000 
me REAL = DECLARED AT 386549000 
w= REAL w= DECLARED AT 38656000 
ew REAL == NECLAREND AT 41007200 


IOMESC ** REAL = VALUF PARAMETER =" DECLARED AT 04003000 


04000000 04001000 04904110 04004140 04004150 04006000 04009000 04010000 


1OpESe o** REAL =" VALUF PARAMETER =" DECLARED AT 04043000 


19D! 


04040000 04041000 04050000 04063000 
ee Real = DECLARED AT 19694000 
*19766000% 19766500 


IOFINISH =» PROCEDURE == DECLARED AT 04122000 


46906000 46007000 46008000 46009000 


TOM e= REAL #= DECLARED AT 38002000 

10M = REAL == DECLARED AT 38102200 

TOM = REAL ==" DECLARED AT 38200200 

10M = REAL = DFCLARFD AT 39001100 
39083100 

TOMASK "7 REAL °" AFCLARED aT 00425000 
02275700 02277000 04151230 04228000 04249000 04310400 04429400 04565000 04672000 06066000 06098600 
06099100 06215000 06257000 06464900 07146000 07149000 07477000 07394000 07392000 07443000 07414000 
07445000 08386000 08670000 08866600 08945000 08933000 08935000 08940000 08943000 08946000 43051000 
14206100 34237000 14292110 14383000 14384000 14390000 14393000 144398800 14399400 18780100 49743000 
29407000 20588600 22049000 22332400 28077600 28079000 28080400 278085800 278096800 78240600 28243800 
28242000 28245000 28245200 28839000 28848000 28850000 28851000 28852300 37394000 37394150 38002000 
36102200 38200200 38372000 38555000 38574000 38668000 39001100 403172270 #44191000« 

1rOMaASK =" RealL =" pnechaRen aT 38002000 
36031000 36081250 38092000 

IOMASK == REAL == DFCLAREN AT 38192200 
38406600 

IOMASK = REAL © OFCLARED AT 38200200 
36204600 38250500 382785500 

IOMASK =" REAL == DECLARED AT 39003400 
39027000 *39083100%*39993500% 

1OQUF == REAL ARRAY #= DECLARED AT 09206000 

#020680004402100000% 02294000 *02300000« 04095000 04046000 *04063000% 04418000 04137202 04157000 04168000 


*041706800% 04180000 
#943456004 04336000 
#04496000% 04497800 


04194100 «04199000« 04272000 04281600 04285800 04286200 04286400 *04309200% 043145400 
04368000 04372100 04391200 404391560 4404391570%%04391600% 04398400 04421900 04425600 
04559000 £04560000% 04570000 04674650 404671700 %%04685200« 06463900 *07063000% 08404600 
20450100 20169600 20289055 «37333000 44171000 «44193400» 
POOP E AYA I me REAL == nECLARED AT 00205500 
02068000 #*02 400000 492300000 %%04046000 4404 199000 #04 309200 004 3 15600 *404 426000 % 404559000 «#0467 1 650%H0706 30008 
*37333000%*44085600% 
TOQUESLOTS = REAL = NECLARED AT 00205500 
#020 68000%4*02100000%402300000* 04045000 04045200 *04060500#404 1990008404 309900%4043156008*04426000% 04558000 
#04558500% 04674550 #0467 1600%%0706 3000 %« 37 33 3000%*44085500« 


IOREQ = LABEL == DECLARED AT 14628100 == OCCURS AT 14705000 
14632100 
TOREQUEST = PROCEDURE =" DECLARED aT 04040000 *= FORWARD AT 02696500 
04106000 04246000 04316600 06017000 06098900 08726000 144687000 14707000 19685550 274042875 278096200 
28235400 28832000 37393000 38080500 
rOT =" INTEGER *- neclARFp aT 08528000 
*08537000x 
TOT == INTEGER o= DECLARED AT 08733000 
08737000 *08756000% 08762000 08763000 08764000 08770000 08771000 08779000 08774000 *08786000%8#08790000" 
08791008 
10T == STREAM VARIABLE = NECLAREN AT 08737000 
08751000 
10T = STREAM VARIABLE *= DECLARED AT 08791000 
10T »" LABEL == DECLARED AT 18701000 == OCCURS AT 18711100 
18701200 
IOTIMF = REAL ARRAY *= DECLARED AT 00164000 


2021748000 6 e04195000e 06194000 

44159000 «4419300044451 27000% 
1Rew 7 ReaAL #* DFCLARFD AT 14002000 

#14047000% 14039000 *14035000*% 14040000 


08535000 «08763000 «40877 10004412696500% 12853500 18711100 *20172700« 22019000 


14059000 44077000 


IREEL e= REAL = DECLARED AT 28001800 
28002000 98028000 *98098900* 24039900 *28037800%#98054a00% 78056000 *98057600* 
IREEL =" REAL ©* DECLARED AT 28202200 


28202400 *282268004*28252000* 


IRPB REAL 
IRPB REAL 
IRPR REAL 
IRPBTS 
IRPBTS 
IRPBTS 
TRPBUPF == REAL 
IRPBUF == REAL 
IRPBUF == REAL 
45902500 
IRPDBS == REAL, 
IRPOBS == REAL 
IRPDBS "" REAL 
IRPTB ©" REAL 
IRPTB ** REAL 
IRPTB =" REAL 
IRPTU @" REAL 
TRPTU == REAL 
TRPTU =") REAL 
45002400 
IRPWRS 
IRPWRS 
IRPWRS 
45002700 
IRSTACKAREAV c= 
ISTACK "=" REAL 
44179000 
[TT "9°. REAL .°* 
09602100 
1T Or LABEL aw 
16064000 
1T == LABEL == 
18701200 
1U =e REAL, == 
07951000 
07075000 
tu 7" Real #* 
28074200 
26058400 
28049600 
28086600 
tu se REAL = 
28212000 
28240800 
282463400 
11 "= REaL &* 
00454000 
11 "= INTEGER 
ti ot 
I1 wo REAL = 
17990000 
It = INTEGER 
#18425300« 
1S 
165271600 
11 = INTEGER 


o- DECLARED AT 44013000 
er DECIAREND AT 44206900 
we DECLARED AT 45002300 
Ll INTEGER oe 
“= INTEGER &* 
ce INTFGFR == 


DFCLARED aT 44015000 
NECLARED AT 44207100 
NECLARED aT 45002500 
"= POrchaRED aT 44013000 


=~ DECLARED AT 


ww 


DFCLARED 


DECLARED 

DECLARED 

DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 


44206900 
45002400 


44013000 


44206900 

45002300 
44913000 
44206900 
45002300 
44013000 
44206900 
45002300 


ae INTEGER an 
em INTEGER #== 
oo INTEGER aoe 


STREAM VARIABLE «=.= 


DECLARED AT 44015000 
DFCLARED AT 44207100 
DFCLARED AT 45002500 
DEFINE = DECLARED AT 00017550 
ARRAY == DECLARED AT 00159000 
44189600 48051000 

DECLARFN AT 99602000 

*096420008% 09643000 


necbaRen aT 16055000 ©» occURS aT 16256000 
DECLARED AT 18701000 == QCCURS AT 187140300 
DECLAREN AT 97006080 
07051129 079059100 07059300 07062000 07065000 
07076000 07077000 07078000 07082000 07179200 
nFCLAREN aT 28001600 
28072100 28042140 28044000 28044;00 28019800 
28098600 98029800 378030800 278031000 28039000 
28056400 28057400 278059600 28063000 98063200 
28086800 278988800 78089200 28090200 28090400 
DECLAREN AT 28202000 
28243000 278216400 28246600 282,8400 982997400 
28244800 ¥28946900*% 28247000 278247200 «28257600 
28265000 28769400 28270820 28273000 278303200 
VALUE PARAMETFR =" pECLaRED aT 00454200 
00454100 


w= DECLARED AT 08733000 


#08790000*% 08791000 
STRe aM VARIARLF == 


DFCLAREN AT 08794000 

VALUE PARAMETER em DECLARED AT 17000400 
17000500 47903250 17003300 
=e DECLARED AT 18199000 

18425600 18426100 *38437400* 18431800 
DE€LARED AT 18521000 


18431900 


m= DECLARED AT 41430300 


*07072100%#07072400% 
07232500 07233000 
28021800 28022000 
28033200 28033400 
28065000 «278068400« 
28098600 
28922600 2782923000 
28251800 282957000 
28304700 28304800 


07072600 


26023800 
28033800 
28077200 


28223200 
28253600 


07073000 


*#9B8028000" 


98034000 
28078000 


282926600 
28261400 


07074100 


28028200 
28037600 
98078800 


28230000 
28262200 


La 


qo a 


#41500400%*41500700«% 41500800 *41500900% 
REAL 7" VALUE PARAMETER ©" DECLARED AT 00454200 
00454000 00454100 
REAL 7" VALUE PARAMETFR °° DECLARED aT 17000400 
170900000 17000700 17003300 17003400 
INTeGER == peebaRen AT 18199000 


#18422000% 18425400 18426100 *18428000% 18479000 «184314008 18431500 «18431600 


INTEGER = DECLARED AT 44430300 


#44500200% 47500700 44500900 41504700 41502000 445027300 «414502400 


INTEGER == DECLARED AT 18199000 
*18434400% 18431500 18431600 *418431700* 184314800 48437900 
INTEGER = DECLARED AT 18500200 
16593300 *£18559400% 
INTEGER "=" DECLARED AT 18700200 


#187901004—8 18710200 #187102464%418710258 «418710274 4418710300 "418710700 4«18710800 8018710900 %*187111000e1 8711200" 
18740400 «18740600 18740900 18870300 


#187114004418711500%4 187116004%18711790%e18730100e 18730200 48740100 
INTeageR © pnrelLaRen aT 19502000 

INTEGER == DECLARED AT 18500200 

INTEGER *=* DECLARED AT 48700700 

INTEGER == DECLARED AT 19802000 

INTEGER == DECLARED AT 18500200 
*18559600« 

INTEGER == DECLARED AT 18700200 

INTEGER "=" DECLARED AT 19502000 
REAL °°" VALUE PARAMETER =" PNECLARED aT 00336100 
STREAM VARIABLE =" DECLARED AT 02221000 

02242000 
REAL "= DecbaRen aT 02383000 
*02387000% 02391000 
REAL == DecbaReo aT 04553000 
*94568400%«04568460% 04568480 *04629000% 04633200 *04658800" 04659000 
REAL == DECLARED AT 04704000 
*#04795000% 04776000 04797000 *04798000% 04759000 «04733000 04734000 
INTEGER =" DECLARED AT 05702000 
*05705000* 05706000 05707000 *05709000* 05714000 «05716000* 05723000 
#05728200« 
STREAM VARIABLE "= DECLARER AT 05709000 

INTFGFR "= DECLARFO AT 05841615 

05841620 £058424754%0584 3000%40584 3700%%05843800% 05844920 05844935 
tNTegeR == Pech aARen at 05847700 

05848255 £05848900«% 05849490 «05849480% 05849500 05850200 05850300 
TNTEGER == DECLARED AT 05954800 


059592040 £059590004405960800*e 05964000 05961800 05962000 «05967000 


05974200 05975000 

INTEGER =* DECLARED AT 06184000 
*06212000% 06214000 *06216000* 06217000 *06230000* 06230100 06234000 
*06250000%#06260400% 06262000 *06263200%«06267000% 06269000 

REAL =" VALUE PARAMFTER =" DECLAREN aT 06350300 

06350000 06350300 06351000 06355000 «06380100* 06380150 06380250 
06380750 06380800 06380850 06380900 06380950 «06381;000% 06381300 
STREAM VARTARLF == NECLARFH AT 06355000 

06357000 *06359500* 

INTEGER © DECLARED AT 064040000 

#06413000% 06414000 06417500 

STREAM VARIABLE == DECLARED AT 06463984 

REAL *= DECLARED AT 07299000 

*07345000% 07317000 07318000 07321100 07322000 *07330100% 07330200 


042659400 


05725000 


05845400 


05854600 


05967200 


04659200 
05728100 *05728120«% 05728180 
05845700 


05852100 05852700 
05974400 05971800 05974000 


*06245000**06247000* 06248000 06249000 


06380400 


06380525 06380550 «06380700 


*06384395% 06384400 


073309300 


07330400 


qj. eo aS & 


cc f 


REAL 7" DECLARED aT 07458000 

£07461560% 07461600 *07462400« 07462500 

STREAM VARIARLE c&* NECLARER AT 07504000 

07508000 

INTEGER == DECLARED AT 08098950 

#08709200%e 08409950 *«081;0080* 084140350 «*«08441850% 084129450 
STREAM VARIABLE = DECLARED AT 08410350 

08110500 *061112750« 

STREAM VARIABLE == DECLARED AT 08112150 

08112600 #0112900» 

INTEGER == DECLARED AT 08255200 
08255400 *08268900% 08268950 *08270450« 
STREAM VARIABLE "" NECLAREN AT 08462000 

08463000 *06468000% 
STReaM VARTABLE =" DFCLARFN AT 08540000 
08540300 
REAL == DECLARED AT 08568200 


#08568700% 08569600 08569900 08569920 08570000 «08570300« 08570400 08570500 08570600 


08571200 08574300 08571400 08574500 08573800 085727400 

STREAM VARIABLE == OECLARED AT 08571800 
08571900 

STREAM VARIABLE == DECLARED AT 08887100 
08889000 

REAL =" DECLARED AT 09601000 

09602100 *09633;00" 09633200 

STREAM VARIABLE == DECLARED AT 12473200 
12473230 

REAL =" DECLARED at 14164300 

*14218080« 14218082 

TNTEGER |= DECLARFD AT 14349000 
14431520 

STREAM VARIABLE == DECLARED AT 14431520 
14431550 

REAL = DECLARED aT 14545000 

14554500 £145560008 14557500 #145630004%14570100% 14580000 
14603400 14603700 14609000 

STReaM vaARtaBle 7" necbaRen aT 15021000 
*15024000%*15034000%«15036000* 

STREAM VARTABLE =* DECLARED AT 15426000 
15428000 

REAL, = DECLARED AT 15612000. 

#15622000% 45624000 

REAL == DECLARED AT 16048000 


14592000 *14601000« 14601500 


16114000 46117000 #16225000* 16228000 16236000 146237000 *16238000% 


REAL = 7" DECLARED AT 16349000 

#16591000" 16592000 16599000 16600000 16604000 

REAL ©" DECLARFD AT 16695500 
16696000 16696900 16698210 16806500 16807000 16807500 
16848000 *16827000«%16827900% 16828000 16828200 

REAL w= DECLARED AT 16914000 


16808500 16810000 16611500 


16994500 #469500008 16950500 16957500 «16952000%«% 16956040" 16956090 


STREAM VARIABLE = DECLARED AT 16956040 

STREAM VARIABLE = DECLARED AT 17003300 
17003950 

STREAM VARIABLE = DECLARED AT 17907000 
17942000 

REAL = OFCLARFD AT 18198000 


08570700 


14602000 


16815500 


08570800 


14603330 


16817000 


_— 


qe cf ©. & & G&G G&G GQ 


L dead 


*18233000*% 18247500 18248500 
REAL =" DECLARED AT 18502300 
#18520900% 18521000 «18522300% 18523100 «18597000%«%18527500% 18528200 148552700 48557300 
STREAM VARIABLE 7" NAFCLARED aT 18528200 
185288600 
STREAM VARIARLE = DECLAREN AT 18570000 
18570400 
REAL 7" DECLARED at 18701800 
#187790400% 48720500 «18720700% 18720800 «18740200% 148744100 «48770300% 18770400 48770900 
18830900 #18831400% 18831700 18832900 «18841700%418844200% 18844300 48845400 
STREAM VARIABLE °= DECLARED AT 18830900 
*18831200% 
STRFAM VARIARLE = NECLAREN AT 18831700 
*#18832100«% 18832300 
STRFAM VARIABLE ** DECLARFN AT 18832900 
#18833300« 16833500 
REAL ** DECLARED aT 19519000 
REAL °° DFCLARFD aT 19901500 
*19903915« 19903920 19903940 19903960 19904020 #19904030*% 19904060 «19904070 
STREAM VARTABLFE == PDFCLAREN AT 20328000 
#20338000 %«203430004%4270348000* 
tNTEGER #=* DECLARED AT 20382050 
*20382120«% 20382440 20382540 
STREAM VARIABLE = PECLARED AT 20754000 
REAL 77 DECLARED AT 22002000 
22003000 #27007000« 22007100 *22011100* 22011300 «22012000%%22013000%#29016000% 227018000 
22924500 22027000 22029000 22049000 
REAL 7" DECLARED aT 22902000 
4229110008 22912000 22914000 22915000 22946000 
REAL =" DECLARED aT 28003400 
28081600 28087000 78093800 28093900 28094600 28099200 
REAL " DECLARED aT 28203800 
28204000 *28246400e 28246800 28253200 28255200 28265400 28270830 «28272800% 28291200 
*283077054 28307710 28307720 
STREAM VARIABLE *= DECLARED AT 28291200 
28291600 #28292000% 
REAL =" DECLARED aT 28803000 
28865000 28866000 *28867000% 28868300 28868500 «28877000 «+*28879000% 28881000 28883000 
STREAM VARIARLF = NECLARFN AT 30920000 
30923000 
STREAM VARTARBLE "= DFCLAREH AT 32000810 
32091100 
tNTEGER *= DECLARED AT 37272000 
*37277000% 37278000 372778200 37280000 «37285300*% 37285310 37285320 
REAL =" DECLARED AT 37303060 
*37344200*% 37318000 
STREAM VARIABLE © DFCLARED AT 37353000 
37354000 
STREAM VARIABLE = DECLARED AT 37361000 
37377000 
INTEGER =" DECLARED AT 37388000 
37388100 *37389000% 37399000 
REAL = DECLAREN at 37507000 . 
%#37522000% 37523000 37525000 37527000 #37529000%%37534000% 37535000 
tNTEGER =" DECLARED AT 38360000 
*383772004%38378000% 38378400 *38507500% 38507800 38509000 
INTEGER =" DECLARED AT 38545000 


18570000 


18790400 «18791680 


22021000 


28297200 


28889000 


22022000 


26302600 


*38581100%* 38620000e%38629000% 38640000 
INTEGER =" DECLARED AT 38653000 
*38703000* 
Joo'* REAL ee 


J an 


DECLARED aT 40004000 


#40250000% 40254400 40257060 40261010 40261044 40263048 40261200 402614300 «40262500*% 40263000 «40264000» 
40264500 *£402753004440276000% 40278000 40278400 40278200 40280100 40283500 4029340) 40314300 4403140006 
#403221004%%40322400% 403272420 40322430 40372442 40322800 
Joos* STReaM VARTABLE <= NECLARERP AT 40261300 
40261400 
J oo" INTEGER == DECLARFEN AT 410062000 
*419051400% 410514500 *#41198000% 41200000 
J == REAL *= DECLARED AT 41600300 
*41600900% 41602900 41604200 41604400 41604500 414604700 41604900 41605100 41605300 41605400 41605500 
41605700 41605900 41606000 41606100 
J o** Real ** prckhaRen aT 44011000 
44080000 €44084000%*44104000% 44140000 £444 20000%H 441 28000% 44429000 44433000 *441452000* 44453000 44454000 
#44154010%#44173010%%44173200% 
Joos* REAL == DECLARED AT 44206700 
*44940600% 44240620 442940640 *44240840% 449490860 44940880 *44949900% 44940990 4442630008 44764000 44964500 
*44270500* 44271000 
Joo** REAL *= DECLARED AT 45002000 
#45092120 **45092730% 45992210 45092250 45092280 45092340 45092370 £45092380e445094000% 45094200 445109000» 
45114000 45115000 45118000 45121000 451422000 45124000 451325000 45126000 «45131100% 45134700 
Joo" oetReaM vaRtaplr "= nrcbaRen at 45131100 
45131200 
JAR w= REAL ARRAY = ODFCLARED AT 00133000 
00138000 *£02206,00% 02291000 *02259000% 02761300 07366000 02368000 05374000 «09375000* 04759500 04302700 
04730000 04744000 04722000 04723000 04796000 04727000 06465820 06465840 07074090 07502000 «07503000» 
07504000 08533400 08535000 *08760000%«08764000*% 08767000 «08768000 08771000 *08772000« 08787000 08789000 
09608000 124174500 12416000 12419500 #124535004612473160%%12698500" 19854000 «14045210% 14113000 14201000 
14233000 #14431512% 14570000 #15113400% 15113500 415115400« 16117000 16118000 «16123000% 16163200 16178000 
16257000 *£16258000«% 16854600 16948500 «17904500 17906150 17906250 «17922000 18528100 18710300 «18710800« 
18710900 1487131300 18740600 16740700 19685580 49768768 20039600 20039700 20039800 20050000 20059400 
*20060400% 20094090 20091300 20094400 20091500 20094600 20091700 200914800 20140700% 20121800 20125000 
20167900 «20171000%« 2017110044 20171200e 20172100 *20172600%e 20172700 20173200 8% 2017330042017 3800Ke 20173900" 
*20174300% 20175500 ¥20175700% 20194100 20191300 #2019;800m« 20492200 20193400 #20195400*% 20195600 20396500 
20796800 20496900 272018000 22049000 22022000 92024500 22042100 27356440 22365440 278244010 »28244030« 
30990000 34005,00 32000840 32100300 37485350 374395250 37361000 38703600 38201600 38747500 38253500 
38254000 38280000 38280500 38284000 38284500 38285000 38431000 38435000 38441000 38442100 38485000 
38799000 38732300 38806000 41194200 41312400 *44312600*% 41313000 41313100 44343200 43313300 41314400 
42501810 42547;00 42550500 42551090 44157000 480327150 
JARROW f= REAL ARRAY = DECLARED AT 90138000 
02182000 06203600 06203700 «*06206000% 06355000 08461000 08462000 08540000 08774000 08793000 09607000 
12444000 12458000 12473100 12473200 14358000 14433490 14431520 45021000 15419000 145426000 46107000 
16116000 #16118200% 16121000 16163000 416206100 %416343950 416689450 «416902950 %e16956000% 17907000 48570000 
19685045 20043700 20105900 «20169600m 20175300 420176102" 22014500 22017000 22913000 28291200 32000750 
32000840 37353000 *45111000«*#45131000* 
JARROWAREAV @= DEFINE ©= DECLARED AT 00017380 
20769900 
JARSPACE = LABEL == DECLARED AT 20146700 = gCCURS AT 20167500 
20164200 
JARS w= REAL |= DEC) ARED AT 14351230 
14351250 #14358710" 14430400 14434425 
JOBINFO =" REAL ARRAY == DECLARED AT 12364500 
#12392000e8 1239550004 12408000e412418500me12400500% 12429000 *12422500% 12435500 12438000 12444000 142459000 


"12462000 
JORKTLLrH oe" Real os 


12463000 12464000 12465000 
DECLARED at 22231000 


12466000 


12474500 


22241000 *29243000%*29751000* 
JOBMESS == PROCENURF = NECLARED AT 32000000 = FURWARD AT 00379600 


15602680 32002400 32100350 
JOBNUM "= REAL == DFCLARFD AT 06149000 


%02005000« 02007400 16958600 2204;000 22043000 27044000 *22046000% 297400000 «44487000% 48045300 48021000 


48935000 48060000 48074000 48075000 *48078000* 
JOBNUMAX 2 EFINE = NECLARED AT 00005000 
02905000 46958600 44151020 44163000 
JUNK f= REAL = DECLARED AT 00007000 
04100000 04105500 *«04194400%404194500% 04194550 04194600 05847700 05952000 06463986 
40016500 
YUSTRETURN @" FIELD © NnECLARED AT 24042590 
24044100 
Ji oo" INtTeGFR "= peeblaRen aT 08255200 
*08268600* 08768900 
Ji os» STREAM VARTABLE *= DECLARED AT 08887001 
08890000 
Ji os INTEGER = DECLARED AT 20382052 
#20 382060 *4#20 3820624420 382070%#20382100*% 20382120 20382700 
J2 "= INTEGER “"* DECLARED AT 08255700 
*#08268700% 08268900 
J2 "= STREAM VARIABLE "= DECLARED AT 06887010 
08890000 
J2 "= INTEGER "= DECLARED AT 20382052 
*20382070%#20382110% 20382120 20382700 
J3 ose INTEGER © DECLARED AT 203862052 
420382060 #20 382064 %**20389070* 270389440 20382720 
K == REAL = VALUE PARAMETER »= DECLARED AT 00452800 
00452700 
K == REAL - DECLARED AT 04553000 
*04655900% 04656700 04657200 
K *" STREAM VARIARLE == DPECLARED AT 04656200 
04656600 
K © STREAM VARIABLE =" DFCLAREN AT 04712000 
K "" INTEGER ** DECLARED aT 05702000 
¥95705000 4405706900 Knc05707000% 05709000 05735000 £05728120% 05728180 «057282940« 
K ©" sTReaM VARIABLE "= necblaRen AT 95709000 
05740000 
K ©"  NTFGER == DECLARED AT 05841300 
05847359 *05844990% 05844995 *05844935%*05845000% 
K == INTEGER =e DECLARED AT 05847700 
#05848 300«*058504 30%4#05850300% 058574500 05851909 05859350 05852500 
K 7" INTEGER == DECLARED AT 05952000 
*05961600 «405962000 %405968400% 05968600 «05974800% 05979400 405973400 %s08973600% 05974400 
K *" STREAM VARIABLE =" DECLARED AT 07245000 
07249000 
K =" REAL @" DecbaRrp at 07355000 
#07357000% 07372500 07372800 07373000 07374100 07493000 08353000 084046000 
K = STREAM VaRTaBlLF = NECLARFH AT 08454000 == OCCURS aT 08402000 
08455000 *08457000*% 
K = STREAM VARTABLE == DECLARED AT 084727000 
08474000 
K == STREAM VARIABLE == DECLARED AT 08775000 
08779000 08921000 
K = REAL "= DECLARED aT 09601000 =" OCCURS AT 08920000 
*09618000*% 09619000 09620000 09622000 
K = Real =" pecbaRrn at 14351205 


20756000 «400164106 


05974600 


L led 


=m 


b lal 


*14358340% 14358345 *14358595* 14358600 
STREAM VARTABLE == PECLARED AT 14535000 
14537000 
REAL = 
REAL == 
16114000 
REAL, me 
REAL, on 
16696100 
STREAM VARIABLE =" 
16823400 
REAL oo 
16912000 
Real == Orcbakrn aT £8198000 
*182932000% 48233000 #18234000*% 182740200 
REAL == DECLARED AT 199014500 
*19902450% 49902300 *19903945* 19903960 «19903990*% 49904000 
*19905000*% 19905;00 
STREAM VARYABLE = DNECLARED AT 20328000 
#20338000%%*20343000% 20348000 
REAL =" DECLARFN AT 20382050 
#20382260% 20382980 70382300 20389340 
STREAM VARIABLE =" DECLARED AT 20498000 
20500000 
Real se 
28003800 
REAL = 


DECLARFD AT 45612000 
DECLARED AT 46048000 
16118000 
DECLARFD AT 46349000 
DECLARED AT 16696000 
16698220 +16809000« 16814000 
DECLAREN AT 16823200 


DFcLARFD aT 16911500 


18241,000 


20382360 


DecLARFD aT 28003600 


DECLARED AT 28204000 
282904200 78240500 +#98958800*% 278259000 
REAL e= DECLARED AT 28404660 
*78464400% 78469000 498460400% 984639000 
#28475800% 2PBA7T6E400 PEA7TB4OO w2KB479600% 28479800 
REAL 7 DECLARED AT 28803000 
28836500 *28884000% 28885000 
REAL “7 VALUE PARAMETER & 
37357400 
INTEGER =" DECLARED AT 37388000 
37388100 «£37389000% 37391000 *«37398000" 37399000 
REAL |= DecbhaRro AT 37507000 
*375920000%#37527000% 37530100 
REAL == DECLARED AT 40004500 


28480000 


DECLAREN aT 37357500 


37533C00 37534000 


40046400 *40097945%%e40049400% 40043000 % 4007 3000844007 4000%% 40 32 35008% 40 393600% 


ee LABEL «= DECLARED AT 04670650 = OCCURS AT 04684500 
04682950 04687400 

#* REAL =" VALUE PARAMETER “== 

=" REAL = VALUE PARAMETFR == 
04754000 04255000 

oe" Real "= DECLARED aT 04355400 
#943596004%04365400% 04365600 04366200 04367600 
04369400 04369400 04370000 04376600 04383400 

m= STREAM VARTABLF == AFCLARFD AT 04359600 

w= STREAM VARTABLF == DECLARED AT 04401000 

=~ REAL == VALUE PARAMETER == DECLARED AT 04550000 


DECLARED AT 04121450 
DECLARED AT 04255000 


04367800 
04386800 


04548000 04549000 04555150 04555300 04555350 04555400 

04651200 04651300 904654000 04654200 04654400 04654500 
e- Realb ==" wAbUr PARAMETER @" peEclLAREN AT 41310100 

#41310300% 44310400 414310500 41310700 41330900 44344000 


e" ReraL =" OECLAREN AT 41312300 


16823200 *16826900% 16828000 


19904040 


20387380 «203827440» 


28463400 «98467200% 98467600 


37535000 «37535000 


04368000 
04393000 


04555450 
04654900 


18248000 *18273040% 18273055 #418276000* 48464000 


19904020 «19904030%*49904050m" 49904060 


28467800 «28474600% 78479000 


04368200 


04368600 


*04407000% 04404800 


*04555500" 04570100 


04655700 


04663000 


04369000 
04446400 


04651050 
04663100 


98472600 


04369200 
04421600 


04651100 
04663200 


€41342700% 41312800 41312900 441313000 41343100 44313200 41313300 44313400 «44314000* 44314100 41334200 
41314400 44314500 431314600 41314700 413;4800 . 
Key =" Real =* nechaRen AT 41327400 


*41329500% 47333005 41333090 
KEYBOARNCOUNTER es REAL == DECLARED AT 02020500 
#08998200£*08998 600% 1 6969500881 6970000%8 4448850088451 35715"*48131000% 
KEYBOARDMASK *=* DEFINE =" DECLARED aT 00081000 
45735220 
KEYBOARDREADY == DEFINE == DECLARED AT 00084000 
KEYBOARDREQUEST *°* LAREL @" DECLARED AT 00009000 =" oOccURS AT 481428000 
46003000 
KEYIN #* REAL PROCEDURE =" DECLARED AT 16904000 =" FORWARD AT 02021000 
02258100 16926270 *16931000«%«16965500" 16971500 48432000 
KEYINRUFFARFAV =" DEFINE =" DECLARED at 00017470 
16949500 
KEYINMASK =" HDEFINE =" DECLARE AT 06071100 
06990600 
KEYINSCAN «== REAL PROCEDURE == DECLARED AT 16034900 
46043800 149276010 
KEYINO == PROCEDURE = DFCILARED AT 16044000 
16344000 16960500 
KEYINd "=" PROCEDURE =" DFCLARED AT 16345000 
16689500 16960500 
KEYIN2 "" PROCEDURE =" DFCLARED AT 16690000 
16903100 16959500 
KEYMSGS7 "= NEFING “= neECLARED AT 00440000 
08604000 086604;00 16041100 160411410 
Keyi se Real =" DECLARED AT 04258400 
*04272000*% 04352900 
KEY{ == STREAM VARIABLE == DECLARED AT 04979000 
KEYD = REAL = DECLARED AT 04958600 
*04278200*% 04278000 04279000 04279800 04280400 04281400 04281600 04281800 04282000 04783000 04283200 
04352400 
KILL "= PROCEDURE *“"™ DFCLARED aT 02047000 
02130009 04352800 04433600 05979500 06116300 06425000 08573300 12476000 14434000 15116100 46903000. 
16971000 20211400 20601250 20610600 22053900 22226000 37465000 41325600 41335100 
KyLLER ©* LABEL =" NECLARED AT 04261200 «= UCCURS AT 04352000 
04347400 14334600 
KILLER = LABEL, == MFCIARED AT 04357600 == OCCURS AT 04433400 
04371955 
KILLL =e -ABEL == DECLARFD AT 94261200 ==  QCCURS AT 04351600 
04298800 04313600 
KILLL =" LABEL =" DECLARED aT 04357600 "= OCCURS AT 04433000 
04385400 
KILLUL =" LABEL =" DFCLARED AT 41327800 "= OCCURS AT 41334800 
KIND t= Real oo" Valir PaRaMETER =" DrclaRFO aT 00373000 
00371000 00372000 
KINO «= REAL ee NAME PARAMETER == DECLAREN AT 37002000 
37000000 * 37046060 %% 37046075 37046 320 ¥% 37046500 4% 37046840 %% 37046950 44370475008 37047605 37047640 «37047650" 
% 37173000» 
KIND = INTEGER =" NMFECLARED AT 38004000 
*3809;,000* 
KIND == INTEGER == DECLARED AT 38102400 
38194900 38106700 38106800 *38115100* 38179500 38124000 38144000 38146000 «38157000% 
KIND == INTEGER = fECLARED AT 38200400 
38202900 38204700 38204800 38215500 38236010 38239500 38242000 38244500 38255500 38258000 382960000 
38963500 38264000 38778500 38279000 38288000 38293000 


KyNp ee yNTEGFR =" neclAREN AT 38359000 
38373000 
KIND ==  INTEGFR == PECLARED AT 38544000 
38556000 38581200 38596000 
KIND ©» INTEGER =" PECLARED AT 386527000 
38669000 38681000 38683000 38688000 38697000 «38814000» 
KIND "=" STREAM VARIABLF **" DECLARED AT 38683000 
38684000 
KIND == INTEGER =" HECLARED AT 39002000 
39028000 39029000 39034000 39034100 «*39092000* 39145100 39233100 39233400 *39235000«39236900«439240000" 
*39293100" 39295000 39306010 39306200 
KyNn @= INTEGER &" nreblaRen aT 41002000 
*41052000% 41190000 44190100 41190900 41191000 44191100 44207000 
KK e= REAL ARRAY ==" ODFCLARED AT 40005050 
*#400 46490 %%4004 6500444001 6800 €%4001 6900 %%40046940% 
KLUDGE == REAL "= DECLARED AT 41327400 
*41329400*% 44329800 41329900 
KLUMP = MEFINE == DECLARED AT 07000000 
07001820 07314200 07327000 07547100 07571000 45437000 
KOUNT =" REAL 7" NAME PARAMETER =" DECLARED AT 20314200 
20314000 20356000 20368100 20369000 20370000 20374000 20375000 20377000 20378000 20379000 20380000 
20380100 20380200 20380500 
KOUNT =" REAL *"= HEFeLAREN AT 20388000 
20397200 20411000 20415106 20426000 20427000 20432000 20433000 20438000 20439000 270478510 20478520 
20484250 270484300 20498000 
KOUNT ewe STREAM VARJARLE == DECLARED AT 20441000 
20443000 270444000 
KOUNT == STREAM VARJARLF == DECLARED AT 20477000 
20428000 
KOUNT == STREAM VARIABLE e= DECLARED AT 20433000 
20434000 . 
KOUNT =" STREAM VARIABLE = DECLARED AT 20439000 
20440000 
KOUNT =" STREAM VARTARLE =" DECLARED AT 20478520 
20478530 
KOUNT ©" STREAM VaARTARLF "" DECLARED AT 20484300 
20484400 
KOUNT #= STREAM VARIABLE “== DECLARED AT 20498000 
20500400 70500300 70501000 
KOUNT we REAL |= DECLARED AT 20566100 
20566900 
KOUNT #" REAL “= DECLARED AT 20581000 
KOUNT = REAL = DECLARED AT 20584000 
20584200 
KOUNT "=" REAL °™ DFCLARED AT 20586800 
20587100 
KOUNT =" REAL =" necbLaREn AT 205898600 
20590000 20590655 270590660 20590675 20590680 20590695 20590700 
KOUNT == STREAM VARTARLF == DECLARED AT 20590660 
20590665 
KOUNT = STREAM VARIABLF == DECLARED AT 20590680 
20590685 
KOUNT = STREAM VARIABLE “== DECLARED AT 20590700 
20590705 
KOUNT == REAL == DECLARED AT 20591000 
20591400 
KOUNT =" REAL "* DECLARED AT 20595000 


KOUNT 
KOUNT 


KOUNT 


20596300 

=" Real @™" peeblaRep AT 20596800 

os REAL == DECLAREN AT 20600040 
20600040 90604,00 

w= REAL == DECLARED AT 207094500 
20706000 


KRUNCH = DEFINE == DECLARED AT 38381000 


KRUNC 


38429000 
H = DEFINE =" DECLARED AT 41018100 


KRUNCHER ** PROCEDURE ** DECLARED AT 37500000 


KTR 
KTR 
KTR 
KTR 
KTR 
KTR 
KTR 
KTR 
KTR 
KTR 
KTR 
KTR 
KTR 
KTR 
KTR 
KTR 


KTR 


KTR 
KTR 
KTR 


KTR 


KTR 
KTR 


38429000 
wr REAL @" VALUF PARAMETER “" DECLARED AT 02111100 
om Real w= vabUr PaRAMETFR “= DECLAREn AT 02111200 
w= Real =" NAME PARAMETER == DECLARED AT 02604000 
02603000 029606000 *02633000* 
=° STREAM VARTABLF = MNECLARED AT 02606000 
02608000 
e= REAL == DECLARFD AT 05952710 
05952755 05952975 
=" STREAM VARIABLE *™ DECLARED AT 05952755 
05952765 *05952965% 


=" STREAM VARIABLE "7 DECLARED aT 06078100 


06081600 
ee Real w= vabUe PaRaMeTFR == DeECLAREM AT 07243000 
07245000 07252000 
w= STREAM VARIABLE = DECLARED AT 07245000 
07946000 
== REAL == VALUE PARAMETFR #= DECLARED AT 08679000 
08689900 08690100 08691200 *08692800* 08693800 
e= STREAM VARIABLE ** DECLARED AT 08691200 
08691400 *0A692000% 
=" RFAL ©" VALUF PARAMETER =" DECLAREN AT 08732000 
08730000 08731000 08735000 08737000 
m™ STREAM VARIARLF =" NECLARFD aT 08737000 
08738000 *08741000% 08742000 *08/748000* 08752000 
e= REAL == peclaRep aT 12206500 
*12222500% 12225500 *122744000* 
ee STREAM VARTABLF = DECLARED al 42795500 
12226500 
w= REAL «= NAME PARAMETER == DECLARED AT 46034900 
16036200 146040900 16041200 16043500 
=" REAL == DECLARED AT 16048000 
16075000" 16082000 16988000 16114900 16132000 16139000 416149000 
16204000 16244000 16251000 16254000 16263100 
“" STREAM vaRrTaBLr =" necbaRro aT 16088000 
16090000 
w= STREAM VARTABLF |= DECLARED AT 46139000 
16141000 *146147000% 
ee STREAM VARIABLE == DECLARED AT 16187000 
16189000 «16195000 
e= REAL = DECLARED AT 16349000 
*16376000% 16491000 16497000 *16506000*" 16590000 16522000 16523000 
16539000 16542000 «16580800*« 16588000 16589000 16592000 16607000 
"" STREAM VARIABLE =" NeCcbLAREN AT 16506000 
16508100 . 
w= STREAM VARTARLE =" DFCLARFD AT 16592000 
16594000 «46596000 


16154000 


16526000 
16609200 


16168000 


16529000 
16610600 


16171000 


16533000 


16187000 


16536000 


Cc Cc ccc cr 


CT Coo ff Te lee 


mae 


=a 
am 
Led 
=e 
=e 
Lda 
me 


STREAM VARIABLE == DECLARED AT 16609700 


16609400 

REAL == DECLARED AT 16693000 

16693500 «167170008 46741000 #16745500* 16746509 46750000 
16797000 16801500 164803000 *16804500* 16805000 16806500 


STREAM VARIABLE °°" 
16757000 *16766000« 
STREAM VARIABLE &=" 
16781000 

ReaL "= pFCLARFD AT 16908500 

16909000 %16926000% 16926010 16926040 «16927000% 16957500 
STREAM VARTABLe =" DrcbaRFN aT 16926040 

16926050 *16926;80" 
STREAM VARTABLF = 
16963000 

STREAM VARIABLE == 
44323700 £44323900« 

- REAL =" VALUE PARAMETER: == 


DFCLARED aT 16756000 


DECLARED AT 16780500 


DECLARED AT 46962000 
DECLARED AT 44323600 


DECLARED AT 12201000 


122292000 12222500 

=" REAL =" VALUE PARAMETER ©" DECLARED AT 16044000 
16072000 16073000 16074000 16075000 

" Reab oe" Vabur PaRAMEFTER ™" OrcblaRFD at 16345000 
16373000 46374000 16375000 16376000 16645200 

° RrAL == VALUE PARAMETER =" DFCLARFD AT 16690000 
167490500 46743000 46741500 467327000 146830,00 

- REAL = DEC; ARED AT 16910000 

*16957500% 16959500 16960500 
INTEGER == DECLARED AT 20382052 

* 20382060 **20 3B 2062%%20382072*% 20382100 20382700 
INTEGER ™* DECLARED AT 20382052 

* 20382060 «#2038 2064u%e203B2072% 203862110 20382700 


STREAM VARTaRLF == DFCLARFN AT 90042000 


00043000 
RralL *= ValUrp PARaMeTFR == pecbaRen aT 00316000 
REAL == NAME PARAMETER == DECLARED AT 00432000 
LABEL == DECLARED AT 024147000 = OCCURS AT 02119020 
02127000 09354000 027463000 02167000 
REAL == NAME PARAMETER == DECLARED AT 02487300 o# 
02187100 
REAL @* DECLARED AT 02192000 
*02208000% 02210000 02211000 02212000 
#02763000m 92264000 02766000 02271000 02281000 02292000 
#02323000% 02324000 027325000 02232000 02353000 


16751500 
16823200 


16962000 


02296000 


RFAL °= vALUF PARAMFTFR ==" DFCLAREN aT 02379000 <= 

STREAM LABEL == OFCLARED AT 02434365 e= OCCURS AT 02434380 
02434380 

STREAM VARIABLE == DECLARED AT 02434700 

02434735 02610000 

STREAM VARIABLE == DECLARED AT 02662100 == OCCURS AT 02609000 
02662200 


DECLARED AT 02664000 

VALUE PARAMETER == DECLARED AT 02696500 
DECLARED AT 04399400 == 
DECLARED AT 04647250 == 

REAL "* NAME PARAMETER “= DECLARED AT 04702000 
04700000 #04736000« 04736500 04737000 

STREAM VARIABLE 7" DECLARED aT 04737000 


STREAM VARIABLE = 
REAL, ARRAY == 

STREAM LABEL == 
STREAM LABEL = 


OCCURS AT 04400000 
oCCURS AT 04647400 


16756000 16768000 46780500 


OCCURS AT 02146000 


02216200 *02216300**02216400% 02226000 *02261200*% 02261300 


02313600 #02319000* 02320000 


OCCURS AT 02352000 


16786500 


02261350 
02321000 


ccc cc- Cc c Cc cr : a Cc c i om | nn, one Cc c 


Cc cr oc cc c 


on 


=m 


04739000 
tNTEaFR == VALUE PARAMETER 
05790000 05704000 05702500 
TNTEGER #= DEC|ARFD AT 05844 
*05849450* 05849475 05843200 
INTEGER == DECLARED AT 05847 
*¥05850130*% 05850300 05850400 


== DFCLARFD AT 05701000 
05715100 05798400 05798420 
615 


700 
*05850500%«05850600* 05651700 05851800 *05851850% 05852000 


INTEGER =" DECLARED AT 05952000 


#05961600% 05962000 05962200 

INTFGFR =" DECLARED AT 06184 

*06208000%%06217400% 06218000 

LABEL =~ FCLARED aT 0700328 
07003290 


REAL = DECLARED AT 07006060 


07934000 *07108000*" 071427000 

LABEL, =" DECLARED AT 0727000 
07291000 

LABEL, = DECLARED AT 0730000 
07320000 

LABEL, == DECLAREN AT 9735600 
07372900 

NEFINE ©" DFCLARED AT 073870 
07395000 07396000 

LABFL "=" DFCLARED AT 0742300 
07451000 

sTReaM LARFL =™ necbLaREN aT 
08300800 08349000 08400000 

STREAM LABEL == DFCLARED AT 
08497000 

REAL == DECLARED AT 085468900 
08548900 08569600 08869700 
STREAM VARIABLE =" DECLAREN 

STREAM VARIABLE "=" NECLARED 
STREAM LARBFL ==" DOFCLARED at 

STREAM LABEL =" AFCLARED at 

REAL == DECLARED aT 09601000 
09648000 09621000 *09622000« 
STREAM VARIABLE == DECLARED 
14286000 14787000 

REAL == VALUE pARAMFTER «= 
14583100 14583200 14607000 

STREAM LABEL "=" DFCLARED aT 
15027000 

REAL @" VALUE PARAMETER © 
15168000 15168100 15173000 

RFAL =" NeebaRrn at 15612000 

#15614000«% 15615000 1456417000 
STREAM LABEL == OFCLARED aT 
16063109 16515000 146758500 

STREAM LABEL == DECLARED aT 
STREAM VARTABLE == DECLARED 
17993800 170047350 147004250 

REAL, == DECLARED aT 20012100 
20030800 *20035300¥ 20035500 
20061500 20064600 

STREAM VARTABLF == nFCLAREn 
20032750 20063000 


#0596 2400%405962600% 05962900 05963000 05970800 05972600 
000 

06278000 406279000* 06280000 

0 == O¢cuRS aT 07003300 : 


07143000 07147000 07151000 *07152000* 07248000 
O -= OCCURS aT 07274000 


Oo *™ OCCURS AT 07316000 

O == OCCURS AT 07358000 

00 

oO "= OrcURS aT 07435000 
08300600 == OccURS AT 08301200 
08455500 == QOCCUKS AT 08457000 


=" OCCURS AT 08490000 
08569900 08569910 08572500 08572540 085729520 08572600 
AT 08568900 
AT 98572700 
08663000 = OCCUKS AT 08664000 
08690110 == OCCURS AT 08690110 
== OccURS aT 08806000 


AT 14284000 
DECLARFD AT 14543000 
14646600 == QCCURS AT 14646800 


DECLAREN aT 15169000 == OccURS aT 15025000 
15174000 15176000 15177000 15180000 15382000 15186000 
=" OccURS AT 15531400 
15620000 15621000 
16036800 m= OCCURS AT 16037500 
16926410 
16926940 ews OCCURS AT 16926240 
AT 17003300 


~~ occURS AT 18540800 
20035700 20036100 20036200 *20058100* 20058300 20058800 


AT 20030800 


05973400 


98579700 


20059400 


05973800 


08573200 


20059600 


ccrcr CT” CT Cc cc 
g 
a 


L oe 

L aon 

L an 

Lo ne 
Loos 

L mm 

L mo 

L a7 

L oe 

L on 

L aon 

F ae 

L men 
LA =m 
LA me 
LA 7™ 
LAB =" 
LAB = 
LAB» 
LAB == 
LABE «= 
LABELA 
LABELAR 


STREAM LABEL == DECLARED AT 20064600 w= gCCURS AT 20064800 
REAI, »= DECLARED AT 20081300 
*20119000% 270119900 70170000 2012010N 70120800 
REAL 7 ™ DECLARED AT 20141700 
*20459500%820163900%%20168150%%20176109" 
STREAM LABEL @" DECLARED AT 20301200 |* OCCURS AT 20301500 
LABEL "" DECLARED AT 20382030 ™™ OCCURS aT 20382740 
20382620 
STREAM LAREL 7" PECILARED AT 20571840 ©" QCCURS AT 20571850 
LABEL, °* DECLARED AT 22062000 "=" OCCURS aT 22083000 
22095000 22110000 22115070 22192109 
sTReaM Lapel =" necbaRep at 22192100 -" OccuURS at 22192200 
STReaM LABFL @" DOFCLARED aT 24118000 == OCCURS aT 24120000 
STREAM VARYTABLE = DFCLAREN AT 24458000 
24460000 
,.ABE;, == DECLARED AT 2942709000 == ocCURS AT 24221000 
24226000 
REAL, *™" DECLARED AT 28003800 
REAL "= DECLARED AT 28401600 
*2B447600" 2A447R00 28448000 278448400 284648800 28449000 «2844960084 2R472400% 28473200 *28473400% 28473600 
LABEL @™" fAECbLARFH aT 30906000 “= OreruRS aT 30915000 
30943000 
LABEL == DECLARFN AT 36003000 == Oc¢cuRS aT 36006000 
36008000 
REAL w= DECLARED AT 37359000 
*37360000% 373610900 37387000 37363000 
STREAM VARIABLE == DECLARED AT 37361000 
*37365000% 37366000 *37 367000437 368000" 37349000 *37370000K%37371000% 37375000 «37379500*% 
STREAM VARIABLE "=" DECLARED AT 37394200 
37394350 37394550 
STREAM VARIABLE "= DECLARED AT 38290000 
38290500 
STREAM VARTARBLE == NECLAREN AT 38593000 
STREAM LABEL @™ NECLAREN AT 41333037 =" OCCUKS AT 41333045 
LABEL "=" DECLARED aT 41430500 =" OccuURS aT 41430700 
41430600 
LABFL *" PFCLARED AT 42483000 == Or¢cuRS aT 42503000 
42496000 
STREAM LABEL == DECLARED AT 02621000 = OCCURS AT 02623000 
INTEGER == DECLARED AT 05954900 
05952200 #05953035* 05953040 *05969700% 05962800 £05962900« 05969000 05970800 05972800 05973400 «05976350% 
05976400 05976450 05976700 095977050 «05977100* 16754000 
STREAM LaBEL = NAECLARED aT 37316300 =" OCCURS aT 37316400 
STREAM LABFL == DFCLAREN AT 08455000 == oOccURS aT 08456000 
Real ARRAY =" DFCLARED AT 28004600 ; 
28904800 78019800 28022400 28029600 28075200 28033400 *28033800% 78036400 28039200 78039400 28048400 
28056000 28058200 28963000 28063200 28063800 28064000 28099800 28100700 
Real ARRAY = DFCLARED aT 28205000 
28205200 78213000 28247000 98247200 282149800 98297600 «289293000 78995400 78278700 982298400 278972400 
REAL ARRAY =" DECLARED AT 28401800 
#28451800* 
= LABEL =" DECLARED AT 20597850 = QgCCURS AT 20609500 
20598000 
== REAL ARRAY = DECLARED AT 04668800 
#0467 4000 &¥0 4675400 440 4675450%804675500e 04679050 04679500 04680350 «04680900*% 04680950 
FA =" SUBROUTINE 7" DECLARED AT 38106900 
38129000 


LABELARFA =~ SUBROUTINE =" ODFCLARED AT 38204900 
38275000 
LABELARFAV == OFFINE == QFCLARFD AT 90017564 
02639000 284514800 38107100 38124500 38148000 38205100 
LABELASCRATCH ee REAL PROCEDURE ©#= DECLARED AT 092659000 
*02669000«% 029670000 04680950 07090000 28073000 278082000 
LABELCHECK =" REAL SURROUTINE = DECLARED AT 28019200 
28926800 28029400 28048200 
LABELCHFECK == REAL SURROUTINE = DECLARED AT 28212400 
28221400 28271000 
LABELED °* DEFINE @* neclaREN aT 04670800 
04674350 04678950 046802506 
LABEFLREC 7" RFaAL 7" DFCLARED AT 08099750 
*081142000*% 08112050 08112200 08116400 
LABELSOMJTTFD == DEFINE == DECLARED AT 15072000 
LABELSPACE =» SUBROUTINE = DECLARED AT 014250600 
01250900 01254a00 
LABELTABLE =" REAL ARRAY == DECLARED AT 00285000 
*#9126110044N2199N00e 02347290 £02347315% 02434195 02434200 *02434260% 074342970 402434400% 02434410 402434690" 
02434700 04369000 04675500 404680150 %406463740 «007015000% 07372300 07372310 «07409100 %407432100e%07448000" 
07478000 07478400 08914000 08018000 *08029100««08030400%*080 31100%4080 33994%%08050000«*08054000K%08085000% 
%08094000%*08256440% 08757500 08257600 08258000 «08259820%+08259850* 08269540 *08280030% 084292000 «08430000» 
08447000 084714495 08497000 08550000 08557000 +*08565000% 08581000 *08589000 *«1 2599500 e«7 2539000 8%«1 2567500" 
12669500 42670950 «12674250 12679500 12687300 «12687700%%12864500%«%19874500%«% 12876000%416246000e 20590300 
*20590450% 20590550 *20590600 *% 20595650 %%20596200 #% 20596 350 *%*2060 1 100% 420608840 «420609 1004420609580 %e2 2069470" 
22981000 *22083000«% 22094000 22093000 «22125000%«22175000«822179000% 22489000 422190000 «*22200000 0222422008 
28016000 28248600 «*28255600% 37010000 370141000 37045000 37016000 37019200 37022100 37025000 37032000 
#37037100% 37044000 «37046160 4437946320 «437046835 ¥% 37046980 4437047500 4437047625 %4% 37048310" 37100000 «37174000 
37187110 37189900 37189500 37190000 37200000 37235000 37235500 «37236000% 37236750 *37241900«" 37314000 
* 37 318100%%37319000e% 38640000%e 38730000" 44175000 £441950008444 1960008 e44214000% 
LARELTHFPRINTER = SURROUTINE =" DECLARED AT 08256430 
08258700 08271000 
LABEV =" nEFING == neECLARED AT 20227000 
20595850 270597050 
LABLE = REAL -= DECLARED AT 314005000 
*31913000* 310143050 31913100 31944000 31075000 34047000 *31017100* 34017300 31017400 31024000 
LABLE = REAL ARRAY «= VALUE PARAMETER = (DECLARED AT 37341000 
37337000 37339000 37346000 37352000 37353000 
LABLE =°™" STREAM VARIARLF “2 MNECLARED AT 37346000 
LABLE =" REAL ARRAY e©= PAFCLARED AT 37450000 
*37454000% 37455000 37456000 37463000 
LASTACCESSNaATE ==" DEFINE "= DECLARED AT 08100950 
08105900 08114300 
LASTAVATL =" DEFINE =|" DECLARED AT 4000861410 
40078052 40078054 
LASTCDNUM == INTEGER == NECLARED AT 07000100 
*07001660*" 07001680 07559500 
LASTDFCK = REAL =" DECLARED AT 97000300 
#07 344120%#07326;008% 07564000 07566000 «07570000« 
LASTENTRY ©" REAL ©" ECLARED aT 41327500 
#44 330200 %#44334400% 44332300 443335900 44333800 
LASTIO = DEFINE == DECLARED AT 38385500 
38389200 
LASTL =" INTEGER "= NECLARED AT 41316410 
491317500 «6413477004441319000% 41319160 413149200 44319220 41319240 443149300 441349700 
LASTL ©* REAL "" DECLAREN AT 44012000 
84914000 #44115900% 44123000 44124000 *44125000% 44126000 44130000 *44131000% 


| 


LASTL #* RFAL == DECLAREN AT 44206800 
44207000 
LASTL =" REAL, == DECLARED AT 45002400 
45002600 
LASTLINK == INTEGER == DECLARED AT 08852000 
#088600004*08863000e 08931000 08932000 08933000 08935000 
LASTPASSED “7 REAL "= PECLARED aT 08853000 
—— #08862000%*08882000% 08885000 08911000 08927000 
LASTSCAN s* Real == NaMp PARAMETER “* DeCLAREN AT 20314200 
20314000 20322000 20323000 *203240004«420395100%%20374000% 20374410 «20376000» 
LASTSCAN we. REAL == NAMF PARAMFIFR **" DECLARED AT 20386000 
20384000 370397500 
LASTSCAN «= REAL == ODFCILARED AT 20566100 
20866900 
LASTSCAN = REAL -* DECLARED AT 20581000 
LASTSCAN = REAL == OFCLARED AT 20584000 
20584200 
LASTSCAN ** REAL 7" DECLARED AT 20586800 
20587100 
LASTSCAN *" REAL *" DECLARED AT 20589800 
20590000 
LASTSCAN 7" Real 7" NFeLARFN ay 20591000 
20591400 
LASTSCAN =*= REAL “= DECLARED AT 20595000 
20596300 
LASTSCAN == REAL = DECLARED AT 20596800 
LASTSCAN = REAL =" DECLARED AT 20600010 
20690040 20600110 *20600150**20602540% 20604900 20605100 *20607000%*20608780" 
LAaSTSCAN =" Real "= DECLARED aT 20701500 
20706000 
LATEST ™" MEFINE "* DECLARED aT 28207800 
28283200 
LATESTV *" DEFINE @" DECLARED al 20247960 
20569650 . 
LB we LABFL "© DECLAREN AT 02202000 == goccURS aT 42293000 
02310000 
LB =» DEFINE = DECLARED AT 20917700 
20380200 270570000 270573510 
LBACK = {ABEL == DECLARED AT 20393000 == OCCURS AT 20469000 
20395000 
LBI w= LABEL *= DECLARED AT 02202000 #= OCCURS AT 02308000 
02311000 
LBL ©" REAL =" DECLARED AT 02638000 
#02639000% 02642000 02657000 
Lab oo» =U eae VARIABLE 7" DECLARED AT 02642000 
Lal «= AL == VALUr PARAMETER "=" DECLARED AT 02659000 
403603000 02662050 02662100 02663000 02664000 02665110 02665150 057666000 02668600 
LBL «= REAL ARRAY = DECLARED aT 20013800 
20044300 20024900 *20021920% 20022000 «20092100% 20099200 20059400 %90059420*% 20059300 70059700 
20060800 20061100 20063700 20064000 20065200 20066200 
LBL =" REAL ARRAY = DECLARED AT 20083000 
20083500 270089800 *20089820* 20089900 «200900008 70090100 
LBL =" REAL ARRAY =" DECLARED aT 20143400 
20143900 20210700 
LBL ©" REAL ARRAY "=" ODFCLARED aT 28004800 
28011850 28041400 £28072800% 28073000 «28081200% 28081400 28081600 28082200 «28083000« 28083200 
#28094800% 28095000 


290060400 


28084000 


LBL «= STREAM VARIABLE =" DFCLARED AT 26083200 
LBL =e REAL ARRAY == DFCLARED AT 28205200 
28932600 2782955900 789554600 278256400 
LBL =" REAL ARRAY == DECLARED AT 28401800 
LBLEQNAREAV == DEFINE = DECLARED AT 00017290 
20059120 270089820 
LBMESS °* PROCEDURE =" DECLARED AT 17000000 == FORWARD AT 00454000 
14595360 16811500 16817000 16818000 18031500 18439125 20575050 205751300 20575200 
20577750 20577875 20577975 20578325 20578525 20585370 20587550 20588900 20594350 
20769400 270771100 28011200 28212000 28270820 28408400 28434800 28474600 28883000 
LBMSGCONTROL, =e REAL == DECLARED aT 16995000 
*17000900% 17004000 17004400 #17009600* 17003000 #47003N50% 47003400 147003430 47003250 
LC = DEFINE = DECLARED AT 081;00650 
08101650 
LC == LABEL == DECLARED AT 16699500 == QCCURS AT 16743000 
16703500 
LOOPY =" LABEL == ODFCLARED AT 20393000 == OCCURS AT 20478510 
20396000 20449100 270461310 204614810 20470100 20475100 
LCOPY =" LABEL =" DFCLARED AT 20566600 = OCCURS AT 20569200 


20566620 

LOOPY -*" LABEL =" DFCLARFD AT 20597800 “= OCCURS AT 20606450 
20597950 

Lp ve Lapelh = ofcbaRen aT 16356000 == gcecURS aT 16535000 
16365000. 


LOATE == I NTeGrFR == prcLAREn AT 41316440 
443¢6520 443497780 44349900 44329410 44370430 44320440 44324900 44393470 44394300 
LDATE == REAL |= DECLARED AT 44012000 
LOATE =" RQFAL "= DECLARED AT 44206800 
LDATE == REAL == DECLARED AT 45002100 
*#45105000*e 45116000 
LDCNTRL =" LABEL "=" DECLARED AT 97244100 == OCCURS AT 07265400 
07256000 07258200 
LoeNTRL =" Lagprb =") necbaREn aT 22061200 == Oc¢cURS at 22069550 
22069030 22069340 
LOCNTRLCODE “= DEFINE © DECLARED AT 00134020 
07958600 270452300 270605465 22069160 
LDISK we LABEL == DECLARED AT 90389000 ee OCCURS AT 20456000 
20394900 
LDUMMY "= LABEL =" DECLARED AT 203927870 -*= OCCURS AT 270451900 
20394070 02623501 
LE = LAREL =" DECLAREN AT 44020000 = OCCURS AT 44120000 
44133000 
LEAPFROG = STREAM VARIARLFE °°" DECLARED at 04658700 
*#04659700% 04662200 
LEAVE =" LABFL =" PFCLARED aT 04357400 == OCCURS AT 04427600 
04403400 
LEAVELKnH == LABEL *= neclaRen aT 182908000 m= OCCURS aT 18466400 
148220000 
LEFTARROW «== DEFINE «= DECLARED AT 00006150 
02615100 02615200 08102700 081145600 19768778 
LEFTOFF == REAL == DECLARED AT 00341000 
*24030000% 24036700 24036900 *24037500* 24037600 24038200 *24038400* 
LeM @*" Lageb =" DECLARED aT 20020300 =" O¢CcURS at 20026100 
20025000 20025600 
LeNp =e STREAM Lapel == necLARen AT 12883500 = OCCURS AT 12884500 
LeVelL eo  WNlrgrR = norclLAREp AT 08852000 
*08861000* 08864000 *08882000* 0888700; 08931000 08932000 *08937000* 08938000 08939000 


20575550 
20704270 
44253000 


17003400 


08942000 


20577450 
20766000 


*17005600* 


08944000 


LEVEL 
LEVEL 
LEVEL 
LF ooo 
Lp oo 
LF =e 
LF ORM 
LFREE 


LFT == 


Lt os 


LYRBIT 
LIBERR 


08944500 


e= REAL 
20021400 
=" REAL 


ee DECLARED AT 20012500 
20021700 *20924600* 20025000 20030800 
7= DECLARED AT 20081700 


20089300 20089600 

er REAL '* DECLARED AT 20142100 
20164700 
DEFINE °*" DECLARFO aT 08100700 


20036800 


08191650 08102000 08102050 08102700 08105450 
LaprL °= necbhaRFn aT 16699500 "= OccCURS aT 16742000 


16703500 

LABEL == PDFECLAREN AT 44020000 == QccURS AT 44126000 
44428300 
em LABEL «= DECLARED AT 90389000 «6 OCCURS AT 20452000 
20394000 


e= ABEL == DFCI,ARED AT 20393000 *e oCCURS AT 20478500 
20396010 20461050 20461650 20467100 20473100 
INTEGER "=" ODFCLARED AT 02133123 
02173297 02173300 
LaRgrFL = nrclaRen aT 16355000 "* OCCURS AT 16386000 
16363000 
me MF FINE = pecbAREn AT 00417060 
=e DEFINE = DECLARED AT 00416590 e 
nee aca 20575050 270575100 20575200 70575600 970577475 20877775 970577995 
20594350 


LIBMATNCODF w= DEFINE = DECLARED AT 00134090 


LIBMSG 
LIBNO 


LyRNO 


L1BNO 
LIBNO 
LIBNO 
LIBNO 
LIBNO 
LIBNO 
LIBNO 


LIBNO 
LYBRA 


08887010 454313500 20566760 20587330 20605439 99042;00 

== DEFINE == DECLARED AT 00416200 

06353551 07351000 18439425 20578550 28264600 28270820 
e= REAL ** DECLARED AT 20566100 

20566690 *#20566695*" 20566812 20566820 20566825 «20566850 20567325 20567330 
20569690 20572300 20573100 *20576050*% 20580100 «20580305 20580310 

== Reab *= necblaRen AT 20581000 


20582650 
e= REAL == DECLARED AT 20584000 
w= REAL = DECLARED AT 20586800 
ee REAL = DECLARED AT 20589800 
w= REAL 7 DECLARED AT 20591000 
ee REAL "= DECLARED AT 20595000 
=" REAL *™ DECLARED AT 20596800 
"= REAL "= DECLARED AT 206000010 
*20603500« 


ew" REAL &* pnecbaREn aT 20701500 
"" NEFINE =" necbLAREN aT 20236000 
20581250 20585700 


LIBRARYCOPY = PROCEDURE == DECLARED AT 28400000 == FORWARD aT 00480000 


19681100 28483400 


LIBRARYHELP == PROCEDURE = DECLARED AT 28000000 


28101400 28216800 28225200 28228600 28230400 278232800 282742200 278249600 
28254600 28257800 28258700 28262400 28266800 28268000 28268400 28270824 
28303600 28465800 28467400 28472800 28475600 28476200 


LIBRARYTRANSFER © = PROCFHURE “" NFCLARFD aT 28200000 


28246000 28308000 28455000 28482800 


LYBRARYZERO *= PROCEDURE = NECLARED AT 28800000 == FORWARD AT 00479500 


LIMIT 


19681000 
em REAL "= DECLARED AT 04554500 
*04605500% 04627000 *04633200* 


20585375 


20587550 


20588900 


20567350 *20569400% 20569460 


28243600 
28271000 


28244040 
28285400 


28246200 
28295800 


LiMrT =  NTEGER == NEC 
24146000 *24152000" 
LIN = STREAM LABEL #= 
LINDX = REAL == NDECLAR 
20017100 *20060900« 
LINECT ™" DEFINE "" DFC 
13128010 
LINES66 ™" DEFINE “" nF 
LINK "=" nrFINEG =" Deca 
06087600 06087900 
LINK = ReAL «= DECLARE 
*08174000% 08476000 
LINK w= REAL == DECLARE 
*12387500« 12389000 
LINK = OMEFINE == DECI,A 
14184000 14189000 
LINK "» INTEGER =" NECL 
14399100" 14399900 
LINK "= RealL =" DECLARE 
%15601200% 15601400 
LYyNK o*= Reab o=" DECLARE 
20017200 *20058300% 
LYNK =e RrAL |=" DECLARE 
*22295000% 99296000 
LINK == REAL == DECLARE 
*24006000% 24007000 
LINK *= REAL == ODECIARF 
*24033100% 24033900 


249 36300 4474036700» 
LYNK = LanFlL "=" prebLarR 
37416000 


LINKTy |= SUBROUT;NE == 
19900460 49900570 
LINKUP == PROCEDURE) w= 
04983200 04370000 
16604000 19685370 
LISTHECARD ©" SUBROUTINE 
20600510 20603360 
LL == STREAM LABEL "= 2 
04360600 
LL "= STREAM LABEL ‘= 0 
08791250 08291400 
LL = STREAM LaBFL = 7 
bLo o*= bLanelL =" pFecbaRen 


14556500 

LL o-= STREAM VARTABLE == 
15502800 

LL "=e STREAM LABEL * - 0 
167464000 


LL o== LABEL = DECLARED 
18229500 20054400 

LL oo" STREAM VARIARLE © 
20289455 

LL == STREAM LABEL = 

LL = STREAM yARIABLF &@ 
44205000 

LLYINES66 «= LABEL == ODF 


LARED AT 24109000 
24155000 24158000 
DECLARED AT 12662000 

ED AT 20017000 
20961100 29063700 
LAREN AT 13021900 


CLARED AT 20240020 
REN aT 06070500 
06100500 

D AT 08472000 


D AT 12354000 
12390000 19390500 
RED AT 44160000 
14190000 
ARED AT 14351100 
14399300 *14399500% 
D AT 15600300 
15601500 15601600 
Nn aT 20017100 
20058900 20059400 
D AT 22230000 
22297000 272303000 
D AT 24004000 
24009000 
NM AT 24032200 
*24033300% 24033400 
2403700C 24038000 


== OCCURS AT 12662500 


20064000 20068200 


12397000 


15602200 15602640 15602680 
29059600 *20059700« 


22386000 979386100 


24033700 *274034200%*24034400% 24034500 
24038400 24038800 24038900 24039500 


FN AT 37388300 =" OCCURS AT 37412000 


NFCLARFON AT 19900990 
19900650 
DFCLARED AT 41310100 
04555450 04654300 
443141200 44313400 
=" DECLARED AT 2060 
20604480 20606875 
ECLARED aT 04360400 


ECLARED AT 05953020 


ECLARED aT 08299600 
AT 14547000 "= oce 


DECLARED AT 1550150 


ECLARED AT 16595000 


w= FORWARD AT 04121450 

04654200 04654500 04663200 05953050 
41314800 44323180 41325500 

0100 

"= OCCURS AT 04362200 

v= OCCURS aT 05953025 


“= OCCURS aT 08300200 
URS AT 14551000 


0 


== OCCURS AT 16596000 


AT 18202000 "= gCCURS AT 18227000 


DECLARED AT 29289390 =" OCCURS aT 20053500 


ECLARED aT 41323800 


== OccURS aT 41323900 


DECLARED aT 44203000 


CLARED AT 20392880 e-= OCCURS AT 20465050 


24035200 *24035300" 24035400 
24039600 


08385500 08442400 44441900 


LLO 
LLO 


Lb 4 
LLt 


LLf 
LL2 
LL2 
LL 3 
LN 
LN 
LNO 
LNUM 
LO 


LO 


LO 
LOAD 
LOAD 
LO¢ 
LO¢ 


Loc 
Loc 


Loc 
Loc 


LO¢ 
LOe 


LO¢ 


LO¢ 
LO¢ 


LOc¢ 


20394080 

m° STREAM LABEL «= DECLARED AT 04362800 "= OCCURS AT 043632700 

e= STREAM LABFL «= DECLARED AT 06075000 "= QgCCURS AT 06075100 
12239000 12241500 

e#* STREAM LABEL =" DECLARED AT 04362800 °° OCCURS AT 04363400 

m= STREAM LABEL =" DECLARED AT 06075400 "= OCCURS AT 06075700 
06075500 

oe" STREAM LARFL =" DFCLAREN AT 12233000 "= OCCURS aT 12234000 
12234000 


#* STREAM LanrL == pnrcblaReEn aT 04362800 == OCCURS aT 04363600 
e- STREAM LABEL ©. DFCLARED AT 06075000 == OCCURS AT 06075800 
»= STREAM LABEL == DECLARED AT 06076500 == OCCURS AT 06076700 


=e LABEL == OFCLAREC AT 16700000 =e gccURS AT 16780000 


16704000 


we LAREL == DECLARED AT 44020000 = gCCURS AT 44138000 


44141000 

em LABEL =" DECLARED AT 20389000 == OCCURS AT 20454000 
20394900 

"= STREAM VARIARLE "= DECLAREN AT 07001680 
07001720 


we REAL &™ NFCLAREN AT 06068300 


06068400 06092800 +*06111500* 


=e REAL == OFCLARED AT 37180000 


37480400 #37487400% 37487440 37487420 37487430 #37487250% 37488500 37495700 «37495950* 37195280 * 37493300" 
*37495400 4371957008 37212000 37213000 «37251000%%37264000 4437967000 4437967400» 


se INTEGER ©= DECLARED AT 40005110 


#40016025%*40016026% 40016900 40016920 «40322442% 40322444 *40328000%«403290008 40330000 
me LABEL = DECLARED AT 20146600 == QCCURS AT 20169400 
20167900 
ee MEFINE "" DECLARED AT 20224500 
20566807 20566822 20603000 
e" INTEGER ™" DFCLARED aT 00026000 
*00039035% 00040000 00042000 00045000 00046000 00048000 
we Real == yALUP PARAMETER == OFCLAREN AT 00092000 
00090000 00091000 
=e REAL == VALUF PARAMETER == DECLARED AT 09052500 
em INTEGER == VALUE PARAMETER == DECLARED AT 02697770 
02697750 027697770 
we REAL = DECLARED AT 09602100 
e= REAL == DECLARED AT 12354500 
#12386500*% 12387500 «12397000« 
e~ INTEGER @*" VaLUF PARAMETER *" DECLARED AT 14107000 
14105000 14106000 #14112000* 14113000 14117000 
“7 Real 7" neclhaRen at 14158000 
14483000 *14187000% 14188000 14189000 *14190000%#14198800##14203020* 142706000 14206320 44208000 144209200 
14209300 1442414000 144232000 14242010 14242100 44212300 442433000 44246000 44247000 14218025 442;8030 
14220000 *14222000%«14248000% 14254000 14255000 44256000 #14258000% 14260000 «14281000% 44284000 44292000 
14292140 14296000 14297000 
em REAL ©= DECLARED AT 14624550 
*14675000% 14676000 14679000 414683000% 14687000 #£14699000% 14700000 44702000 14702600 44703100 414712450" 
14712510 #*£14712800« 
mm REAL of" pEckaREN aT 15536000 
#15546000% 15548000 15550000 15552800 
em Real == VALU PARAMETER =" DECLAREN AT 18002000 
18000000 18001000 18017000 18020000 18021500 18022000 148035000 18047500 18063000 48075000 18075500 
w= ReaL == VALUF PARAMETER == DECLAREN AT 22229000 
22228000 22229000 22295000 22296000 


LOC == REAL == VALUE PARAMETER = DECLARED AT 24002000 
24000000 974004000 *24005000* 24006000 24007000 94009000 274010000 24017000 74023000 274094000 74096000 
24097000 274028000 24030000 
LOC =" REAL =" DECLARED AT 24032200 
*24933200% 24033300 24933600 24034300 24034400 24035100 24035200 24035600 24035800 *24039000" 24039200 
24039300 *24039700% 24039900 24041900 
LOe =" Real a~RRaAyY @" necbaRrn aT 24104000 
241276000 *24143000me24146000% 24152000 24153000 24158000 
LOc == Real ARRAY == prclLAaRro at 24208000 
24243000 #242140004% 24221000 24222000 «24293000 ««94294000% 24925000 
LOC e= RFAL = DECLARED AT 44012000 
#44446000% 44117000 44119000 44122000 44423000 44424000 44425000 444426000* 44428200 44130000 44131000 
#44134000%%44136000% 44137000 *44138000*% 44139000 441440000 
LOC =" REAL == DECLAREN AT 464206800 
LOC ©" REAL = DECLARED AT 45002100 
45002200 
LOCALEVEL =" DEFINE =" DECLARED AT 00005050 
15501500 20289390 442703000 
LOCAT =" REAL ARRAY =" DFCLARED AT 37387000 
37388200 «373910004 37393000 37394000 37394350 37394250 37395000 
LOcAT =" STREAM VARTARLF =" NECLARED AT 37395000 
37396000 
LOCAT;ON 6 Real ARRay =» ValUr PARAMETER = neclLAaRen aT 04042000 
04040000 04041000 04945100 04948800 04061000 
LOCATIONS == STREAM VARTABLE = DECLARED AT 07003462 
07003490 07003494 07003509 
LOCATQUE = REAL ARRAY «== DECLARED AT 00174000 
02963000 02064000 02965100 «02067000e 02079000 02089900 02097400 04025000 «04059000%4«04061000« 041135000 
04137110 04137470 04151220 04151230 04178000 04180000 04190000 04194700 «04224500*% 04225000 04228000 
04230000 04279400 04282000 04284200 04284400 04284600 #04299200% 04310400 04312400 04316800 04317000 
*04351800% 04366600 04367000 04372000 04372050 04424800 04426600 04429400 04431200 «*04433200%%04561000« 
04569400 *046748004404685300% 04685400 37397000 «37328000% 37334000 441470000 
LOCTOD == REAL == NAME PARAMETER == DECLARED aT 06002000 
06000000 06017000 *06019000% 
LOCIOD e#= REAL e#= DECLARED AT 06068800 
*06098600* 06099000 06099100 06099200 
LOCK = DEFINE *= DFCLARED AT 38384000 == OCCURS AT 08110750 
38419000 38426000 36503000 38518000 
LOCK = DEFINE == DECLARED AT 38566090 


38581100 

LOCK -- AFFINE "= DECLARED AT 386677000 
38782000 

LOCK =" QPFFINE  “" DFCLARED AT 41021000 
41190700 


LOGKCONTROLHECKS =" OFFINE =" nECLARED aT 07001000 
07001640 07272500 07301000 073743300 074276000 
LOCKDTRECTORY = NMEFINE =" DECLARED AT 004281100 
06403500 07562000 08268000 44560000 44588300 48033000 46973000 48425400 
LOCKED == DEFINE "= DECLARED AT 06070700 
06089100 06099400 
LOCKED 7" SUBROUTINE == PECLARED AT 40100000 
40101600 40292050 
LOCKPTR = REAL ©" NECLARED AT 19900250 
19900300 19900330 19900370 19900420 419900470%%19900480% 19900520 
LOcKSyS = LABFL = NFCLAREND AT 18208000 "= OccURS AT 18401000 
18220000 
LOCKTOG e©= DEFINE = NECLARED aT 00079900 


02434490 05842300 05849300 05960700 
07562000 08268000 08379000 08574400 
14379000 14560000 14588100 18033000 
20150900 270582450 22010000 22906000 


LOeKV =" nerriNe 7" necbaRen aT 20219100 


20511665 
LOCN w= REAL ARRAY = 
*041404000" 04105650 


04105850 


DECLARED AT 04103000 


04196000 


LOCN = NAME ==" DECLARFD AT 04427000 


*04930000% 042932000 #*04933000* 04234000 
LOCN = NAME == DECLARED. AT 04260800 
*04342400%*04312800" 043743000 
LOCN = NAME ©" DECLARED AT 04356800 
#08434200%804431600*% 04431800 


06103500 
086278000 
18273000 
24043100 


04108000 


LOCN = STREAM VARIABLE == DECLARED AT 12225000 


*12780000% 12241500 *12242000% 
LOCN "= REAL =|" DECLARED AT 16698220 
#16851200«% 16851500 16851700 16852100 
LOeN = Real =" prcbaRen aT 41327700 
#44329200e 44329000 *41329800% 441329900 
LOG eo NAME = DECLAREN AT 06183000 
#06 489000 %#06 492000 «406194000 %«06194900% 
#062903000* 06205030 06205040 #06210000*% 
+ 06226000#*06230 400##06232000*% 06234000 
#06249000%%06253500e 06254000 06255000 


16853500 
41330100 


06495410 
06211000 
06236000 
06262000 


06103700 
08689300 
18425400 
41320320 


44330600 


96195115 
06214000 


LOG = LAREL =" DECLARFN AT 09701000 =" OCCURS AT 09712000 


09704100 09705000 
LOG =" REAL ARRAY ** NFCLARED aT 15613000 


#156200004815621000«815623000%415624000%415625000% 15626000 
“= OccURS aT 18821000 
== OCCURS AT 41329100 


LOg =" STREAM Lanrl =" prcbaRen aT 18820800 

LORANOTWER 2 LARFL =" prFCcbaRen aT 41327800 
41334700 

LOGARFAV == DEFINE == DECLARED AT 000147570 
06710000 17848500 


LOGCOMMENT ==" PROCEDURE #= DECLARED AT 45610000 


16697000 
LOGENTRY == REAL = DECLARED AT 04121300 


07001640 07272500 07301000 07374300 07426000 
08830000 08880000 09617000 09638000 09680400 
18841500 {8844100 19768800 20035000 20419700 


#16853600%4%16853700% 16854300 


41330700 443314900 44332300 «41332500» 


06495120 *067498000 %*06 199000 406201000 44062024008 
06216000 06217400 %06220000#+#06222000%%06223000% 


*06237000%%*06238000% 062443400 «06244200* 06243100 06247000 
*06265000" 06269000 06280000 06329000 


15627000 


*04137120ee41310000% 41317500 *413176004441319000%e4 1319080441 319100% 44330500 £41330700%« 4133100004" 41331100" 


41332300 41333500 «44188200% 
LOgFRee == Real =" pneclaRen at 00425000 
*05703500« 05704000 05722000 05724000 
08570800 +*08570870%%45099370% 
LOGHOLOFR = REAL == DECLARED AT 04121200 


04437230 *04137250% 04437270 «04137280% 44379600 4443707008 44340900 4443440008 44319020 


05778000 


05728180 *05729300* 06263100 08569300 *08569400%«408570000« 


®44329900% 44333000 44333100 44334400 441334700 4444334900% 41335000 «44488200% 


LOGICLRE == INTEGFR #* DECLARED AT 04668450 


#046774850% 04685750 


LOGINFO "= REAL ARRAY "= DECLARED AT 12502500 
12506000 12536500 12540000 «12696000%%12696500« 42697000 


#12700500«% 12701500 «12702000« 12703500 


12704000 


LOGINEFO "= REAL ARRAY "" DECLARED AT 12802500 
* 1284850048 12850500e 12851000 «£12852000%« 12852500 ee 12853000 ee 12853500 «1 2854000 ee 12854500 «* 1 2855000K" 12855500" 
412856000 wa] 2856500 «m1 2857000 0012857500 we 12858000 ue 12858500 4412859000 ue 12859500 "4%12860000% 12887000 


LOgiNeO == REAL ARRAY == DECLARED AT 13003000 


*13428010* 


LOGOUT = PROCEDURE e-«»» DECLARED AT 08568000 


05706106 416783000 


12697500 *127698500 44 126990008« 1 2699500u812700000« 


ee FORWARD AT 05606900 


41329200 «41329600» 


LOGOUTMAINT == PROCEDURE = DECLARED AT 44316000 =" FORWARD AT 04121600 


16784500 441325700 41330600 45135600 
LOGSIZE =" REAL =" DECLARED AT 04121170 
—— 1316590 £413182400441318610% 41318780 41318880 41330200 
LOGSPace "* PROCENURF “" DECLAREN aT 05700000 
05730000 06280000 12703500 15626000 
LORVERSTON =" pnrrINe = peclaRen aT 04121710 
41320100 41322400 41334100 
LOK © STREAM VARYABLE += DECLARED AT 45550000 
15552000 
LOK «= REAL == DECLARED AT 90702100 
20703000 *20744000%*90748000* 20765000 
LOOK = LABEL == DECLARED AT 06462200 == gCCURS AT 06463700 
06463780 
LOOK = LABEL = DECLARED AT 37180500 *= gQCCURS AT 37188500 
37195450 37195700 
LOOK "= LABEL '* DECLARED AT 39009000 "== oCcCURS AT 39095000 
39993500 ; 
LOOKATOKR ©" LaBrFL == NMECLARED at 40008050 "= OccURS aT 40249300 
LOOKFORTAPe w" Real SUBROUTINE =" nEeClLaREn aT 12534500 
12541500 142547500 12622500 12717000 
LOOKFORTAPE == DEFINE == DFCLARED AT 13022000 
13970000 
LOOKOUT = LABEL == DECLAREN AT 39009000 == OCCURS AT 39155000 
39092080 39092;85 39094500 
LOOKQ *" REAL ®* DECLARED AT 06179200 
LOOK4TAPE == LABEL "= NECLARED AT 12514000 =" OCCURS AT 12622000 
12515000 
LOOP "=" STREAM VARIABLE “™ DECI ARED AT 04658700 
04660100 04660300 *04660500* 04660600 
LOOP == LamelL "" DFrLAREND AT 12371000 == OCCURS AT 12433000 
12447500 
LOOP == LABEL == DECLAREN AT 20566011 == OCCURS AT 20577325 
20578700 
LOOP e= |,ABEL = DECLARED AT 28210800 we OCCURS AT 28241000 
28244400 278244800 
LOOP = |,ABEL "= DECLARED AT 28806000 =" oCCURS AT 28847000 
28852000 
LOOP "=" LAREL °" DECLARED AT 45003000 "= OCCURS AT 45095000 
LOS "" REAL =" DECLARED AT 24032700 
*¥24038500« 
LOWLINK "" WEFINE =" NECLARED aT 40008180 


40048000 40051000 40062000 40065020 40070000 40078038 40078040 


LOy e= Lagrl = DFCLAREN AT 20597750 == OccuURs aT 20606200 
20597900 

LP == LABEL == DECLARED AT 04475000 == gCCURS AT 04763000 
04128000 

LP == STREAM VARIABLE #= DECLARED AT 07003640 
07003690 07003860 

LP ee LABEL =" DECLARED AT 38661900 = OCCURS AT 38740000 
38662000 

LP = LABEL ©" DECLARFEN AT 41005000 
41006000 

LP of bagrh ==) peclbaRrn aT 44020000 "= oceURS aT 44137000 
444 38000 

LPAPER == LABEL == DFCLARED AT 20389000 «= OCCURS AT 20462000 
20394900 


= OCCURS AT 41054000 


LPER == REAL == DEC) ARFD 
*37426000*% 37434000 
LPPTR ==" STREAM VARIARLE 
«07003710 07003800 
LPRINT "=" LABEL 7" DpECcLA 
20394900 
LPs -" LargFlL =" DECLARFNA 
38254500 
LPS = LaRgFlL =" DECLARED 
LPUNCH = LAREL == fpeECLA 
290394900 
LQ = STREAM LABEL -=. DF 
LAOVF)OW == DEFINE == ODE 
LR ™= LABEL ** DECLARED 
16365000 
LRANDOM "=" LABEL "= DFCL 
20304090 
LREMOrrF oe= LarnFL ** peel 
20396000 02615200 
LS == prFINe =" DECLARED 
08404650 
LS = LABEL = DECLARED 
16704000 
LS == LABEL = DECLARED 
20587370 
LS = LABEL == DECLARED 
20591950 


US "* LABEL "" DECLARED 


44129000 
LSLaTrF 7" REAL *" DecbLaR 
#02016000% 02017000 
LSPrcraAL c= LapeL °* pre 
20396000 
LSTCNT == REAL = OFCLAR 
*06986800% 96087600 
LSX w= REAL == DECLARED 
LSX © REAL -= DECLAREN 
28432000 28432600 
LT *" LABFL °7* DECLARED 


44134000 

LTAPE =" LABEL =" Drcbar 
20394900 

LTT ©" STREAM VARTABLE == 
02434365 


LUN ewe REAL == DECLARED 
02195100 07397000 
02276100 92278000 
02308000 «023260008 

LUN =" REAL @" DECLARED 

%926630008 02663100: 
bw oe bagel = necbaRen 
18362000 48370000 

LWRITrF = LABEL =". MFCLA 
18315000 48322000 

LWS e»* LABEL == DECLARED 

LX = LABEL =» DECLARED 
04588170 


AT 37422000 
37443000 37446000 
ve DECLARED AT 07003640 


RED aT 20393000 =" OCCURS AT 20466000 
AT 38201300 *" OccURS aT 38243000 


AT 39009000 
REND AT 20389000 == OCCURS AT 20460000 


CLARED AT 02615000 == OCCURS AT 02616000 
CLARED AT 006429200 
AT 16357000 "= gCcURS AT 16577000 


ARED AT 20392890 “= OCCURS AT 20481900 
AREN AT 20392000 "= O¢cURS aT 20461100 
AT 08400750 == O¢cURS aT 02615100 

AT 16699500 == OCCURS AT 16744000 

AT 20586715 == OCCURS AT 20587550 

AT 20591550 == OCCURS AT 20594350 

AT 44020000 == OCCURS AT 44128000 


ED aT 00023000 
02018000 02019000 48045200 48020000 48034000 48047000 
LARFD AT 20393000 =" OccURS AT 20464000 


FD AT 06068800 

06987900 *0¢60880C60* 

AT 28003000 

AT 28401400 

28432800 28433000 28433600 *28444000«* 28458600" 
AT 44020000 "= oCCURS AT 44117000 


FD AT 20389000 "= OccuRS AT 20458000 
NECLARED AT 02434330 


AT 02192000 
02199000 027200000 *02261300%#09264350%*02966000" 02266100 
02279000 02287245 02287250 027287254 02287255 022787260 
02327000 
AT 02661000 
02664000 02665100 02665150 02665200 02666000 07668000 
AT 18205000 "= occuRS at 18459000 
18400000 48430000 48432000 148432400 48447000 
RED AT 18204000 == OcCcURS AT 18453500 
18328000 148337000 18346000 18393000 
AT 18202000 == OccuURS AT 18461000 
AT 04554300 = gCCURS AT 04588570 


02267000 
02291000 


02668500 


02270500 
02293000 


\ 


02669000 


02275300 
02301000 


LO 


LO 
LO 


LO 


LO 
Ld 


Li 
Li 


Li 


Li 
Li 


Li 
L4 


Li 
Li 


Li 
Lt 


Li 
Li 
Ld 
Li 
Li 


Lt 
Li 


Lf 
Li 
Ld 


Lf 
Li 


Li 
Lf 
Ld 
bl 
ut 


Li 


STREAM LABEL == DECLARED AT 04273000 °== 


04974200 


STREAM LABEL = DNECLARED AT 06074400 &=" 
STREAM LABEL “= PECLARED AT 08300400 = 


08645000 08647000 12234000 
LABEL =" DECLARED AT 15067000 °7* 
15969000 16823600 16824100 


OcCcURS 


STREAM LaBrL == pngclAaRED at 20032750 == 
STREAM LABFL = OFCLARFED AT 02224000 == 


09238000 


STREAM LABEL, se DECLARED AT 02255200) wa 


LABEL == DECLARED AT 02434135 = 
02434195 02434710 

LABFL *" DECLARED AT 04125000 °° 
04196800 


oCcURS 


ocCcURS 


STREAM LABEL = NMECLARED aT 04273000 == 


LapFL =" NECLAREN AT 04357200 == 
04340600 04390000 04410400 


OCCURS 


STReraM LABEL = HECLARED AT 94360600 <= 


LABEL == DFCLAREN AT 04670650) == 
04675600 04676400 


OccURS 


STREAM |,ABEL ee DECLARED AT 65710000 == 


06075390 06075900 06079200 
LABEL <= DECLARED AT 06351500) == 
06351800 


OCCURS 


STREAM LABEL = DECLARED AT 07066350 = 


REAL 7" DECLARED AT 07799000 
*#07313000« 907318010 07319000 


STREAM LaABFL “= NMECLARED aT 07464000 “= 
STRraM LABEL = neclaAREo aT 08108350 -* 
STREAM LABFIL = NECLARED AT 08300400 == 


08437900 08597400 


STREAM LABEL w= PFCLARED AT 08690140) == 


08690150 08690460 08739000 


STREAM LABEL = DECLARED AT 08807000 == 


08898000 12228500 12729000 12230500 


STREAM LABEL "= PFCLARED AT 12658000 =* 


LABEL == ODECLAREN AT 15067000) == 
15969000 


oCcURS 


STREAM LaBEL "= NFCLARED aT 15552200 "™* 


16037800 


STREAM LABFL &= NECLARED aT 16823400 ** 
STReaM LaBru == necbaRFEo aT 17003850 «<= 
STREAM LABFL == PFCLARED AT 17910500) == 


LABEL == DECLAREN AT 49695000) == 


oCCURS 


19703000 19704000 19704100 419740000 


LABEL = DECLARED AT 19901600 >= 
19903980 


oCCURS 


STREAM LABEL = DECLARED AT 20032750 == 


20955200 20600350 
LABEL =" DECLARED AT 20701000 “= 
20730000 20732000 
LABFL ™" NECLAREN AT 24111000 oc 
24132000 
INTEGER == DECLARED AT 37422100 
*37431000% 37433000 
LABEL ©" DECLAREM AT 38363000 == 


OCCURS 
OccURS 


occURS 


OCCURS AT 


OCCURS AT 
OCCURS AT 


04273200 


06074700 
08301000 


AT 15075000 


OQccuRS aT 
OCCURS AT 


OCCURS AT 


20032925 
02235000 


02255500 


AT 92434250 


AT 04201000 


OCCURS aT 


04273400 


AT 04377200 


OccURS aT 


04361000 


AT 04677200 


OCCURS AT 


05711000 


AT 06353500 


OCCURS AT 


OccURS aT 
OCCURS AT 
OccURS AT 
OCCURS AT 


OcCURS AT 


12319000 


OCCURS AT 


07066500 


07464100 
08108450 
08300800 
08690170 
08814000 


12659000 


AT 15077000 


OcCURS aT 


OccURS aT 
OccURS aT 
OCCURS AT 


15552400 


16823600 
17003900 
17912000 


AT 19700000 


AT 19903970 


occURS aT 


20032900 


AT 20771100 


AT 24130000 


AT 38458000 


38470000 
LABEL -= 


STREAM LABEL 


LABEL == 
42501700 
LageL = 
15069000 
LAaRFL s« 
15069000 
LABEL == 
15070000 
LABEL «= 
15970000 
LABEL == 
15970000 
LABEL =" 
15070000 
LagrlL =* 
15970000 
LARFL = 
15070000 


STREAM LABEI, 
STREAM LABEI, 


LABEL == 
04340600 


STREAM LABEL 
STREAM LaBEL 


06078000 


STREAM LABFL 
STREAM LABEL 
DECLARED AT 06351500 


LABEL == 
06351800 
REAL = 


07464100 


STREAM LABEL 


08437950 


STREAM LAREL 
STREAM LaBFL 
STREAM LaBEL 


08745000 


STREAM LABEL 
STREAM LABEL 


12227000 


STREAM LABEI, 
DECLARED AT 15067000 
16040000 
we DECLARED AT 170048700 
DECLARFM AT 19695000 


LABEL = 
15969000 


STRFAM LABEL 


LABEL *= 
19714200 
LARFL oo 
19904030 


STREAM LABFL 
STREAM LARFL 


20600320 
LABFL == 


DECLARED AT 41007200 
m= DECLARED aT 41606400 
DECLARFD AT 42483000 
47501800 


DFCLARFON aT 15067000 


DFCLAREN AT 15067000 


DEC| ARED 
DEC) ARFO 
DECLARED 
DECLARFD 
DECLARED 


DECLARES 


we DECLARFD AT 02234000 
me NECLARED AT 04273000 


m= DECLARED AT 08112350 
08597450 
we PRECLARED aT 08644000 
“= DECLARED aT 08690230 
se DECLARED AT 08740000 


ee MFCLARFD AT 08813000 
me DECLARED AT 12226500 


me DECLARED AT 12659500 


m= PECLARED AT 20053700 
em DECLARED AT 20600290 


AT 
AT 
AT 
AT 
AT 
AT 


07314120 
m= DECLARED aT 


15067000 
15067000 
15067000 
15067000 
15068000 
15068000 


DFCLARED AT 079299000 
40737420008 07314410 
STREAM LABEL 


DECLARFN AT 19901600 


DECLARED AT 20701000 


DECLARED AT 04357700 &= 

04388400 04411000 04423400 
m= NECLAREN aT 04360600 
w= PECLARED aT 05710000 
“= neclAREN aT 06974700 
== PMECLARED AT 06078300 


= 


97321100 
07464000 


“= occURS aT 41606800 
OCCURS AT 42501900 


OrcURS aT 15091000 
OrcuURS aT 15091000 
OCCURS AT 150914000 
OCCURS AT 15091000 
ocCURS AT 15091000 
OCCURS AT 15091000 
OccuRS aT 15088000 
OccURS aT 15089000 


== OCCURS aT 02241000 
“= oCCURS AT 04273600 
OCCURS AT 04386600 


“= OCCURS aT 04361200 
“= OccURS aT 05711500 


== OccuURS aT 06074900 


w= OCCURS AT 06079900 
OCCURS AT 06380100 


07324000 07330300 

== OCCURS AT 07464100 
=" OCCURS AT 08112550 
=" OCCURS aT 08647000 
"= OCCURS AT 98690230 
"= OCCURS aT 08747000 


we OCCURS AT 08815000 
e= OCCURS aT 42228000 


== OCCURS AT 32660500 
OCCURS AT 15078000 


“= occURS aT 17004250 
OCCURS AT 19709000 


OCCURS AT 19904000 


“= OccURS aT 20054400 
“= OccURS aT 20600320 


OCCURS AT 20780000 


207 34000 


LABEL == DECLARED AT 38363000 == gCCURS AT 38471000 


38460000 

LARFL =" DECLAREN AT 41007200 

STREAM LABEL = NMECLARED aT 41606700 
STREAM LABEL "= PECLARED aT 04273000 
STReAM LABFL == NFCLARED aT 904360600 
STREAM LABFL == PFCLARED aT 05710500 
057744000 

STREAM LABEL ==. DECLARED AT 06080300 
06081500 06082000 06087800 


OCCURS AT 41607000 
OCCURS AT 04273800 
OCCURS aT 04361400 
OccuURS aT 05712000 


occURS aT 06081500 


LABEL == DECLARED AT 06351500 = OCCURS AT 06381300 


06351800 

REAI, = NECLARED AT 07299500 
#07311500«" 07314410 07314120 07314290 
STREAM LaBFL “= NECLARFD aT 08437750 
STReAM LaBFl "= NFCLARED aT 08597250 
STREAM LABEL = MECLARED aT 08646000 
STREAM LABEL == DECLARED AT 08690210 
08490230 O8742000 

STREAM LABEL == DECLARED AT 08813000 
STREAM LABEL #=» DECLARED AT 12228000 
STREAM LABEL = DECLARED aT 12662000 


LABEL == DECLARED AT 15967000 == g@CcURS 


15069000 
STREAM LABEL = MECLARED aT 17004100 


LABEL = DECLARFN AT 19901600 "== gCCURS 


19903990 
STREAM LABEL "= NECLARED AT 20334000 
20344000 


LARFL == DFCLAREN AT 38363000 == occuRS 


38450000 
LABEL == PFCLARED AT 41007200 


07371100 07326100 07330000 


OccURS aT 08438100 
OccURS aT 08597600 
OccURS aT 08649000 
OCCURS AT 08690300 


OCCURS AT 08820000 
OCCURS AT 42233000 
OCCURS AT 142663000 
AT 15079000 


OCCURS AT 17004600 
AT 19904020 


OCCURS aT 20347000 


AT 38474000 


STREAM LABEL == 
STREAM LABEL == 
STREAM LABEL “= 
STREAM LABEL == 


08690250 


08745000 


STREAM LABEL ve 


DECLARED AT 
DECLARED aT 
PECLARED aT 
DECLARED aT 


DECLARED aT 


04273000 == OCCURS AT 04974000 
04360600 == OCCURS AT 04361600 
06081600 =“ OCCURS AT 06081700 
08690120 7" OCCURS AT 08690250 


12232500 *" OCCURS aT 12240000 


LaprL ==" pFCLARFN aT 15067000 "= OccURS AT 15093000 


15069000 


LABFL == pecLaRrn AT 19901600 == OccuURS 


19904000 

STREAM LABFL == NECLARED AT 04273000 
STREAM LABEL == PECLARED AT 04360600 
STREAM LABE|, == PECLARED AT 06084600 
06081900 

STREAM LABEL c= DECLARED AT 08739500 


LABEL = DECLAREM AT 15067000 = gCcURS 


15069000 
STREAM LABEL “= NECLARED aT 04273000 
STREAM LABEL "=" NECLARED aT 04360600 
STREAM LABEL &= HECLARFD AT 06083000 
08748000 


bARFL ==" DECLARED AT 15067000 == o¢cuRS 


15069000 


LABEL ==© DECLARED AT 18204000 =. gcCcuURS 


AT 19904050 

OCCURS AT 04274200 
OCCURS AT 04364800 
OCCURS AT 06082400 


OCCURS aT 08744000 
AT 15091000 


OCCURS aT 04274400 
OCCURS aT 04362000 
OCCURS AT 06083100 
AT 15091000 


AT 18438000 


L7 o7# 
L? oo 
LZ =» 
L7 se 
LE =e 
L& =e 
L9 te 
Moe 
Mme 
Mom 
M «. 
M =e 
M ee 
M == 
4 7 
Moose 
M  «e 
Mee 
M =e 
Moe 
Moe 
Mowe 
Me 
Mo =e 
M oo- 
MM o«e 
Mowe 
Moe 
M «= 
MAGTAPE 


18912000 


STREAM LABFL = DECLARED AT 04273000 = 


STREAM LABEL "= NECLARED AT 06083000 © 
08751000 

LABEL =" DFCLAREN AT 15067000 “== OCCURS 
15069000 

LageL == neclaRen aT 18204000 "= OcreURS 
18212000 48436000 

LABFL == MECLAREN AT 15967000 == gccURS 
15069000 

LABEL == DECLAREN AT 48204000 == gCCURS 
18242000 


LABEL == DECLARED 
15069000 


AT 15067000 == gCCURS 


oc 
oc 


AT 
AT 
AT 
AT 


AT 


CURS AT 04274600 
CURS AT 06083500 


15091000 
18432500 


15094;000 
18444900 


15091000 


REAL ™* VALUE PARAMETER ©? DECLARED aT 09452800 


00452600 00452700 


REAL *™ VALUE PARAMFTER *" QDECLAREN al 02393500 


02393400 


Real 7" VALUF PARAMFTFR = HrcbaREn at 07696100 


02696000 02696;00 


REAL w= DECLARFD AT 04552000 
*04568400%*04568470%404575000*% 04579000 


STREAM VARIABLE == 
04656700 . 


DECLARED AT 04656200 


INTEGER == DEC).ARFD AT 05608000 


*05612000% 05614000 
STREAM VARIABLE == 


NECLARED AT 056;4000 


TNTEGER =" DECLARED AT 08306000 


*08308000*% 08310000 
STREAM VARIABLE = 


DECLARED AT 08310000 


REAL ** ODECLARFN AT 08318000 


08318200 *08326000%**08329000%*08331000% 08332100 *08332400*% 08333000 


STREAM VARTABLE =e 
08318400 98348500 
STREAM VARIABLE <== 
08334100 98335000 
STREAM VARIABLE = 
08365200 08365300 


NFCLAREN AT 98318200 
DECLARED AT 08333000 


DECLARED AT 08365000 


INTEGER *" DECLARED AT 08528000 


#08531000% 

STREAM VARIABLE = 
19768776 

STRFAM VARTABLF == 
28292200 

STREAM VARIABLE == 
30921000 30922000 

STREAM VARIABLE == 
32900520 

STREAM VARIABLE == 
37257000 

STREAM VARIABLE == 
37316000 *37316200« 


DECLARED AT 19768768 
NECLARFD AT 28291200 
DECLARED AT 30920000 
DECLARED AT 32000510 
DECLARED AT 37256000 
NECLAREN AT 37314000 


= 


04656200 


OCCURS AT 15411000 


REAL 7" VALUE PARAMETER &™ DECLARED aT 37357500 


37357300 37357400 
STReaM VARIABLE =e 
41322820 


== REAL SUBROUTIKF 


NECLARED AT 41322500 


ee MECLARED AT 37020000 


37935000 37936000 379046140 37046800 37143000 
MAINLOQOP == LABEL == DECLARED AT $3019000 == QCCURS AT 13106000 
13113000 13129000 
MAINT ©" LABEL =" ODFCLARED AT 09701550 “= OCCURS AT 09720650 
09706050 
MAINTRUFFARFAV =" DEFINE °°" DECLARED AT 00017280 
04278200 04365400 04555250 05952995 08385400 08470000 14411820 
MAINTRUFFER @" Reak ARRAY 7" DECLARED at 04121950 
404137400%#04137 4604404137202" 04137215 *04137220" 04137250 04437275 
MAYNTLOGARRAY “= REAL ARRAY =" PECLAREN AT 04121400 
44323300 44327300 *44188200* 
MAINTLOGGER *= PROCEDURE == DECLARED AT 44397000 |= FORWARD AT 04121650 
041437260 41310800 44335200 
MAKEIQDS = SURRQUTINE == DECLARED AT 39031000 
39048000 39145000 39231000 39245000 39293500 
MAKEMESS "© SUBROUTINE *™ OFCLARED AT 04359000 
04344600 94376400 04382200 04386600 04392800 04396000 04404600 
MaKeMLOG = pEFING == necbaRFo aT 04370600 
04377000 04382000 04387000 04393400 04395800 04405400 04446600 
MAKEPRESENT = LABFL = DECLARED AT 00030000 == OCCURS AT 00037000 
00052000 
MAKEPRESENT == PROCENURE == DECLARED AT 14155000 «== FORWARD AT 02696200 
14248045 1443902000 44358325 18520800 148552600 48720300 487404100 
= 31908009 «31017400 42486000 42525140 42576000 42534000 42537050 
MAKESAVFE "" SURROUTING ©" AFCLARED AT 44037200 
44202119 
MAKE THEMESSAGF =" SURROUTINE "|" NECLARFN aT 06115100 
08115700 06116900 
MARKER = NEFINE == DFCLARED AT 41430400 
44436600 44449800 44479800 44489100 44493400 474500300 44500600 
MARKLEVEL ==" PEFINE © DECLARED AT 00005040 
15591500 20289390 442703000 
MASK == REAL = VALUE PARAMETER |= DECLARED AT 00019000 
000718000 00019000 
MASK == REAL ARRAY == VALUE PARAMETER *== DECLARED AT 00021000 
00020000 
MASK = REAL ARRAY == VALUE PARAMETER = DECLARED AT 02003000 
02000000 02001000 920082n0 
MASK = REAL =" VALUE PARAMETER "=" DECLARED AT 02022000 
MASK "= REAL ©" DECLARED AT 02434125 
*O243KRAK5% 02434532 02434534 02434600 02434630 02434760 02434770 
MasK "= RraL =" Valur PARAMETER =" DecbkaRFD at 04242000 
04240000 04241000 «04245000 04246000 04250000 04254200 
MASK = STREAM VARTABLE = NECLARED AT 04254200 
MASK == REAL e©= DECLARED AT 04259000 
*04304600% 04304800 ¥*04355800* 04326000 «04332600% 04333000 04333200 
MASK = REAL =”. DECLARFD AT 04356000 
#04373000% 04373700 04378600 04419000 
MASK ™" REAL ©" VALUE PARAMETER °" DECLARED AT 08599000 
086905000 
MASK "= STREAM VARIARLE  ™" DECLARED AT 08605000 
08607000 
MASK = Real =" ODEFCLARFD AT. 08626000 
#08667000% 08671000 
MASK = LABEL == DFCLARFD AT 09701000 «= gccURS al 09719000 
09708000 
MASK = REAL «== DECIARED AT 38006000 


41312700 


04437280 


04416200 


04424400 


19582000 
42538000 


44502000 


02434800 


41314000 


41323130 


41328600 


#041466100%*044504100% 44179050 


19765000 
48032700 


49904600 
48109000 


20192500 


* 38935000 4% 380420004 38043000 *38049300* 38049700 *38053000* 38053500 38054000 «38067000 ««*38070000% 38088000 
MASK *" REAL =" DECLARED aT 38102600 
38105400 38105500 «38126500 «% 38127000 «« 38128000«%438 1 30500e4 381390008 
MasK "= Rra~b =" NrcLaRen at 38200600 
38203400 38203500 *38763000**38292500*% 
MASK =» RralL =" DECLARFN AT 39004000 
*39044000% 39046000 
MAX w= REAL == DPECLAREN AT 28003600 
MAX we REAL == DECLARED AT 298401600 
28478000 *28456400* 284570006 
MAXINT =" REAL = DECLARED AT 09501000 
#09505600* 09506000 09506100 09506500 ¥09507000* 09507500 09508600 
MAXMIX *"* REAL =" ODFCLARED AT 12355000 
#123850008#12390000% 12398000 12437000 12442000 
MAXMVSIZF ©" DEFINE =" NECLARED AT 06071000 
06095000 
MaxOLayY @" Real =" neclaREnN aT 12355500 
#12413000% 12421000 ¥12422000« 12426500 
MAXROWS ©" DEFINE =" DFCLARED at 37501500 
37538500 
MAXSIZ ©= DEFINE == DECLARED AT 05780050 
05842475 05842700 05844935 05845400 05849420 05852700 05974200 05975000 
MAXV == NFFINE =" DECLARED aT 20247920 
20507000 20507100 
MAXVALUE == REAL *" DECLARED AT 12356000 
#12435500" 12438000 *12439000*% 12444000 
MAYBE "7 NEFINE @™* NECLAREN AT 37007200 
37046740 37046825 
MAYBEWORKEDON *@ FIELnN =" DECLARED aT 00027000 
00936000 00037000 00089045 00047000 00050000 
Mc *= Lagrh == pgecblaREn aT 16700500 "= gccURS aT 16806000 
16705000 
MCP == OFrYNE ©= DECLARED AT 00043600 
04195550 964639290 97269300 08276365 09683100 44541000 48522300 148578700 90289413 99789250 70514134 
20511665 20575350 20578050 20593600 20602300 270603570 20605750 20740000 22069212 2782827800 2841640 
38977000 38217000 38491000 41602400 41603900 45094400 45099800 
McP =" LagEL =" DECLARFN AT 22236000 == OcgURS aT 22385000 
22297000 
McPpaSe oo s™ Rrab o= nrebaRen at 09024100 
00042000 09681600 44325400 44037300 *«44083000% 
MCPFREFE ** DEFINE == DECLARED AT 00081670 
09637000 09680000 44953500 
MCPJOB == REAL -= ODFCLARED AT 200142600 
20055500 
MCPJOB "= REAL == DECLARED AT 70081800 
20100800 270105000 20105400 
MCPJOB °°" REAL @=" DECLARED AT 20142200 
*20152100% 20152200 20152300 *2015280N* 20153500 29158500 20164200 20165300 20174300 20176132 
MCPMASK "" DEFINE =" DECLARED aT 00081670 
094637000 09638000 09647000 09680000 09680100 09682620 
MCPNAMFSFG oo ™" nFFINE == pgebaRen aT 00024910 
15594300 44202700 44202900 
MCPTABLFARFAV =* DEFINE == DECLARED AT 00017540 
44752000 
MCPTEMP == REAL = DECLARED AT 22235620 
#227904120% 22429930 
MCPTYPE *= DEFINE =" DECLARED aT 00005100 


09681505 
MDELTA "™ REAL =" NFCLARED aT 04121050 
41319700 41320460 441321750« 41328900 41330200 44330400 44331700 
41333300 *44188200» 
MpUMPaAReAV "* nerFINe == neebLaRen at 00017566 
02434430 
MDY = STREAM VARTABLFE == DECLARED AT 08333000 
08335200 08335800 
MEMASK == REAL == DFC|ARED AT 02393800 
02434570 *44106000**44122000%*44128200*% 44203450 
MEMASK = STREAM VARIABLE |" DECLARED aT 442703150 
44205300 
MEMNO ©" NEFINE =" PECLARED AT 09081982 
22007000 22007100 74036125 
MEMORYPARITY =" LABEL = DECLARED AT 00009000 =" OCCURS AT 48134000 
48102000 
MEN "=" neFINE =" nrebaRFpD aT 00077000 
MEND f= Real == peclLARrn aT 44012000 
44074000 #44112000% 44414000 441145000 44476000 441736000 44448,;00 
MEND #= REAL == DECLARED AT 44206800 
44207000 
MEND == REAL «= DEC AREF AT 45002700 
45002300 45002«00 
MES = REAL == DECLARED AT 14164200 
14204100 14204600 14205200 14205300 14205500 
MESAGESPACE °" REAL ©" DECLARED AT 20085700 
*20106000% 20111600 20111620 20118350 20148370 «20118390» 
MESAGFSPACE °°" STREAM VARTARLF =" DFCLAREN aT 20111620 
MeSS == ReAL ©" pgcLAREn AT 24062550 
24049650 #24040675* 24047680 24049700 24042875 274043700 24044400 
MESS == STREAM VARTABLE = DECLARED AT 24042700 
MESSAGE == REAL == VALUE PARAMFIER == DrCLAREp al 00452000 
00451800 004519090 
MESSAGE © REAL =" VALUE PARAMETER = DECLARED AT 02132500 
02132300 02132400 02133000 *02134000* 02134005 02136000 02739000 
02144500 92173000 02173150 02173389 
MESSAGE "=" SUBROUTINE =" DECLARED AT 06206110 
06328100 
Messacr "" Lapel t= neebLaREn at 14627200 = OPcuRS aT 14644000 
14636100 14639000 44641000 1446424300 
MESSAREWOLNFR «= REAL == DFCLAREN AT 00402000 


41331900 4«41332000% 41332300 «41332700« 


44448200 


24045600 


02140000 02141000 02142000 02142100 


921270000 02123000 02124500 *02126000%#02129000% 02135000 *02136000* 02139000 *02141000% 16224000 «16239000* 


MESSAGETABLF == REAL ARRAY == DECLARED AT 00435000 
02948000 02749000 084604000 08604100 08634000 08634100 08690000 


98690000 46044490 16044310 47002000 


17903000 20603660 20601720 20604740 30945000 30947000 *44502400*% 44509300 44165700 
MESSAGETABLEBUILDER “" PROCEDURE =" DECLARED AT 41430000 == FORWARD AT 00491000 


40339000 41500200 
MESSAGETABLESIZE == OFFINE “= DECLARED AT 00436000 
41500500 41501800 44151055 44165700 
MESSAGEWRITER == PROCFNURF "™ DECLARED AT 02114000 
02137000 
MF we STREAM VARIABLE *" DFCLARED AT 28248600 
28249000 
MFID @@ Real == DFCLARFD AT 08099350 
08404950 08402000 086407050 *08100;,00*% 08704900 
MFID = DEFINE ee DECLARED AT 08255900 
08259225 082768500 


MF IO 
MFID 
MFID 
MF ID 


MF YD 
MF1O 


MF ID 


MF ID 


MF ID 


MF TD 
MF ITD 
MF ID 


MFID 
MFIN 
MFrD 
MF ID 
MF ID 
MF ID 
MID 
MIh 
MIN 
MID 
MID 
MID 


MID 
MID 


Min 
Min 


MID 


MID 


=e REAL == DECLARED AT 12503000 
12537000 127562000 12590000 12630000 12632000 *12677500«*12687000% 
“= REAL °™ DECLARED AT 12803000 
we REAL *° ODECLAREN AT 13004000 
we Real @*" DECLARED aT 19688050 
*#19696600% 19698000 196499000 19767900 19768200 19799000 
"= STREAM VARTABLF “" DECLARED AT 19768200 
em RrAL == DECLARED AT 28000600 
280741200 278044830 278043600 78087400 
m= REAL #©= DEC) ARED AT 28901000 
28942000 £278253900% 28963400 28266400 28270816 278270820 28781600 2782783600 278287000 
28299600 «283077204 28307725 
"= STREAM VARIABLF ™* DECLARED AT 28263400 
28263600 
Rea~aL =" NPECLAREM aT 28400600 
28408400 28415900 28415250 28415400 28447000 28439000 28414600 78425400 28426000 
*28467600% 28468000 28468200 28473200 «28473400 %e2B8476400m 28476800 «28480000% 
em STREAM VARTABLE = NAME PARAMETER © pECLARED AT 28411200 
28474;800 
wm STREAM VARTAB)E == NAME PARAMETER == PECLARED AT 28491600 
28422200 
m= REAL == DEC, ARFD AT 38007000 
38043010 *38013030% 38013100 3801462N 38944900 38045120 38045400 «38059N00% 38077500 
*38087000% 
sw Real =" DECLARED aT 38102700 
38105800 38113000 38151000 38158500 38159500 «38163500«% 38164500 
we STREAM VARTABLF ™™ OFCLARFN AT 38159500 
38160500 
ewe REAL #= DECLARED AT 38200700 
38903800 38243800 38234500 382574500 38975500 38587000 38596750 
em REAL ©" DECLARFD AT 39004400 
*39097000% 39443000 
em REAL == DEC) AREO AT 44336400 
*4193747800% 413182370 41320360 41320400 41320600 41321600 44322500 
w= REAL 7" DECLARED AT 41600300 
*#416009004*416013008«41601700% 41602200 41607200 
#7 REAL @* VALUE PARAMETER ** DECLARED AT 00373000 
00371000 00372000 
ee Real =e Valle PaRaMeTeR == DECLAREN Al 00376006 
00374000 09375000 
e= REAL #= VALUF PARAMETER = DECLARED AT 00390200 
00390000 00390,00 
e= REAL |= VALUF PARAMETER == DECLARED AT 00395000 
00393000 09394000 
»" REAL °* DECLARED AT 05950600 


- 


05950800 05953130 05953135 *05953600* 05953800 05964000 *05967900**059690008*05975800%*05976100" 


*™ STREAM VARIABLE =" DECLARED AT 05953135 
05953160 

=" STREAM VARIABLE 7" DECLARED aT 05964000 

w= Real =" VabUr PARAMETER "=" DECLARED AT 06460200 
06460000 06460;00 06463200 06463225 06463240 06463560 +#06463600« 06463660 

er Real ** pFcbaRFn at 14624100 

e= STREAM VARTABLE °= NeCcLARED AT 28444200 
28444600 

e= REAL w= VALUE PARAMETER == DECLARED AT 37002000 
37000000 37001000. 

e= REAL |= DECLARED AT 37004100 


98297200 


28446300 


38080500 


28296400 


28447800 


38081000 


MIn 


MIN 
MID 
MID 
MID 


Mtn 


MID 
MID 


MIDNIGHT «= 


MIDPT 
MIDPT 
MINE 


MINS] 
MIRID 
MISSL 
MIX 


MIX 
MIX 


MIX 
MIX 
MIX 
MIX 
MIX 
MIX 
MYX 
MIX 


MIX 


37906630 37046739 37046840 37046980 37047020 37047650 37048000 37085000 
37113100 37113200 37174000 
me Real o*= yvAlUr PARAMETER = DECLAREN AT 37179000 
37177000 37178000 37187100 #37187130*% 37191000 37497000 37499000 37236000 
*37236500% 372402900 37249400 37242200 37242800 372627000 
ee REAL w= VALUF PARAMETER #= DECLAREN AT 37286200 
37286000 37286,00 37292800 
me REAL eo#= VALUF PARAMETER w= DECLARED AT 37342000 
37337000 37339000 37346000 
e= REAL == VALUF PARAMETER == DECLARED AT 37420000 
37418000 37419000 37424200 37428100 
=" REAL ©" DECLARED AT 38362000 
38491000 38411500 38453000 38456000 38461000 38464000 38499000 38509000 
38518500 
#’ Real = pnecbaRen at 38547000 
38610200 
w= REAL == DECLARED AT 38655000 
w= REAL == DECLARED AT 41003000 
44946000) 44190800 
DEFINE == PECLARED AT 023932700 
06188100 148622000 20157700 2201200n 22909000 
R *" REAL =" DECLARED AT 28003800 
28004000 
R "= REAL =" DECLARED AT 28401600 
28444200 #2R4458004 
"= REAL "7 ODFCLARED AT 14157000 
%141860204%14186150% 14196160 £14194000% 14196000 14197000 14198000 141981900 
14293200 14203300 14206000 14206135 14207000 14209100 14209300 144212100 
06441000 06441100 06111700 
om LABEL w= DECLARED AT 20566610 == OCCURS AT 20570340 
20570510 
ee LABEL == DECLARED AT 44019000 == OCCURS AT 44193595 
44991145 
mw" REAL =" VALUF PARAMETER = DECLARED AT 00379700 
00379600 
e7 REAL "=" VALUF PARAMFTFR &™ DECLARED AT 00463100 
m= REAL 2 VALUE PARAMFTER =" DECLAREN AT 02025000 
02926000 02027000 
em Real == VALUr PARAMFETFR "=" DECLAREN AT 02032000 
02033000 02034000 
e7 INTEGER == VALiF PARAMETER ©" DECLARED AT 02055000 
02053000 07054000 02065000 02079000 
w= INTEGER #= DFCLARED AT 02133910 
*02134005% 02140000 
=" REAL ©" VALUE PARAMETER == DECLARED AT 02160000 
02181000 02182000 024184000 02186000 02186050 
=" INTEGER =" VALUF PARAMETER °° DECLARED AT 02697770 
02697750 92697770 
er REAL = VYALUF PARAMFTER ™" DECLAREN AT 04002000 
04000000 04001000 
ee Real == VALU PARAMFTFR =" DECLARED AT 04121550 
04121500 041215590 
w= REAL == OFCLAREN AT 04258000 
04274800 042786400 042779000 042783000 *04284400* 04300600 04301600 043092700 
04352600 
e= STREAM VARIABLE =" DECLARED AT 04271800 


37100010 


37112000 


37113000 


37224200 *37232000% 37235750 


38512000 


14203000 
14217500 


04316000 


38513000 


14203010 
14216010 


04333400 


38515000 


14203020 
14220000 


04352200 


MIX 
MIX 


MYX 
MIX 


MIX 


MIX 


Mty 
MIX 
MIX 
MIX 
MIX 


MYX 


MIX 
MIX 
MIX 
MTX 
MIX 
MIX 


MIX 
MIX 
MTX 


MIX 


MIX 


MIX 


=" REAL ** DFCLAREND AT 04356500 
04359600 04365800 04366200 04366800 %04372050*% 04376600 
er Real ** pnpecbaRen at 04554100 
04567600 04567830 04568590 *045691400« 04626000 04647050 
ee Rrab == PECLARFO AT 04668550 
04673800 04672700 04673150 «04673850*% 04674850 04675250 
04686350 04687050 
7" INTEGER == DECLARED AT 06184100 
*06190400% 06193009 06193500 06194000 06194900 06495118 
06205020 06205050 06705100 06205200 06206000 06206140 
w= STREAM VARIABLE == DECLARED AT 06206140 
06206160 
we" INTEGER =" VALUF PARAMETER =" DFCLARED AT 06402000 
06400000 06401000 06411000 06411010 06412000 06416000 
06423000 06424000 06426000 
er Real oe yvALUr PARAMETER NECLARFn AT 07485000 
07501000 07502000 07503000 07504000 075711000 
w= STREAM VARIABLE w= DECLARFD AT 07504000 
07509000 
== REAL == VALUF PARAMETER DECLARED AT 08732000 
08730000 087310900 08759000 08760000 0874630900 08764900 
087R4000 08787000 08789000 08791000 08798500 
#" STREAM VARTABLF @" DECLARED aT 08774000 
=" STREAM VARIABLE &" NECLARED aT 08791000 
08793000 *08793500» 
7" REAL ©" DFCLARFN AT 12356500 
#12390000% 42392000 12395500 *12398000*% 12398500 142399000 
12416000 12417000 12418500 12419000 12419500 42449600 
12423000 #42424700m 42425200 «12437000m 42437500 49438000 
12445500 
me INTEGER |= VaLUF PARAMETER #=" DECLARED AT 14107000 
14195000 44106009 44143000 44147090 
we REAL w= DECLARED AT 15141900 
*#151143100*% 15113300 15113400 151413500 15414300 45114600 


Chal RFal rr) 
15404000 


eo” STREAM VARTARLS 


VALUF PARAMETER == 


15418000 


15499000 *15429500" 


ee REAL = 


16936200 16040000 16041200 16944550 16043640 16043660 
e* STREAM VARIABLE == DECLARED AT 16036200 
16037500 16040400 16041650 
e= REAL == DFCLARFD AT 16048000 = OCCURS AT 16041550 
*#16073000% 16103000 16112000 *16115000* 161169000 146117000 
16163000 14163200 16164000 16176000 16178000 16181000 
#16241500% 16247000 16281000 16257000 16258000 16343100 
ee Real == pnecbaRen aT 16349000 
#16374000*" 16588000 16689450 
em ReabL == prcbaRrn at 16694000 
16694500 46698000 *16714000« 16743500 46741000 «167414250» 
1685340 46853500 16854600 46854700 16902950 ; 
ee STREAM VARTABLF == QOECLARFED AT 16854600 
16855200 
e= REAL = DECLARED AT 16909500 
16910000 146926040 146928000 16979000 16930000 46948000 
16956090 16957500 


w= REAL == 


NAME PARAMETER oo 


ae 


15419000 15422000 15424000 
NecbhaRrn aT 15426000 


DECLARED AT 19901500 


DECLARED AT 15400000 


15426000 


DECLARED AT 16034900 


04383400 
04648000 


046787100 


06203000 


06417000 


08767000 


12400000 
12420500 
12439500 


15114700 
15437100 


16118000 
16199000 
16343950 


16788000 


16948500 


04386800 
04648050 
04678350 


06203600 


06417500 


08768000 


*12413500% 
12421000 
#124429000«% 


15115000 


16118200 
*16205000% 


16803000 


16950000 


04393000 


04680100 


06203700 


06418000 


98771000 


12414000 
12421500 
12442500 


15115400 


16121000 
16206100 


16850700 


16954000 


04404800 


04684950 


06204000 


06421000 


08772000 


12414500 
12422000 
142443000 


15115900 


16123000 


*16217000% 


16854100 


16956000 


04416400 


0468 3800 


06205040 


06422000 


08774000 


12415000 
12422500 
12444000 


16124000 
16229000 


16851200 


16956020 


@ 
#19993810% 19903820 419903830% 19903850 19903860 419903990 19903910 19904350 19904400 19904650 19905340 e 
MIX =" REA w= pnecbaRen aT 20012300 
20037200 20050000 20059400 20060400 
Mix = Real == DECLARED AT 20081500 e 
20094000 20094400 70094500 20094600 20092700 20092900 20093500 20093600 20103300 20405900 20440700 
20118600 20119900 201291800 20177100 20124700 20125000 20127300 20128000 20128100 20128400 
MIX * STREAM VARIABLE DECLARFD AT 20101300 & 
201404700 
MIX «= STREAM VARTABLE DECLARED AT 906105900 e 
20106600 
MIX = REAL == DECLARED AT 20141900 
*#20147800% 20167900 270169600 20169800 20170800 20371000 20471100 29174200 20172100 20172600 20172700 
20173200 20573300 20173800 20173900 20174300 20175400 20475500 20475700 20176090 20176102 20176120 e 
20178900 20179400 20179220 20180000 20180400 201843000 20488600 20191100 20191300 20194800 20192200 
20493300 20193400 20194300 20194400 20495400 20195500 70195600 20496500 20196800 20196900 20197100 
20197600 20198500 e 
MYX STREAM VARYABLE DECLARED AT 20607020 
20607160 
MIX e= REAL = DECLARED AT 92231000 @ 
22260000 22786020 22286030 #22297000% 22299000 22300000 22301000 27303200 22325200 22331400 22333800 
22356140 223564950 22357000 «22374000 22376000 22377000 *22407000% 22408000 224090NN 72410000 «224130008 
22413010 22416000 22420000 22421000 22422000 22423100 6 
Mtx ="  tNreGFR s= vabur PARAMereFR ©" pEeckaARED AT 24103000 
24101000 24102000 74150000 24165000 24167000 
MIX ==" REAL = VALUF PARAMETER DECLAREN AT 32000100 e 
32000000 32000400 32000750 32000800 32000810 37004500 
MYX = STREAM VARTABLF == ONECLARED AT 32000810 
32001300 @ 
MIX w* REAL ee VALUF PARAMETER = DECLARED AT 41312100 
44342000 44312400 44312400 44312600 44372900 44343000 44313100 44313200 443143300 41314200 441344400 
41314500 | e 
MIXCONE "= REAL *™ DECLARED AT 16910000 
16997500 ee 6978000" 16947000 16949000 
MIXER ©= REAL “= DECLARED AT 02192000 @ 
#02261000e 02264000 *02318000*« 02320000 #02322000*% 02324000 
MIXF "= OFFINE °" DECLARED aT 00168000 
48064000 48071000 @ 
MIXIT =" STREAM LaneFL =" DECLARED aT 04362400 =" OCCURS aT 04364000 
04363000 
MIXMAX == DEFINE “== DECLARED AT 00004000 @ 
02365000 02373009 086861000 08937000 09606000 09643000 42407000 49407500 42408000 42408500 42430500 
12447006 124143500 12457500 12473090 12900000 144385000 14431480 15600800 15600950 15602400 15604100 
16106000 46135000 163483950 146689450 46902950 146948000 270024600 20035300 20037200 70039500 270091200 @ 
20094000 20167800 20175100 270582600 20586700 20589460 22008000 27014400 22045000 22029000 22407000 
22413000 32100200 44151000 44151010 44151052 44151630 44154100 44155000 448163030 44192000 44254500 
44259500 44268000 44276000 44280100 45106000 ® 
MryPReNT == PROCFNURE == DECLARED AT 32100000 =" FORWARD AT 00379400 
16739500 32100800 
MIXUP = REAL == DECLARED AT 22234000 ®@ 
22235000 #£929357000%#299359000% 29236;000 22363000 29365440 223654350 29366000" 22372000 
MK =e REAL == DECLARED AT 04257600 
04271800 *04286000*%*04295600%#04333200% ® 
MK =e STREAM VARIABLE =* DECLARED AT 04271800 
04272400 
MKSCN = REAL ©= DECLARED AT 021433000 ® 
02143000 
MKSW = REAL == DECLARED AT 15141800 @ 
@ 


MLOG 


MLOG 
MM 
MM 
MN 
MN 


MODE 
MOne 


MONE 
MODE 
MODE 
MODE 
MODE 
MOnE 
MOnU 
MOD2 
MOD3 
MOM 


MOM 
MOM 


MOM 


15116100 
m= STREAM VARIARLE == ODFCLARED AT 15501500 
15502200 
we STREAM VARIABLE ** DFCLAREN AT 20289390 
20289425 20289470 
e= STREAM VARTAPLE =" NDFCLARED AT 44203000 
44204600 
ve REAL ARRAY =" PFCLARED AT 41327300 
443278400 #443278600 med 1 3288004441 330500% 41331900 444332300444 1333500 e%4 7 335000% 
wm REAL =" DFCLARFD AT 04121100 
#€41318760% 41318780 41318820 *41318880%441348940%447348980H 41319240 44349700 44320460 %44324750% 44328900 
41330200 41330500 *«41332400" 41333600 41333800 «44188200« 
Ir "™™ SUBROUTINE @" DFCLARFD AT 05952965 
05953055 05953205 05979350 
ee DEFINE |= DECLARED AT 28006800 
28042600 278046000 78089200 
em DEFINE == DECLARED AT 28207200 
28230000 278262700 278303200 
me REA} == DECLARED AT 98344000 
408 360000% 08362000 08365000 08367000 
we INTEGER = PDECLARED AT 40005110 
*402491056 40254100 40761046 49290400 402790600 40322410 40324102 40324104 403277000 
we REAL =" VALUE PARAMETER =" DECLARED AT 00376000 
00374000 00375000 
we Real =" pecblaRen aT 04552000 
04567030 4404567840 9204568} 00040456837 94404581000 4404584000 4404588050 04045684 10440458825004096000004404608000e 
#046 39100%#04648200%*04649000% 04651000 04651100 04654300 
“se ReaAL «== DECLARED AT 04668650 
#0467 3500 %%*0467 3900 *#04684650% 04688050 
we REAL = VALUF PARAMETER == DECLARED AT 37179000 
37177000 37178000 37249000 
em INTEGER #= DECLAREN AT 38004000 
* 38099000 
me 6INTEGER =" NECLARED AT 38102400 
38196600 38113500 *36122000*% 38123000 #38148500%« 
“= INTEGER =" PECLAREN AT 38200400 
38204600 «38241000 e% 38242500 ee 38245500% 38259000 
"= INTEGFR =" neclhaRFN at 39003000 
39027000 ee ee 
LUS == EFT “= DECLARED aT 00419450 
08768600 “50268700 08768900 14569000 48975000 90382060 90382069 20387064 70389120 40793030 
10S es STREAM VARTABLE c= NMECLARED AT 04655000 
04655300 
ToS © DEFINE == DECLARED AT 00416990 
04129590 04588030 04655000 98044500 19685456 22111500 
=" FIELD =" DECLARED AT 00061070 
02212000 02216300 02716400 14358345 15422000 16852100 16853600 16853700 31013000 31013100 31017000 
31047100 42490000 42506300 42506400 
e* pertNe == necbaRrn aT 07388000 
ee Real == DECLAREN AT 14158000 
14164000 *£1427300004«%44734000% 14236000 44237000 44238000 14239000 442942000 144243000 144247000 44250000 
14951000 14753000 14255000 144257000 14759000 14267000 14971000 *14279000* 14279550 44281000 «14293000« 
14297000 144299000 14300000 
e= REAL ©" DECLARED AT 22230000 
22270300 22786090 22286120 *22295000* 22322000 22373000 *22324800*% 22326400 22327600 272378400 22329600 
22331800 22334200 22335200 22336000 22349100 22371220 22383050 22386250 22386350 272402000 22445000 
22424000 22427000 


| 
MOM me" REAL "=" DECLARFN AT 42514000 | 6 
#42532000% 42533000 42534000 42535000 42536000 49537050 42539000 
MOMMTy == INTEGFR == prebLAaREn aT 14351200 
14351205 *14360320% 14360330 *14360380%«14360400% 44360500 *44364400*% 14370400 44370410 44370315 144370430 @ 
#14370140% 14370450 
MON = STREAM VARTABLF «= MECLARED AT 12309000 
12313500 6 
MONTOG #* REAL == DECLARED AT 19207500 
*12287000% 12309000 
MONTOG = STREAM VARIABLE =" DECLARED aT 42309000 e 
12313500 
MORE ™= LABEL "* DECLARED AT 07543100 "" OCCURS AT 07547500 
07559180 | @ 
MORF @" LaRFL @* DFRLARFO AT 20701000 == occuRS aT 20715000 
. 20780000 
MORFINITIALIZE PROCEDURE =" DECLAREn AT 44206450 == FORWARD AT 44009000 e 
44206350 44784500 
MOTHER e= REAL «= DFCLARFD AT 14158000 
14164000 *14779000% 44979450 14279450 14280000 144284000 44783000 14284000 14292000 44292400 144293000 @ 
MOTHER = INTEGER ©= DECLARED AT 14351200 
#14360600% 14360800 ¥14361100% 14364300 14370020 4143700504«14370060% 14370065 «14370130*" 14370155 14370160 
MOTHER ™" REAL "* QDFCLARED AT 42484000 @ 
%42490000% 42493000 42501040 42501820 42502000 
MOve oe StTReaM PROcenuRre == pecbaREn aT 00082000 
00089000 04250800 042761300 02434580 04555300 04655800 05725000 05845700 05853300 05854900 05953075 e 
05972000 05973600 06077600 06095200 06100900 06380850 06381070 06416000 07432000 07448000 07439575 
07140000 08274500 08569600 08742160 08947400 44598300 48056000 18720700 49732000 19904700 20423200 
20789065 70567025 28951000 28062900 2782973400 28288200 278429400 28429600 28432800 78433000 78434000 @ 
28459208 28861000 28868300 37278000 37276200 37408000 37509000 37543000 38238500 38404000 38707000 
38803000 40034000 40016260 40016420 40249310 40249430 41318220 44320420 41320490 41323150 41323300 
41323550 41328700 41329400 44331900 41332300 441332700 41603000 42539000 44154000 44189550 44189600 @ 
44189800 44189900 44191010 44191015 44191025 44202800 44206200 44240860 44256150 44256250 44264000 
MOVEARLF = DEFINE “= NECLARFD aT 06073500 
06093400 ] 
MOVEANDFIX 7" SURROUTINE =&" pECckhARED aT 06096500 
06112200 
MROW == REAL =" DFCLARFD AT 04121150 @ 
41317300 #41317600 0441318400 8444318740% 41348820 44348860 44318940 44319200 41319320 41320220 44321450 
44322450 44322500 #£41325600% 41328200 441328300% 44328900 44330500 44332400 44333600 44334300 441334900« 
#44188300%*45 135700» . 
MS == REAL "=" OFCLAREN AT 08283000 
*08995600**0B82974008*087298600% 08298800 
MS == STREAM VARIABLE == DECLARED AT 08298800 ® 
08300400 
MS =» LABEL *= DECLARED AT 16700000 == oCCURS AT 16773500 
16704000 e 
MSCW © REAL © DECLARED AT 02115000 
02130000 
MSCW =" REAL =" DECLARED aT 04256600 e 
04352800 
MSCW = REAL == DECLARFD AT 04353600 
04433600 e 
_MSCW =e REAL e©= DECLARFO AT 05950500 
05979500 
MSCH em REAL == DECLARED AT 06068350 e 
06116300 
MSCW == REAL == DECLARED AT 06406500 e 
3] 


MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MS¢W 
MSCW 
MScw 


MSCW 
MSCW 


MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 
MSCW 


06425000 
m= REAL = 
08573300 
om REAL on 
12476000 
om Rral ae 
12621000 
) REAL mm 
12847000 
mm REAL ne 
14354000 
"= REAL = 
16903000 
em REAL = 
16971000 
7. Real = 
ee Real == 
Cry REAL a 
20249400 
7” REAL oe 
Cr REAL = 
m= REAL oo 
J} REAL = 
ee REAL = 
ee RFAL on 
7 Real uo 
om Real ow 
te REAL. ee 
20601250 
Ce REAL oo 
=o REAL =a” 
22053906 
we REAL = 
222776000 
es REAL: == 
28049400 
? = REAL mr 
28246000 
ow ReaL = 
37465000 
wm REAL 
38047000 
Pm REAL a) 
38110000 
on REAL = 
38210000 
me REAL =" 
38387000 
om REAL om 
38580000 
ma REAL an 
38695000 
oe REAL Led 
41375600 
we REAL == 
41335100 
m= REAL == 


DECLARED 
DECLARED 
DECLARED 
DEC|.ARFD 


DECLARED 


14434000 


DEC ,ARED 
DECLARFD 


DECLARED 
DECLARFD 
DECLARED 


DECLARED 
DEC), ARFO 
DEC, ARFO 
DECLARED 
DECLARED 
DECLARFD 
DECLARED 
DECLARED 
DECLARED 


20640600 


DECLARFD 
DECLARED 


DECLARED 
DECLARFD 
DECLARED 
DECLARED 
DECLARFD 
DECLARED 
DECLARED 
DECLARED 
DECLARFD 
DECLARED 
DECLARED 
DECLARED 


DECLARED 


08568125 
12351500 
12501500 
12801500 
14351220 
16691550 
16907250 
20011560 
20080700 
20441400 
20566100 
20581000 
20584000 
70586800 


20589800 


20591000 
20595000 
20596800 
20600010 


20701500 
22002500 


22056500 
28000500 
28200800 
37451500 
38001000 
38102100 
38200100 
38356000 
38541000 
38649000 
41316250 
41327250 
45001000 


45075590 
MSFF "= FIELD “= DECLARED AT 00060130 
02216200 02216300 16853500 16853600 
MSG =*" REAL *= DECLARED AT 04259400 
04271800 %£04286000 4404295600 04305400 404344400 0404348200 0404319400 «404 333000 mw e043 35400 e004 3364004%04337 200% 
MSG =® STREAM VARIABLE =" NFCLARED AT 04271800 
04972800 *04275000« 
MSG =" LAREL =" DECLARED AT 05952620 e* OCCURS AT 05978000 
05975900 05976850 
MSK * STREAM VARTABLF == DECLARED AT 06381395 
06381405 
MSTART ** QOEFINE @" DECLARED AT 00073000 
02262000 02318000 02322000 15601000 
MSTART "= REAL ©" ODFCLARED AT 44014000 
*441010008 44113000 44114000 44115000 44123000 44125000 44126000 44131000 44140000 
Mr owe bLarrph =" necbaRrn aT 37007000 = O¢cURS aT 37112000 
37008000 370990900 
MT = LABFL == DECLAREN AT 38661000 == occuRS AT 38749000 
38662000 
MT oe LABEL = DECLARED AT 41005000 = OCCURS AT 41054000 
41006000 
MTXIN e* REAL PROCEDURE == DECLARED AT 08000000 == FORWARD AT 02696700 
*08022000e 08029000 08083000 08292000 
MULFID *" REAL ** VALUE PARAMETER =" DECLARED AT 02637000 
02635000 02636000 02641000 
MULFIN "" STREAM VARTARLE 7 DFCLARED at 02641000 
02645000 
MULTITARLE =" REAL ARRAY ** DECLARED AT 00286000 
01254650 ¥022000004 02434190 #02434250%402665150% 04326000 04368800 04394550 04675450 *04680200%407016000» 
4#07409200 #40804 1000% «08086000 « «08 256450 **08259840%*408280030% 08292500 08293000 «08431000% 08472000 «08582100» 
*12530000% 42687000 «12875500 «812876000 %«20590400 4420590550 %% 20595250 420595900 422069460 422084500 0422100500" 
#22180000% 22188000 22188100 221914000 28248600 37028000 37042000 «37046 7604437046840 «0% 37046980u% 37047500" 
"37947650 "837174000% 371867130 37191000 37199000 «37235750 37236500 37314000 37314200 «*37319010% 39944000 
39959000 40249250 44176000 
MUSTAND &"" DFFINE == pecbaRron aT 28208300 
28970842 28270830 278284550 
MV == REAL ARRAY == DECLARED AT 06069300 
06987200 060867300 *06087600**06087900%406088000%*06088400* 06088200 *06088500«206089300« 06089900 06090000 
#0609 3700 %#0609 3900 %406094100%4060951,00% 06097000 06097100 06097200 *06097300% 06099400 06099500 %06400400% 
*06100200% 06100500 *06107200* 
MVE e* LABEL ©= DECLARED AT 06069900 == OCCURS AT 06097400 
06100300 . 
MVEMORE *= LABEL “= DECLARED AT 06069900 == OCCURS AT 06086900 
06088600 06089400 
MX em STREAM LABEL = PECLARED AT 04273200 == OCCURS AT 04274800 
04273400 04273800 042774000 04274400 
MX © STREAM VARIABLE °* DECLARED AT 04359600 
MX © STREAM VARIABLE “== DECLARED AT 08639000 
MX == STREAM VARTABLE == DFCLARED AT 12833000 


12834000 

MX =e LABEL |= DECLARED AT 46699500 == gCCURS AT 16739000 
16703500 

MX em STREAM VARIABLE =» DECLARED AT 37036400 
37036600 


MXX ©" STREAM LABEL =" DECLARED AT 04360800 "" OCCURS AT 04362400 
04361000 04361400 04361600 04361800 04362000 
MYMSCW "" REAL *™ DFCLARED AT 20011700 


MYMScw 


MYMSCW 
MYMSCW 


MYMSCW 
MYMSCW 
MYMSCW 
MYMSCW 
MYMSCW 
MYMSCW 
MYMSCW 


MYMSCW 
MYMSCW 


MYSELF 
Mi oe 
Mj =m 
Mi ose 


Mit 


N an 
N ary 
N =e 
N #« 
N =m 
N ae 
N =e 
N Sad 
N oe 
N = 
N =o 
N ow 
N 7 


20022700 
w= Real @* nechaRFp aT 20080900 
20094600 
c= REAL == PrcLARED AT 20141300 
e= REAL == ODFCLARED AT 20566100 
20567520 
me REAL = ODFCLARED AT 20581000 
20581125 
v= REAL ==" DECLARED AT 20584000 
20584325 
"=" REAL "" DFCLARED AT 20586800 
20587110 
we REAL "" DECLARED aT 20589800 
20590010 
ve REAL -= pecbhaRep aT 20591000 
29594610 
ee REAL == DECLARED AT 20595000 
20595080 
v= REAL = DECLARED AT 20596800 
20596945 


"= REAL “= DECLARED AT 20600010 

"= REAL ™" DECLARED AT 20701500 

20707000 

“= REAL ARRAY *'" DECLARED AT 90028000 

00051000 

ReaL ™* nFCbLARFN aT 958643620 
*#058424104%05842930% 05843300 «05845400» 

LARFL |= DFCLAREN AT 06351500 "= OCCURS AT 063814450 
06381300 06381395 

REA|, |= DECLARED AT 08418500 
#08449400% 08437450 

REA, == DECLARED AT 08576000 
*08577000*% 08597000 

LABEL =" DECLAREP AT 40008050 

REAL  ** DECLARED AT 05841620 
*05842410%«058430004%05843500e 05844925 405844935e%05845100% 05845300 05845400 
STREAM VARIABLE == nECLARFEn AT 00042000 

00043000 
STREAM VAR;ABLE = VALUE PARAMETER m= DECLARED AT 00082000 
00083000 00086000 00088000 
REAL == VALUE PARAMETER = DECLARED AT 00134125 
INTEGER == VALUE PARAMETER =" DECLARED AT 00306000 
«00308000» 

STREAM VARIABLE == DECLARED AT 00308000 

00398500 

REAL ©" VALUE PARAMETER ©= ODFCLARED aT 00316100 
INTEGER *" VALUE PARAMETER *™ DECLARED AT 00431000 
REAL 7" VALUE PARAMETER =" DECLAREN aT 00463200 
REAL 7" VALUE PARAMETFR =" OFCLAREN aT 00464000 
REAL == NAME PaRAMETER == DECLARED AT 02052800 
02052700 

STREAM VARIABLE © DECLARED AT 02144500 

*021714000% 

STREAM VARIABLE = DECLARED AT 02173150 

02173160 

STREAM VARIABLE == DECLARED AT 02173300 

02173325 


05845500 


za 


= 2 


on 


mm 


REAL 7 VALUE PARAMETER ==" DECLARED al 02188000 
02206000 02206100 02217200 *02220000% 02221000 02223000 02253050 02261050 02276400 
STREAM VARIABLE "" NECLARED AT 02276400 
02276450 
REAL *. VALUE PARAMETER #= nrclaken at 09330100 
02330200 
REAL == DECLARED AT 02361000 
#02367000« 02370000 02371000 «09373000*% 02374000 09375000 
REAL == DECLARFD AT 02434120 
"02434560" 02434570 
REAL *™ DECLARED AT 04552000 
04568520 «04577000% 04579000 *£04590000% 04593000 £04595000 « «04598000 4%04627000% 04628000 04629000 04634200 
*04654600* 04656200 04659100 
STReaM VaAR}aBLE == NFCLARFN AT 04656200 
04656700 
STREAM VARIABLE = DECLARED AT 04659100 
04659800 *04661700* 
INTEGER == DEC LARFD AT 05702000 
*05702500% 057050090 0570600C 05707000 057145000 
REAL ™" VALUE PARAMETER == DECLAREN aT 05839400 
05842100 05842200 05844000 *05845700« 
REAL ©" VaLUF PARAMFTFR =" DFECLAREN aT 05846600 
05848900 05849420 05849460 054850600 05851500 
tNTFGeR == DeFCLAREN AT 05951400 
05951600 05953045 95953420 05953135 #0595 4800 *%05956 300 «%05957500%%05957650% 05962700 «0596290040596 3000* 
05964000 *059691450«% 05973800 05976450 05976700 05977100 «05977300% 05977700 «05979050« 
STREAM VARIABLE = DECLARED AT 05953135 
05953150 05953155 
STREAM VARIABLE = DECLARED AT 05964000 
*#05964800% 05964900 
INTEGER ©= DECLARED AT 061864000 
%0620800048#06209000e 062273000 06230000 *06243100%e06278000% 06280000 
REAL @" DECLARED AT 06351000 
06353510 06353541 06353670 06353720 06355000 06361100 
STREAM VARTARLE "=" DECLARED AT 06355000 
06360000 
STReaM VARIABLE =&= NFCLARFN AT 96361100 
06361300 
REAL == VALUE PARAMETFR #= DECLARED aT 07002000 
REAL «== DECLARED AT 07006060 
#07408000% 07342000 07447900 07154000 07452000 071454000 #07463000% 07464000 07474000 07175300 07479000 
REAL == DECLARED AT 07269000 
*#07281000% 07284000 07290400 07290600 07292000 
STREAM VARIABLE "= DECLARED AT 97284000 
07285000 
REAL 7" VALUE PARAMETER =" DECLAREN aT 07298000 
07303000 07305000 07333000 07346000 
STREAM VARTABLE "2 NFECLARFN AT 97305000 
07307000 
STREAM VARYABLE =" NECLAREN AT 97346000 
07348000 
REAL = DECLARED AT 07355000 
07366000 07369000 «07370000%%07374400e 073714800 407374900" 07372200 07372800 
DEFINE == DECLARED AT 07387000 == oCCURS AT 07366000 
07395000 07397000 
REAL ™" VALUE PARAMETER =" DECLARED aT 07422000 
"07425700% 074264100 07427610 07436000 07436200 07450000 07452000 07452200 


z22 2 2 


STReaAM VARIABLE == neclaRrn aT 07452200 
07452310 07491000 
REAL == DECLARED AT 08099600 *= OCCURS AT 07490000 
08102350 *08102550% 08103050 98103200 08403500 08403650 081403700 08404900 
STREAM VARIABLE == DECLARED AT 08285000 
08286000 
REAL, = DECLARED AT 08680000 
08681200 08690700 08690400 *08692400%*08692600* 
STREAM VARIABLE == DECLARED AT 08681200 
08683000 08919000 
REAL 7" DECLARED aT 12208500 "=" OCCURS AT 08918000 
#12249500% 12252000 ¥12299000**12301000" 12304500 «123211208 12321130 12321140 12321150 
Real °° WaLUF PARAMETER =" DECLAREN aT 12350500 
STREAM VARIABLE "== DFCLAREN AT 14711000 
14742000 
REAL «= VALUE PARAMETER #= DECLARED AT 15169000 
15168000 45168300 451473000 151474000 15475900 «45176000% 15477000 15183000 151484000 
STREAM VARIABLE == MECLARED AT 15501600 "= QCCURS AT 15414000 


2 z= 22 24 


z 2 


nm 


15502000 
STREAM VARIABLE == DECLARED 
15531700 


INTEGER ©" DECLARED AT 15600500 


*#15602600«e15602640%%*15604200% 


15602620 


AT 


15531200 


15604250 
STREAM VARIABLE =" DECLARED aT 15602600 


STREAM VARIABLE == NECLAREN AT 15602640 


15602660 


STREAM VARIABLE 7" DECLARED AT 15604250 


15604275 
REAL om DECLARED AT 17903500 
*17995500* 179296000 
REAL = DECLARED AT 18198000 
18226000 18229000 182745500 


REAL "* DECLARFD aT 19689000 
*#19696800% 19697000 19708000 


204097600 


18247500 
STREAM VARIABLE “"" DECLARED AT 18770400 


( 19711100 
STReaM VaRyaplr -= pnrebLaRen aT 20101300 


STREAM VARIABLE == DECLARED AT 20789163 


20289170 20789175 
REAL = NAME PARAMETER == 


20382010 *€270382nN58* 203827068 20382076 20382140 *20382600« 20382700 
REAL 7" DECLARED aT 20703000 
20704000 20704100 20725006 20732000 


Rea =" orcbaRen aT 28002600 
28073200 


STREAM VARIABLE == DECLARED AT 28073200 


28073400 
REAL e= DECLARED AT 282903000 


28203200 278233800 *28239200* 278244600 


REAL = DECLARED AT 28803000 


18248500 *18276000*% 18277500 *18280000*% 18466200 


19713009 19722000 19756000 


DECLARED AT 20382015 


28831000 278832500 *28833500%*%28837500% 28839000 28857000 


INTEGER =" DECLARFD AT 30904000 


#30918000% 30920000 
NAME "=" DECLARED AT 36003000 
36006000 


STREAM VARIABLE "=" DECLARED AT 37046190 


37046220 
"= STREAM VARTABLE "=" NFCLARED AT 37314100 
we REAL =" DECLARED aT 37388400 
37394200 37405000 
N = STREAM VARTABLE == NECLAREN AT 37394200 
37394260 37394300 37394450 37394500 
N == STREAM VARIABLE == DECLARED AT 38083000 
38084000 
N = STREAM VARIABLE == ODEC\|.ARED AT 38271500 
38272000 
N =" STREAM VARIABLE "* NECLARED AT 38587000 
38587500 
N *° STREAM VARIABLE ©" DECLARED AT 38683000 
38686000 
N =" STREAM VARTABLE f= PECLARED AT 41324800 
44324900 41325000 
N =" REAL "© VALUE PARAMFTFR ==" DFCLARED aT 41600000 
41600700 41603300 43601500 414605700 41606200 
N =  NTEGER ==" VALUF PARAMETER == DECLARED AT 42474000 
42477000 *49478000% 429478400 429478600 42478800 
N == STREAM VARIABLE == DECLARED AT 44203150 
44204200 
N =" STREAM VARIABLE == DECLAREN AT 48075000 
48077000 
NA 7" REAL "* DFCLARFEN AT 28002800 
NA = REAL = DFCLAREN AT 28403200 
*28458800% 28459500 28460800 278464000 28465900 98468200 
28482200 
NAIN = REAL =" DECLARFN AT 28002600 
28002800 
NAIN = REAL == DECLARED AT 28401200 
#28436800% 98437400 £28453200«% 78453600 *28459400%% 98460800 
NaM =" Re~alb =" pFcbLaREn aT 12209000 


zz 


12225000 *12245000% 12246000 12249500 12250000 12250500 
12259000 42259500 12264000 12268000 12285500 12289500 
NAM =" STREAM VARTABLF =" NecbaRED AT 12225000 
12233500 
NAM ee STREAM VARTABLF = DECLARED AT 42307000 
12311500 
NAM = STREAM VARIABLE «= DECLARED AT 16884600 
16855100 


NAMECNT == REAL =" PECLARED AT 20566320 


28468600 


284641000 


12251000 
12307000 


28472000 


26462000 


12251500 


*12321100« 


20566330 29567340 20567360 420569527 «% 20569800 xe 2056980 new 20569975 ae 20570055 


NaMein 7" PROeE DURE =" nrcbaREn aT 02603000 
06463600 06463620 08101950 08102150 08402300 081402350 
09679900 146144000 146806500 37232000 37232250 

NAMS © REAL ARRAY == DECLARED AT 12213500 


*12298000 €%7 2298500 %«12301000%*1 23045004 12340000 #49374 100%%1 2325 120%% 49397 43044193941 40%%1 9391150" 


NASZ = REAL == DECLARED AT 278002800 
28003000 
NASZ = REAL #2 DECLARED AT 28401200 
*28459000" 78471600 278479600 
NB = REAL. ARRAY ** DECLARED AT 18200000 


18227500 18228000 18228500 18232000 «1824500041824 8000%*18280000* 


NB = REAL ARRAY ™" DECLARED AT 20382040 
#203A82076% 20382365 20382200 20382300 20382540 20382580 
NB °* INTEGER "™" DECLARED AT 37506000 


08403650 


20382660 


08103700 


20382680 


28476800 


28463200 


12254000 
12321110 


20570120 
08547300 


28477200 


28465200 


12255000 
12321160 


*#?2?05702329% 


08547400 


98480000 


12256500 
12321170 


09632000 


#37511000*e 37520000 37521200 37524000 37530200 37539000 


NBR #= INTEGER =" necLARFD AT 37506000 


*37512000% 37520000 37577000 37523000 37575000 37530200 


NBS «= STREAM VARTABLF == PECLARED AT 08681700 
08684500 08686500 

NBUF == REAL == DEC)ARED AT 02491600 
#02975100* 02276750 

NBUFS =" INTEGER ©" DECLARED AT 38003000 


38927000 38042000 38953000 38063500 38064000 38064400 


NBUFS °7 INTEGER 7" NeebARFN aT 36102300 
*38149500" 38152000 36156500 *38157500* 
NBUFS =" ¢«NTEGFR == DECLARED AT 38200300 
* 38245500" 38297500 
NBUFS = INTEGER == DECLAREP AT 38359000 
38370800 38377800 
NBUFS e= INTEGER == DECLARED AT 38544000 
38553000 
NBUFS #* INTEGER ®** DECLARED AT 38652000 
38666000 38700000 38703000 38754000 
NBUFS -** INTEGER 7" DECLARED AT 39002000 


39944000 «39084000% 39144000 39146000 39230000 39233200 


NBUFS =" I INTFGFR "* DECLARED at 41002000 
*41042000" 41197000 
NcS oe" Real == VALUE PARAMFTFR "= DECLARFH AT 17900500 
17997500 
NCV e= REAL == DECLARED AT 88318000 
*083149700% 08333000 
NCV == STREAM VARIABLE ** DECLARED AT 08333000 
08334300 08334900 
NOIV64 = STREAM VARIABLE =" DECLARED aT 90085000 
00986000 00088000 
NDIV64 "" STREAM VARIABLE ™" DECLARED aT 37394200 
37394450 37394500 
Nox ** pFFINE "= nECLAREN AT 00158100 


02328100 06205200 08538000 12439000 14370035 44370065 
20092700 20092800 20093400 20093600 20124700 20176090 


44154100 48141700 
NEG «= STREAM VARTABLF = DNEFCLARFD AT 12306000 
12314500 
NEU e= REAL == DECLARED AT 06351104 
#06380100* 
NEUF ==] OEFINE |= DECLARED AT 05780300 


05849450 05848900 05959000 06380100 06381300 70567240 


NEUP "= INTEGER ** pFebaRED aT 00166000 


04194500 04194550 05842450 05848900 05959000 06077400 
16895900 205672940 2201414300 40249200 40321140 40324240 


44240700 44260500 44265500 

NEUL == MEFINE == DECLARED AT 063511905 
06380900 06380850 06380900 

NEUD2 |= DEFINE == DECLARED AT 063514105 
06380400 04380950 

NEVERBIT © DEFINE == PECLARED AT 00417090 

NEW =" LABEL |" DECLARED AT 04424000 == OCCURS AT 04188000 
04166000 

NEW == LAREL |= DECLARED AT 12214500 ©" OCCURS AT 12270500 
12247500 

NEWIO =" PROCEDURE "= DECLARED AT 04115000 


37539000 


38069000 


39244000 


143701410 
20178900 


22011100 


06107900 
41324800 


38083000 38090000 
39293400 

14370455 14370180 
20188600 28051400 
403294140 41394800 
06108200 06380100 
#46216910%444216940% 


38995000 


14441200 
37279100 


44240700 


06384300 
44240690 


20092000 
441510410 


16825500 
444240695" 


04188000 48005000 

NewLOqg = LAREL *" neclLAREN AT 41316500 e= OcrURS AT 41370300 
41318900 41320400 

NewPRy == REAL == VALUF PARAMETER =" NECLARED AT 02002000 
02000000 02003000 *02006000* 02007400 

NEWSTART we LABEL == DECLARED AT 24042600 = gCCURS AT 24042950 


24045300 

NEXT == LABEL "" DECLARED AT 02347222 =" gcCURS AT 02347330 
02347410 

NEXT "= LABEL ** DECLARED AT 06070000 *™ OCCURS AT 06095800 
06095600 


NEXT 7 LABEL *" DFeLARED aT 07423000 == gccuRS aT 07451000 
07436200 07438000 
NeXT se STREAM LaBeL == necbLaRen aT 98608000 == OCCURS aT 08620000 
08611000 08618000 16042550 
NEXT == LABEL == DECLARED AT 20389000 == OCCURS AT 20451000 
20453000 20455000 270459000 20463950 20463000 90465000 90477000 90478508 20478550 
NEXT 2 LABEL = DECLARED AT 20566011 =" OCCURS AT 20578725 
20577525 
NEXT "= (LABEL @* ODFCLARED AT 28211000 = gCCURS aT 28304200 
28258000 28260600 28262400 28270826 28297400 28307600 
NEXTCONUM =" REAL PROCENURE 7" DFCLARED at 07001600 
407001760% 07179920 07547000 20289144 37046470 
NEXTFrbe == LAaREL 7" DECLARED at 12512500 = occuURS AT 12642500 
12644000 
NEXTL wm LABEL © OFCLARFD AT 20566610 == OCCURS AT 20569520 
20570580 
NEXTLINK @= INTEGER == DECLARED AT 08852000 
08860500 *08863000%«08B867000% 08931000 08932000 08934000 
NEXTLINK ** REAL °°" DFCLARED AT 20012900 
20021400 20021700 200221N0 ¥20024800*« 20025600 «20027400« 
NEXTLINK "= ReaL ** DECLARED aT 20082100 
20089300 20089600 20090000 
NexTlLyNK |=" Real =" necbhaRep at 20142500 
NEXTLANK |= Real == pechAREN AT 40004509 
*#40046000% 40057000 
NEXTMOM = INTEGER == DECLARED AT 143514200 
14354205 *14360700"%14360800% 14360900 41436110044 744364300% 44364500 44370040 14370030 
14370050 14370070 14370110 14370165 
NEXTNAME ** REAL "=" DECLARED AT 122709500 
12225000 #*12243500*% 12290000 
NEXTNAME © STREAM VARIABLE =" MNECLARED AT 12225000 
12233000 
NEXTNAME = LABEL =" DECLARED aT 28402800 == QcCCURS aT 28420400 
28417400 
NEXTROW 7" LABEL *" DECLARED AT 19695000 
NEXTSeG  "" bLagrh "= pgelLaReEn at 28402800 = O¢cuURS aT 28467000 
26471000 
NEXTSLOT se REAL o= DFCLARED AT 00418850 
14600000 144603000 14601500 #44609500% 14603100 «44603320K%; 4604000 %818248000% 40283300 
40347330 *40317610 
NEXTSOURCE == LABEL = DECLARED AT 28403000 == OCCURS AT 28457800 
28483200 . 
NEXTWAIT |= REAL ==" DFCLARED AT 00279000 
#02095000m 04017000 #04048000% 04165000 04477000 48004000 
NF #* REAL @* NECLARED AT 37388275 
37392000 


9048;,900 20484300 


14370035 14370040 


40283400 «40283600" 


NFO ©" REAL ARRAY = FCLARED aT 00158200 
02378400 06705700 08538000 142419000 «14370035 «614370065 0% 143704 104814370455 4414370480" 44444200 20092000 
JeGnoo 7 ooese 005s coeesntes Onee2 058600 e276 15 6100-6201 76000 6201 7s000Cs 20 Tah soc ce snett be ere blots 44154200 
48141200 48141500 48141600 
NG = LARBFL "= NECLAREN AT 14166200 "= OCCURS AT 14292140 
14206445 
NG == LARFL == DECLARFM AT 14627300 
NG == LABEL #= DECLARED AT 20146700 == OCCURS AT 20176102 
20176147 
NINETFENMASK "=" DEFINE **" DECLARED AT 00081620 
NINETFENNOTREADING =" DFFINE =" DECLARED aT 00081620 
NJOBS ** REAL ** DECLARED AT 12357000 
*12400500«% 12402000 *124130008412447500% 12428500 «12446000«% 12447500 
NM == STREAM VARIABLE "= DECLARED AT 12310000 
12317500 
NMG == REAL == DECLAREN AT 083146000 
*08390000* 08333000 08340000 
NMG = STREAM VARIABLE == DECLARED AT 08333000 
08334000 08335000 08335600 
NMf ©" REAL ==" DECLARED AT 28002000 
28078000 *28028410% 28032200 428039400 «%2805 3600 %*28054600 428058200 28063800 
NM1 ©" STREAM VARIABLE "* DFCLARED aT 28053600 
28053800 
NM? =" Real = pecbaRen aT 28202400 
*282296400" 
NM¢ e= REAL se DECLARED AT 28401000 
*28H72000*% 28473000 278473200 28473400 28474400 278474600 
NM? = REAL == ODECLARFD AT 28002000 
28092200 28028000 78032200 *28039200*«28054800*% 28056000 «28072800 
NM2 #" REAL = DECLARED AT 28202400 
28292600 *28228200% 
NM2 =" REAL "™ DECLARED AT 28401000 
*28472200% 28473000 28473200 28473400 28474400 28474600 
NO = STREAM VARYTARLF =" DECLARED AT 06077900 
406078500 "%06079400% 06979500 06079600 «06079700%%06080900% 06081000 *06081300% 06081900 046082500 06083000 


06083300 

NO ee DEFINE == DECLARED AT 20241000 
24042995 

NOAUX = REAL == DECLARED AT 22235500 
22325200 


NOBACKTALK #2 DEFINE = DECLARED AT 000861100 
NOBACKTALKMASK *" DEFINE ==" DECLARED AT 00081100 
NOCNV =" STREAM LABEL =" DECLARED AT 08334300 =" OCCURS aT 08334700 
NOCODF "= LABEL =" DECLARED AT 04357600 =" OCCURS AT 04410600 
04358400 94409800 
NOcONT “7 Real *" prcbaREp aT 12506000 
12528000 «*«12686500% 12741500 
NOCONT == REAL == DFCLARFD AT 12806000 
NOCONT == REAL |= ODFCLARED AT 43008000 
NOCOPYMESS = SUBROUTINE == DECLARED AT 28011000 
28986000 78093400 278100800 
NOCOPYMESS = SUBROUTINE == DECLARED AT 28211800 
287262400 28282400 28284000 28285200 28297000 
NOCOPYMESS *" SUBROUTINE 7" DECLARED AT 28408200 
28415800 28416000 78417200 28420200 28476600 28480400 
NOFI Le * LarnrFL =" nrcblaREn at 12512500 =" OccuRS AT 12568500 
12566500 


NOFILF == LABEL =" DFCLAREN AT 18208000 em OCCURS AT 18266000 
182929600 
NOGET == {LABEL == DECLARED AT 13018000 em OCCURS AT 13084000 
43935000 13045700 43954000 13064000 13070000 413077000 
NOGOOD 7" LABEL =" DECLARED AT 45003000 =" OCCURS AT 45132000 
NOHASH "" DEFINE °" DECLARED AT 20247990 
20569790 
NOHASH "" DEFINE =" DECLARED AT 28404406 
28466200 
NOL8L ©" REAL ™= DFCLARED AT 20397000 
*20446000%*20455000% 20486000 
NOLBL *" nFEFINE @*" nHECLARED AT 28210400 
28756000 28268800 
NOMEM == nrFINE oe necLaREn aT 00081950 
02202100 270164000 74044900 274045000 
NOMEMTOG == DEFINE =m PECLARED AT 00081980 
24044000 
NOMIX = STREAM LABEL «= DECLARED AT 16041500 == OCCURS AT 16041750 
16041850 
NOMORE “" LABEL "™" DECLARED AT 12512500 =" OCCURS AT 12566000 
12562500 
NOMORFELS "=" LAaBFL = PECLARED AT 12514000 *™ OCCURS AT 12624500 
12515000 
NOMOREFrLeS = Real suRROUTINE &" OFCLAREN aT 12580000 
12586000 42593500 42721500 
NOMORFRFELS e#* REAL SUBROUTINE = DECLARED at 125713000 
12577000 127599500 42625000 126429500 
NOMORFREELS #2 DEFINE == DECLARED AT 13023000 
13045000 
NOMSG = STREAM LABEL = DECLARED AT 08334000 == OCCURS AT 08333000 
NOOFROWS = DEFINE “== DECLARED AT 08101250 
08109100 
NOPROCESSTOG "" REAL "=" DECLARED AT 001540900 


*92037000 #402258 200% 402376000 402434860 4404677750 %e04687900 4x06 t 16200 ee 14358 384 en 161 26000 we {6856200 %4%18581500% 


#199053204%22031000"#222840008%42501550%%44092000" 48023000 48042000 
NORMaLPRROR |= Lager == nrclaRrn aT 90008000 == OccuRS aT 48137000 
48403000 
NORMAL.PROCESS = DEFINE == DECLARED AT 04670850 
04677800 04687900 
NOSELFCT =< STREAM VARIABLE == DEC{ARED AT 08839500 
08846000 
NOSQ °° STREAM VARIABLE °* DECLARED AT 06074200 
06075200 06075400 
NOTCOPIED ©" DEFINE =" OEFCLARED AT 280130600 
28086000 28093400 28100800 
NOTCOPIFD =" NFFINE =" nFcbaREn aT 28211400 
28262400 28282900 28284000 28285200 28297000 
NOTCOPIFD == HFFINE == pECLAREN AT 28407800 
28415800 28417700 28420200 28476600 28480400 
NOTERMSET e* DEFINE = DECLARED AT 02110200 
02184000 04252409 06354200 06360515 124519000 44193000 145444600 
18570900 18730200 19903850 48029000 
NOTFOUND "" LageEb "" DFCLARED aT 06462200 =" OCCURS AT 06464300 
06465200 06466310 
NOTHINGTODNO =" Laprh =" NECLARFD AT 00024270 ‘= OCCURS AT 48045000 
02008400 02050000 04236000 44282000 48017000 48038000 48056000 
NOTTFYOP = nFFINE = pFCLARED AT 00414000 


15115400 


48064400 


16164000 


17906400 


17915500 


NOTLOADrNGFROMREELY = REAL SUBROUTINE == DECLARED AT 28047600 


28048800 7805600 


NOTOK © LABEL #= DECLARED AT 06069900 =< QCCURS AT 06096000 


06092200 06094700 06095000 
NOTOPEN = DEFINE =" OFCLARED aT 
14242000 


14161000 


NOTP "© DEFINE ** DECLARED AT 12516300 


12581000 12680250 


NOTP "* NEFINE *" DOFCLARED AT 12815500 


NOTREADY "™" LAREL *"™ NECLARED at 
22113000 22116000 22205000 


22062000 =" OCCURS aT 22109000 


NOTREADYMESS 7" LABFL =" DECLARED AT 04357200 =" OCCURS AT 04381600 


04393200 04405900 


NOWAITT = LABEL =" NECLAREN AT 04124000 w= OCCURS AT 041478000 


04166000 


NR = REA) #02 VALUE PARAMETER) == 


00385000 00385500 


DECLARED AT 00385500 


NR ™= REAL ©" DECLARED AT 19694000 “°™ OCCURS AT 04363000 


*19733600% 19734000 19735050 


NR "" REAL "" VALUE PARAMETER =" 


37385000 37385500 37388400 


DECLARED AT 37386000 
37388700 «37391000*% 37395000 


NR @* STReaM VaRTaARBLe =" peelbaReD af 37395000 


37396000 


NROWS = YNTeagrR w= VALUE PARAMETER == neEcLARED AT 00396000 


00393000 00394000 


NROWS w= INTEGER == VALUE PARAMETER = DECLARED AT 37421000 


37418000 37419000 37427000 


37444000 


NS em INTEGER “= DECLARED AT 05841350 


05842475 95842700 05844110 
NSFCOND *"" PROCENURE @" NECLARFD 
48009000 


05845100 *«05845300" 05845400 05845700 
AT 22001000 == FORWARD aT 02692000 


NSFCONDMASK == DFFINF #* DECLARED AT 00080600 


45451000 48008000 


NSECONDREADY == DEFINE «== OMFCLARED AT 00080800 


22053700 48007000 


NSLATE == REAL ©= DECLARED AT 00023000 


02077000 48015200 48990000 


48034000 48047000 *48052000% 48054000 48055000 48055200 


NT = REAL "=" DECLARED AT 96351104 


%06380100« 06380;40 6380400 


06360525 06380950 063814070 


NTROY ew LABEL == DECLARED AT 04357200 == OCCURS AT 04383000 


04396400 04402600 


NTL #*" REAL =" DECLARED AT 00024000 


02004500 *02776750« 02277000 
04921000 04044000 04068000 
05845100 #05851800« 05851900 
#08 409450%%08409950m 06409300 


#02284000%*02285000% 02286000 «*02287000% 07287400 02287110 *02330200« 02330400 
04102000 ¥04108000« 04109000 04126000 «05842900«% 05842930 05843000 %05845000« 
#05852 350% 05852400 «05852500«*05852700" 05852800 06022000 *06239000% 06240000 
*08460000% 08461000 08462000 09633400 #09681505¥%#12531000% 42531500 42635000» 


*12636000e 12637000 *42656500% 42657000 %14065000% 44070000 44074000 14342000 614358345* 44358355 414411820" 


14441830 144413840 1444141650 
#16198000% 16199000 46696700 
*20092600% 20092700 20092800 

20193300 «202899604 270289265 
#220490004422020000% 22021000 

28015000 *286036000% 28036400 
*28305400% 2983056400 278305800 

284308600 £28461800% 28462000 
#284 76600u428477000K 2B477400 
# 37533000" 37535000 38103200 


14414860 14441880 144431890 1444711900 *444150008 14445300 *15084000« 15086000 
16827000 «16698000 4616959500 4418740400%%18740600% 18740700 48740800 200147800 
*20129300% 20129400 20129700 420129800 *#20171200%«"20191300% 20191500 «20193200 
*20581950e 20582000 *20600400*% 20600470 «20609150% 20609200 *270609660*% 20609670 
*221440008% 22145000 422145450" 22145525 244305000 24203000 «28014600% 28014800 
*28097100%*28225000«" 28225400 *28250400% 28250800 «28277600* 28778800 28279200 
28408400 £284 1580044264 16000%% 2841720084 284202008*28495200% 28425600 «28430600% 
26462200 *28463800% 28464000 28464400 «284686004 28468800 «28472000% 28472200 
*2B480000* 28480200 *284604004%30909000% 30911000 «37523000% 37524000 37526000 
38204200 £41324400% 44324200 #42501050* 49504400 «425920004425 355004444 189900" 


NT 4 
NT4 
NT4 


NT4 
NT4 
NT4 


Nr2 


NT? 
NT3 


NT3 


N73 
NT3 


NTS 


NT4 
NTa 
NTS 
NT6 


NT? 
Nu * 


NULGV 
NULL 


#44203200% 
#48032950% 


44206900 
48033000 


44706300 *442440004%4480;9000% 48028000 


48035000 


48036000 


ABN76000 #48440000K4481472004¥ 46118000 «48444200% 4844,500 
m= DFCLARFED AT 02133200 


=e INTFGER 


*021730004%*02173050* 07173100 
ARTABLE == 


e* STREAM V 
04110000 

=" INTEGER 
#06 354200 % 
«06380850% 
e° STREAM y 
08467000 

e* STREAM V 
ow RE Al, as 


40322440 £40324102"%40334065% 40334070 


ee Real =e 

«92985000 

#058 44935x 
06380400 
14358370 

*20037500« 
28278800 
37327000 
48064000 

e” REAL w= 

#40261010» 

hed Real a. 
000274060 

*18740400% 
24205000 

*37526000« 
oe INTEGER 

#06 380150 

#* STREAM V 

oe REAL on 
402978000 

ee REAL &e 
00034000 
05847700 
24108000 
48145000 

== INTEGER 

#06 380150% 

oe REAL = 

#40 334070x 

=? REAL es 
04476000 

e= REAL # 
04068000 
37047670 

me RE al = 
04126000 

° LARFL = 
12255500 

om =6STREAM 
em LABEL 


02174000 


NECLARFD AT 04109000 


er DECLARED AT 06351250 
06360545 £06364700%406361705%%06380140%*06380150% 06380450 «06380600« 06380650 


06360540 
*06380900% 


ARYABLe =e 


ARTABLF == 


necbaRen 
02786000 
*05845000% 
*06380750 « 
*16197000% 
«290083800» 
*284295000% 
*37530200* 
48065000 
DECLARED 
40261040 
DECLARED 
04021000 


NFCLARFD AT 08462000 


DECLARED AT 09633400 
DECLARED AT 40005;100 
*#40016240% 40016960 *40039100e*4006502N% 40045040 


40334075 
AT 00024000 
922871430 02287320 02287140 
05845400 *05850200« 05852200 


06380800 


06380650 08409;00« 


16199000 *16826600« 16826800 


20083100 


37532000 
46070000 
AT 40005400 


20083200 420106000 
28495400 «28425600 «%28463200% 
37542000 *«38404;00* 
48071000 


48080000 


40261046 *40324200*% 403241404 


AT 00024000 
04044000 


04068000 


04116000 


48032600 *48039800% 480329940 
48041000 *48043000%e48060000% 49062000 


48441600 *48443000*% 481443500 


48032935 
48074000 


48032940 
46075000 


06380700 


*4007B07He 4O07TBO76 *40257060 4%40261010 **40261 200 44403224308 


40334077 


04027900 
05957900 
08109200 
16826900 
20143500 
28463400 
38104300 
*48417200" 


40324200 


04126000 


40334079 


04044000 


04126000 


05849930 


05843000 


*0596180048#06488000% 06189000 «06380140%406380250" 
*12627000% 429628000 412635500 42637000 414356360 


*1874040044%18740500% 18740900 
*20157700*% 24106000 


20143600 
28464000 


38104800 *38202;00% 38202300 
48119000 


484148000 
40324210 
04355600 


*40334060*% 40334077 


*05844935e 05845400 


20043900 


200;4000 


24204000 «28278600« 
28464200 *£37524000%%37524000" 37526000 
38202800 «48062000 


40334079 


05847700 


18740500 «18740700% 20017900 £20050000m« 20059400%20121800%e20125000Ke% 20153700" 20153900 
28011200 428086000 %%26093400%%28100800e 28212000 28262400 428282400 0428284000 «%28 285200 4u28297000" 
37527000 *480630008%*«48066000" 48070000 
== DECLARED AT 06351250 
06380400 *06380750* 06380900 
DECLARED AT 201453700 


06380500 


ARIABLF = 


NECLARED 


AT 49005100 


04068000 
18780900 


06380900 


24430000 


40341000 *4032141a0* 40324200 40334060 40334065 
DECLARED AT 00024000 
#02283000% 02284000 0272787000 02287300 029287120 
05952000 «962000008 06204000 06202000 *18780700% 
24206000 «£37521100««%37527000« 37538000 37538500 
“= DFCLARFD AT 063514250 
*06380500e 06380950 06380409 *06380800*% 06380850 
DECLARED AT 40005100 
40334077 40334079 
DECLARED AT 00094000 
05841620 05847700 05959000 *06380750* 06380850 
DECLARED AT 00024000 
04127000 04355800 05844615 05847700 05952000 
37048000 38015400 
DECLAREN AT 00024000 
05847700 05952000 
DECLAREM AY 12214500 == gccuRS aT 12247000 
LABFL == pFrebLARFD AT 06334900 == OCCURS aT 08335800 
=e DECLARED AT 04705000 OCCURS AT 04709000 


04116000 


05952000 
24107000 


04126000 *04428600« 05841620 


«20050000 %% 20059400 4420121800 4%20125000« 
37542000 *48054000% 48054400 «480550004448 144000" 


24109000 


*36009000« 37047100 


24207000 *37538500« 


37047600 


37947605 


04725000 
NULLINT =" LABEL @" DECLARED AT 442707250 "= OCCURS AT 44246500 
44243500 44249000 
NULLMIX #* REAL SUBROUTINE "= DECLARED AT 09603900 
09614000 09615000 09635000 
NULMS ** STREAM LABEL * DECLARED AT 08335000 °°" OCCURS AT 08335400 
NUM #* Real **" pecbaRen at 12505000 
12554500 12619000 «12686500 «e12745000# 
NUM © Real ee neckhaRrn at 12805000 
NUM we Real == necbLaRen at 13006000 
NUM we REAL = DECLARED AT 41327700 
#44330700% 41330000 44331700 41334900 41332000 «44332600« 44332800 
NUMAINTMESS == REAL == NMECLARED AT 04121250 
#04137290%444311400% 41322400 *413327950%e44188000* 
NUMB = STREAM VARIABLE == DFCLARED AT 08785000 
08291100 
NUMBUFFS = REAL =" DECLARED AT 04668500 
#04674400% 04674450 04677250 04677650 04682650 
NUMENT "™ DEFINE "" DECLARED AT 05780040 
05845700 095974000 06101200 
NUMENTM =" neriNe == necbaRep at 05780040 
05844920 05850410 05850200 059614200 05961800 06109300 06380250 
NUMESS =" REAL ©= DFCLARFD AT 02031000 
¥02422000%*029175003% 02476000 02258000 «16235000%«44188000« 
NUMF == ODFFINE =< ODECLARFD AT 42516250 
12686500 42706500 
NUMF w= PNEFINE == DFCLARED AT 12815400 
NUMOPT ©= DEFINE = DECLARED AT 28407400 
28458400 28470000 28474000 28478400 
NUMOPTS "" DEFINE ™* DECLARED aT 08100500 
08103150 08114050 
NUMREeS 7" Real =" nrelaRFn AT 04668500 
#04674225*" 04677450 04677550 04685750 
NwORDS == INTEGER == VALUE PARAMETER © DECLARED AT 00367000 
00365000 00366000 
NX em REAL, w= DECLARED AT 15407000 ; 
-#15420000*% 15422000 15424000 15426000 *15438040* 145438060 
NXDISK =" REAL *" DECLARED AT 04121350 
#04137100% 04137160 14137202 04137215 04137220 04137250 04137275 
NXt =" LarneFbL =" DECLARFO AT 15600600 =" OccURS AT 15602200 
15601200 
Nx7y ©" LagebL =" pFeLAREn AT 28402800 == OccuURS aT 284726800 
28474400 
NYLON7IPPER == REAL ARRAY == DECLARED aT 02113085 
*94544090" (45474430 *78592500% 18523400 #2064 0260**9 8439600" 28440800 
Nq¢  e STREAM VARYARLE = DECLARED AT 06195105 
06195135 
Ni w= REAL = DECLARED AT 20566100 
Nt = REAL "= DECLARED AT 20581000 
Ni == REAL = DECLARED AT 20584000 
Ni "= REAL "=" PECLAREND AT 20586800 
20588400 20588400 
Ni = REAL ™* DECLARED AT 20589800 
Ni "= REAL "= PECLAREN AT 20591000 
*20593400% 20593450 
Nt os= REAL == NFCLAREN AT 20595000 
Nd =e REAL = DECLARED AT 20596800 


06360750 


04137280 w4418B200% 


44460500 


16826900 


REA}, ow 
REA], =e 
REA{, == 
28832500 


INTEGER 


REAL =" 
REAL 7 
REAL == 
REAL om 
REAL = 
REA|, == 
*20593400« 
REA|, == 
REAL #2 
REAL "= 
REAL = 
REAL 
REAL =e 
REAL ™™ 
ReaL = 
REAL oe 
REAL ee 
*20593400« 
REAL «= 
REA, =« 
REAL = 
REAL == 
NAME &* 
18523700 
NAME =e 
48720100 
NaMe &e 
19582000 
REAL oe 
*#20541184% 
REAL, #* 
REAL ae 
REAL, © 
REAL = 
REAL "= 
REAL ™* 
REAL =" 
REAL = 
REAL on 
REAL, om 
NAME &== 
18552800 
NAME e#e= 
#18780300* 
NAME &= 
NAME == 
NAME = 
NaMe on 


08613000 


DECLARED 
DECLARED 
DECLARED 


*28836000«% 28839000 
DFCLARED AT 37422100 

*37428100" 37429000 «37430000% 37433000 
STREAM VARIARLE 


DFCLARFN 
DF CLAREN 
DECLAREN 
DECLARED 
DECLAREN 
DECLARED 
20593450 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLAREN 
DECLAREN 
NECLAREN 
NE CLAREN 
DECLARFN 
DECLARED 
20593450 
DECLARED 
DECLAREN 
DECLARED 
DECLARED 
DECLARED 
18525600 
DECLARED 
18720400 
NECLARFD 
19583000 
DECLARED 
20511315 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DFECLAREN 
DECLAREN 
DECLARED 
DECLARED 
18581400 
DECLAREN 
18780400 
DECLARED 
DECLAREN 
DECLARED 
DECLAREN 


STREAM VARIABLE. “= 


08614000 


AT 20600030 
AT 20704500 
AT 28803000 
28852000 


DFCLARED AT 06195105 
AT 20566100 
AT 20584000 
AT 205864000 
AT 20586800 
AT 279589800 
AT 205971000 


AT 270595000 
AT 20596800 
AT 20600010 
AT ?0701500 
AT 70566100 
AT 20581000 
AT 20584000 
AT 20586800 
AT 20589800 
AT 20594000 
20593500 
AT 20595000 
AT 20596800 
AT 70600010 
AT 7207015900 
AT 18500590 
18527300 
AT 18700500 
18720900 
AT 19505000 


18527700 


18780100 18780300 18780400 18780600 


AT 20544150 
20541320 
AT 20566190 
AT 20581000 
AT 720584000 
AT 20586800 
AT 20589800 
AT 20591000 
AT 20595000 
AT 20596800 
AT 20600010 
AT 20704500 
AT 18500500 
16581200 
AT 18700590 
18780800 
AT 19505000 
AT 185005090 
AT 18700500 
AT 19505000 
NecbLaRFp aT 98605000 


20511665 


18584300 18581400 


18790300 


18800100 


18800300 


18850100 


O = STREAM VARTABLF = NECLARED AT 08660000 
086627000 


OBYOBINPUTAREAV = DEFINE == DECLARED AT 00017574 
OBUTYpE -= LABEL “= DFCLARFD AT 38364000 "= OCCURS AT 38530000 


38485000 


OC = LAREL =" DECLARFD AT 16357000 == 9CCURS 


16366000 

OCCUPIEN °°" PEFINE "= NECLAREN aT 40008210 
40017280 40027250 40972000 40321500 

OcTaDe °°" NEFINE 7° pnecbaRFn aT 04243200 
04251600 04751800 

OF == DEFINE =" DECLARED AT 28008000 
28041832 286013600 

OE == DEFINE =» DEC|ARED AT 28209000 
28266400 28785600 28796600 


AT 16606000 


OF = REAL "" VALUE PARAMETER =" DECLAREO AT 00376000 


00374000 003750090 


OF = REAL *" VALUE PARAMETER "™ DECLARED AT 37179000 


37177000 37178000 37225100 


OFF =" LagrL =" NeECLARFN AT 04069000 == OrcuRs at 04086000 
Or0p ee RealL ee VALUr PARAMETER ©" peclaRro AT 04255200 


04255300 04255900 
O10D == REAL ©= DECLARED AT 04557000 


04568340 *04570000* 94573000 04574000 04582000 04585000 04588040 
04588130 04588950 04588390 04588460 04588540 04588550 04599000 
04638800 04647050 04647100 04648450 04651500 04651600 04651700 «04654800%404657200% 04658200 

O10D ** REAL ©" VALUE PARAMETER ©" DECLARED AT 04667050 
04667000 04667059 04673650 04675900 04676000 04676300 04676500 
*04682550% 04682750 04683000 04683400 04683950 04684050 04684300 


OK =» Laagl ne oF CLARE AT 04125000 == oOCceURS 
04428000 04174900 

OK == STREAM LABEL == DECLARED AT 0433;800 == 

OK == LABEL == DECLARED AT 05702000 == aCcURS 
05708000 

OK = LABEL #= DECLARER AT 06070000 = OCCURS 
06090800 

OK = LABEL == DECLARED AT 08284000 "= OCCURS 
08295600 

OK » STREAM VARIABLE = ODFCLARED Af 08437550 

*08438100% 
OK =» STREAM VARIABLE -= DECLARED AT 08597050 
*08597600« ; 

OK == Lapel =" OFCLARFD AT 08704500 "= OCCURS 
08709500 08711700 

OK = STREAM LABFL @= NECLARED AT 14422000 = 

OK ee STREAM LABEL = pECLARED aT 16044550 == 

OK = LABEL == DECLARED AT 28230800 == QCCURS 
28294200 28294600 

OK == DEFINE == DECLARED AT 28404600 


AT 94177000 


OCCURS AT 04332200 
AT 05715000 


AT 06088400 
AT 08298200 


AT 08716800 


OccURS aT 14425000 
OccURS aT 16042000 
AT 28290600 


28415000 28418800 28419400 28419800 28470200 28474200 
OK = REAL *" NAME PARAMETER #=@ DECLARED AT 36001000 


36095000 36007000 
OKBOUNDS *" LABEL °* DECLARED aT 06069900 == 
06087700 


OCCURS AT 06091100 


OKINUSE *7 LABFL ** DFCLAREN AT 96069900 "= OCCURS AT 06096200 


06094500 
OKSEG7EROWRy Te == ReraL == DFCLARED AT 004924300 


04588020 04588030 049588040 
046906000 04608000 04635000 


04678750 04679500 04679750 
04686450 


04588070 
04638200 


04682150 


04004460 #0963900 4 #0964600 4 **09680929%40968261 1 #402560 1044096121044 4245999 HHO 2H600 4 ® 
OL "= LABEL == DECLARED AT 16356000 == OCCURS AT 16525000 

16365000 
OLA = STREAM VARIABLE == DECLARED AT 12307500 

12316000 


OLAY = REAL PROCEDURE =" DECLARED AT 22228000 *= FORWARD AT 02052500 
02434520 18841700 18844600 #22243000%422390000% 24034300 24038200 44351950 44154070 44202119 
OLAY "" REAL =" DPECLARED AT 12358500 
#12425000% 12426500 12473040 
OLaYDISK = ReabL 7" HFeLARFn at 20012700 
OLAYDySK 7 Real == neelAREp AT 20081900 
20127800 20328;00 «70178200 
OLAYD1SK = REAL = ODFCLARED AT 20142300 
20158600 *20159;,00% 20710600 
OLAYINDX = DEFINE = DECLARED AT 12216000 
12249500 42273500 
OLAYINDX ** DEFINE = MECLARED AT 12366500 
12420500 1242729000 12459000 12462000 
OLAYIO "* REAL 7" DECLARED aT 04260200 
#04284600% 04299600 04310200 04316400 04333400 
OLAYIO "" REAL °" OHeclaRFD aT 06004000 
¥060040108 06016400 96018000 
OLAYMASK = REAL == DECLARED AT 00336000 
*06494000% 14360400 *14360500*#20)28400* 24038100 24165000 *241,66000* 
OLAYTIME «= REAL ARRAY ==" NPECLARFD AT 00134420 
06194900 06195418 062705050 12424000 12473000 «17929500 «420479220 %#299429930% 44163030 
OLAYTOG *" REAL =" NECLAREN AT 12210000 
#12247000«4%12265000% 123075006 
OLAYTOG ** STREAM VARTABLE 7" QDECLAREN aT 12307500 
12315500 
OlntpbLeriMe °" Reabh =" pneclaRen aT 00430900 
02371000 #023720004406192000« 06193000 12697000 «#45 128000 %«48124000% 
OLNONr == REAL == DECLARED AT 16197000 
18276000 48276500 
OLDQ@ ==» NAME == DECLARED AT 02057500 
OLDU = REAL =" DECLARED AT 04668550 
*04673750% 04682450 *04684950% 04685200 04685750 04685500 04685550 
ON "= LABEL =" DECLARED AT 04069000 "= OCCURS AT 04093000 
04076000 
ON "= LABEL =" DECLARED AT 07355100 == OCCURS AT 07372900 
07371700 07372600 
ON = Lanpeb ==) prclaRen aT 08319000 “= OCCURS aT 08331000 
08326000 08330000 
ON we LABFL == DFCLARFA AT 19901600 = occuRS AT 19905340 


19904360 

ON =e LABEL == DECLARED AT 28403000 «= QCCURS AT 28428400 
28432000 

ON we LABEL == DECLARED AT 37004000 == OCCURS AT 37100000 
37098000 


ON * STREAM LABEL = NECLARFO AT 37394460 =" OCCURS AT 37394550 
ON = LABEL = DECLARED AT 386639000 == gCcURS AT 38707000 
38704000 
ON "* LapeL =" DECLARED aT 41007000 
ONE =" STREAM VARIABLF °@ DECLARED aT 08713250 
08713500 
ONe =" STREAM VARTABLe =" AFCbLARED AT 12575000 
12575500 


y 


ONE = STREAM VARIABLE == DECLARED AT 47587500 
12583000 
ONE © STREAM VARIABLE == DNECLARED AT 12631000 
12631500 
ONE *" STREAM LABEL ©" DECLARED AT 16038900 °" OCCURS AT 16039600 
ONE =" STREAM VARIABLE =" DECLARED AT 28444200 
ONE " STREAM VARIABLE °* DECLARED AT 38608500 
38608600 
ONEFCHR @™" STREAM LaBFL *" DFcLARFN AT 08810000 == OccuRS aT 08812000 
ONFOWONE == Real == prelaRrn at 02024000 
48;01000 
ONEFOHTWQO = REAL == DECLARED AT 02024000 
48107000 48144400 481427000 48142200 
ONEXCEPTION = REAL ew DECLARED AT 19693000 
*19696600*% 19796000 
ONN #? LABEL @" DECLARED AT 37180650 == OcCURS AT 37195300 
37195280 
ONV ©" DEFINE °" DECLARED AT 20239100 
20567271 20569846 20569860 20570462 
OP = REAL =" NECLARFN aT 08626000 
08632000 08658000 08660000 08667000 
OP ee STREAM VARTARLE = DFCLARED AT 08660000 


08661000 

OPEN = LABEL "2" DECLARED AT 14166000 == OCCURS AT 44243000 
142761000 

OPEN = LABEL == DECLARED AT 146277300 "= oCCURS AT 14659000 
14631000 


OPEN * DEFINE =" DECLARFO AT 20219300 
20593060 38192500 38299000 
OPENEXCLUSTVE "" LABFL "* NECLARED aT 18204000 *" OccuURS aT 18341000 
18212000 18349000 18349800 
OPFNINPUT #° LABFL == neclAREp AT 18203000 == OccURS aT 18319000 
18271000 
OPENIO == DEFINE |= DFCLARED AT 38385400 
38389300 
OPENOUTpUT == ABEL e= DECLARED AT 18203000 == oCCURS AT 18323000 
18211000 18331000 
OPENPROTECT "" LAREL "= DECLARED AT 18210300 "= OCCURS AT 18349100 
18220000 
OPENS ©" LAREL °°" DFCLARFD AT 20597750 = OCCURS AT 20606300 
20597900 
OPFNSHARED °° LABEL © necbaREn aT 18203000 = OCCURS aT 18307000 
18211000 16318000 
OPENWRITELOCK = LABEL == DECLARED AT 18203000 == OccuRS AT 18332000 
18241000 148340000 
OPNBIT *= DEFINE = DECLARED AT 004717030 
OPNMESS == DEFINE = DECLARED AT 00407000 
02648600 04681850 07074200 08714340 28032200 38103600 38201600 
OPSETAREAV =" DEFINE = DECLARED AT 00017340 
OPT = STREAM VARIABLE == DECLARED aT 08681200 
08684500 *08687000« 
OPTER "=" REAL @" DECLARED AT 08626000 
#08631000% 08631100 08632000 06660000 08674000 
OPTFR =" STREAM vARIARgbLr “= DECLARED AT 08632000 
08642000 
OPTER we REAL =" DECLAREN AT 08680000 
08684200 *08690000" 08690090 08690;00 08690400 08696000 


38232000 


OPTER == STREAM VARIABLE = DECLARED AT 08681200 
08683000 
OPTER =" STREAM VARITARLE = DECLARED AT 08690100 
08690180 
OPTION ™" REAL =™ DECLARED AT 00297000 
00656600 02257000 02287245 02668600 04105500 
04663100 04681850 0635355; 06353580 406353590» 
08044500 08258800 *08671000« 08684200 08744340 
14430400 44584500 47944400 48439425 148540420 
20105900 20418370 2704527200 20152300 20474400 
20577475 20577775 20527925 20578550 20585375 
22158000 22206000 22209400 28032200 28764600 
38403600 38403700 38201600 36204700 38232000 
38609100 38610250 38737000 38744000 38742400 
apa 44280100 45135100 45135160 
OPrrONAL == TEGFR =" orcbaRen at 38005000 
DABonsS0G Le SoRaGOOes ssOnc ane sBb secon: 36074000 


OPTIONAL == YNTEGER eo 
38413500 
OPTIONAL, == INTEGER me 
OPTIONAL = INTEGER a= 
*3909;000% 
OPTIONS == LABEL “= DECLARED AT 98100350 =m 
08103200 08114950 
OPTIONSZ «= DEFINE =» DECLARED AT 00438000 
08631000 08631100 08690000 08690020 
OPTN @= REAL =" VALUE PARAMETER = 
18155000 48156000 
18292100 18293000 18306000 «18402000» 
18432150 18432200 16444500 16460500 
OPTN == Real =" pDrcbLaRen aT 20514150 
#20544306*% 20541312 270511320 270544340 
20541515 20544520 20511525 20544550 
OPTN f= REAL =" DECLARED AT 20566100 
#20566817% 20574400 70574875 «20576975 
OPTN *= REAL == DECLARED AT 20581000 
20581250 
OPTN = REAL == DECLARED AT 20584000 
¥20585700» 20585705 20585710 *20585725% 
OPTN "= REAL =" DECLARED AT 20586800 
*20588200« 
OPTN "© Real =" DECLARED AT 20589800 
OPTN = Real == PECLAREN aT 20591000 
*20592250« 20592750 *20593000*% 20593060 
OPTN = Real =" DECLARFN AT 20595000 


DECLARED AT 38102500 


NECLARED AT 36200500 
DECLARED AT 39003000 


OPTN =e REAL == NMEC].ARFD AT 20596800 
OPTN = REAL == DEC) ARED AT 20600040 
20604050 270604550 70664700 


OPTN © REAL @#* DEC|ARED AT 20701500 


OPTNN #" REAL & 


DECLARED AT 20566100 


OPTNN #7" REAL °'* DECLARED AT 20581000 

OPTNN *" REAL "=" DECLAREN AT 20584000 

OPTNN ©" REAL & DECLARED AT 20586800 

OPTNN #" REAL = DECLARED AT 20589800 

OPTNN #" REAL ==" peclLARED AT 20591000 
20594650 

OPTNN s= REAL © DECLARED AT 20595000 


OCCURS 


18492000 


20541363 
20511580 


20577000 


20585750 


20593200 


20604750 «20605320 


04105510 
06360545 
12528000 
19685456 
20541420 
20587550 
28270820 
38256500 
39092070 


38090000 


AT 08103900 


DECLARED AT 18156000 
18272200 *18272300% 18273020 «£18273030«% 18273060 


18429000 


20544364 


04129590 
06463260 
42707750 
20030760 
20541720 
20588900 
309 30000 
38288 ;00 
39092150 


38095000 


18431100 


20541365 *20544370 


*04413400* 


07074200 
12753000 
20034000 
20575050 
20594350 
36006500 
38289400 
441914200 


18274000 
18431300 


20511610 *20511666* 20511720 


20577050 «20577100*% 20579900 


20585800 


20605480 


20585850 


04588010 
07253100 
12843600 
20043000 
20575400 
20602515 
37046735 
38590200 
44191300 


168288000 
18431700 


20511420 


20580000 


04654200 
07351000 
12878000 
204100700 
20575200 
20767000 
37225800 
38592100 


44333090 4644462200« 


18289000 
18432000 


20544455 


04655000 
07419200 
12890100 
20400900 
20575600 
22111500 
38078000 
36594 100 


18290000 
18432100 


20541470 


DECLARED AT 20596800 
DECLARFD AT 20600010 


OPTNN «= REAL @= 
OPTNN == REAL #= 


*20693900 ##206060504420606100 20606350 %%20606600% 20606610 *20606800%%*20609500" 


OPTNN *™ REAL ©* DECLARED AT 20701500 
OPTNO =" Lageb =" DOrcbaRED aT 20591500 "= OccURS AT 20591700 
20591600 
OPTNi =" LABFL ©" nrclLARFD AT 20591500 == OccuRS AT 20592400 
20591600 
OPTN2 #2 LABFL |= DFCLARED AT 20591500 = OCCURS AT 20592900 
20591606 20599500 
OREEL == REAL © DECLAREN AT 28002600 
*#280724004%*28083000% 
OREEL == STREAM VARIABLE =" DECLARED AT 28083200 
28083400 
OREEL = REAL '= DECLARED AT 28203000 
OT "= LABEL ==" NFCLARFD AT 16357000 "= OCCURS AT 16581000 
16366000 
OTHERCLOSE =" PROCEDURE °" DFCLARED AT 38648000 
41055000 
OTHEREILEOQPENIN == PROCFHURF 7" NECLARFH aT 38102000 
39095000 39155000 392736100 
OTHERFILEOPENOUT = PROCFOURE == DECLARED AT 38200000 
39095000 39155000 
OU = REA|, == DECLARED AT 07006090 
4070900008 07094400 £07098000% 07104000 074130000 07418510 
07227000 07231000 07234000 07237000 
OU "= LABEL ™=" DECLARED AT 16054000 "= OCCURS aT 16087000 
16062000 
Ou “= REAL *°" DECLARED AT 28002400 
28011820 28011840 28011850 28012010 28012020 28012030 
28046000 28047000 £28068400%%28074200% 28071800 «28073000% 
28082400 28082800 «28084000% 26084200 28084250 28087200 
OU se REAL "=" DFCLAREN AT 28202800 
28903000 282327900 978232600 28244400 ¥28246200% 98255600 
28266200 28304590 28304600 28306500 278306600 
OUC »* REAL #= DECLARED AT 28003000 
OUC = REAL == DECLARFD AT 28203400 
*28240400K4e982744400" 
OUKID ee" LABEL ©= DECLARED AT 379004000 == OCCURS AT 37046860 
37047670 
OUT =" LapeL =" DECLARED AT 06070000 =" OCCURS AT 06114800 
06075400 06075500 060976500 06081900 06082500 06083000 
OUTAPFPARITY “" DEFINE =" DECLARED AT 28009400 
28092000 
OUTAPFPARITy = DEFINE ==" DECLARED AT 26240000 
282942800 28759600 28760000 
OUTBUFF == REAL = DECLARED AT 07006010 
*#07095000%#07107000« 07139542 07139575 07140000 07154000 
07176000 
OUTBUFFOLD =" REAL = PECLARED AT 07006030 
#07095000*% 07107000 07166000 07173000 07239000 


OUTIT ** LABEL =" DFCLARED aT 17902500 "= OCCURS AT 17919100 
17906300 

OUTPUTLABEL 7" PROCEDURE =" DECLARED AT 08439000 
16526000 . 

OUTR ©= LABEL == DECLARED AT 20566610 == OCCURS AT 20576600 
20574875 


074122000 


28012040 
28074000 
280914800 


28956400 


06083300 


07152000 


07125500 


26012060 
28074050 
28095000 


28256800 


06114600 


07128000 


28041000 
28074600 
28095400 


28258400 


07223000 


28041400 
28082000 
28096400 


28264200 


07224000 


28044800 
28082200 
28096600 


282763400 


*07166000*% 07167000 ¥*071690008807173000" 


PaACKETERR =" NFFI 


OUTSW we SWITCH LABEL == DECLARED AT 39050000 
39094500 
OVSEARCH == LABEL =" DFCLARED AT 24032800 =* OCCURS AT 24036600 
24937700 24038600 
OWNBIT 7" FIELD "" NECLARED AT 00061045 
31010000 
OWT ©" LarnFL ©" DECLARFEN AT 02169000 =" O¢cURS aT 02276750 
02276150 02276270 
Ow? == STREAM LapelL «= peclaRen aT 04679250 == OccURS AT 04679350 
OWT we STREAM LABEL «= DECLARED AT 04680600 == OCCURS AT 04680700 
OWT we LABEL e= DEC ARFD AT 37004000 = OCCURS AT 37035000 
370221900 37029000 37032000 
OWT «* STREAM LABEL «= DECLARED AT 37394280 "= OCCURS AT 37394560 
OXIT == STREAM LABEL ©= DECLARED AT 08335400 “= OCCURS AT 08339000 
Po o7™ REAL *" VALUF pPARAMFTER =@* GECLARED aT 02393500 


02393400 

PA == LABEL =" DECLAREN AT 18701010 "= OCCURS AT 18710240 
18701200 i 

PacK == LaRBEl ©" NEeLARFD AT 20597880 == OCCURS AT 20609420 
20597900 


PACKET “= DEFINE "=" NFCLAREN AT 20219310 
20600130 270603565 270608076 
PACKETACT «== DEFINE == DECLARED AT 02443089 
02347250 07347080 07372370 07478;00 148740946 49774750 270608850 90609570 
PACKETCARD =" REAL SURROUTINE = DECLARED AT 07029000 
07940000 07118500 07123500 07139510 07222100 
NF =" DECLARED aT 02113090 
02347260 02347340 348710258 18710260 18710274 20608116 20608140 20608790 
PacKETFREF &* npeEFING == necblaRen at 92133130 
02173085 02173090 02173375 
PACKETMASK == OEFFINE == NECLARFD AT 92733740 
02173085 
PACKETPAGE == DEFINE == DECLARED AT 024143086 
02173075 99173087 02173265 02173360 02173364 07417700 38608910 39097465 
PACKETPRD == DEFINE = DECLARED AT 02113088 
07417100 37046400 37946430 
PACKETREC =" DEFINE =" DECLARED AT 02113087 
02173095 02173366 02173370 
PACK2 =" LABEL =" OFCLARED aT 20597880 = OCCURS AT 20608610 
20599100 20608142 20608760 20609450 
PannR ©" YNTFGFR @" NECLARED aT 19696000 
*#19720000%%19741000% 19754000 
PAnNDR =" REAL = pEeLARED AT 20566100 
PADDR m= REAL = DECLARED AT 20581000 
20584550 70581800 *70583250* 20583350 
PADDR = REAL == DECLARED AT 20584000 
PADOR = REAL == DECLARED AT 20586800 
*20587150* 
PADOR == REAL = DECLARED AT 20589800 
PADDR = REAL "= DECLARED AT 20591000 
PADDR *" REAL ** DECLARED AT 20595000 
PADDR =" REAL "= DECLARED AT 20596800 
PADDR *" REAL. * = DECLARED AT 20600010 
20604850 
PADOR =" REAL "* DFCLARED AT 20701500 
PAGEANDR = INTEGER == necbaRen AT 20289040 
299289135 *20289750« 20289955 20289325 20289365 270289510 20989580 


20609670 


38806200 


PAGEFULL = DEFI 
02173230 
PAGEJECT == SUBR 
PAGESIZF == EFI 
02173230 
PAP ©" RFAL ARRA 
PaP =" RFAL ARRA 
28425000 
4 28472600« 
PAPER w= LABFL 
04358600 
PAPER «= DEFINE 
PAPER == | ABEL 
22066000 


NE os= NECLARED AT 02113092 


OUTING == NECLARED AT 42597000 
NE == NECLARED AT 02113094 
20289120 20289125 20289150 
Y == MFCLARED aT 28004600 
Y "* OFCLAREN aT 28401800 


284252700 28447800 28448000 28448400 «28448800 %% 28449000 4428449200 Kn 28468600 278468800 


28473900 *278477200« 28477400 28477800 
“= PFCLARED AT 04358000 #8 OCCYRS AT 04408400 


== DECLARED AT 90248000 
“= DECLARED AT 92064500 == OCCURS AT 92199000 


PAPERPUNCH = LABEL «== DECLARED AT 04358000 = OCCURS AT 04406800 


04358600 
PAPERPUNCH **" LA 
22066000 
PaRaMeTFR @" RFA 
02012000 
PARERR =" LABEL 
12844000 
PARERR == DEFINE 
13953000 
PARERR #= LABEL 
PARITY == REAL 


x02434176x 
PARITY ** REAL 
*04300000% 

PARITY o= Lapel 
14631000 

PARM om NAME == 
«196970008 

PASS = LABEL = 
20146900 

PASSING =" DEFIN 
20029300 


PASSING ** DEFIN 
PASSING = DFFIN 
20189300 
PASSLEVFL =" REA 
20014500 
PASSLFVFL ** REA 
20083700 
PASSLFVFL =" RFA 
20144300 
PASSTWO == REAL 
06089700 
PATCHLEVEL = ODE 
155014500 
PATTERN "=" REAL 
04655000 
PATTERNWORH *F R 
PATTERN @= REAL 
PATTERN2 = Real 
PB =e LABFL == 
16365000 


BEL =" DECLARED AT 22064500 ** OCCURS AT 22218000 


L ARRAY ** VALUE PARAMFTER 7" DECLARED aT 02014000 
02013000 02018000 
m= WECLAREN AT 12813000 =" OCRURS AT 12891500 


e= DECLARED AT 13029009 
13063000 
== DECLAREN AT 98211000 
~~ DECLARED AT 97434125 
92434780 
=~ PDFCLARED aT 04258200 
94300500 04302600 
“= nwEecLARED aT 14627200 ©= OceURS AT 14636000 


DECLARED AT 19691000 
19744000 49793000 #€149724000* 49797000 *49728000« 49757000 
= DECLARED AT 20146600 == OCCURS AT 20189400 
20459900 20164000 20364700 20465120 20465300 20168200 
E ** MECLARED at 20019200 


E =" PFCLARED aT 20088100 
—E oss DECLARED AT 20148300 


L '* DECLARED aT 20014400 
20014600 *#20023800%«20036800* 
Lb "=" DECLARED AT 20083600 
20083800 

L =" NECLARED aT 20144000 
20144900 20164700 

"= DECLARED AT 06068900 


06094500 06094000 06110700 06112500 #06112700**06113100*% 


FINE == DECLARED AT 00005030 
20269390 41320000 41322000 41334000 44203000 
“= DECLARED AT 04554700 
04656100 04658500 
EAL =" DECLARED AT 04554700 
we DECLARED AT 04554700 
v= DECLARED AT 04554700 
DECLARED AT 16356000 = QCCURS AT 16528000 


197610090 


20176426 


19762000 *419797000% 


28469200 


PBCOUNT w= REAL ©" DF 
#07417300% 0826700 
40320200 
PBCOUNT *" STREAM VARTARLE "* OECLARED aT 40320200 
40320300 
Pan e™ Real e* pecbhaRen aT 98255500 
08256450 +08256500« 98259225 08268500 
Pen =" Lange == prclLaRen aT 38548000 == OccURS at 38644000 
38608200 38640;00 
PBD =" LABEL «= DECLARED AT 41004000 
PBDBUF == DEFINE == DFCLARED AT 086101130 
084912175 
PBDRECS e# DEFINE == DECLARED AT 08699300 
08715000 08718000 
PBDREL &" OEFFINE ** DECLARED AT 00416550 
08714340 38232000 38610250 
PBOROWSZ "" QEFINE "= NECLARED AT 08699100 
08714110 08714130 08716010 08716200 37046620 38598100 38599000 
PentO, "" Reab =" nrcblaRep at 06100200 
¥08405250« 08407;00 08144850 
PBOTOTRECS = DEFINE == DECLARED AT 08699450 
08708000 08709400 08744600 
PBDTU == DEFINE |=" DECLARED AT 08101120 
08112175 
PBDTUANDBUF = DEFINE = DECLARED AT 08107110 
08112175 
PBIO "= PROCEDURE ** DECLARED AT 08700000 =" FORWARD aT 02178500 
02275650 08178000 08729000 38574000 
Part 7" FtELN °°" DEeLARED at 00062060 
02216510 14218040 14358320 14358392 16854100 48580100 149704100 19764000 19788000 
22356450 22365750 31907000 34947300 42478200 429485000 48032200 48032400 
PBREC »= REAL == DECLAREN AT 074081400 
*07447500%407447900e 07418000 07448400 07418200 07448300 07438500 07418850 074;8900 
PBS e= LABEL 2" DECLARED AT 38201300 == OCCURS AT 38245500 
38257000 
PBS = LABEL == DECLARED AT 39006400 
PBT = DEFINE “= DECLARED AT 04670900 
04674100 04674900 04674225 04675300 04679050 04679550 04680350 04680850 
PBT =" ReaAL ©" DECLAREN AT 08255500 
*#08256500% 0825930 08259840 08259850 
PcOPyY ©" Real °°" peelaREnN aT 12507500 
*126802504#12722000% 
PcOPy = REAL = DFCLARED AT 12807500 
PCOPY e* REAL == DECLARED AT 13011000 
PCPY e« STREAM VARTABLE == DECLARED AT 08985000 
*08991325* 
PD s= DEFINE = DEC)ARED AT 08300550 
08104550 08106020 
PD = LABEL == DECLARED AT 16699500 = gCCURS AT 16746000 
16708000 16742500 16743500 16744500 
PpeX "= Reab "" DECLARFN aT 20566100 
Porx oe" Rrab °* DECLARED aT 20581000 
20581700 20581750 *20582600*% 20583150 20583250 270583450 20583500 
PorX == RralL == DECLARED AT 20584000 
PDEX = REAL -= DECLARFD AT 20586800 
#20587150* 
PDEX =e REAL -e= DEC) ARED AT 20589800 


CLARED AT 02052200 
0 «089 


69900 #408 297600 414599900 ee 18449000 «%20578575 «38609000 #440309100% 40309200 


20195600 


07449400 


403290100 


20196600 


PDEX == REAL =" DECLARED AT 20591000 
PDFX =" REAL =" DECLARED AT 20595000 
PDEX "= REAL |" DECLARED AT 20596800 
PDEX "= REAL =" DECLARED AT 20600010 
20604850 
POFX "= REAL =" DECLAREN aT 20701500 
Pe w= LaRBeL == HDFCLAREM AT 18701019 c= OCCURS AT 18710250 
186701200 
PEON we RrAL ARRAY "= NECLARED aT 20566100 
PEON ee REAL ARRAY #0 DECLARED AT 20581000 
*20581650*#20584700«490561750*% 2058;,800 
PEQN == REAL ARRAY == MECLARED AT 20584000 
PEQN == REAL ARRAY = PECLARED aT 20586800 
20588400 29588700 20588704 270588702 270588749 270588746 
PFQ@N "" REAL ARRAY “" NMFCLARED aT 20589800 
PEQN "" PRrAL ARRAY "= NECLARFED aT 20591000 
PFQN "=" Real ARRAY "=" PECLARFD aT 20595000 
PrON = Real ARRAY c= NAFCLARED AT 20596800 
PEQN = Real ARRAY "= NFCLARED AT 20600010 
*20601900% 20604850 
PEQN =.= REAL ARRAY ee DECLARED AT 20704500 
PERIO »= PEFINE © DECLARED AT 20215000 
20372000 70374320 20448000 20449000 20461000 20461400 
20477000 70495000 20496009 20507000 20508000 20570270 
20581250 20585750 20585350 20585700 20585725 20585750 
PeERPEFR ** LarrhL =" neclaRen at 20320000 =" OcruRS AT 20372000 
20376000 


20588747 


20461500 
20579370 
20590730 


20589950 


20461950 
20570470 
20604050 


PETUSFROISK = REAL PROCFNDURF == DECLARED AT 05839400 = FORWARD AT 00346700 


#0584 3600%*058455004 05954800 06420000 07045000 08569700 
19736000 20459400 270289450 28290600 28436000 37293270 
45092130 

PEUIO =" REAL ARRAY =" DECLARED AT 90166000 
#04194600% 05842900 22014500 *22011600%¥44085 400 4e442409008 
PF = STREAM VARTARLE = DFCLAREN AT 38422000 
38493000 
PFACT «= REAL e= VA,UE PARAMETER == DECLARED AT 37342000 
37237000 37339000 37344000 *37345000* 
PFIRSTFID =" REAL =" DECLARED aT 12507500 
12590000 *12680500« 12723000 
PFIRSTFID = RFAL °" DFCLARFD at 12807500 
PFIRSTFID "7 REAL &* NFCLARED aT 13011000 
PG w= LARBFL == NECLARFM AT 16700000 == gccURS AT 16751000 
16704000 
PGA =" LABEL =" DECLARFD AT 16699000 = OCCURS AT 16756000 
167714000 
PHYL == NAME © ODEC)ARED AT 14624300 
*14712400% 14712810 


PICKTHELOCK == PROCEDURE = DECLARED AT 19900000 =" FORWARD AT 18468100 


19625595 
PINGO =" REAL = DECLARED AT 00301000 
PKT ©" RFaL = '? VALUF PARAMETER ** DECLARED AT 06182100 
06180000 06181000 06328300 
PKTcT =" RFAL ™" DFeLARED AT 07269100 
*07290600*% 07295020 
PKTONLY == DEFINE == neCLARED aT 00416790 
20692515 
PL. = STREAM VARIABLE = DECLARED AT 145501500 


087444309 
41318240 


08746040 
44320500 


90589300 


20467000 
20573470 
20604125 


18425700 
44321200 


20589480 


20471000 
20576700 
20605702 


18425300 
44502400 


20472000 
20580000 
20781000 


19576600 
41604800 


DECLARED AT 20289390 


v= DFCLARED AT 40005050 
40048000 40051000 


40065020 «40068000* 40068100 40070000 


15502500 
PL = STREAM VARIABLE == 
20789440 
PL "=" REAL ARRAY 
#4097295" 40039000 
*40964000% 
40078048 *40078060»" 
PL we STREAM VARYABLE a= 


44204750 
PLACEFINDER == 


REAL PROCEDURE «== 


DECLARED AT 44203000 


DECLARED AT 04700000 


02217100 *04742000*% 04743000 


PLUGGED = REAL 


*07117100%*071235004 07124500 
INTEGER ARRAY =" 


PM ee 


#7 DECLARED AT 07006340 
07139511 +#07140100* 
DECLARED AT 06185105 


400780 30 


40078032 


40055000 *40056000%*40060300*% 40060302 


40078033 


«= FORWARD AT 02187100 


406205030 %%06 205040 4406205050% 06206140 406211100" 06211200 


PN = STREAM vaRTARLF =" 
22192100 

PN se STREAM VARTABLE == 
37946205 

PN ee STREAM VARIABLE w= 


38696300 
PNCH == REAL == 
PNCH = REAL = 


08257500 
PNCH 7" STREAM V 
12658000 
PNCHDS "* LAREL 
12705500 
PNCHLK *" LAREL 
12710250 
PNTOG =" nEFING 
379467 30 
PO =a REAL am 
084690089 
PO == LABEL == 
16704000 
POINTER == REAL 
*08795000% 
POINTFRS == 


07093615 


POOL = Rrra == 
POOL ea Real =e 


#28458800» 
POSSIBLE == LABE 
07499000 
POWIE ©" LABEL 
20547056 
20567 240 
20570140 
20570410 
LABFL <=« 
37008000 
LARFL se 
386462000 
LABEL = 
41906000 
REAL, PROC 
*20480000% 


PP se 
PP om 
PP we 


PPC «@ 


STREAM VARIARLEF ™™ 


NEcCLAREN AT 22191000 


NECLARED AT 37046192 
3704690192 
DECLARED AT 38626000 


VALUE PARAMETER = 
VALUE PARAMETER == 


08259375 08272000 08273250 08276205 
ARTARLE "=" DECLARED AT 12657000 
12662000 


"= WECLARED AT 12513000 =" 
"" MFCLAREN aT 12513000) == 


“= necbaRen aT 37007100 
37046800 37946855 
VALUE PARAMETER == 


DECLARED AT 16700000) == 


== NAME PARAMETER =* 
08706900 08718000 08724000 08726000 
VALUE PaRaMETER 7 
07003840 

DECLARED AT 28003200 

DECLARED AT 28401400 


28462000 78463200 98468600 78472600 
L = ODFCLARED AT 07423000 = OCCURS 
20380500 20570270 20570370 20570470 
“= DFCLARED AT 20566600 «5% OCCURS AT 
20567070 70567075 270567085 20567096 
20567260 20567270 20567274 20549835 
20570150 20570170 20570180 20570200 
20570460 20570480 20570530 20572900 


DECLAREN AT 37007000 == 
DECLARED AT 38661000 =. 
DECLARED AT 41005000 *== 


EDURE «= 
50600390 


DECLARED AT 20383000 
20604850 20605050 


DECLARED AT 07405100 
DECLARED AT 08255000 


OccURS AT 12740000 
OccURS AT 12708250 


DECLARED AT 08679000 
oCCURS AT 16749500 


DECLARED AT 08700000 


08727000 


28477200 


06328100 


DECLARED aT 07003610 


28479800 


AT 07431000 


20572200 
20567110 
20569940 
20570210 
20573440 


occURS aT 37085000 
OCCURS AT 38794000 


OCCURS AT 41054000: 


290567120 
20569950 
20570230 
20573420 


20567458 
20569970 
20570280 
20573440 


40060305 *40060400*% 40062000 


40078038 


20567176 
20570080 
20570300 
20573510 


40078040 


29567225 
20570090 
20570360 
20573520 


40078049 


20567230 
20570120 
20579380 
20576800 


PPC = STREAM VARIABLE ©" DECLARED AT 20600390 
20600420 
PPCPROCESS *™ REAL = MECLARED AT 20566100 
PPCPROCFSS *™ REAL “= NMECLARED AT 20581000 
¥20581150« 
PPePROCESS *™ REAL "= AECLARED aT 20584000 
PPePROcrSS =" REAL o= HECLARED pT 20586800 
PPCPROCESS = REAL == NECLARED aT 20589800 
PPCPROCFSS == RFAL == PECLARED AT 20591000 
PPCPROCESS == REAL w= DECLARED aT 20595000 
PPCPROCFSS -2 REAL <= DECLARED AT 20596800 
PPCPROCFSS == REAL = DECLARED AT 20600010 
20600390 *20602R55«%%20604115%*#20604150% 20606860 270608076 
PPrPROCFSS "" REAL = NPECLARED AT 20701500 
PR *= LanrlL == pecbaRFn AT 16055000 *= gccURS aT 16249000 


16064000 

PR == bLanrh = peckhaRrn at 18701000 = occuURS AT 18710900 
48701200 

PR «= LABEL == DECLARED AT 38661000 == oCCURS AT 38798000 
386462000 

PR ee LABEL "= DECLARED AT 41005000 == gCCURS AT 41054000 
41006000 

PRE =" LABEL ©" DECLARED AT 28210800 "== OCCURS AT 28219200 
28213800 

PREFINAL =" LABEL =" DFCLAREND aT 39055000 °°" OCCURS AT 39145000 
39096000 

PRESENT ™" ODFFINE &™ nrcbLaAREN at 14167000 
14238000 


PReVLYNK = Real == OFCLARFD AT 20013000 
20024400 20024500 270022000 20029200 *20094800%4#90037100« 
PREVL INK = REAL |= DOFCLARFD AT 20082200 
20089300 270089400 70089900 20090100 
PREVLINK == REAL == ODFCIARED AT 20142600 
PREVLOC == INTEGER == DECLARED AT 37388100 
37412000 37413000 #3743;4000* 
PRI e= REAL == VALUF PARAMETER == DECLARED AT 01240000 
01240100 
PRIMARYUSER = DEFINE == DECLARED AT 08100850 
08105500 08110050 08112150 
PRINT @" WEFINE ™" pECLAREN AT 20245000 
PRINTRACKUP "=" PROCEDURE  "* DECLARED AT 08282000 
16529000 
PRINTHIGIT =" DEFINE o DECLARED AT 12219500 
12313500 12375000 42336000 423147000 
PRINTDIRECTORY |= PROCENURE e- DECLARED AT 08098600 
08147200 16746500 
PRINTER =" LABEL = DECLARED AT 04357800 == OCCURS AT 04390600 
04358400 04380600 
PRINTER ©" LABEL =" DECLARED AT 22064000 == OCCURS AT 22202000 
22065000 
PRINTFR ™* REAL SUBROUTINE "= DECLARED aT 37009000 
37012000 37013N00 37046060 37046800 
PRINTFREINISH == PROCFDURE 7" NECLARED AT 04035000 
46004000 46005000 
PRINTITAGAIN = LABEL == DECLARED AT 12513000 == OCCURS AT 12713000 
12723500 


PRINTORPUNCHWAIT = REAL PROCEDURF == DECLARED AT 08255000 == FORWARD AT 07405100 


07449300 *08277500% 08295200 08298000 12755500 22207000 38609300 
PRINTTHFCOVER == PROCFDURF 7" PNECLARED AT 20289010 
20289600 20602530 20609435 
PRIOR =" MEFINE =" nECLARED AT 20231000 
20507300 20507400 
PRTFORtNnX =" DFFINE = HFCclaREn AT 12216500 
12250000 12273000 
PRrORINnX =" DEFINE |= NECLAREN AT 12367000 
12422500 742463000 
PRIORITY == INTEGFR == DECLARED AT 07486000 
07488000 *07498000%*07503000* 07503500 07504000 
PRIORITY == STREAM VARIABLE == DECLARED AT 07488000 
07494000 07495000 
PRIORITY == STREAM VARITARLF =" DECLARED AT 07504000 
07506000 
PRIORYTY == REAL @" PAFCLARFH AT 98851000 
08916000 *08926000«e 08936000 08937000 
PRrOR+Ty "= STREAM VARITARLF ©" DECLAREN At 08916000 
08922000 08923000 
PRIVATE = STREAM LABFL *= DECLARED AT 08410700 «= OCCURS AT 08440800 
PRN e# STREAM VARTABLFE == DECLARED AT 04681450 
044681500 
PRNPBT = LABEL, = DECLARED AT 08255700 = OCCURS AT 08276580 
08273750 08276400 
PRNPBTCODE =" DEFINE ™* DECLARED AT 00134020 
02261100 08276700 16178000 20152200 20605460 
PRNPaTSPECASE! =" REAL PROcENURE "" DECLAREN AT 12500000 
13045000 13070000 13095000 13112000 13136000 
PRNPBTSPECASF2 ** PROeFHURE =" neECLAREN at 12800000 
13953000 43063000 143983000 143099000 43415000 
PRNT «= STREAM LABEL = DECLARED AT 12658000 = OCCURS AT 12658500 
PRNTABLE = REAL ARRAY == DECLARED AT 00288000 
01253900 02434910 02434424 07664000 04369200 04674000 *04689200* 04684450 *04682000* 08033990 08051040 
*08951065* 08447400 12527500 15113200 16263350 18556500 19685350 #22117000*#22145000**22145525" 28025600 
28931000 «280740504%78084250% 37027000 37046190 37048300 37122000 37205000 37240500 37243000 37284150 
37314100 4£37319020% 37455000 38104300 438146500% 38202300 «38238000% 38258500 38271500 38276000 438633000« 
38788000 44167000 
“PRNTODS ©= LABEL ==" MECLARED AT 12513000 «= OCCURS AT 42728000 
12705500 
PROB =» |,ABEL == DECLARED AT 04670650 = OCCURS AT 04683350 
04684250 04684450 
PROC == {LABEL = DECLARED AT 04124000 = QCCURS AT 04182000 
04190000 
PROCE == REAL = DECLARFD AT 02057000 
*02101000*e 02104400 027105000 *02107000™ 
PROCE == NMEFINE == DECLARED AT 20229000 
20504000 
PROCED "=" REAL =" DECLARED AT 16911500 
#169276020" 16926022 16926500 16958000 16960500 
PROCESSOPTIONLIST *°7 SURROUTINE =" DECLARED AT 08102900 
08104300 08116650 
PROcSwIT  c? Laprlh =" nrchaRrpD aT 00009000 = OccURS aT 48087000 
48059000 
PROCTyME = REAL ARRAY == DECLARED AT 00161000 
#02008 300 44020270004#09034000* 02368000 «06490000* 06193000 £06193500*% 085334000 *08759000%#08767000" 12419500 
#12640100%84 26420004 12696000 «12697500 %%12847600%"12849500% 12853000 18710900 #201726004420180350«" 22048000 
22023500 *22242100¥*22252000* 44158000 *44193000%#45112000%*48080200* 


PROCVAL "= REAL 7" PECLARED AT 20566100 
—#20580305%*20580310« 20580330 

PROcValL °7 REAL @" HMFCLAREN AT 29581000 

PROcVaL ** Real *" pneclaRED AT 20584000 


20586600 

PROCVAL == RFAL #* NMECLARED AT 20586800 
20589600 

PROCVAL = REAL == NECLARED AT 270589800 
20590750 

PROCVAL == REAL == PEC, ARED AT 20591000 
20594750 

PROCVaAL "=" REAL ©&™ PECLARED AT 20595000 
20596650 ; 

PROCVaL *" RFAL ™* NMFCLARED AT 20596800 
20597459 

PROCVaL "=" RFAL &™ MECLAREN AT 20600010 

— #20602860« 

PROcVaL =" Rrab =" necbaRen at 20701500 

20782000 


PROG se REAL ARRAY == DECLARED AT 270566100 
*20566685% 20566699 20566695 *205668054%20566810%"20566819%"20566817% 20566820 20566830 *90566835* 20566840 
20567058 20567098 20567330 20567335 «20567340% 20567345 20567350 *£20567360%"205692404420569525%420569528% 
* 20569529 u% 20569670 Ke 205697 104% 205697 50 ee 20569780 me 20569800 ee 2056980444 205699 35 eu 205699004 20569965 ae 2056997 Oe 
20569980 «20570040 64%20570050 e# 20570140 4% 20570160 420570200 #% 20570220 420570560 4% 20570570 %%20570577% 20572500 
20572800 *270576930**20576240% 
PROG = REAL ARRAY == NECLARED AT 20581000 
20581350 *270584400*% 20584450 *20584500%420581900% 90582000 70583250 *290583300*% 20583350 
PROG == RFAL ARRAY == PECLARED AT 20584000 
%* 20586000 ##20586050 4420586100 #20586 7450 *#20586 200 #% 20586250 #420586 300 * #90586 350 4420586800 *¥90586450 «4% 20586500 


PROG = RFAL ARRAY = NECLARED AT 20586800 
*20587150* 
PROG we REAL ARRAY == NPECLARED AT 20589800 
PROG = REAL ARRAY == DECLARED AT 20594000 
PROG "ee REAL ARRAY == DECLARED aT 20595000 
PROG = REAL ARRAY w= NMECLARED AT 20596800 
PROG =e REAL ARRAY "= MECLARED AT 20600010 
*204601900% 20604850 
PROG "= REAL ARRAY = NMECLARED aT 20701500 
PROGRAMNESC @" DEFINE ** DECLARED AT 14160000 
14188000 : 
PROGRAMRELE ASE =" PROPENURE ** DECLARED at 04099000 
14048000 48305000 
PROTECT == LABFL *=" DFCLAREN AT 20390000 OCCURS AT 20483100 
20396010 
PROTY = INTEGER == DECLARED AT 17901500 


*17905500*" 179196500 


00128000 
02216200 
07072000 
12545000 
12900000 
14356150 
14360330 
15085000 
18552800 
19685570 


PRT =" REAL ARRAY © DECLARED AT 
00131000 02207000 027208000 
04680100 04712000 06463520 
08709600 42528000 12539500 
12861500 42878000 42880500 
14972000 44487000 44356000 
14358597 443586145 144360300 

414370160«#14370490" 14644000 
16854700 18504900 18523800 
18860100 19525000 19525100 
19900760 19900780 «19900800% 19902000 


02222000 
07072100 


12901000 
14358900 
14361200 
15422000 
18702200 
19900310 
19902150 


02261200 *02328100*% 02328200 
#07072200% 07073500 07089000 


*12626250%412637500% 12649000 12672000" 12675750 


04103100 04104000 04105200 
07104500 08173200 08174000 
12705250 12719500 


13198000 144014100 144015000 «14035000 «14045000 0414060000 


14358320 44358399 44358394 
14370030 #443700404%14370060% 
*15424000«% 15426000 #164399000« 
18720300 18740400 18770100 
19900320 «19900330*" 19900370 
19902190 419902350 ««19903400« 


14358397 44358580 44359595 
14370100 #*44370415*" 14379440 
16851100 46851200 46853500 
16810200 18840200 «18860000 
19900395 19900745 19900755 
19903200 19903900 19903910 


#19904400% 20092300 


PRT == 
PRT «a 
PRT ae 
PRTADDR 


PRTD == 


PRTGAMES 


22300000 
22490000 
28248800 
31905300 
38710000 
42547300 
44456000 
48097200 

INTEGER 
08737000 
08791000 


22301000 
22421000 
286249600 


*34005400x 


38806000 
42524200 
48079000 
48100000 


20092600 
22356150 
22422000 
28250400 
37242100 
39083000 
429525000 
48024000 
48110000 


20099700 
22357000 
22423100 
28293800 
37273000 
39297010 
42525500 
48032200 


== NMFCLARFD AT 08733000 


STREAM VARIABLE 


08743000 


STREAM VARTABLE 


oe REAL, 


069A7000 
06114600 


06090400 
06115700 


RFAL ARRAY = 
*31906100% 37007000 


31021000 *31022000% 
em REAL PROCEDURE 


#15439000« 16588000 


*08756000« 08758000 


08759000 


NECLARFD AT 08737000 


NECLARFD AT 08791000 
m= MECLAREN AT 06069400 


06090700 


31008000 


06990800 


DECLARED AT 31903000 


31913190 


m= DECLARED AT 15400000 


DECLARED aT 00026000 


#00031000% 00032000 *00034000*% 00036000 


m= nrclaRen at 04259600 


MECLARED AT 14163000 


#14783000% 44484000 #441487000* 44190000 
14226000 *414247000% 14248000 
m= PMFCLARED AT 19694000 


PRTLOC "= INTEGER °° 
00051000 00055000 
PRrMaxy e= Real 
PRTR = ReAL ARRAY == 
14218065 144224000 
PRTRLOC == REAL 
*#197490000" 49753000 
PRTROW *" REAL ARRAY == 
02184000 
06360515 06360540 
12473120 «42473;40% 
12900000 429013000 
14431502 014431506» 
16853100 «17906400. 
16580410 487305700 
28036200 28044600 
28095600 78096800 
28260800 98270820 
28472800 2184769700 
36008000 37046800 
38573000 39009050 
PRTS "* Real 
*19720000*% 19721000 
PRTSZ «=» REAL @@ 
19742000" 49754000 
PRTIVALUE = REAL 
06115700 
PRYOR sme REAL ARRAY om 
00039055 00050000 
02258000 07275700 
04655700 04671400 
06098600 06099100 


DECLARED AT 001431000 
#02186000%«02186050«202205000« 


06360550 
12545000 
13107000 
14582000 
17906250 
19799070 
28043000 
28097200 
28270854 
28848000 
37046840 
42526000 


*06 360560» 


12649000 
13108000 
14583000 
17915000 
19900670 
28043200 
28246800 
28285400 
28849000 
37047250 


*45153000% 


DECLAREN AT 19694000 


19740000 


19747000 


DECLARED AT 19694000 


m= DECLARED AT 06069400 


04260455 
02434480 


. 04671550 


06103500 


DECLARED AT 00021600 
014264470 *02006000* 


04045300 
04672100 
06103700 


*#20092800%420093400% 20093700 
22363000 227365150 22366000 
28014600 28050200 28051000 
28305400 284344800 28451600 

*37280000% 38045950 38445000 
41940000 44334500 42485000 
42532000 429547100 *49547200 
48032400 48039700 48032800 

*48144300%448 141400 44481415008%484416008 
08760000 08766000 08767000 
06091700 06099000 06096700 
310744000 «340450008 31017100 
00037000 00038000 00039045 
141492000 44197000 442;0000 

14249000 44252000 
02275550 042529100 04626000 
06463300 06463340 07028000 
12699500 42705250 427430000 
14193000 1444393100 144193200 
15143300 4451444600" 145444700 
17975500 48029000 48034000 
19903820 19903850 49903860 
28046400 78046600 78061800 
28995200 98230400 276730600 
28293800 378295800 98303900 
28852300 28852200 28863000 
37048300 37121000 37472000 
48097000 48030000 48031000 

02007300 07407000 
04249000 04377400 04378000 
05703500 05842300 05849300 
06203700 06215000 06257000 


22260000 222865000 272286020 22286030 
22374000 22376000 22377000 22410000 
28051200 428051400% 28074400 28073200 
30908000 30910000 31005010 31005200 
38233000 38236000 38442200 «38495000» 
429486000 42488100 *427506000« 42547020 
49550600 42551090 *4295571100%0482551200" 
48032930 48032940 «48032950% 48043000 
48145000 
08768000 08774000 «08786000 «%08788000« 
06197600 06108000 06109000 0611600 
34917300 31047400 34019000 34020000 
00042000 00046000 00047000 00050000 
*14246000* 44247000 44218040 44218045 
14258000 *14260000% 14266000 
04678350 *06204000*«06206000% 06354200 
070281400 12451000 *12452000« 12458500 
127105800 12861500 142878000 42880500 
14203100 14243000 44292150 44358325 
15115000 45145400 45422000 «46464000» 
18503300 48540200 148540300 «18570900» 
*20122100*% 22042000 922303200 28022200 
28085800 28086700 78089600 978089800 
28232800 28242000 782749200 278258700 
28303400 28303600 78307730 28467400 
28882000 28885500 3140061400 36007000 
37181000 38044700 38106000 38204000 
48031100- 48032920 
02173085 02176000 021496000 *02205400« 
04557200 04558000 04567000 04568366 
05960700 06022600 06066000 06090700 
06360540 06361705 06415000 06463300 


PRyR em 


PS =e 


06464900 
07301,000 
08268000 
08866000 
09637000 
44493700 
14358450 
14541130 
18029000 
48780100 
19900400 
20154000 
2490454090 
37046800 
38555000 
44157100 
Re AL 
00050000 


07001640 07059200 
07374300 07392000 
08378000 08386000 
08880000 08945000 
09680000 12386000 
14198900 14205000 
14358588 14360400 
14560000 14582000 
18032000 189032040 
18840900 48841400 
19900670 19902130 
*201794004%20198500» 
28080400 278085800 
37189500 37227000 
38574000 38668000 
*44187200% 45135230 


STREAM LABEL om 


VALUE PARAMETER 


PS em LABEL == 
08883000 

PS == REAL, == 
20289010 

PS © STREAM VARIABLE <= 
20289185 

PSn =" Reab =" pecbaRen 


#02473087«" 02473210 


PSEUDO = REAL ARRAY == DECLARED AT 02113080 
02173075 02473085 032473087 «02473090% 02473095 #02473265« 02473360 402473364 %40917 3366 «402173370 4402173375« 
#92347250«"#02347760% 02347280 02347340 07372320 07447300 074347700 «07449700 07478300 18710206 187109258 
418740260" 48740974 %197747504%%20289540% 20602520 %90608 1 16%4*90608440%%20608790% 70608850 20609430 20609570 
4206096708 37046400 «37046430% 38608910 %38806200% 39092165 443164600 
PSFUDOCOPY =" INTFGER =" DECLARED AT 02347110 
02347437" 07427600 97427630 07449500 me 184 38 195 %% 206105504" 2221 2450%4 387320008444 186005« 
PSFUDOMaAX "=" HEFINE =" prcbaREn aT 00007050 
07372090 07428000 07462400 44201110 
PSFUDOMAXT ©* nfrINE == DECLARED AT 00007060 
06463380 07477000 08483000 08487400 08495000 08548000 08555000 08562000 08564000 746087000 46085000 
44151094 44474000 44194000 
PSEUDOMAX! == DEFINE = DECLARED AT 90007055 
07462200 44151092 44181620 44164500 44178100 
PSEUDOM?1X == REAL ARRAY == DECLARED AT 02713085 
02133350 04352200 04376600 04383400 04386800 04393000 04404800 04416000 04567600 04567830 04568590 
04648000 04672700 04673150 04674859 04675250 04683800 04686350 04687050 06205010 *06205020* 07511000 
08544700 08784000 08798500 12473280 14431600 44543090 14541110 14541320 15114300 15115900 45437100 
16713500 46956020 16956090 18522500 18523300 18710244 48710254 48710272 19768764 49774100 420170800« 
*20176120% 20566785 20585610 20602470 20602480 20605510 20608314 20609660 28439400 28440600 32001500 
37046370 37487950 38045150 38608900 39092165 474333090 44460400 
PSF e= DEFINE == DECLARED AT 029310050 
02486050 02205000 06704000 97028000 42452000 49473420 12473440 43407000 44434502 44434506 45434600 
15474700 16164000 147906100 48570900 22047000 97303200 28043200 28046600 28089800 98730600 978260800 
28270822 28303400 28885500 45153000 48077000 48031000 
PSOURCE *= DEFINE == DECLARED aT 20600000 
20602530 70609435 70609436 
PSH ee" REAL =" DECLAREN AT 02133150 
02173095 02173210 02173220 02173280 024173350 02173362 024173370 


PS{ == 


LAREL 


VALUE PARAMETER 


07059500 
07444000 
084243000 
08933000 
12399000 
14206400 
14361000 
14588100 
18033000 
18844000 
19902850 
20407000 
968096800 
37244400 
40344000 
48015400 


DECLARED AT 043629200 
DECLARED AT 08856000 


071439500 
07456000 
08569300 
08935000 
12445000 
14237000 
14378,00 
15114700 
18273000 
19303000 
19903650 
20582440 
28242000 
37304000 
40337220 
48042000 


07146000 
07497630 
08571000 
08940000 
12422500 
44279550 
14383000 
17001400 
18425400 
19685360 
19903907 
20588600 
28293800 
37324000 
44314100 


*#48079100% 
DECLARED AT 00021000 


07449000 07474000 
07503000 «07503000« 
08580000 08697000 
08943000 08946000 
12530500 42730000 
14292110 142929450 
14384000 44390000 
17905500 «17906000*« 
18523400 1485409200 
19685460 49743000 
20034900 20039900 
20601640 29009000 
28440800 978848000 
37394450 38099000 
41317300 44320310 


== OCCURS AT 04362600 


e= OCCURS AT 08946000 


DECLARED AT 20289020 
20289020 «20289152« 20289153 


20289154 


DECLARED aT 20289160 


AT 02133150 


02173286 


02173350 


DECLARED AT 08856000 = 


02173364 


20289155 


OccURS AT 08927000 


20289160 


07177000 
07562000 
08670000 
09617000 
12861500 
14351320 
14393000 
17906250 
18559500 
19768050 
20091900 
22049000 
28852100 
38250500 
41328200 


07232000 07272500 
08046000 08088000 
08689200 08830000 
09630000 09635000 
13054000 4443864320 
*143514500% 14358386 
14398800 44399400 
17915000 «17919500« 
18580440 48730300 
19768800 49799070 
20119600 20150800 
22905000 24043000 
32000800 36007000 
38285500 38372000 
42476000 425013650 


ps2. 3° 


089278000 
LaRFL ©" DECLARED AT 08856000 == OccURS AT 08936000 


08932000 


PryME ==" REAL == OFCLARFD AT 12357500 
*124,9500e%1 2490000 124291000 42423500 


PTN or 

* 
PTN o* 
PTN we 
PTPUNCH 


PTR = 


REAL == DECLAREN AT 01250300 
01253900% 01254000 *01260425**01260460* 01260465 *01261150**012961180*% 07261200 
STREAM VARIABLE = DECLARED AT 04254000 
01254100 
REAL = VALUF PARAMETER == DECLARED AT 37342000 
37337000 37339000 
"= REAL SUBROUTINE ** DECLARED aT 37014000 
37017000 37018000 37085000 
ReaL =" peCcLAREND AT 04554600 
04555150 £94555500 4404555600 «#045556504n04570400% 04651050 04651200 «04654900% 04655800 04657400 04658400 
04659400 04662700 «04662800*% 


PTYPE = RFAL == DEFeLARED AT 07006180 


* 
PU =e 
PU 


PUBLIC 
PUD = 


Pup == 


070391 00%%07039700%%07099440* 07039500 *07039600% 07040000 07115100 07118550 07120010 *07126000##071265008 
07127000 07129400 07429200 07139540 07439520 #071469400%*07469440% 07469500 
STREAM VARIABLE == DECLARED AT 02644000 

02653000 
LABEL == DECLARED AT 06351500 "= OCCURS AT 06380750 

06381000 
== STREAM LABEL =" DECLARED AT 08110650 "= OCCURS AT 08111100 

REAL =" DECLAREN AT 08255500 

08256450 *08256500« 08259225 08268500 

LAREL == DECLARFN AT 38548000 *= OccURS AT 38644500 

38608200 38610100 


PUNCH e#* LABEL == DECLARED AT 04357800 == OCCURS AT 04403800 


PUNCH ao 
PUNCH e« 


PUNCH = 
PUNCHLCK 
PUNT o* 


PUNTER 
PUNTSIZE 
PURGE « 


04358400 04380800 
» DEFINE == DECLARED AT 20744000 
= LABEL e= ODFCLARED AT 22064000 == oCCURS AT 22213500 
22965000 
=" REAL SUBROUTINE "2 DECLARED AT 37019100 
37019300 37019400 370946075 37046800 
"" OEFINE "= MECLARED aT 00416770 
12707750 12878000 38737000 
PROcENURE =" nrebLaRFn aT 00650000 
02005000 02017000 02181000 02215500 04004470 04252000 06009300 06037300 06380350 144603750 46852900 
18043000 24007,;00 24042675 40278150 48440000 
ee REAL ARRAY #2 DECLARED AT 00643000 
006519000 00652000 00656600 00657000 16852900 44179100 44481000 
m= DEFINE = MECLARED AT 00643100 
44151080 44179700 
= REAL ** VALUE PARAMETER = DECLARED AT 02381000 
02380000 02381000 02387000 


PURGE =" REAL "" VALUE PARAMETER "™" DECLARED aT 02637000 


02635000 02636000 02641000 


PURGE "=" nEFINE =" nreLAREN AT 38385000 


38510000 


PURGE ©" NEFINE =" pECLAREN AT 38567000 
PURGE ©" NEFINE =" pECLARED AT 38678000 


38787000 


PURGE w= DEFINE *= NECLAREN AT 41022000 


PURGETT 


41190700 
== PROCEDURE == DECLARED AT 37449000 == FORWARD AT 00397000 
12528500 37466000 38789000 


qd 
PURGELOCK =" LABEL “= NMECLARED aT 146028100 =" OCCURS aT 14671000 | 
14632900 
PUT =" OFFINE == perlLARED AT 00301100 
PUTINFILENAMF == SUBROUTINE == DFCLAREN AT 08106200 q 
08106850 08115350 
PX «= LABEL = DECLARED AT 38660000 *= QCCURS AT 38778000 
38796000 38800000 @ 
PX ee LABEL #= DECLARED AT 41004000 
Pi o'= INTEGER *= DECLARED AT 08733000 
*#0B8788000% 08791000 @ 
P1 =» STREAM VARIABLE == DECLARED AT 08791000 
Py = LABEL @" NECLARFN AT 28005800 "= OCCURS aT 28085600 
28010200 28077600 28078200 28078800 
PiMIX -" RealL ©" pFebLaRED AT 00071700 
00039055 00050000 04260455 01264370 02006000 02008100 02008300 *«02026000% 02107000 02333350 02473085 
02174000 02176000 027196000 02202400 02202200 02202500 02203000 07205000 02205100 02206100 02207000 € 
02208000 02216200 02221000 02222000 02258000 02259000 02260000 07261000 02261100 02261200 02275550 
02275700 02318000 02322000 02327000 02328100 02434480 02434490 097434530 02665100 040451400 04045200 
04050000 04061000 04103100 04104000 04305200 04105550 04105600 04305650 04236000 04237000 04249000 @ 
04252000 04252100 04252300 04252500 £04316000%«04317200% 04377400 04378000 04557200 04558000 04567000 
04568366 04655700 04671400 04674550 04672100 404678100 4%04687600% 04710000 04741000 04712000 04722000 
04723000 04726000 04727000 05703500 05842300 05846395 05849300 05853600 05960700 05970500 05975640 e 
06922600 06066000 06090700 06096600 06099100 06403500 06403700 06116000 06146100 06490000 +*06190100« 
06203700 06215000 06257000 06353500 06353590 «%06353660" 06354000 06354200 06355000 06360515 06360546 
06360520 06360540 06360550 06360560 06361705 06415000 06463260 06463280 06463300 06463340 06463380 e 
06463520 06463760 06463992 06464900 06465810 06465820 06465840 07001640 07001840 07078000 07028100 
07059200 07059500 07072000 07072100 07072200 07073500 07074090 07075000 07089000 07104500 07439500 
07146000 07149000 07171000 07177000 07232000 07272500 07296000 07301000 07352000 07371300 07371600 e 
07371950 07392000 07444000 07426000 O7497625 07427630 07455000 07562000 07568000 07572000 08046000 
08088000 08173200 08174000 08259575 08268000 08270650 08378000 08379000 086386000 08388000 08423000 
08533500 08569300 08571000 08574100 08571600 08580000 08602000 08627000 0862800N 08670000 08677000 a 
08689200 08689300 08696100 08709600 08728600 086830000 08836000 08866000 08880000 08935000 08933000 
08935000 08940000 08943000 08946000 08997000 09617000 09624000 09630000 09635000 09637000 09638000 
09647000 09680000 09689100 09662620 12386000 42449600 42528000 49530500 42538500 42539500 42545000 @ 
12610100 «€12610500%4%12611500e 12612000 12626250 12637500 12649000 42672000 12675000 42675750 142688000 
12696000 12696500 12697500 12698500 12699500 12705250 12708250 12709750 12710000 42710500 412817600 
*12848000K%12849000% 42849500 142823000 42879500 42833000 142853000 42853500 142854000 12864500 42863000 e 
12863500 142878000 42880500 12899500 42900000 12904000 143051000 43407000 43108000 44038100 44015000 
14045210 44035000 14045000 140960000 44072000 441386100 144486320 44387000 44193000 14193400 44193200 
141968200 14201000 14203000 44203100 44204100 144205000 44206100 14227400 144233000 14233100 14237000 e 
14243000 44279950 44279550 142921900 14292119 14292150 14351320 144353500 44356000 44358000 44358450 
14358200 14358320 144358325 14358360 14358386 14358392 14358394 14358397 14358450 44358580 44358588 
14358595 143586597 14358645 14360300 14360330 14360400 14360600 14360700 14361000 144363200 44364200 e 
14367100 14370400 44370450 14370180 14370190 44378100 14379000 14383000 44384000 44390000 144393000 
14396000 14398800 14399400 44411000 14441200 144441840 14534500 14541000 14541090 445414110 14541120 
14541130 74559500 44560000 44564000 14569000 144569200 44570000 144584000 14581700 44582000 44583000 @ 
14585000 14586000 14588100 14618000 14644000 14658000 15021000 15085000 15134700 17001400 147904000 
17904500 147905500 47906000 17906100 17906450 17906250 17907000 47934100 417934500 17935000 47935500 
17947500 47939000 47939500 47922000 17922500 47926000 47926500 148023000 148024000 48028000 48029000 @ 
18032006 148032010 18033000 18034000 18256000 146258000 18273000 18428200 18425400 18466000 18503300 
186504000 148540490 48520900 48522300 18522500 148522700 48523300 18523400 18523800 148524900 48526300 
18528100 148528200 18540120 18540340 18540200 148540300 18540500 18552400 48552800 18553500 48559400 ® 
18559500 18570000 18570900 18580410 18702200 18710244 48710254 18710272 18710300 18710400 48740600 
18710900 18711100 18711790 16720300 18730200 18730300 48740400 18740600 18740700 18740800 18770100 
18780100 18790600 18791620 18810200 18822100 18835200 18840200 48840900 18841400 48841500 48843700 ® 
18844000 18844100 46845500 38860000 148860400 149303000 49525000 49525400 195295200 19680400 19685045 
19685380 19685460 49685570 19685580 19685585 19697400 149699000 19743000 19768050 49768200 49768764 e 
€ 


PiMrx 
P4MIX 
PimIX 
PimIx 


PIMIX 
PimIX 


PiMyXx 
PimMyX 
PiMrxX 
PymMyX 
PimMIXx 
PIMIX 
PimIXx 


19768768 
19900395 
19902850 
20150800 
20583650 
22429230 
24043100 
28036200 
28971400 
26225200 
28250400 
286994900 
28435200 
28849000 
349005200 
37946735 
37047250 
37204000 
37241700 
37394700 
384103600 
38250500 
384313000 
38574000 
39298000 
44320355 
42547020 
42550500 
48017000 
48032800 


448071000. 


48141300 
00365000 


#= STREAM 


02244000 


me STREAM 


06359000 


== STREAM 


12798750 


we STREAM 
STREAM 


14204200 


179142500 


e= STREAM 


18598600 
18570600 
18790700 
18791640 


24042725 


tNTeGeR 


STREAM 
*#15030000% 
STREAM 


STREAM 
STREAM 
STREAM 


STREAM 


19768800 
149900400 
19903700 
20150900 
20588600 
22905000 
24043800 
28044600 
28073000 
28230400 
28258700 
28294400 
98439400 
28852400 
31005300 
37046740 
37047670 
37225800 
37242100 
374278100 
381906000 
38253400 


38435000 


38608900 
40344000 
44328200 
42547400 
42550600 
48019000 
48032920 
48079400 
48141400 


== VaALUF PaRaMeTFR == 


00366000 
VARTABLE 


VARTABLE 
VART ARLE 


VARTABLF. 
VARTABLF 


VART ARLE 
15030500 
VARI AaLF 
VARTARLE 
VARTARBLE 
VARTABLE 
VARI ARLE 


VARI ARLE 


19774100 
19900440 
19903200 


*20152000* 


20601640 
22906000 
24044250 
28043000 
26080400 
28230600 
26260600 
98295800 
78439600 
28852200 
31905400 
37946800 
37048100 
37226000 
37273000 
38043040 
381145000 
38253500 
38444000 
38668000 
40347220 
42476000 
429524100 
42554000 
48024000 
48032930 
48080200 
48141500 


19774850 
19900550 
19903650 
20154000 
20760000 
22941000 
24045100 
28043200 
28085800 
28232800 
28270822 
28303200 
28440000 
28863000 
31906400 
37946810 
37059000 
37227000 
372794190 
38013040 
38121500 
38254000 
38449400 
38709000 
40336000 
42485000 
42524200 
42551090 
48027000 
48032940 
48096000 
48141600 


19786000 
19900670 
19903907 


«20180000 


20769200 
22943000 
24045250 
28046400 
28086200 
28242000 
28270824 
28303400 
28440600 
28882000 
36006500 
37046829 
37121000 
37230000 
37280000 
38044700 
38148000 
38280000 
38442200 
387 40000 
44040000 
42486000 
42595000 
42551100 
48030000 
48032950 
48100000 
48442500 


necLaARep aT 


m= DECLARED AT 02222000 


w= DECLARED AT 04355000 


mm DECLARED AT 12708250 


== DECLARED AT 129823000 
m= DECLARED AT 14204100 


"= NECLARED AT 15021000 


== DECLAREN AT 17907000 


== DECLARED AT 18528200 


w= DECLARED AT 18570000 


== DECLARED AT 18790600 


m= DECLARED AT 18791620 


== DECLARED AT 24042700 


19796000 
19900680 
20034900 
20180350 
20774020 
22917000 
24045500 
28046600 
28089600 
28242200 
28282800 
28303600 
28440800 
28885500 
36007000 
37946830 
37172000 
37234000 
37304000 
38045950 
38201600 
38280500 
38485000 
38732300 
41054620 
420488400 
42525500 
42551200 
48031000 
46037000 
48110000 
48145000 


00367000 


19799070 
19902000 
20035000 


*20210200* 


22009000 
22920000 
24210000 
28050200 
28089800 
28244010 
28783000 
98305400 
28451600 
30908000 
36008000 
37046835 
37181000 
37239000 
37324000 
38039000 
38204000 
382784000 
38490000 
38606000 
41191200 
42488200 
42526000 


*45 113000 %«45 123000 «4454301008 


48031100 
48042000 


199003410 
19902430 
20419600 
20210300 
220140000 
24037900 
28014600 
280541000 
28095600 
28244030 
28285400 
98307730 
28467400 
309 10000 
36009000 
37946855 
371853590 
37241300 
37353000 
38045450 
36217000 
38784500 
38495000 
39009050 
493114100 
4950;050 
49532000 


48032150 


48043000 £4860450004%48064000%%48067000" 


19900320 
19902150 
201439700 
20407000 
22030000 
24038000 
28016200 
28051200 
28096800 
28248800 
28291200 
28476400 
28472800 
30920000 
37026000 
37046860 
37487250 
37241400 
37361000 
38077000 
38233000 
38285000 
38543000 
39083000 
44347300 
42501650 
42540000 


48032200 


48121200 *48122000« 48135000 


19900330 
19902190 
20170600 
205827440 
92049000 
24042700 
28022200 
28051400 
98097200 
98249600 
28293200 
28416600 
28476200 
31005010 
37036400 
37946900 
37189500 
37241510 
37382000 
38979000 
38236000 
38285500 
38555000 
39092165 
41320340 
42501840 
429547100 
45135230 
48032400 


48138000 


19900370 
19902350 


#20149800% 


20582450 
22429220 
24043000 
28030800 
28061800 
28216800 
28250000 
28293800 
28434400 
28848000 
31005100 
37046370 
37046920 
37195250 
37241520 
373947150 
38092000 
38247500 
38372000 
36573000 
39297010 
41320320 
42506000 
42547200 
45153000 
48032700 


48141200 


PiMyx 


PiMtX 


Pim{X 


28792000 


w= STREAM VARTARLF == DECLARED AT 30920000 


30994000 


e= STREAM VARIABLE = DECLARED AT 37361000 


37379000 


PIPROCESS = LABEL *= DECLARED AT 020273000 "= occURS AT 48099000 


P2 


PaRUSy 


POF AKE 


P2OMIX 


46027000 46028000 46029000 
46038000 46039000 


46030000 46031000 46032000 46033000 


LagrL ©&" necblaRen aT 28005800 == OreuURS aT 28086600 


28040200 


e= LABEL =" NECLAREN AT 00008000 == OCCURS AT 48121000 


46040000 


w= LABEL ©* DECLARED AT 00009000 +" OCCURS AT 48085000 


48015500 


we REAL = DECLARED AT 00021700 


02938000 020414090 02042000 
22299000 22361000 272409000 
48122000 «48123000 


#02043000* 07364000 08533500 12419600 
48004000 48015100 48015400 48019500 


P2PROcESS =" LaBrFL == MFCLARED AT 02023000 "= OccURS aT 48095000 


P3 


oe 


460144000 460;5000 46016000 
46025000 46026000 


46047000 460,800U0 46049000 46020000 


LABFL == DECLARED AT 28005800 e-* QgecURS AT 28088800 


28080600 
REAL = VALUE PARAMETER == 
REAL == VALUE PARAMETER”) == 
REAI, = VALUE PARAMETER <= 
00379600 
STREAM VARIABLE == DECLARED 
00652600 02161000 
STREAM VARIABLE ==" DECLARED 
02225000 02251050 92251060 
STREAM VARIABLF == PDFCLARFEN 
02347360 *02347370« 


DECLARED AT 00336100 
DECLARED aT 00379400 
DECLAREN AT 00379700 


AT 00651800 
AT 02223000 *= OCCURS AT 02158000 


02251100 02251110 
AT 02347350 


INTEGER =" DECLARED aT 05847700 
#05 850600«*05851300%#05851 700" 05851800 05851900 *05852000*% 05852100 


tNtegrR oom 
*#05962600« 05973800 05974200 


REAL = DECLARED AT 06485000 


%06208000% 06247000 06218000 
INTEGER <= VALUE PARAMETER 

06350000 06350300 06351000 
06361320 «06381335 06381340 
STREAM VARIABLE “= NMECLARFD 
06381350 06381360 


RFAL == OFCLAREN aT 07006070 


#07013000% 97014000 07030000 
07425500 07141000 

REAL == VALUE PARAMETER «« 

REAL = VALUE PARAMETER) == 
08956440 082757000 08758400 


REAL = ODECLARFD AT 08441000 


#08494000*% 08496000 08502000 
STREAM VARIABLE ©" ODFCLARED 
08504000 


ECLARED AT 05952000 


*05974400%*405974800% 05975000 


06224000 06233700 06235100 06248000 
e= DECLARED AT 06350300 

06352000 «06380250 06380300 06380400 
*06381395*" 06381400 

AT 06381340 


«0705 70004%07059000%%07059300% 07059400 


DECLAREN AT 07405100 
DECLARED AT 08255000 


08259225 08259810 082760500 *08970200* 


AT 086502000 


INTEGER =" DECLARFD AT 14350100 


#14360330% 14360340 «14360350*% 14360360 


46034000 


16850700 
48033000 


46024000 


06279400 


06380600 


07059500 


14360370 #£14415000«4%14431530«% 14431600 


46035000 46036000 46037000 


19905310 22742100 22252000 
#48037000«% 48096000 48097200 


46092000 46023000 46024000 


96380650 06381250 «06381300« 


*07061000%+«07066900" 07119100 


Q@ oe sTReaM VARYARLE “= 

Q = STREAM VARYJABLE == 
14650000 

Q =" REAL == VALUE PARAM 
15602500 45602680 

Q@ e= REAL 7 VALUE PARAM 
15615000 

Q 7" STREAM VARTABLF & 
15616000 *15618000» 

Q@ 77 SWITeH LaAREFL *™ DEC 
18273060 18289900 

Q@ *" sTREAM VARIABLF == 

#18521200* 185227100 


7" REAL ©" DECLARED aT 19900260 


*19900370« 19900380 

Q == STREAM VARJABLE == 
20032250 

Q@ =* STREAM VARIABLE «= 

Q = STREAM VARIABLE == 

@ 7" STREAM VARIABLE v@ 

Q ""* STREAM VARIABLE == 
20299040 

Q@ "=| STREAM VARIABLE «== 
20511690 

v= STREAM VARIABLE °™= 
20592450 


we REAL =" DECLARED AT 28003400 


28237400 *282740000% 


NE CLAREA 
DECLARED 


ETER == 
15603900 
ETER ae 


DFCLARED 
LARED aT 


18306000 
DECLARE 


19900390 
DECLARED 
DECLARED 
DECLARED 
NE CLARED 
DECLARED 
NECLARED 


DECLARED 


Q 
Q 
Q ee REAL = DECLARED AT 28203800 
Q 


we REAL = DECLARED AT 28603000 


VALUE PARAMETER == 
32001500 32002300 
VALUE PARAMETER == 


28831000 #298836500% 
Q = REAL on 

32000000 
@ o°7 REAL =" 

32100350 32100600 


AT 14415000 
AT 14645400 


DECLARFD AT 15600000 
15604600 

DECLARED at 15610000 
AT 15615000 
18211900 


AT 18521000 


AT 20031500 
AT 20043800 
AT 20106000 
AT 20181000 
AT 20299030 
AT 20511660 


AT 20592400 


DECLARED AT 32000100 


DECLAREN aT 32100000 


Q@ == REAL = DECLARED AT 36003000 
*36007000% 36008000 
Q@ = REAL *#= DFCLARFD AT 374227000 
*374295500*% 37428,00 
Q == STREAM VARIABLE = DECLARED AT 38807000 
*38808000« 
Q@ = STREAM VARIABLE == DECLARED AT 40955000 
40256000 
QM = STREAM VARIABLE =" DECLARED AT 04647100 
04647150 
QMARKTARLEANDRESS =" STREAM VARIABLE 7" DFCLAREN AT 07003462 
07003484 
QMK == STREAM VARJABLF == NECLARED AT 07066400 
07046500 *07066A00*" 
QT =6 LABEL ~= DECLARED AT 16054000 =» gCCURS AT 16473000 
16042000 462062700 
QTED = DEFINE = ODFCLARED AT 42516000 
12528000 12649000 12705250 12710500 
Q@TED *= DEFINE "= DFCLARED aT 12815000 
12861500 12878000 12880500 12900000 12901000 
QTFD 7" MNFFING ©" pnrcbaRED aT 13021000 
QTROY =" MEFINEG =" nEclaRFn AT 00081200 


QTRDYMASK = DFFINF = DECLARED AT 00081200 
QTSPEC =e LABEL == DECLARED AT 12514000 «= OCCURS AT 12626000 
12515000 
QTSPEC == DEFINE == DECLARED AT 13024000 
13112000 
QUEST = OEFINE @* DECLARED AT 20217000 
20324000 29364000 270378000 20585705 20585710 20602650 20604209 29605880 
QUFUFUP =" PROCENURE 7" NECLARFD aT 94016000 
04029000 04052000 04191000 
QUIT |= LaRFL ==) prelLaRFED AT 94261200 == OCCURS al 04305200 
04318600 04319800 04333800 064335400 04336800 04337600 
QUT =e LAREL == DECLARED AT 08255800 e-= QCCURS aT 08980000 
08959695 08259650 08260000 
QUIT =» LABEL "= DECLARED AT 143019000 «= QCCURS AT 13132000 
13116000 
QUIT w= LABEL "= DECLARED AT 20146600 == oCCURS AT 20210000 
20146900 , 
QUIT "= LABEL 7" DECLARED AT 20566600 “= OCCURS AT 20571500 
20570280 20570380 20570490 
QUIT "= LABEL "" DEPFLARFD AT 28402800 =" OCCURS AT 28465000 
28460400 
QuITTINe '* HMeEINE "= NECLARED aT 20019000 
20025800 20036300 20037900 20047400 
QUITTYNe == DEFINE == MECLARED aT 20067900 
QUITTING == DEFINE = fRECLARED AT 20148100 
QUP ew= LABEL «== PECI,ARED AT 04424000 me OCCURS AT 04190000 
QZ w= LABEL = DECLARED AT 02193000 se gCCURS AT 022769000 
02287255 07787270 07309000 
R °'*" REAL *" NAME PARAMETER =" DECLARED AT 00336100 
em REAL @" VALUE PARAMETER =" DECLARED AT 00452800 
00452600 00452700 
R *" INTEGER @“" DECLARED aT 02133200 
#02133300«%802133350% 02133380 *02173220* 02173230 62173240 02173292 02173294 
Roe Real e= ValUe PARAMETER == DOFCLAREN aT 02177100 
R »= REAL =" VALUE PARAMETER = DECLAREN aT 02393500 
02393400 
R ew» STREAM VARIABLE = DECLARED AT 02662100 
R «= REAL ee DECLARED AT 04025000 
R * REAL == DECLARED AT 04044000 
04059000 
R #= REAL ARRAY =" DECLARED AT 04101000 
04106000 
R "= REAL =" VALUE PARAMETER ©" DECLARED aT 04171410 
R *"* REAL "" VALUE PARAMETER ©#* DECLARED aT 04121425 
R °" REAL &°" VALUE PARAMETER =" DECLARED aT 04122000 
04129570 04129580 #04129590% 04130000 04134060 04134500 041434700 04146100 
04207000 04224100 04225000 04228000 
R oe» Real = ValUp PARAMETER == DrClLaRFn aT 04255000 
04254000 04255000 
R ee REAL #= VALUE PARAMETER = DECLARED AT 04256000 
04972000 047814800 04784200 *04286200* 04287000 04299600 04300000 04304800 
R ©" STREAM VARIABLE == DECLARED AT 04272000 
R =" REAL =" VALUE PARAMETER == DECLARED AT 04353200 
04368200 04371920 04372000 *04372100%«04397400" 04407000 04408600 04412800 
04414200 04414600 04415600 *04417400m 04418200 04418800 04419400 04421600 
aL =" ValUp PaRaMFTeR oe prclhaRen aT 04550000 


20608079 


02173301 


04150200 


04310400 


04413200 
04429400 


20608250 270604730 


*04151200% 04151230 


04413600 «044140008 


RF 
04548000 04549000 04557000 04574000 04579300 04608000 04633200 *04633300%4046370008 04639400 «04648250» 


=a D> 


se 93 


me 


ae 


ae 


me 


046513090 
STREAM VARJABLE == DECLARED AT 04680350 
04680450 
INTEGER == DECLARED AT 05841615 
#058441104*05844930% 05846360 05846390 
INTEGER =2 DECLARED AT 05847700 
#05850120*« 05853425 05853595 
INTEGER =" DECLARED AT 05951800 
05952250 «059606504 05960670 «05961400 05966100 05966400 «05966600% 05967200 05975600 
REAL "=" DrcbARFN aT 06068300 
#06109400~% 06110300 06114300 06114400 
REAL = NAME PARAMETER = DECLARED AT 06350300 
06350000 06353000 06353500 06384395 
REAL © DECLARED AT 07006060 
07043000 07047000 *07143000%*07164000%*07174000% 07178100 07178200 07178300 
DEFINE = DECLARED AT 07387000 
07390000 07393000 07399000 07400400 
REAL 7" VALUE PARAMETER == DECLARED AT 07406000 
07409000 07409;00 07409200 07409250 07409300 07415100 07417100 07417400 07417700 
REAL °" DECLARED aT 07424000 
*¥07498000% 07429000 07432100 07433000 07437300 07448000 07449200 07453000 
Real ©" prcblaRren aT 07542000 
REAL = DECLARED AT 08027000 
*08030000* 08030,00 *08043000* 08049000 
REAL ARRAY -#= DECLARED AT 08473100 
081475500 
STREAM VARIABLE == ODFCLARED AT 98320000 
REAL == DECLARED AT 08392000 
*08410000e 08410100 08412100 08412200 08412400 
STREAM VARIABLE "= DECLARED AT 08472000 
STREAM VARIABLE == ODFCLARED AT 086532000 
08533000 08619000 
STREAM VARIABLE =" DECLARFN AT 08632000 == OCCURS AT 08616000 
08655000 
REAL == DecLARrp at 14545000 
14556000 *445599504% 44563000 44592000 44598700 44600500 44602000 44603400 44609000 
STREAM VARYABLE == DECLARED AT 15426000 
15431000 
STREAM VARIABLE = NECLARED AT 15438060 
15438090 
REAL == DECLARED AT 16696200 
16696300 #16827400% 16827900 16829550 «16852000%%16852700*% 16852800 *16852900" 16853000 
16854200 16854400 
REAL ARRay °" peclaRFN aT 19692000 
#197749000% 19720000 «19727000% 19754000 19766800 
REAL == DECLARED AT 19900260 
*19900380% 19900390 «49900750* 19900755 19900760 49900770 *49900780« 49900800. 
STREAM VARIABLE = DECLARED AT 20590660 


. 20590665 


STREAM VARIABLE =» DECLARED AT 20590680 
20590685 

STREAM VARIABLE == DECLARED AT 20590700 
29590705 

STREAM VARIABLE = DECLARED AT 32000800 
32000850 

STREAM VARIARLE =" DECLARED AT 37256000 

STREAM VARIABLE ™*" DECLARED AT 37264120 


05975620 


07419700 07439800 


14624000 


16853100 «16853300« 


Rap 


RBa 
RB5 
RC 
RC 


RC 
RC 


RC 
RCW 


Rew 
RCw 


RCW 
RCW 
RCW 
RCW 


RCW 
RCW 


Rew 
Rcw 


ae REAL Cx) 
38637000 
a@ REAL on 


Dp *- 


37284140 


REAL == 


37357300 


REAL = 


VALUE PARAMETER == DECLAREN AT 37357500 
37357400 
DECLARFD AT 38362000 


*#38399000% 36400000 38402000 38404000 38408000 38456000 38464000 


DECLARED AT 38547000 


#385819204#38598000% 38598100 38599000 38600000 #38607200% 38698100 38608400 38609300 38630100 38640200 


REAL Cr) 


DECLARED aT 38655000 
DeclLaRrp at 49004000 


#40016500%#40046000# 40047000 40049000 40051000 40055000 40056000 «40258000 40261042 *40321130%""40321135s 


40392440 
40334055 
REAL ow 


40322049 40322470 *40329600%440322800" 403241402 40324300 £40325000%8 4039700084403 30000%e40333000" 
DECLARED AL 41003000 


*41050000% 41190900 
STREAM VARTABLE = DECLARED AT 41333005 


REAL = 


DECLARED AT 42516000 


*425147020% 42517030 
STREAM VARIABLE =" DECLARED AT 42517030 


42517040 
LABEL #*= 


16705000 
REaL 7" 


NECLARED AT 16700500 "= QCCURS AT 16850300 


DECLAREN aT 40004000 


#40039000% 40039200 40055000 40056000 40060060 40060100 40060300 40065080 40065400 40324 3004%40321810« 


"40322220 
INTEGER 


40016026 
40056000 
40100200 


== neclaRen aT 40004000 
*40047985% 40027270 40027290 40039000 40039400 40039200 40040500 40047000 40047100 40055000 
40060060 40060100 #40064000% 40065020 *40065040% 40065080 40065100 ¥40078068«% 40078074 ¥40078076u 
40100500 40100600 «40100700 %440100900%%40101250%840254100% 40255000 «40261046 4%%40287000% 40290000 


440290200 44402903004 40290400 440290600 «440321135 %440321300e 40324210 £40334055e 20380400 270567120 


DEF TNE 
28463800 
DEF TNE 
28464800 
REAL, = 
04255100 
REAL <= 
04667000 


me DECLARED AT 28407200 


28464400 

me DECLARED AT 28407000 

984629000 

VALUE PARAMETER «= DECLARED AT 04255200 
04255900 


VALUE PARAMETER «= OECLARED AT 04667050 
04667050 04674600 04675600 04677400 04679050 04682950 04685050 04685650 04685750 04686450 


STREAM VARIARLE " DECLARED AT 04679050 


on LARBFL =e 
16965000 


DECLAREN AT 16056000 


ze STREAM VARIABLE =" 


ae REAL on 
00031000 
=” Real or 
o* RFaL we 
05950600 
w= REAL os 
oe REAL ae 
ae REAL on 
7" REAL = 
08548150 
ee REAL 
*#12665500« 
=e Real Ca) 
tld Real -= 
oe Real =e 


NECLARFN 


DE CLAREN 
DECLARED 


DECLARED 
DECLARED 
DECLARED 
DECLARED 


DECLARED 
DECLARED 


DECLARED 
DECLAREN 


== OCCURS AT 16263000 


NECLARED AT 38762000 


AT 


00029000 


02115000 
05950400 


06068300 
06407000 
08173000 
08568100 


12501500 
12801500 


13002000 
14345000 


RCw 
RCW 


RCW 
RCW 
RCW 
RCW 
RCW 
RCW 
RCW 
RCW 
RCW 
RCW 
RCw 
RCw 
RCw 
RCW 
Rew 


RCW 


14353000 
e= REAL =™ DECLARED 
e= REAL |= DECLARED 
16692000 
w= REAL = DFCLARED 
16907500 
“er REAL #= DECLARED 
18520800 18552600 
wr REAL =" DECLARED 
“> REAL == DECLARED 
ew REAL w= HFCLARED 
em REAL =" DECLARED 
*20149200« 
w= REAL == DECLARED 
20567520 *20567530*% 
7" RFAL eo DECLARED 
20581125 *20581430* 
wm REAL == DECLARED 
20584325 #20584330" 
7" REAL *= DECLARED 
20587110 *20587420% 
ee" RFabL =" NPECLARED 
20590010 *20590020« 
7m Reab == DECLARED 
20591640 *20591620% 
w= REAL = OFCLARED 
20595080 *70595090" 
=- REAL ee DECLARED 
20596945 «205960476 
we” REAL = DECLARED 
*20600760« 
#7 Reab == DFCLARFN 
20707000 *20708000% 
w= Real == DECLAREN 
2” REAL == DECLARED 
em REAL w= DECLARED 
28000600 *98049700% 
e= REAL # DECLARED 
28201000 *28246000% 
me REAL == DECLARED 
e" REaL "= DECLARED 
38047000 «380480008 
e" REAL ©" OFCLAREN 
36110000 *38110500« 
er Real w= peclkaRen 
38210000 *38210500 
mm REAL == DECLARED 
*38387000*% 38538000 
ee REAL «= DECLARED 
38580000 «38581004 
*" REAL °° DECLARED 
38695000 *386960004 
’" REAL © DECLARED 
*£39307400« 
wr Real 7" orclaRen 
# 41309000» 
ee REAL = NECLARFN 


AT 15411800 
AT 46694500 


AT 16907000 


AT 18502300 


AT 19519000 
AT 20011800 
AT 20081000 
AT 20141400 


AT 20566100 
AT 290584000 
AT 20584000 
AT 20586800 
AT 20589800 
AT 20593000 
AT 20595000 
AT 205968006 
20597460 

AT 20600010 
AT 20701500 
AT 72002000 
AT 22067000 
AT 28000500 
AT 28200800 
AT 37451000 
AT 38001000 
38100000 

AT 38102100 
36192000 

AT 38200100 
38298500 

AT 38356000 
AT 38544000 
38646000 

AT 38645000 
38819000 

AT 39001000 
AT 41003100 


AT 41316200 


RCW em REAL #== DECLARED AT 41327200 
RCW ew REAL =e DECLARED AT 42575000 
*#42595000% 425295700 425295130 42525350 42595500 42526000 42527000 
RCW ©" REAL |= DECLARED AT 45001900 
*#45075590«% 45248000 
RCWL *" REAL =" DECLARED AT 42515000 
#42525000% 42525150 42527000 
Rb 7 Lapel =". pecbaRen at 12512500 = OrcURS AT 12545000 
12547500 
Rp = LARFL ©* HFCcbLAREN AT 16356000 == occURS aT 16538000 
16365000 
RDATA = LABEL == DFCLARED AT 44627200 += OCCURS AT 14647000 
14632000 44673000 
ROCTABLE = REAL ARRAY ee DECLARED AT 00787000 
02200000 029327000 *026651008*04134060% 04437430 £04146200% 04978400 04284800 04365600 04367800 04368200 
04391550 04555650 04657400 04658400 04673850 «04680200 %404681950 407016000 %%070750004%e07409200"e 08460000 
08472000 08473000 *085821004"12528400e812530000* 12535500 *12538500e%17675000Ke12688000e 12715500 «12716500" 
#12860100 4412875000 44012876000% 15113100 15175000 146205000 16263300 48556200 *20590400 «420590668 «420590688 
%205907 40 4490595300% 70596150 *22069480%%22400500%«29485000% 28046200 28028900 *28030800%478950000% 28252000 
37026000 #37046477m%37174100e 37192000 37499400 37204000 37276000 37784120 37284430 *37349010m 38448000 
38254100 *£386370004%387 310004438 768500 0n39298000% 44177000 
Ror »" Real e* pFCLAREn aT 05951700 
05951800 05956950 #05963000% 05963800 05969300 05975400 05979400 
RDYTAPE = SUBROUTINE = ODFCLARED AT 12520800 
12540500 47689000 4297;8000 
READALABEL == LABEL «© DECLARED AT 37180600 = OCCURS AT 37252000 
37253000 37267100 
READC we LABEL == DFCIARED AT 44627300 == OCCURS AT 44660500 
14632100 
READEMFROMDISK =" REAL PROCEDURE == DECLARED AT 07376000 =" FORWARD AT 02347150 
02347330 #07 3950004¥«07 398000« 07448500 084375300 20297000 38804000 39445210 
REaADFR *" LaBeEL  ™ nFeLAREN aT 04357800 =" OCrURS AT 04394800 
04358400 04360400 
READERA == REAL =" nrcbaRen aT 02112500 
07078000 07079000 «07080000 08434100 «20489900 4620585 100%#20595 350 * #206069 740 %4206085 140 *#92069490 0038420000" 
READERB e#= REAL ==" PFECLARED AT 02112500 
07089000 97083000 #07084000% 08434900 «20489300 *«90585 {25420595400 **#906069 20 #206085 90 4#97069490 "438120500" 
READIN ==" LABEL =" DFCLARED AT 08855000 -» OCCURS AT 08865000 
08860500 
READLABEFL == LABEL c= PECLARED AT 14628100 "= OCCURS AT 14698000 
14632100 
READQ "= REAL "=~ DFCLARED AT 00301100 
READSOUGHT ©= LARFL ©" NFCLARED AT 14627400 = OCCURS AT 14660500 
14632200 
READSOUGHT? =" LARFL *= nHECLARED AT 14627400 
READTAPr == REAL SUBROUTINE == DECLARED AT 12544000 
12551000 142556000 12651000 
READY ew REAL == DECLARED AT 00127000 
#02497000 6%04 2969000 «404 382800 e40701 3000%%070589400% 07059500 #08048000 e#0R090000 «084 35000 «e858 4000 ees 25310008 
«12865500% 22074000 22075000 22078000 «220800008 27087000 «22089000%«22109N000% 22222000 «370371004037 306000" 
#45152000 e#45230000% 48012000 48084000 
READY @* nFFINE "=" peclaREN aT 14167000 


14236000 

Realeor == Lapel =" peelLaRen AT 94357400 == OCCURS aT 04419400— 
04491800 

REALFILFCLOSF = PROCFOURF == DECLARED AT 43000000 = FORWARD AT 00389000 
00389200 


ON == STREAM LABEL, == DECLARED AT 20032200 == OCCURS AT 20032725 
RORETRY == SUBROUTINE == DECLARED AT 94555050 
04555700 04567850 04568200 04634300 
RECOUNT =" REAL =" NECLARED AT 12505000 
*#125230008% 126233008 176495008 12652500%"126535008 12656000 *12745500« 
RECOUNT "=" REAL "™*" NFCLARED AT 12805000 
RecOUNT "7" REAL ** neECcLAREN aT 13006000 
#13080100%%13081000e%13101000« 
RecS = ReralL =" DECLARED AT 41327400 
41333005 443330490 *44333800* 44334300 
RECYCLE = STREAM VARTABILE *= DECLARED AT 04659700 
04661700 *0466;900* 
RECYCLE = LABEL 2 DECLARED AT 44327800 == OCCURS AT 44331600 
41332800 
RED = LABEL == ODECLARFD AT 12512500 == oOcCURS AT 12551000 
12545000 12548590 
REED "= REAL SUBROUTINE =" NECLARED AT 37211000 
37220000 37221000 37252000 37264000 37247000 37267050 
REED "" SUBROUTINE = peECLARED aT 38105300 
38496400 38126500 36127000 38127500 38128000 38430500 38438500 
Rero @= SUBROUTINE = nFECLARED AT 38203300 
382904400 38263500 382792500 38294500 
REEL == REAL #8 VALUF PARAMETER |= DECLARED AT 00373000 
00371000 00372000 
REEL == REAL == VALUE PARAMETER == DECLARED AT 00376000 
00374000 00375000 
REEL == REAL 7" DECLARED AT 02661000 
02462100 02663000 2648600 
REEL "=" REAL =" DECLARFO AT 04668500 
#04674250« 04678900 04680350 04681250 04681850 04683400 
Reel 7" RealL =" OFCLAREN aT 15063000 
15094000 
RerL ee RraAL ee VALUF PARAMETER == DFCLARFD AT 37002000 
37900000 = =37001000 *37046475* 37046477 37046192 37046730 37474100 
REEL == REAL == VALUE PARAMETER == DECLARED AT 37179000 
37177000 37178900 37192000 37216000 372247900 37240200 37261000 
REEL == RFAL == VALUE PARAMETER ==" DECLARED AT 37342000 
37337000 37339000 
REEL v2 INTEGER *" DECLARED AT 38007000 
REEL "=~ INTEGER "=" DECLARED AT 38102700 
38104900 38105800 38113000 #38118000« 38151000 
REEL = INTEGER *" NMECLARED AT 38200700 
38202900 38203800 38213500 «38254100%«38273000% 38275500 38296750 
Rep == INTEGER =" pneclaREd aT 39004100 
39086000 «39087500 «%39092000«%%39092200% 39443000 39297000 39297100 
REEL == STREAM VARTABLE =" NECLAREN AT 39297100 
39997200 
REELCHANGER *= PROCEDURE == DECLARED AT 15110000 
15116200 16263600 
REELNO ©" REAL «= VALUF PARAMETER =" DECLARED AT 02637000 
02635000 02636000 02641000 
REELNO ®** STREAM VARIABLE °°" OEFCLARED AT 02641000 
REELNO .*" DEFINE "= NECLARED aT 12518000 
12572500 
ReeLSw "" OFFINE 7" nECLARED aT 28008400 
REELSW °" DEFINE "= NeclaRED aT 28209200 
REFLISTART ** DEFINE ** DECLARED AT 28008600 


38144000 


28048600 28055000 
REELISTART == DEFINE == DECLARFD AT 28405800 
28475800 
REENTRY "= REAL SUBROUTINE = DECLARED AT 20090700 
20994200 20123000 
REFILL * LABEL =" PECLARED AT 14628100 =" OCCURS AT 14681000 
14632100 
REL ©" DFFINE “* DFCLARED AT 38382000 
38419000 38503000 
Reb =" OFFINE *" DECLARED AT 38564000 
Rel =" DEFINE "= pEcLARED AT 38675000 
38778000 
REL =" DEFINE ®= DECLARED AT 41019000 
RELINT c= REAL == DECLARED AT 19901200 
19902000 499021450 19902190 19902350 19903100 49903200 
RELTOG "© DEFINE "= DECLARED AT 90416520 
04105500 
REM e* LARgEL =" DECLARED AT 09701000 "= OCCURS AT 09717000 
09706100 
REM »" INTEGER =" DFCLARED AT 40005110 
#40027230"*40039400*% 40940500 40078068 49078069 
REMEMRER == REAL "= DECLARED AT 20566310 
eae eke. 29566812 20566855 79566830 20566840 70567325 20567335 20567340 20567345 270567360 «20569400» 
*20569890" 
REMO == LABEL = DECLARED AT 20566600 e= OCCURS AT 20573300 
20566620 20576600 
REMOTE == OFFINE == DECLARED AT 20247500 
REMOTELOGFREE == DEFINE == DECLARED AT 00081500 
REMOTELOGMASK = DEFINE == DECLARED AT 00081500 
REMOV =" NEFINE == PECLARED AT 20225000 
REMOVE =" LABEL 7" DFCLARED AT 07300000 == OCCURS AT 07331000 
07314300 07318010 
REMOVE 7" LABEL =" MECLARED AT 20597800 == OCCURS AT 20606550 
20597950 
REMOVFDFCK =" PROCEDURE °" NECLARED AT 67298000 
07372800 074 ;0000 
REMOVEIT w= SUBROUTINE |" ODFCLARED aT 12589000 
12750000 12752000 
REMOVEM = LABEL == DECLARED AT 12513500 == OCCURS AT 12749000 


12707000 
REMOVER "== SUBROUTINE == DECLARED AT 18244000 
18444000 
REPEAT 7" REAL °°" DFCLARED AT 20566260 
20566265 20577250«e 20578700 
REPLY ==" REAL ARRAY =" DFCLAREN AT 00289000 
#02203000 %#06360520% 06360540 %06463280% 06463300 06463380 *06463760% 08602000 12445000 #12473190e"12709750" 
12710000 *12829500*% 12861500 12863000 12863500 #12899500«% 12900000 *144315184«14581000%«14581700*% 14582000 
14585000 © 14588000%%16108000% 16163000 1618100044 46343400" 16950000 #17944400%% 47944500" 97945000 47947500 
#179490004%180280008 18029000 18258000 4£18540140« 18540200 *18540500% 22014600 «220146460 %%28293200% 28293800 
28294200 28294400 £36907000e8 36009000m4 37046740% 37046800 37046829 37046830 37046835 37046855 37046860 
«37046900 437046920 4437087670 %%37059000 e%37226000% 37227000 37230000 «37234000 «37239000 %e37245 300% 37241400 
37241510 *37241520%437241700% 44162000 
RESEARCH == REAL SUBROUTINE == PFCLARED AT 37210100 
37240300 37210400 37227000 
RESERVE = REAL == DECLARED AT 07006040 
*07096000*% 07145000 07147000 07148000 07240000 
RESERVENISKSIZE == DEFINE =" DECLARED AT 00005300 


05954800 


06353510 


RESETJAR == LABEL == DECLARED AT 15412700 


15115000 
RESETUNITS =" LA 
04685400 
RESETV "™" NEFINE 
20587800 
ResOlye ""™ Real 
*28443400% 
RESTART == LABFL 
13136000 


RESTART == LABEL 


16968130 


RESTART = LABEL 


20332095 
RESTARTING = IN 
20023800 * 
ReEsuby '" PROCFED 
00650500 
Result °" REAL 
04555650 
04568590 
04588290 
046 38900 
RESULT == REAL 
04674800 * 
04677000 
RESULT &" REAL 
RESULT "* REAL 


22243000 
RESuLTL = REAL 
46006000 
RESULT2 == REAL 
46007000 
RESULT3 == REAL, 
46908000 
RESULTG = REAL 
46009000 
RETMSG = DEFINE 
22158000 


RETRY ©" LABEL 
RETRY ©" LABEL 


04683850 
RETRY ©" LABEL 
22334800 
RETURN = LABFL 
04705890 
RETURN == LABEL, 
41602700 
RETURNEM = LABE 
14407200 
RETURNFALSE == L 
12638500 
RETURNIOSPACE. == 
02068000 
RETURNMSCW °* RE 
20014700 


RETURNMSCH =< RE 


BEL =" DFCLARED AT 94670650 


we DECLARED AT 20228100 
20594450 20602800 20604350 


== OCCURS AT 15115300 


w~ OCCURS AT 04685150 


20608078 


STREAM PROCENURE "" DECLAREFn AT 28411200 


28427800 
m= DFCLARFA AT 13019000 


ee DECLARED AT 16914100 


w= DECLARED AT 20382054 


OcCURS AT 13097000 
OCCURS AT 16925100 


OCCURS AT 20382520 


TEGER *" DECLARED AT 00419100 


44085000« 


URE =" DECLARED AT 00646000 


“= nrcbaRFn aT 04552000 
04561000 *04566000% 04567010 
04568530 04580000 04588000 
04588410 04588420 04588450 
04657400 04658400 04658800 
e- ODFCLARFD AT 04668650 
04672050# 04672150 04672200 
04683250 04684250 04684450 
-= DECLARED AT 14624200 
“= DFCLARED AT 22233000 
22246000 22401000 22405000 
~" WECLARED AT 00058000 


“= neclaRen aT 00058000 

== DFEC|ARED AT 00058000 

== DECLARED AT 00058000 
w= DECLARED AT 00416100 


“= DECLARED AT 04261200) == 
“" DECLARED AT 04670650 = 


=" DFCLAREN aT 22236100 0 


ve nFelLAREN AT 00009000 == 


04105998 04443000 94237000 


m= DECLARED AT 41600500 «= 


L =e OFCLARED AT 14351100 


ABEL == DECLAREN AT 12513500 


12682500 12687500 12692000 


04567100 04567200 04567770 04567870 #04568100« 


04588060 04588080 04588420 04588360 
04595000 04602000 04633000 04637000 


04588210 
04638000 


04672300 04672850 04673300 *04673500*% 04676100 


OCCURS AT 04314600 
OCCURS AT 04678300 


OccURS AT 22331400 
OCCURS AT 48110000 


08475500 08180000 149304000 49685380 
OCCURS AT 41607400 


*= OCCURS AT 14398500 


m= OCCURS AT 12746500 


DEFINE "=" DECLAREN AT 00206500 


02100000 02300000 04199000 
AL "= NFCLARED AT 20014600 


AL == PFCLARED AT 20083800 


04309200 04315600 04426000 07063000 


19685470 


37333000 


04568470 
04588230 
04638200 


04676250 


04568480 
04588280 
04638800 


04676650 


20083900 
RETURNMSCW © REA} == DECLARED 
20144300 
RETURNMSCW =" REAL = NMECLARED 
RETURNMSCW °°" REAL = NECLARED 
RETURNMSCWH "* REAL "=" NECLARED 
RETURNMSCWH =" REAL &= NECLARED 
RETURNMSCW =" RFalL = pFCLARED 
RETURNMSCW =" REAL == NECLARED 
RETURNMSCW =*" REAL = NECLARED 
RETURNMSCW == REAL =m DECLARED 
RETURWMSCW = REAL == NECLARED 
RETURNMSCW = REAL, == DECLARED 
RETURNRCW =" REAL ®" ODFCLARED 
20016600 20080100 
RETURNRCWH =" REAL °°" DFCLARED 
20085700 20140200 
RETURNRCW 7" REAL 7™* NFCLARED 
RerTuRNRew =" Real =" pneclaRen 
20580340 
RETURNRCW = REAL == DECLARED 
20583080 20583710 


RETURNRCH es REAL #@ DFCLARED 
20526625 
RETURNRCW =" REAL =" ODFCLARED 
20589610 
RETURNRCW ** REAL "= PFCLARED 
20590751 
RETURNRCW *" REAL ™* DECLARED 
20594751 
RETURNR¢W 277 REAL =" OFCLARFO 
20596651 
ReTURNReW =" Real = neclaRro 
20597460 


RETURNRCW == REAL @= DECLARED 
RETURNRCW = REAL == DECLARED 
20783000 


RETURNTOQCOM{9 == LABEL, |= DECLARED AT 42543750 


12624000 12625500 127475 


RETURNTRUE © LABFL #= PECLAREN AT 12513500 


. 12664500 12694000 
RETURNVaL =" REAL ™" NFCLARFD 
20566245 «20580330« 
ReTURNVAL ©" ReAL &="  necLAaRen 
RETURNVAL |= REAL =" NFCLAREN 
#205 866008 
RETURNVAL == REAL == DECLARED 
20586950 *20589K00« 


RETURNVAL =" REAL *" DECLARED 
*20590750« 

RETURNVaAL ©" REAL *™ OQEFCLARED 
*#20594750«% 

RETURNVaL =" REAL "* NECLARED 
#20596650« 

RETURNVAL: == Real 7" nrclaReo 
«20597459» 


RETURNVAL © REAL == DFCLAREN 


AT 
AT 


AT 
AT 


AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 


00 


AT 


AT 
AT 


AT 
AT 
AT 
AT 
AT 


AT 


20144200 
20566100 
20581000 
20584000 
20586800 
20589800 
20594000 
20595000 
20596600 
20600010 
20701500 
20014700 
20083900 


20144300 
20566100 


20581000 
20584000 
20586800 
20589800 
20591000 
20595000 
20596800 


20600010 
20701500 


20566100 


20581000 
20584000 


20586800 
20589800 
20591000 
20595000 
20596800 


20600010 


OCCURS AT 12759000 


OCCURS AT 12758250 


RETURNVAL == REAL == NFCLARED AT 20704500 
20702000 *30782000# 
REVERSE == DEFINE == DECLARFD AT 14167000 


142734000 
REW == LABEL == DECLARED AT 37180600 == OCCURS AT 37253000 
37266000 
REW =" DFFINE '" DECLARFO AT 38380000 
384319000 38503000 
REW *" OFFINE *= NECLARFN AT 38563000 
REW =" OFFINE = DECLARED AT 38674000 
387529000 38774000 38799000 
REW w= DEFINE = DECLARED AT 44018000 


REWIND 7 SUBROUTINE = DECLARED AT 12525500 


12536000 


REWINDANDLOCK #= 


12743000 
PROCFOURE = DECLARED AT 08079000 


16797000 

REWINDING ©" LABEL = DECLARED AT 04357600 =" OCCURS AT 04382600 
04375400 

RHEAD =" REAL &" DECLARED AT 38103200 

RHEFAD #*™ REAL ©" DERLAPFN AT 38201200 
38247500 38250500 

RJE =" STREAM VARTABLF == DECLARED AT 081142175 


08112840 


RJFINPUTAREAV == 


DEFINE == DECLARED AT 00017420 


RJEOK »* REAL == DECLARED Al 16911000 
«16997500 
RL = DEFINE == DECI.ARFN AT 37501000 


37512000 37513000 37516000 37517000 37521200 37531000 37533000 37535000 37542000 37544000 
RL == REAL ™" DECLARED aT 40004000 
#40039000% 40055000 40060060 40060100 40060400 40061000 40064000 40065080 40065100 40068000 40321300 
*#40322800%*%40324120% 40324200 40328000 
RLEN == INTEGER == VALUE PARAMETER == DFCLARFn AT 00396000 
00393000 00394000 
RLEN = INTEGER @= VALUE PARAMETER ©= DECLARED AT 37424000 
37418000 37419000 37424200 *37425000* 374976000 37435000 37436000 37446000 
RLEN "= INTEGER =" NMECLARED AT 38003000 
38013400 38024300 38977300 38036000 38038000 38094000 38097000 
RLEN "= INTEGER ™" MECLAREND aT 38102300 
38158000 
RLEN =" INTEGER =" pneclaREN AT 38200300 
38277000 
RLFN = INTEGER == NECLAREN AT 39002000 
39037000 39038000 39039000 *39088000* 
RLEN == INTEGER == NMECLARED AT 40004000 


40046096 *40047995% 40097250 40039000 40039400 *40040500% 40047000 40047400 40055000 #00056 1004440060060% 
40060100 40060300 #40060400% 40061000 *40064000% 40065020 «40065040 %#40065 100 %#40066000%%40068000 4440078069" 
40078070 40078074 *40078076«e40078087% 40078091 40100200 40100500 *40100600 me 40100800 440101250 4440261046" 
*40290200%#403213004#40322420ue40322444e 40324210 
RM "= LanebL *= necbhaRen aT 16054000 = occuURS aT 16134000 
16063000 
RMSq = LABEL *= pECLAREn AT 20020300 == OCCURS AT 20043600 
RN == LABEL == DECLARED AT 16356000 we oCCURS AT 16531000 
16365000 
RO ee LABEL == DECLARED AT 16055000 == OCCURS AT 16253000 
16964000 
ROCKARYE * LABEL, == DECLARED AT 24032800 = OCCURS AT 24042000 
24033200 746038500 


ROOT == STREAM LABEL == DECLARED AT 18820800 = OCCURS AT 18821100 
ROTATE == LABEL =" ODFCIARED AT 14629000 =" OCCURS AT 14710000 
14632100 
ROUND =" LABEL =" DECLARED AT 20390000 *= OCCURS AT 20447000 
20451000 20484900 
ROUND =" LABEL ™" DFCLARFD aT 37004000 "= oQccuRS AT 37046040 
37008000 37046900 37047615 37059000 
ROUTINE 2 REAL @* yALUF PARAMFTFR @* DreCLAREN aT 02015000 
02012000 027013000 02019000 
ROW «= REAL |= DECLARED AT 06462100 
06462110 *06464,00% 06464200 
ROW = REAL = DECLARED AT 14624100 
14671000 14677000 ¥*14678000**14679000* 14684000 14695000 14711000 14712450 
ROW = DEFINE == DECLARED AT 40008100 
40042100 
ROWS = REAL @" DECLARED AT 06462100 
*06464050" 06464100. 
ROWSZ *" REAL ™* DECLAREN AT 06462100 
*06464600% 06464700 
RP == LaRpeL @" pecbaRrn aT 04554300 "= occURS AT 04588150 


04588250 

RPB e= pEFINE "= DFCLAREN AT 375014000 
375341000 

RR w= LABEL eo DECLARED AT 16355000 = QgCCURS AT 16411000 
16364000 


RR we LABEL == DECLARED AT 16699900 ee oCCURS AT 16721500 
RRNCOUNT == REAL "= DECLARED AT 00301100 
RRRMECH @"" INTEGER @* PECLARFD AT 00013000 
492198000 «6 %02434 310 x40 2665200 & 404296400 0404383200 uu04 38390044070 14000 4407059 300 4m 080 39000 nH08047000 we 080840008 
#98089000%*08 2598 10%% 084360004 40858 3000me 12531500 %« 12866000408 20601150%«20609150«% 22074000 «22086000%422092000% 
#22102000 4422209900 0428028400 4437037200 0437046170 0437248000 4437 305000 4% 38 116000 %% 38237500 m4 396 38500 ee G4083000% 
*449441004845229000«% 48032000 48084000 
RS =m REAL == VALUE PARAMETER == DECLARED AT 08625000 
08624000 086395000 08659000 08677000 
RS -e LABEL = DECLARED AT 16700500 "== gCCURS Al 16820000 
16705000 
RSBIT == DEFINE == NECLARED AT 60417080 
RSET "= LABEL *= DECLARED AT 20597850 == ocCURS AT 20606700 
20598000 
RSIZE -* REAL 7) VALUF PARAMETER =" NECLARED aT 37343000 
37338000 37340000 
RSLT "=" STREAM VARIABLE ™* DFCLARED AT 90032000 
00033000 
RSLT ee ReAL w= ODFCLARFD AT 00650500 
00655600 00655800 
RSLT ee REAL ee DECLARED AT 04959400 
RSLT == REAL == DEC).ARFD AT 22235500 
22331400 272332400 22337600 
RSTOG =" NEFINE =" DPECLARED AT 00416420 
20767000 
RSULT ©" REAL ARRAY =" DEFCLARED AT 28804000 
*#28831600e 28833000 «28839000% 28848000 288590000 28851000 28852100 «28870N00% 
RT "e STREAM VaRTABlLe =" pEcblAaRFD aT 08887001 
08890100 
RTq == REAL == DECLARED AT 39901000 
39905000 39998000 £399 34000 ¥#39939000%%39945000*% 39950000 39955000 
RT¢ == STREAM VARIABLE == DECLARED AT 39905000 


RT, w= STREAM VARIABLE == DECLARED AT 39950000 
RT? =" REAL eo DECLARED AT 40004000 


#40016400% 40016410 40016420 40016500 40017050 40017200 40017250 #40249100* 40249110 *£40249120% 40249130 


RUN »* PROCEDURE °° DECLARED AT 02025000 
02933000 70047800 22045000 
RUN =" Lanrl =" DECLARFN AT 20597700 =" OCCURS AT 20605600 
20597950 
RUNAROUND «= SUBROUTINE «== DECLARED AT 14482000 
44485000 14207000 14224000 
RUNING = DEFINE == DFCLARED AT 20019100 
20038500 
RUNING == DEFINE == DFCLARED AT 70088000 
RUNING “" DEFINE °°" DECLARED AT 20148200 
20142800 
RUNNING *™" REAL ARRAY "= DECLARED AT 12365000 
12398500 £12400000e «1 2407000 m412417000e 12421500 12437500 12443000 «12445500« 12475000 
RUNTHE DOF CK *" PROCFOURE 7" necbLaREn at 07457000 
16533000 
RUNUMRFR -= Reab == PFCLARFEFD AT 07003000 
#07490000% 074264,00 *07480000% 07469900 «0746230040746 9500e 07463000 07469000 07573000 
RUNV == DEFINE == DECLARED AT 20219500 
20603000 270604550 970604750 70605480 270605600 70608078 
RW = LABEL = DECLARED AT 16700500 = oCCURS AT 16796000 
16704500 
RWL =" RFAL == VALUF PARAMETER == DECLARED AT 00380000 
RWL =" REAL «= VALUF PARAMFTER == DECLARED AT 37302000 
37312000 
RXIT “= LABEL  c DECLARED AT 16056000 "= OCCURS AT 16343000 
16064000 16065000 16080000 16086000 16101000 16103000 16136000 16245000 
RY == Larne == npecbLaRFn aT 16054000 == occURS AT 16243000 
16062000 16064000 16218000 
Ri == DEFINE == DECLARED AT 14546200 
146900500 144602000 144603400 144609000 
Ry se REA, #= DECLARED AT 16696300 
16696400 16698930 
Ri =» INTEGER == DECLARED AT 37422100 
*37432000" 37433000 
R2 "= REAL ™™ DECLARED AT 16696400 
16696500 
R3 "= REAL °°" DECLAREN AT 16696500 
16696600 16697200 16698240 
R4 REAL °'" DECLARED AT 16696600 
16696650 16697000 16826900 16828000 *16853200% 16854700 
R& = STREAM VARIABLE ** DECLARED AT 16854700 
16855300 
R4 "» REAL "* DECLARED AT 18500100 
18570000 18580000 
RQ = STREAM VARIABLE == DECLARED AT 18570000 
18570300 
R4 "* REAL °" NPFECLAREN AT 18700100 
*18740600« 18750400 18770400 «18770900% 18840100 18820100 48820200 #18821800% 18830700 
18834700 
R4 we STREAM VARTABLF == OFCLARED AT 18770400 
RO = REAL == DECLARED AT 19302000 
19303000 
R4 = REA, © DECLARED AT 19501000 
19569000 49570000 19572000 19680200 19681000 19685030 


18527900 «44280400» 


18831500 


18834000 


R4 
R5 


STREAM VARIABLE = 


19680300 
REAL 7° 
18503400 
REAL 7° 
18750100 
Real 7 
19590000 
19685460 
REAL == 
REAL == 


*18770300%8 148770900 
STREAM VARIABLE == 


18832000 


STREAM VARIABLE == 


18833200 
REAL os 
19575000 
REAL °° 
REAL & 
18770900 
REAL, = 
19575000 
REAL = 
REAL == 
18770900 
REAL 7* 
19575000 
REAL 7 
19576100 
INTEGER 
00393000 
INTEGER 


STREAM VARIABLE == 


00657200 


REAL, =n 


DECLARED AT 19680200 
DECLARED AT 18500100 


NECLAREN AT 18700100 


18790409 18790200 18790400 18790600 «18821800% 18835000 
DECLARED aT 19501000 

19685030 19685340 19685350 19685360 «19685370 19685380 
19685550 


DECLARFD AT 18500100 

DECLARED AT 18700400 

18790106 48790200 48790400 
DECLARED AT 18831700 


18790600 48821800 


DECLARED AT 18832900 


DECLAREN AT 19501000 
19576600 19685370 

DECLAREN AT 18500100 
DECLARFH AT 18700100 


19685550 


DECLARED AT 19504000 
19685550 
DECLARED AT 18500100 
DECLARED AT 18700100 
18860000 
DECLARED AT 19501000 


DECLARED aT 19501000 
19576300 

VALUE PARAMETER "= 
00394000 

VALUE PARAMFTER =" DeclLaRFD AT 00432000 
DECLARED AT 00657000 


DECLARED AT 00396000 


DECLARED AT 02057000 


*#02061000*% 02063000 *02965100* 02067000 #02071000%«020770008% 02079000 


INTEGER 


#02173100% 021731410 
VALUE PARAMETER 


REAL ae 
02187100 
REAL == 


DECLARED AT 02133200 

02173150 02173296 02173300 
DECLARFN aT 02187300 
02187200 


DECLARED aT 92190000 


02193000 *02209000%*02211010%*02212100%*«02215000*% 02215500 *02216000% 


02955000 


02256500 *02275200% 02275250 02275350 027275400 027275650 


*022R80000% 02287210 *02294000% 02300000 


REAL =* 


REAL = 


DECLARED AT 027434420 
492434470 %%02434500e 02434510 
DECLARFD aT 04021000 


02434520 «02434540% 02434560 *02434570% 


*#04023000« 04025000 


REAL 7" 


RealL 7) 


04105400 
REAL, om 


DECLARED aT 04044000 
*04046000*% 04055000 
DeclhaRrn aT 04103050 
*04404000* 04105700 
STREAM VARYABLE == 


04058000 04060000 04061000 04062000 04063000 


04105950 
DECLARED AT 04705200 


DECLARFD AT 04116000 


*04117000* 04118000 


18850400 


19685400 


18831700 


02089000 


02216500 
02275700 


02434580 


04064000 


18870700 
19685430 


18832900 


02097400 


02216510 
02275800 


02434590 


19685452 


02100000 


02217100 «02254000 
09276100 «02276290" 


#024 34610 4402434620" 


19685456 


ee 


REAL &* 


*#04129000% 04131000 04137110 
04170800 O4178000 04190000 
04230000 

REAL = DECLARED AT 049257000 
04972000 042779500 04979400 
04286200 04286400 04299200 
04346600 04316800 04317000 

STREAM VARIABLE *=* NECLARED 

STREAM VARIARLE == DECLARED 
04280800 

STREAM VARTABLE = NECLAREN 
04785400 

REAL ©" DECLARED AT 04354200 
04366400 04366600 04367000 
04391600 04398100 04421800 
04429400 04431200 04433200 

STREAM VARIABLF == OFCLARFA 
04588330 

STREAM VARTABLE == DECLARED 
04588470 

STREAM VARIABLE == DECLARED 
04647150 

REAL =" DECLARED AT 04668550 

«04682250% 04685200 04685250 

REAL 7" VaLUE PARAMETER = 
04700000 04701000 04707500 

*04735000% 04736000 

STREAM VARIABLE == DECLAREN 


DECLARFN AT 04126000 


04137140 04137170 
04194100 04194700 
04280400 04984600 
04300200 04304600 
04336000 043518006 


AT 04272000 
AT 04980400 


AT 94285000 
04368000 «04372000« 
04425400 04495600 
AT 04588280 
AT 04568410 


AT 04647100 


04685300 «04685400» 


DECLAREN aT 04702000 


04708000 04742000 


AT 04712000 


04744000 *0567,0000*% 05674000 

STREAM VARIABLE == DECLARED AT 05644000 

INTEGER == DEC )ARED AT 05847700 

*05848100* 05848955 *05850110%*05850130%*05850300* 


INTFGER =" DECLARED AT 05951800 

05951900 *05952995e 05953000 05953040 05953045 
05971800 O05972n00 «05976150% 05976400 05976450 
Real ==" orcbaRen at 06037000 


#06037700«%*06038000% 06038100 

STREAM VARIABLE = DECLAREN AT 06038;00 

INTEGER == DECLARED AT 06069100 

06088900 06100900 *06101000«%*06109300* 064,0500 


STREAM VARTABLE == DECLARED AT 062059200 
06205300 

STREAM VARTABLE = DECLARED AT 06381340 
06381350 063814360 

REAL = DECLARED AT 07006140 

07012000 07013n00 09070915000 07016000 07019000 
STREAM VARIABLE "" DECLARED AT 07256600 
07257000 

STREAM VARIABLE =" NDECLARFN AT 07260000 
07260400 

STREAM VARIABLE = DFCLAREN AT 97295020 
07295170 
REAL *= DECLARED AT 07424000 
*074909400% 07499300 *07433000* 07434000 07435000 


07452600 07452700 


STREAM VARIABLE == DECLARED AT 07429100 


04137202 
04199000 


04289000 
04309200 


04372050 
04426000 


04723000 


05850700 


05953050 
05976700 


06413400 


07020000 *07062000* 07063000 #072330008«07234000% 


07436520 


04151220 04151230 04157000 
04205000 04224100 04224500 
*04984200% 04784400 04284600 
04309600 04310400 04312400 
04372100 04373000 04391200 


04168000 
04225000 


04285000 
04315400 


04391560 


*04426600« 04427000 404427200«% 04427800 


04725000 *04729000* 04731000 


05851300 *05852100* 05852200 


*05961200%405961600%*05962000« 05971000 «05971600% 


05977100 05977300 


04732000 


05852400 


04169000 
04228000 


04285800 
04345600 


04391570 
04428000 


04733000 


05852500 


07437200 07438200 07441000 07442000 07452200 


Nan 


nr wn FT SH 


STREAM VARIABLE == 
STREAM VARIABLE °& 
STREAM VARIABLE == 
#07461 280%*07461540" 


DECLARED AT 07436520 
DECLARED AT 07452200 
DECLARED AT 07461000 


REAL ™" DECLARED AT 07542000 


«07547000%%07557000% 


07559000 *07559180« 


INTEGER =") NECLAREN AT 08255200 


08255400 08276260 
STREAM VARTABLE == 
08976280 
STREAM VARIABLE == 
*08471060% 
STREAM VARIABLE == 
*08471150% 
STREAM VARIABLE == 
*08478500% 


NECLAREN AT 08276260 
DECLARED AT 08471030 
DECLARED AT 08471110 
DECLARED AT 08472000 


INTEGER @" DECLAREN AT 08528000 


*08530000« 


REAL =" DFCLARED aT 08704000 


#08742100m 08712410 


08712140 «087151400 08745200 08716300 


REAL ARRAY =" PMECLAREND AT 08854000 


08865000 08867000 
089142000 *08913000» 
STREAM VARIABLE == 

09535300 *09535400% 
STRFAM VARIABLE == 

12851500 
STREAM VARIARLF == 

12887500 12888000 
STREAM VARIABLE == 

14285000 44287000 


08868000 *0888,000*% 08885500 08886300 
08915000 08928000 «08936000 %«08945000% 
DECLARED AT 09535100 
09535600 *095354600* 
NECLARENP AT 12851000 


NECLAREN AT 12887000 


DECLAREH AT 14284000 


REAL ARRAY == DECLARED AT 144350000 


14350100 «44358320 
*#14393750% 14383800 
14399300 14399500 


14358330 14358335 14358345 #*£44360700» 
14385000 14386000 14388000 «143913000» 
14399700 *14411640% 14411660 14411680 


INTEGER *" DECLARED aT 14546100 


*14562000*% 14563000 


14590000 


REAL 27 DECLARED AT 14624450 


REAL ARRAY w= VALUE PARAMFTFR == ODFCLARED AT 15169000 <== 


15168000 145168100 


15176000 15177000 *15185000* 


SWITCH LABEL == DECLARED AT 16061000 


16077000 


SWITCH LABEL = DECLARED AT 16362000 


16378000 


SWITCH LABEL © OFCLARED AT 16703000 


16714500 


INTEGER =" ODECLARFD AT 18199000 
#18225000« 18226000 418228500«% 18229000 18235000 18245500 


STREAM VARIABLE 7" 


DECLARED AT 18540600 


SWITePH LaRpEL @" necbLaRED aT 18701200 


18710200 


REAL ARRay =" neecblaRen aT 19692000 


#19705000«% 49707000 
19738210 419739000 


19708000 
19742000 


149709000 
49750000 *197501;00* 49751000 


08887000 
08946000 


14360900 
14392000 
14411700 


OCCURS 


19767750 


08887004 08887010 08887300 08901000 
08947200 08947400 08998000 


*14380000*% 14381000 «14383700 "144383740 
14396100 «14398600« 44398700 44399100 


AT 415035000 


19741300 49749000 49720000 49738400 49738110 49738120 49738200 


*19767760%819767800*%19767900%41 9768000" 


*19768050 «m1 9768900 ee1I7T6B7TOO*® 19768750 «19773000 *419774000 HH 19774850 «#1 9775000 4H 19775100 %%1 9776000 4419776040" 


*1977610044197767410e%197B4000% 19785000 


STREAM VARIABLE == 


19786000 
DECLARED AT 19767750 


nn TD FD HM 


=e 


bd 


REAL =" DECLARED AT 19900260 

%#19900390»% 49900400 19900440 19900430 19900440 
19900650 419900660 19900680 19900720 19990730 

SWiTcH LaRFlL == neclaRrn at 19901700 

19909700 

REAL ARRAY == DEC {,ARED AT 20043500 

20000800 200296400 *20076600* 200297300 20097400 
20930760 20030a0N 20931500 20034000 20034600 
20043700 20044800 20945600 20045700 20045800 

REAL ARRAY ™" NECLARED aT 20082700 

20088700 20091400 20101000 20101100 20101300 

Real aRRay @" pecbaRen aT 20143100 

#20150100% 20152400 270162300 20163600 20464200 
20173300 20174400 270176033 20176093 420178100 
20199400 20210400 

STREAM VARIABLE == DFCLARFN AT 20427000 
20428000 

STREAM VARIABLE = PECLARED AT 20433000 
20434000 

STREAM VARIABLE #= DECLARED AT 20439000 
20440000 

STREAM VARIABLE ==" DECLARED AT 20582750 
20582800 

SWITCH LABEL = DECLARED AT 22065000 

22069060 22069230 22105000 

STREAM VARIABLE 7" DECLAREN AT 22069060 
22069080 

STReaM VARTABLE =" pECLAREN AT 22069230 


22069250 
REAL om 


DECLARED AT 22230000 
*#22959000% 99266000 4£229984000%%29286030%«22986040% 


#22314000% 22315000 *22317000*#22326400% 22326800 
DECLARED AT 28031000 


STREAM VARIABLE -= 


26031200 
REAL ARRAY == 
28811000 28842000 


INTEGER @=*" 


DECLARED AT 28804000 
28824250 £28855000%%28858000% 
DECLARED aT 30904000 


#30911000% 30912000 «30914000% 30920000 
NECLAREH AT 30920000 


STReaM VARIABLE = 
30925000 
INTEGER «= 


38576000 


STREAM VARIABLE = DECLARED 
37257000 

STREAM VARIABLE = NECLARED 
37315000 

STREAM VARIABLE "== DECLARED 
37347000 

INTEGER ©" VALUF PARAMETER 
37418000 37419900 37425000 

STREAM VARIABLE == DECLARFN 
38104400 

STREAM VARTABLE © NECLAREN 
38202400 

STREAM VARIABLE = MNECLARED 

STREAM VARTABLE == DECLARED 


DECLARED AT 37480200 
37188750 *37209000%*37240175* 37210300 *37291200™ 


AT 
AT 
AT 
AT 
AT 


AT 
AT 


37256000 
37314000 


37346000 


19900455 
19900735 


20028300 
20034610 
20045900 
20105200 


20170800 
20180400 


22286050 
229354000 


28865000 


37224460 


DECLARED AT 37421000 
37425500 


38104300 
38202300 


38422000 
38575000 


19900490 
19900745 


20028900 
20035300 
20046200 


20105900 


20471000 
201480600 


19900540 
19900760 


90030200 420030350 «490030400« 
*20035R00« 


20046400 
20118370 


20171100 
20180800 


19900550 
19900815 


20039400 
20058300 


20118900 


20171200 
20191400 


*22286180**2930;1000% 29307000 
*22376000%*29377000%422390000% 29400000 «22421000 


19900565 
19900840 


20039700 


20129300 


20172600 
20195100 


22309000 «223320006 


19900600 
19900860 


20030700 
20039800 


20172700 
20498500 


28866000 28868100 28868200 +*278868300% 28868500 


*37229000%%379807008 372441300 *37241610" 37256000 


S) 


SA 


— 


SAGE 
SATOD 


SAV 
SAV 
SAV 


STREAM VARIABLE “© 
39087000 


DECLARED AT 39086000 


INTFGER ©" DECLARED AT 40006100 


40010000 400110090 
40293080 40293090 
STREAM VARTABLE == 
41047000 
STREAM VARTABLE == 
41333037 


40912000 40013009 40014000 £40264500* 40265000 «40293020% 40293050 
40293140 40293120 440322000 4440322400 4440322410%040329425e 40322430 


NFCLARFH AT 41046000 


DECLARED AT 41333005 


REAL *° DECLARED AT 42516000 


*#42517020% 42546000 
STREAM VARIABLE == 
44095000 440960900 
STREAM VARIARLE == 
44146000 


42547000 425549300 42551400 
DECLARED AT 44093000 
#44097000« 44099000 

NECLAREN aT 44144000 


INTEGER == DFCLAREN AT 30904000 


*30942000*% 30943000 


30946000 


REAL = MNEC)ARED AT 14164200 


m= NAME w= DECLARED AT 41017100 
SAMEBREAKTAPE we NEF INE 
SANDA 


04736500 
STREAM VARIABLE 
08015400 
STREAM VARIABLE 
08450400 
STREAM VARIABLE 
08554000 


SAVEARRAYDESC °" DEFINE 


SAVEBrT 


SAVEBYT 


SAVEF 


SAVEF 


SAVEF 


07097000 42848500 


w= DECLARED AT 00411000 


=" (LABEL == DECLARED AT 04705500 = OCCURS AT 04712000 
w= DECLARED AT 08015100 
e= DECLARED aT 08450100 


em" PECLARED aT 08551100 


m= DECLARED AT 00017030 
20127300 20183,000 28455400 


w= REAL 7" NECLARED AT 14157000 
141589000 *74280000% 44282000 14296000 
wo DEFINE = DECLARED AT 19696500 


19766000 19766500 
== REAL == VALUE 
00914000 00015000 
#= REAL 7? VALUE 
24032080 24032100 
“= REAL '* VALUF 
24042200 24042300 


SAVEFACTOR =" DEFINE &* 


08105700 08113300 


SAVEINDX "=" DEFINE &= 


12251500 142275000 


SAVEINDX = DEFINE = 


SAVEMIX 
SAVEND 


12392000 12466000 
== PROCEDURE == 
02042000 20197600 


PARAMETER *= DECLARED af 00017000 


PARAMETER "== DECLARED AT 24032100 
24032900 24036125 

PARAMETER "=" DECLARED aT 24042400 
24042650 24043600 24044100 74044110 24045600 
DECLARED aT 08100900 . 


MECLARED AT 12218000 
DECLARED AT 12368500 


DECLARED AT 02032000 
46121200 


w= LABEL ©&" fECLAREN AT 20597800 =" OCCURS AT 20609100 


20608950 


SAVENTRY == REAL "" DECLARED AT 41316300 


SAVEOPEN “= PROCEDURE == 


14243000 


SAVETHEUNTT = PROCEDURE 


SAVEU 


16174000 


DECLARED AT 00379100 


“= DECLARED AT 08575000 


== REAL |= DECLARED AT 04668550 


*04673650% 04687300 


40293060 
40322440 


40293070 
40322800 


SAVEV == NEFINE =" DECLARED AT 20233500 
20507300 
SAVEWORD c REAL 7" DECLARED AT 00425000 
02198000 07014000 08015100 *£08427100««08437000*% 08438420 08450100 
12527500 12531500 12753500 «12866500%«14671000% 20608950 20609200 
37305000 #38122400%+38256500e 38633000 *«44244400% 44214300 
SAVIT w= SUBROUTINE = DECLARED AT 40008300 
40008350 40785700 
SAVIT w= REAL == DECLARED AT 42515000 
*42591000% 
SAt =" INTEGER == DECLARED AT 05951900 
#05962B800% 05962900 #059689008 05969000 05969150 
§B ™" REAL 7" NMFECLAREN AT 22230000 
*22259000% 22283000 22284000 *«22286040% 22286170 22286180 
Sc m= Large == neclhaRen at 16355000 = ofcuURS AT 16407000 
16364000 
SCAN == SUBROUTINE #28 PFCLARED AT 05959745 
05952980 05956400 05986600 05956700 05956850 05957300 05957450 
SCAN = LABEL "= DECLARED AT 06069900 = OCCURS AT 06077800 
06085900 
SCAN = REAL SUBROUTINE = DECLARED AT 20397100 
20397200 20409000 20446000 29416500 204149000 20420000 20423000 
20438000 20441000 20448100 20453000 20461000 204614320 20461400 
20471000 20472000 20478510 20484050 204842700 20484250 20495000 
ScaN = Real SUBROUTINE == nechaRro aT 20566875 
20566900 90567045 70567975 20567080 20567445 270567158 20567478 
20569320 270569670 20569730 70569750 20569780 70569800 270569804 
20569960 20569990 270570065 205704130 20570180 270570190 20570235 
20573400 20573420 20573430 20573470 20573500 20573760 20576975 
SCAN "= Real SUBROUTINE *" DECLARED AT 20584150 
2058420Q 20584350 270584450 20584500 20585200 20585350 270585700 
SCAN == REAL SUBROUTINE = DECLARED AT 20587050 
20587100 20587800 
SCAN = REAL SUBROUTINE == DECLARED AT 20589950 
20590000 20590050 20590100 20590350 20590500 20590600 20590655 
20590730 
SCAN = REAL SUBROUTINE =" DECLARED AT 20594350 
20591400 20591750 70591800 20594650 20592200 20593050 270593250 
ScaN "" Real SUBROUTINE ** DECLARED AT 20600020 
20600040 20602650 20602700 20604115 20604325 20604200 270604250 
20605702 20605880 20608072 20608074 20608250 20608300 270608730 
SCAN = REAL SUBROUTINE =" NECLARED AT 20705000 
20706000 270732000 2707146000 207148000 207,9000 270780000 
SCAN =e [ABEL == DECLARED AT 44316500 = OCCURS AT 41318780 
41348960 
SCANDSKTYP =" SUBROUTINE == DECLARED AT 20567205 
20567285 20569630 20570340 
SCANEXCEPT © SUBROUTINE == DECLARED AT 20567000 
20570015 20573530 
SCANEXCEPT 7" SURROUTINEG "=" DECLARED AT 28447200 
28469400 28478000 
SCANMFSSAGE = SUBROUTINE =" ODFCLARED AT 06077200 
06403300 
SCANON = REAL SUBROUTINE == DECLARED AT 270567154 
20547180 70567482 20567280 70569846 20569860 70570464 
SCHD =e STREAM LABEL == DECLARED AT 20032150 == OCCURS AT 20032250 
SCHEDBIT = DEFINE =m DECLARED AT 00417070 


08551100 «08584100%««08587000% 08597820 


22094000 


20426090 
20461500 
20497000 


20567915 
20569830 


20570250 
20577400 


20590670 


20593310 


20605000 
20608740 


22101000 


20430000 
20463000 
20507000 
2056729905 


20569846 
20570430 


20590675 


20593320 


20605360 


22102000 «37037200 


20432000 
20467000 
20508000 
90567274 


20569860 
2905704692 


20590690 


20594450 


20605380 


20436000 
20470110 


20569260 
20569950 
20570575 


20590695 


20605700 


SCHEDMSG *2 DEFINE = DE 


20030760 
SCHEDULEINS == 
07260000 


R 


20034000 


CLARED AT 00416300 


FAL =" DFCLARED AT 06056099 


08276960 


SCN *" REAL PROCEDURE == 
*20381000% 20397200 


= peelake 


14562000 
ze DECL 
22213700 


SCNX "= agro = 

20567115 
SCRAMBLE == OEFINE = ODE 
082968900 
SCRATCH == LABEL 

22208000 
SCRATCHDIRAREAV = 


= DEFINE 


14378100 14383100 19768900 200270800 20088700 
DECLAREN AT 20314000 

20566900 20584200 20587100 20590000 20591400 
mn AT 20566610 "= OccURS aT 20567010 


CLARED AT 00419110 

18225000 20382120 40293030 

ARED AT 22062000 f= OCCURS AT 22175000 
22221000 

== DECLARED aT 00017330 


SCRATCHDIRECTORYMASK = DEFINE == DECLAREN aT 00081690 
SCRATCHNDIRECTORYREANY =" PEFINE == DECLARFD AT 00081680 
"= DFCLARED AT 08441100 

*08487100* 08497;,00 


SCRTOG == REAL 


SD ee REAL ARR 
SD ew REAL ARR 
SD =» REAL ARR 
SD *— NAME == 


SDED "=" REAL 


AY 
AY 
AY 


se DECL 


ARED AT 20013900 


w= DECLARED AT 20083100 

w= DECLARED AT 20143500 
DECLARED AT 30905000 
*30908000« 30909000 


DECLAREN 


¥07425700% 07437800 


SDEX "=" REAL 
Soex 7" Real 
SDFX 7) ReAL 
SOFX 7 Real 
SorxX oe Real 
SDFX = REAL 
SDEX = REAL 
SDEX == REAL 
SDEX =e REAL 
SDEX = REAL 
SOXIT = LABEL 


SEARCH "=" REAL 
18235000 
SEARCH 7" REAL 
| 37209000 
SpaRcycOM == SUBROUTINE 
37922100 
SEARCHDTRECTORY 
28469800 


Co Meed 
an 
an 
- 2» 
ae 
mo 
on 
we 
on 


S 
) 


DECLARED 
DECLARED 
DECLARFD 
DFCLARFD 
DECLARFN 
DECLARED 
DEC) ARFD 
DEC|,ARED 
DECLARED 
DECLARED 


30912000 *30915000* 30947000 30920000 30929500 
AT 907424100 


AT 20566100 
aT 20581000 
AT 20584000 
AT 20586800 
aT 20589800 
AT 20591000 
AT 20595000 
AT 20596800 
AT 20600010 
AT 20701500 


m~ DFCLARED AT 06070000 = OCCURS AT 06115500 


URROUTINE 
18264000 
UBROUTINE 
37210000 


» SUBROUT 
98473a00 


SEARCHVAL -= REAL = DEC 


12505000 


12562000 


SEARCHVaAL 7" REAL “" DFC 


12805000 


SEARCHVAL ©" REAL 


3006000 
SECBIT ™" DEF! 


SFECBOMB == LAB 
20599000 
SECMSG «# ODEFI 
20511720 


NE 
FL 


NE 


ee peel 
ea DEC 


=" DECLARED aT 18223000 

18281000 18425500 

“= DECLARED aT 37186000 

37210200 37221140 37223000 37229000 372741610 


“= pecbaRen at 37221100 


TNE ==» DECLARED AT 28414600 


LARED AT 12504000 


12590000 12630000 «12682000% 129712000 #127140008%19721000% 12749500 *#12750000«4%12752000% 


LARED aT 128049000 


== pPEcbARED aT 13005000 


ARFD AT 00437075 
ARED AT 20597750 == OCCURS aT 20606400 


w= DECLARED AT 00416400 


SECONDCTR == REAL == DECLARED AT 22000000 
#2205 3800%#48001000%% 4800600044480 32000%448051000%"48079000« 
"" DFCLARED AT 04668700 


SECREC *'" REAL 


20582440 


20596300 


20582750 


20600040 


22069230 


20706000 


04676150 04676500 04684050 04687800 


Fab °°" pecbhaREn at 04668700 


04683950 «06466700% 06466800 08106040 44569200 48553500 


19699000 


PROCFNURE =" DECLARED AT 20511100 == FORWARD AT 06460000 


e= DECLARED AT 20594500 «= gCCURS AT 20593000 
20593850 

wm DECLARED AT 20594500 "= ocCURS AT 20593600 
20593500 

w= DECLARED AT 20511160 "7 oCCURS AT 20511440 


me DECLARED AT 20511160 "= OCCURS AT 20511600 
20511500 20511530 20511560 

w= DEPLARED AT 20591500 "7" OCCURS aT 20593800 
20593550 70593700 

- DecLAREn aT 18208000 == OecuURS aT 18298000 


SEE «= LABEL = DECLARED AT 37480500 == OCCURS AT 37207500 


*#04675700« 
SecRE¢1O = 
¥04676800% 
SECURTTYMAINT =< 
20593750 
SEC{1 == LABEL 
20593100 
SEC2 "= LABEL 
20593350 
SEC3 "= LABEL 
20511330 
SEC4 '= LABEL 
20511459 
SECS "= LaBEel 
20592750 
Str oo" bLapgrl = 
18403000 
37487130 
SEEK om LABEL 
20576500 
SEEK = LABEL 
20779000 
SEEKDC ** LABEL 
14632000 


37195200 
=e DECLARED AT 20566600 = gCCURS AT 20574000 


m= DECLARED AT 20701000 *= gCCURS AT 20723000 
“= DECLARED AT 14628000 =" OCCURS AT 14660500 


SEEKNAM "=" PROCEDURE "= DECLARED AT 20382010 ** FORWARD aT 02052700 


08104900 
SFC wo Real a) 
SEG ee REAL == 


#16851 200» 

SEG = STREAM V 
16855500 
SEG = INTEGER 
*24127000% 

SEG ©" STREAM V 
24135000 

SEG *" REAL = 
28003600 

SEG ©" RAL = 
#28409600% 

SEG 7" Real ce 

#288,1000» 


SEQDICT == NAME 
*16851100% 
SEGDICT == NAME 
*22357000% 
SEGDICTAREAV == 
14364400 
SEGMENT "= REAL 
SEGMENT == REAL 
06037400 
SeqNO =  NTE6e 
00363000 
SEGNO e«* REAL 


20574300 20577325 20593450 20725000 28473200 

VALUr PARAMETER =" DECLAREN AT 00364000 

NECLAREN AT 16698200 
* 16854900 %«16892300%*16852800% 16852900 *76853000% 16854000 
ARTABLE = DECLARED AT 16854600 


"= DECLARED AT 24106000 
24129000 *24130000* 24133000 24134000 *24142000*% 24143000 
ARTABLF = MDNECLARFD AT 24134000 
*24136000" 24139000 
DECLARED AT 28003400 
*28012140" 28012150 
DECLARED aT 28401600 
28409800 28410000 *284327800* 28433000 28442000 
DECLaREn aT 28803000 
28812000 278843000 
m= DECLARED AT 16698240 
16854400 
“= DECLARED AT 22232000 
22374220 *22383050**224292000* 22493000 «27424000 
DEFINE == DECLARED aT 00017520 
20124900 
-= vALUE PARAMETFR *"" DECLARED aT 06020500 
"= yALUF PARAMFTFR = DFCLARED AT 06036000 
06037200 06037700 
Ro oe= VALUF PARAMETER *=* NECLARFD AT 00363200 
00363400 
me» DECLARED AT 14164000 


*141R86020%%14186030% 14186100 *14188000%414189000* 14194000 14492000 


SEGNO **" STREAM 
SEGNO =" REAL 


VARTARLE *" DECLARED AT 14227300 
v= DECLARED AT 22231000 


16854100 


24145000 *24165000* 24166000 


14212010 


20588050 


16854600 


14227300 


37428100 


46854800 


385; 3000 


22279000 *22371220%8%22415000* 22416000 *22419000* 22419500 22420200 *22942050N*% 22423000 272424000 


SFGNO =" INTEGER 7" VALUE PaRAMFTFR "= nEeCLARFD aT 24202000 
24200000 24201000 24211000 24212600 
SEGNO s" oo NTeGFR == necbLAREp AT 413164106 
41378760" 41318820 44318880 *41349200* 41349320 #£44320340*% 44320345 
SEGNR ==" REAL == DECLARED AT 12504500 
12505000 47505500 *42563500* 12628000 «12645000 
SEGNR == REAL == DECLARED AT 12804500 
12805000 17805500 
SEGNR ©" REAL = DECLARED AT 13005000 
13906000 43041000 13942000 *13046000* 13049000 *43050000« 
SEGS "=" REAL 7 DECLARED AT 05957300 
05952400 05953045 *05957650«#05976700 #405977 300%«05977700% 05978050 
SEGS 7" STREAM VARIABLE "=" peECLAREN AT 05978050 
05978150 05978200 
SEGSI7 7" INTEGER == MecblAREn at 41316410 
#44349220% 44319780 
SEGSPERROW = DEFINE == DECLARED AT 08401700 
08409300 
SEGZEROAREAV #= DEFINE = DECLARED AT 00017300 
07257400 082775500 20174048 2206910N 38434000 
SEGO "* REAL ©* DECLARED AT 07244000 
*07257400% 07257600 07258000 
SFGO = REAL =" DFCLARFN aT 08255400 
¥08275500% 08275600 08275750 08276050 
SrFaQO = Rral aRRay = neclLaREN aT 20013600 
¥20034610% 20049000 20049500 20049800 20050000 20053100 20066600 
Seq0 es Real ARRAY == nFcLARED AT 20082600 
20440700 70410900 70441100 201147500 20441609 201439000 20121800 
SEGO == REAL ARRAY = DECLARED AT 20143200 
20476030 *20176033% 20176045 *2017604@*% 20476054 20176084 20476093 
SEGO == REAL =" DECLARED AT 22061110 
22061120 *220691008 22069190 22069130 
SEGO "= REAL ARRAY "= DECLARED AT 38366000 


41320360 *41321350* 41321500 


05979050 


20124900 20125000 20125300 


20187300 204192500 270192800 


*#38434000« 38435000 38437000 38440000 «38449000 e«%38457000 438474000 38476000 38478000 


SEGO “"" Rab ARRAY “2 NMECLARFD aT 38550000 
SFGO * = Real aRRaAY c= WECLARFED aT 38657000 
SFO = Real ARRAY = MECLARED AT 41007200 
SELECTION == DEFINE == DFCLARED AT 00496800 
08836508 08998400 12425200 44437000 149799050 20237600 270609700 
SELECTRUN = PROCEDURE e= DECLARED AT 20140800 = FORWARD AT 00426700 
072764400 08276520 08836500 08998400 12425200 14432000 19799050 
SELECTRUNI ** PROCEDURE ©" DECLARED AT 20011200 
20080200 20151300 20163000 20187800 20189500 
SELECTRUN2 ™" PROCEQURE "" DECLARED AT 20080500 
20140300 20186900 
SELERR 7" LABEL 7" pMECLARED AT 14627200 =" OCCURS AT 14643000 
14632000 
SENSE ©" NEFINE @™ neclaREN AT 20247950 
20484855 20713000 
SENSETOR we Real e= DECLARED AT 20704000 
*20733000% 20742000 20747000 20767000 
SENSEVAL == REAL == DECLARED AT 20037200 
20047300 *20065900* 270065700 270065800 
SEPARATE == DEFINE =" PECLARED AT 00416800 
02287245 12843600 142890100 382881;00 38289100 38590200 38592400 
SEPARATION *" NEFINE =" DECLARED AT 12519000 


20149200 20609700 272069500 


38594100 38741000 38742100 


20129400 


20210500 


SEPTICTANKING "== DEFINE '" DECLARED AT 00081972 

SFRIAL "" LAKHEL 7" PEeLAREN AT 20391000 =" OCCURS AT 20482000 
20395000 

SeT =* Lapel =" NECLAREN AT 20597850 == O¢cURS AT 20606650 
20598000 

SETDATE == PROCENURE == DECLARED AT 08343000 
164917000 

SETIME em PROCEDURE == ODFCLARED AT 08390000 
16497000 


SETNOTINUSE == PROCEDURE == OECLARED AT 37302000 =" FORWARD AT 00380000 . 
02434780 126706800 12757500 28012069 28044100 28015200 28016200 28026800 
28226600 28247200 26251006 28304800 28306000 28306600 28481400 37214000 
37464000 38105600 38106100 38203600 38204100 38634000 38640000 38737000 
38789700 

SETSHIFT == SUBROUTINE e= NAFCLARFD AT 05847900 
05848500 05851300 05852400 

SETT == REAL SUBROUTINE == DECLARED AT 08681000 
08489000 08689;00 08690400 08697800 

SETUP w= SUBROUTINE == DECLARED AT 20567316 
20567365 20570550 20571600 

SETUP #* SUBROUTINE == DECLARED AT 40046000 
40017300 40027945 40044000 

SETUPFBTABLFE "=" REAL PROCEDURE == DECLARED AT 07003400 

#07093440% 07039700 

SETUPTNREC "=" SUBROUTINE "= DECLARED AT 12614500 
12693500 12746000 

SETV °" NFFINE =" DFCLARFD AT 20228000 

SEVEN -™ LABEL =" DFCLARFD AT 04357400 = OCCURS AT 04425800 
04427000 

SEVEN7T = REAL == pDrcLaRep aT 40004500 
40046800 40047;00 40048000 400603029 40062000 40070000 40078030 40078032 

SFH =* REAL =" VALUF PARAMETER == DECLARED AT 20511120 
20511190 2705141410 70541490 

SFH #* REAL == DECLARED AT 20566100 

SFH =" REAL 7" DECLARED AT 20581000 

SFH ©" REAL ** DECLARED AT 20584000 

SFH 7" Real =" DECLARED AT 20586800 

SFH oo" Real == NMeCLAREN AT 20589800 

SFH ©" ReAL =" DECLAREN AT 20591000 

*20594950% 20599050 70599400 970599950 20593750 70593950 270594650 

SFH ee REAL #8 DECLARED AT 20595000 

SFH = REAL += DECLARED AT 20596800 

SFH «= REAL = DECLARED AT 20600010 

SFH e* REAL == DECLARED AT 20701500 

SFID == REAL © VALUE PARAMETER ==" DECLARED AT 20511120 
20511100 20511110 20511300 20511470 *20511520* 20511660 20511663 

SFID 7" REAL ©" DECLARED aT 20566100 

SFIOD 7* Real *" DFECLARFD aT 20581000 

SFID ** Real =" DECLARED aT 20584000 

SFID =» Rralb =" DECLARFD AT 20586800 

SFID se REAL |= DECLARED AT 20589800 

SFID =» REAL = ODEC).ARFD AT 20591000 

*20591900«e 20591950 20593750 20593950 20594650 


SFIO *= REAL -* DECLARED AT 20595000 


SFID = REAL == DECLARED AT 20596800 
SFID *= REAL =" DECLARED aT 20600010 
SFIO "= REAL ** DECLARED AT 20701500 


28037600 78057400 28082800 
37218200 372548000 37319400 
38743000 38779000 38783000 


40078040 *40249405« 40323200 


SFINTQ 


SFINTX 


SH 7. 


SHE AT 


SHFAT 


SHEAT 


SHEET 


er REAL ARRAY "=" NDECLAREL AT 19901800 
Beene Thon 19903940 1990398060 19904010 *£19904020%«19904060" 19904300 19904700 19904850 *19904860« 1419905000 
419905100 
"= MEFINE =" peebAReEn at 00067100 
19903910 49904400 42501820 
REAL == DECLARED AT 06462700 
*06463280% 06463360 *06463380* 06463720 *06463860**06463880*% 06463900 *06463970% 06463985 06463986 06463988 
06443996 06464059 06464200 06464400 
m=? REAL ARRAY =" ODFCLARED AT 07244000 
#07256 8008407258000 4kN72582004%07258 400% 4072586008 e07259000 8407259200 4407259 400807 259600807261 800K 072620008 
4#07262100%#072622004%07263800*% 07264000 
me Real ARRay == neclaRen aT 08255600 
#08274750%40827 6050440827 61008408276 150%408276200%#08 276210440827 6220%408 97 6230%4 0827 6240840827 6350840827 6360s 
*089763654#08976400%e08276490% 08276500 
ee REAL ARRAY w= DECLARED AT 220614130 
#* 22069050 #99069 430% 99969 1 404% 22069 4 50% 22069 4 60%% 99069 1 80m #29069 1 9044990695008 4990692 10449706924 9%"92069390" 
#22069330 4829069 340%«22069430" 22069440 
w= REAL ARRAY e#* PFCLARED AT 00136000 
08864000 «0893100044089 32000% 08938000 08939000 08949000 *08944000%%08944500% 14387000 44389000 44392500 
414394000 4#14395000% 19778000 19779000 «19782000 %% 19783000 %%200214004%20021700e 20025000 270035500 20035700 
#20036100 082003620084 20089300%%20089600% 20583150 20583250 *20583450e#20583500«" 44157200 


SHEETARFAV °" nFEFINE "=" preclaRen aT 00017450 


SHFFTN 
SHEETF 
SHEET], 


SHEETL 
SHEETL 


SHEETM 


SHFFTM 
SHEETM 
SHEETM 
SHIM 


SHIM 
SHLM 


SHoRTC 
SHORTH 
ed 
SID = 
SIGNED 
SIGNED 
SIGNED 


07256400 08274250 08881000 08930000 20026600 22069050 
INDLFR ** PROCENURF 7" DECLARED aT 08850000 
08999000 14358375 16741000 148583200 42501200 
REE © DEFYNE == peclaREn AT 00080300 
14378190 20582440 
OCKED == REAL == PECI,ARED AT 20073300 
20034700 *900357,00« 
OCKEN = REAL == DECLARED AT 20082500 
OCKED == REAL == DECLARED AT 20142900 
20150600 *20151000" 20210300 
ASK ©* OFFINF ©" DECLARED AT 00080300 
08880000 08997N00 14379000 14396000 19768800 19786000 20034900 20035000 20150800 20150900 20210300 
20582450 20583650 45150000 
AX == nee INe == pecbaRen aT 20014900 
20024600 70035300 
AX = DEFINE == PECLARED AT 20084100 
AX = PEFINE == DFCLARED AT 20144500 
we REAL w= DECLARFD AT 44014000 
*44202120% 44206200 
m= REAL == DECLARED AT 442707000 
e= REAL =" DECLARED AT 45002600 
45135600 45135800 
OMMUNICATE == PROCEDURE == DECLARED AT 19500000 == FORWARD AT 02111500 
48104000 
EsDER *™ SURROUTING "=" NECLARED aT 28044400 
28088000 28093200 28098400 
LagrlL =" necbhaRer aT 16357000 = OccuURS AT 16544000 
16365000 
e REAL = VALUE PARAMETER == DECLARED AT 08850100 
08850000 18885500 089014000 08904500 08904050 08942000 08928000 
ON == REAL == ODFCLARED AT 12505500 
12536500 12540000 12695000 *12704500* 12702000 12702500 12703000 *197704500* 
ON "= REAL “= DECLARED AT 12805500 
#12878500" 12886000 
ON "= REAL ™* DECLARED AT 13007000 


SIGNIN "" LABEL 7" NECLARED AT 12813000 =" OCCURS AT 12848000 
12814000 

SIGNIN "" DEFINE "" fMECLARED AT 13027000 
13099000 


STGqNOFF == PROCEDURE == DECLARED AT 06180000 = FORWARD AT 02696300 
06330000 14430800 45130000 
S1N == STREAM LABEL -= ODFCLAREN AT 18820800 == OCCURS AT 148821300 
SIX = LABEL == DEC) ARFD AT 04357400 w= OCCURS AT 04474400 
04387400 04394000 04407600 04409400 04417000 04420800 04422200 
SIXTY ©" NWEFINE @" DECLARED AT 082756200 
08768950 
$1Z ©" STREAM VARIABLE "=" DECLARED AT 06077900 
06078700 
SIZE 7 INTEGFR =" VALUE PARAMETER ™" DFCLARED AT 00016000 
000144000 00015000 
StZeEooe= Reralb = VALUE PARAMFTER ==" DrcbLaRFn at 00019300 
00019100 00019200 
SIZE "= INTEGER == MECLAREN AT 00026000 
*00038000* 00039035 00040000 0004;000 00046000 
SIZE ee FELD © DECLARED AT 00062070 
07097000 08274950 08881000 08930000 12848500 20026600 20059120 20089820 20127300 
28451800 28455400 28855000 38107000 38107100 38205000 38205100 38434000 42477000 
SIZE "=" INTEGER “"" VALUE PARAMETFR “™" DECLARED AT 00363200 
00363000 00363100 
SIZF oc" INTEGFR =" vALUE PARAMETER "" DFCLAREN AT 00396000 
00393000 00394000 
S1ZE  e= RrAL = DECLARED AT 04554500 
#04638200% 04638900 *04658800* 04658900 
SIZE == INTEGER <= VALUE PARAMETER == DECLARED AT 06003000 
06900000 06004000 «06004040*#06004100*% 060740000 06041000 *06015000* 06018000 
SIZE °* REAL == VALUE PARAMETER == DECLARED AT 06063000 
06061500 06062000 06065000 
SIZE "= REAL ©" DECLARFO AT 09602100 
SIZE "= REAL =" OECLARFD AT 12360500 
#123875004 12388500 12391500 12392000 12395000 142395500 
SIZE 7" Real =" DECLARFD AT 14158000 
#14186140% 14186450 414194000%414198400%%14198800«% 14199000 144203020 14204100 44206000 


29176048 
42479000 


14212000 


14222000 14225000 «14227210 14227300 14227400 «14249000% 14252000 14265000 «14281000% 14284000 


StZF "= STREAM VARTABLF "™™ NFECLARFN AT 14204100 
S1ZE c= ReAL =" DECLARFO AT 15536000 
*15545008* 45546000 145548000 
S1ZE = REAL == DECLARED AT 15600300 
#15604400%*15601500*% 15601600 15602600 15602680 
SIZE == REAL == DECLARED AT 19901500 
*#19903910% 19903920 19993970 19904000 19904300 19904340 19904450 19904700 
SIZE "= RFAL =" DECLARED aT 24004000 
*24019000%*%24024000» 
SIZE 7" Real == Value PaRaMETER =" DFchaRrp at 24032100 
24032050 24032400 24033900 24934100 24035400 74035500 24035600 24036300 24037200 
24038900 
S1Z7— == ReAL |= VALUE PARAMETER =|" DFCLARFD AT 24042400 
24042200 324049300 24042700 24043600 
SIZE w= STREAM VARIABLE == DECLARED AT 34049700 
SIZE oe» I WTEGER =" DECLARED AT 24108000 
24132000 24141000 *24151000* 
SIZE "= INTEGER 7" VALUF PARAMETFR @" DECLARED AT 24202000 
24200000 24201000 


24037400 


290181000 


44218000 


24038800 


SIZE 
SIZE 
SIZF 
SIZE 
SIZE 
SIZEDI 
SIZED] 


SIZEF 


SK baad 


SK oe 
SKAN 


SKAN 
SKRLK 
SKFEL 


SKEL 
SKEL 
SKEL 
SKIP 
SKIP 
SKIPDy 
SKIPO] 
SKIPFI 
SKIpFI 
SKIPIT 


SK}PPr 


ee RFAL =" DECLARED aT 28003200 
*28095800" 28096400 
77 Real =" DECLARED aT 28203600 
28203800 *28233800%*28235200* 28235000 28237400 
ee oNTeGFR == VALUF PARAMETER *=© DrcLAREn aT 37421000 
37448000 37479000 37497000 37443000 
we DFFINE |= DECLARED AT 40908150 
40039000 40060490 40064000 40068000 40068100 
m= REAL ©" DECLARED AT 42514000 
*42533000*% 429535500 42537000 47539000 


V64 *" STREAM VARIABLE ""™ DECLARED aT 04656300 
04656900 

V64 "" STREAM VARTABLE °" DECLARED aT 04657600 
04658000 


“" REAL *™" DECLARED AT 24632700 


#240 33600%%24033800% 24933900 *£24034000% 24034100 «24035100% 24035500 *24036900%%24037400% 24037200 424037300" 


24037400 *24038800% 24038900 
STREAM VARIABLE == DECLARED AT 04588290 
04588330 04588360 04588370 
STREAM VARIABLE == DECLARED AT 04588490 
045886470 
STREAM LABEL = DECLARED AT 20054400 == OCCURS AT 20054400 
ee LABEL = NECLARED AT 12214500 == oCCURS AT 12224000 
122790500 
=~ REAL SUBROUTINE =|" DECLARED AT 20566905 
20566950 20566955 20567230 20569320 
=’ LARFL =" prcbaREp aT 40908050 
me REAL ARRAY “= AFCLARED AT 38366000 
*38435000% 38439000 *38440000%% 38449400% 38443000 38449000 38450000 *38454000% 38452000 
*#38465000*% 38466000 386471000 
me REAL ARRAY = NPFECLARED AT 38550000 
me REAL ARRAY == NECLARED AT 38657000 
e= REAL ARRAY “= PECLARED aT 41007200 
== LABEL = DECLARED AT 20085800 == OCCURS AT 20108800 
20102100 
ee LABEL “= DECLARED AT 20701000 == gccURS aT 20735000 
20739000 
Ro o== NEFINE = DFCLARED aT 28008800 
28095200 78058400 278968800 
R ee DEFINE == NECLARED AT 28209400 
28219800 
LE w= DEFINE == DECLARED AT 28009600 
28086400 28092800 
LE =" PEFINE "= NECLARED AT 28210200 
28242800 28253400 28260600 


=e LAREL 7" MECLAREN AT 07009000 =" OCCURS AT 07219000 
07161000 
R w= Laprh 7" DECLAREN AT 28211000 “== OccuRS aT 28303200 


AB 
282728600 28302600 28303600 


SKN e LABEL = DECLARED AT 20584250 = OccURS aT 20585700 


SKP o 
Sos 
SL on 


20585730 

= LABEL == DECLARED AT 42944500 = OCCURS AT 12954000 
12252500 
LABEL = DECLARED AT 46700000 = goCCURS AT 16792500 
16794500 


LABEL =" DECLARED AT 19508010 = oCCURS AT 19526100 
19511000 19512000 19513000 19513010 


38458000 


38460000 


SLAPITOFF == 


SUBROUTINE 


DECLARED AT 00081630 


02328000 


20569950 


DECLARED AT 00022000 


48054000 


DECLARED AT 00023700 
DECLARED AT 00093100 


48052000 


042614370 
04378000 
05960700 
06415000 
07272500 
08386000 
08915000 
12530500 
14360400 
17001400 
19685380 
20150800 
28440800 
40317220 
05952500 


BECLARED AT 02195000 


20570;480 
48055000 


OCCURS AT 


02009000 
04557200 
06022600 
06464900 
07301000 


- 08424000 


08933000 
13051000 
14361000 
18032010 
19685460 
20154000 
37304000 
41341100 


20573420 
48055200 


12861000 


021407000 
04558000 
06066000 
07004640 
07374300 
08569300 
08935000 
14186120 
14383000 
18033000 
19743000 
20407000 
37394150 
414317300 


OCCURS AT 18027000 


OCCURS AT 16747500 


DecbaReo AT 20511120 


20514470 «20511520*% 20544660 


20566100 


20593750 


20593950 


we DECLARED AT 00081630 
DECLARED AT 00454200 


02761300 02761400 02270000 
SLASH ©" nFFINE =" necbLAREN AT 20216000 
20377000 270449000 270567075 
SLATE = REAL ARRAY) == 
#02078000%*02049000" 44166000 
SLATEND "2 DEFINE == 
02016000 48052000 
SLATESIZE == DEFINE = 
02016000 44151059 44166000 
SLEAP =" LABEL @r DECLARED AT 42812500 *- 
12862500 12866500 
SLEAP =" LABEL 7" DECLARED aT 14627400 
SLEEP ©" nEFINE =" pECLAREND AT 00021500 
00039055 00050000 04260455 
04045200 04249000 04377400 
05703500 05842300 05849300 
06215000 06257000 06361700 
07171000 07177000 07232000 
08088000 98268000 08378000 
08830000 08866000 08880000 
09637000 09680000 12386000 
14351320 144358450 14358588 
14541130 14560000 14588100 
18841400 18844000 19303000 
19903907 270034900 20149600 
24043000 240451400 28980400 
38574000 38668000 40311000 
SLEEPER == INTEGER “= PECLARED AT 
05979400 
SLEPE =" LABEL =" DFCLARFD AT 18006000 ==» 
18030000 
SLOW "= DEFINE == DFCLARED AT 20247700 
20484650 270484750 270567250 
SM 7* LaBFL == DECLARFN AT 16700000 “= 
16704000 
SM == oFFINE ©" DECLARED aT 28007000 
28078000 28078800 
SMip == REAL e©= VALUF PARAMETER 
20541100 20541419 20531300 
SMID == REAL == DECLARED AT 
SMID *" REAL =" DECLARED AT 20581000 
SMIO == REAL |= DECLARED AT 20584000 
SM1D = REAL =» DECLARED AT 20586800 
SMID "= REAL ©* DECLARED AT 20589800 
SMID @=" REAL =" DECLARFD AT 20591000 
*#20591800«% 20591950 20592050 
SMID 7* REAL ©" DECLARED AT 20595000 
SMID == RraAL =" DECLARED AT 20596800 
SMrp e= Real #" DECLARED aT 20600010 
SMID e= REAL © DECLARFO AT 207014500 
SMWSTOPPED == DEFINE «=< 
SMWSTOPPEDMASK eo DEFINE 
SN =e REAL == VALUE PARAMETER 
004548000 00454100 
SN ™* REAL ™" DECLARED AT 02057000 


«02063000 02064000 


02065100 


02068000 


02071000 


20594650 


20590500 


02173085 
04567000 
06090700 
07059200 
07392000 
08571000 
08940000 
14198200 
14384000 
18273000 
19768800 
20588600 
38092000 
41320310 


20511662 


20718000 


02176000 
04655700 
06098600 
07059500 
07414000 
08580000 
08943000 
14205000 
14390000 
18425400 
19900400 
20604640 
38250500 
44328200 


02196000 
04671400 
06099400 
07139500 
07426000 
08627000 
08946000 
14206100 
14393000 
18523400 
19902430 
22009000 
38285500 
42476000 


02275700 
04671550 
06103500 
07146000 
07562000 
08670000 
09617000 
14237000 
14398800 
18730300 
19902850 
22049000 
38372000 
42501650 


02434480 
04672100 
06103700 
07149000 
08046000 
08689200 
09630000 
14292110 
44399400 
18780100 
19903650 
22905000 
38555000 
48042000 


AT 17000400 


w= FORWARD AT 00020000 


01261170 
04378000 
05960700 
0641,5000 
07272500 
08386000 
08945000 
12530500 
14360400 
17001400 
19685380 
20450800 
28080400 
40341000 


40334070 
42501810 


02040000 
04557200 
06092600 
06464900 
07301000 
08421000 
08933000 
13053,000 
14364000 
18032010 
19685460 
20154000 
28440800 
40317220 


40356550 


*44092100% 


09407000 
04558000 
06066000 
07001640 
07371300 
08569300 
08935000 
14486420 
14383000 
18033000 
19743000 
20407000 
37304000 
41311100 


48032100 


v= OccURS aT 37047800 


we DECLARED AT 20299900 


we DECLARED aT 20314200 


20374400 


"=" DECLARED aT 20386000 


20604850 


SN we Real =" wALUF PARAMETFR =" DECLARED 
17000000 17000200 
SNOOZE == PROCEDURE == DECLARED AT 02000000 
00039055 00050000 04240100 07260455 
02434480 04045500 042949000 04377400 
04672100 05703500 05842300 05849300 
06103700 162715000 06257000 06361705 
07149000 97171000 07177000 07232000 
08046000 08088000 08268000 08378000 
08689200 08830000 08866000 08880000 
09630000 09637000 09680000 12386000 
19292110 14351320 144358450 14358568 
14399400 144541330 14560000 14588400 
18780100 18841400 18844000 19303000 
19903650 19903907 20034900 20419600 
22332400 229905000 24043000 240454100 
38372000 38555009 38574000 38668000 
42501650 48042000 
SOcK = REAL ARRAY == DFCLARED AT 40005200 
# 402091204440 261044e«40261048« 40292050 
SOFTT =" REAL =" DFCLAPEND AT 00157100 
#143583914%20111500« 22356100 22365500 
SOMECOPTED °" NeFINE “= DECLARED AT 28209100 
28264900 28304500 
SOMEWHERE =" LABEL == AFCLARED AT 37004000 
37046020 37048310 
SORTFILE == DEFINE == DFCLAKED AT 45079000 
SOURCE == REAL, == NAME PARAMETER 
202927000 *20295100%*20303000* 
SOURCE == REAL == NAME PARAMETER 
20314000 20325090 70328000 20355000 
SOURCE °°" STREAM VARIABLE =" DECLARED aT 20328000 
20330000 *20350000« 
SOURCF °°" REAL "™ NAME PARAMETER 
20384000 20397200 
SOURCE =" REAL =" DFCLARFN AT 20566100 
20566900 
SOURCF = REAL == DFCLARED AT 20581000 
SOURCE = REAL == DECLARED AT 90584000 
20584200 270585715 *20585725* 
SoURCE == REAL <©= ODFCLARED AT 20586800 
20587100 
SoURCE "" REAL "=" DECLARED AT 20589800 
20590000 
SOURCE "" REAL ©" DFCLARED AT 20591000 
20591400 
SOURCF *" REAL ©" DFCLARED aT 20595000 
20596300 
SOURCE °" REAL °"" DFCLARED aT 20596800 
SOURCE °* REAL =" DFCLARED AT 20600010 
20600040 *906024004420609450% 20604405 
SOURCE =" REAL == ODFCLARED AT 20701500 
20706000 
SOURCFFILEFOUND = DEFINE == DECLARED AT 28405600 
28431200 28458000 278481200 
SP = LARFL = DECLAREN AT 38661000 == 
38662000 


90605050 


OCCURS AT 38746000 


290608070 


09473085 
04567000 
06090700 
07059200 
07392000 
08571000 
08940000 
14198200 
14384000 
18273000 
19768800 
20588600 
37394450 
41317300 


20608200 


02476000 
04655700 
06098600 
07059500 
07414000 
08580000 
08943000 
14205000 
14390000 
18425400 
19900400 
20601640 
38092000 
41320310 


20608700 *20609350" 


02196000 
04674400 
06099100 
07139500 
07426000 
08627000 
08946000 
44206100 
14393000 
18523400 
19902130 
22009000 
38250500 
41328200 


02275700 
04671550 
06103500 
07146000 
07562000 
08670000 
09647000 
14237000 
14398800 
18730300 
19902850 
22049000 
38285500 
42476000 


SP == LABEL = DFCLARED AT 41005000 == gccURS AT 41054000 
41006000 
SPACE =" NEFINE =" neelaRen aT 00013500 
07250700 02173410 02206000 02218000 02255000 02347320 02434320 04254400 04272000 
04401000 04567320 04567790 04568550 04644000 04672500 04672950 04674750 04675000 
04686950 04707000 05703000 95709000 05844110 05844930 05850320 05953070 05961400 
06974200 06077500 06090000 06095100 06103900 06107200 06107300 06109400 06188100 
06211190 96353545 06353600 06353680 06360600 06380140 06380400 06463880 06464000 
07214000 07274000 07304000 073714200 07429100 07564000 08404600 08112000 08415300 
08380000 08424000 08437200 08438400 08498000 08568600 08577700 08597800 08604000 
08633000 08690000 08693200 08709800 08742100 08745100 08775000 08834000 08886000 
09639000 09680200 12321109 12407000 12408000 42468000 42473210 1427708950 42823000 
14441640 444452900 144431530 14559250 14570;,00 45022000 15113800 45445700 45504200 
15600800 45604950 15414000 15622000 16041100 46506000 46756000 16827100 16828300 
17909000 18014600 18048000 18273040 18276000 148280000 48528200 18570400 418790600 
18830600 19680200 19685025 19768768 20021920 20101300 20453700 20457700 20289448 
20541370 20567005 20567020 20592400 20600400 20604500 20601720 20607060 22008000 
22069350 22163000 22904000 22909000 28018000 28023800 28056400 28058600 28065000 
28263400 28267400 28791000 28304510 28478800 28432400 28443000 278458800 28466600 
309145000 32000300 32000500 32100500 37036300 37046520 37240700 37249000 37344200 
37508000 38718000 38399000 38625000 39934000 39939000 39958000 40016240 40016400 
40263000 40275900 40775500 40299219 40370200 44317790 41348210 44320600 44333010 
44202500 44203000 44256400 442679500 44274500 45075600 454014000 45430000 45434100 
45435170 45155000 
SPACE =" REAL *= DECLARED AT 14164100 
*14204000" 44288000 
SPACE w= |, ABEL == DFCLARFD AT 44678100 == OCCURS AT 14675000 
14632000 
SPACEA == SUBROUTINE = DECLARED AT 22068000 
22073000 22115070 272124000 22196000 
SPACERACK = SUBROUTINE = DECLARED AT 04568300 
04611000 04638300 04657500 04662700 04568410 04568470 046568500 #045740000%04576000% 
04597000 *04606000x% 04638650 04638900 
SPACEMASK ©" Real 7" nrchaRed aT 04552000 
04554000 #*04573000« 04576000 04585000 04588020 04588100 04588130 04592000 04597000 
SPACEND == LABFL == DECLARED AT 12512500 . OcCURS aT 12558000 
12556500 
SPACER ew» DEFINE <= DECL,ARFD AT 28006600 
28091800 278033800 278947600 780902700 
SPACER = DEFINE "= DECLARFD AT 28207000 
28216400 282230009 28230000 28267200 28303200 
SPACER == LABEL =" NECLARED AT 39054000 
SPACESTACK °°" REAL = PFCLARED aT 23500000 
(24043500 £4414810040444173010% 44189500 44189550 


SPACESTACKSIZE  "" DEFINE 7" DECLARED AT 00013870 


44151083 44173010 44189550 
SPaceTOFILE "" Real SUBROUTINE |" DFCLAREN aT 12553500 
12558500 42690500 42718500 


SPACING = REAL ©= nFCLAREN AT 04554800 
04568200 *04568425 *#04568485*4045991 0040460040040 469810044046 34100880 4654600" 


SPACIT == SUBROUTINE == DECLARED AT 28042200 
28048000 28087000 78100000 
SPACIT = SUBROUTINE == DECLARED AT 28229600 
28297200 
SPACITSW "= DEFINE == DECLARED AT 28009000 
- 28025600 28026200 278043600 28043800 
SPACITSW © PEFINE “= DECLARED AT 28209600 


04359600 
04683500 
05966600 
06195125 
07139530 
08267500 
08605000 


09505000 


12833000 
15546000 
16956040 
18794620 
20374415 
22012000 
28213400 
28856000 
37360000 
40249100 
41602900 
45435040 


04578000 


04374930 
04686100 
06022300 
06206140 
07155000 
08276440 
08629000 
09535000 
12892500 
15549000 
17003450 
18829200 
20382056 
22069000 
28218400 
30907000 
37454000 
40249120 
44202120 
45135440 


04592000 


26220200 28770800 28731000 28231200 
SPnc °= LaBEL "= DECLARED AT 39009000 = QccURS AT 39237000 
39235200 39236160 
SPNVAL @= REAL = * DFCLARED AT 20017300 
20047400 ¥20065300*« 20065500 20065400 
SPECI = DEFINE == NECLARED AT 20218000 
20380500 
SPECIAL «= DEFINE =" DFCLARED AT 20247000 
SPEED ©" NEFINE =" ODECLARED AT 05780020 
05843000 06381320 16828100 
SPFR == REAL DECLARFO AT 37422000 
#37424000% 374241400 37424200 37434000 37435000 37437900 37443000 
SPIT |= LABEL ~* NECLARED AT 08284000 “== occuURS AT 08301600 
08294000 098295800 
SP1T -*© LABEL @= DECLARED AT 08734000 = occuURS aT 08798000 
08755000 
SP1T w= LABEL == DECLARED AT 08856000 == OCCURS AT 08947100 
08975100 
SPLAT = LABEL == OFCLARED AT 20586715 == OCCURS AT 20587650 
20589150 
SPN #* LAREL DFCLARED AT 39007000 = occURS aT 39240000 
39908000 
SPO ee" LaReL DECLARED aT 04357800 ** OCCURS AT 04389800 
04358400 
SPO «= Lapel DFCLARFN aT 20391000 *" O¢cURS AT 20481000 
20395000 
SPO == LABEL DECLARED AT 22064000 = OCCURS AT 22216000 
22065000 
SPO w= LABEL DECLARED AT 39049000 «= OCCURS AT 39236900 
39050000 
SPOEDNULLOG "= DEFINE = DECLARED AT 00081400 
SPOIT = SUBROUTINE ©" NECLARED AT 16070000 
16104000 16131000 16250000 
SPOIT ©" SUBROUTINE =" ODFCLARED AT 16371000 
16532000 
SPOIT ** SUBROUTINE #* DFCLAREN AT 16708000 
16796500 | 
SPOT = LABEL "= DECLARED AT 20586715 == QCCURS AT 20588900 
20588090 
SPOUT = DEFINE == NECLARED AT 00451600 
01261100 02256500 02434870 04252700 04371950 05714000 05953210 
06090600 94115900 06195185 06353700 06360510 06361610 07439565 
07295235 07374100 07429300 ©7437200 07452600 07468100 07483000 
08301600 98315000 08340000 08374000 08415000 084278000 08437450 
08621500 08669000 08690600 08693000 08695200 08848000 08906000 
09682800 12324000 42474500 47709500 42629000 427836000 44580000 
16689300 16829600 16965000 16967500 147944000 485291300 48570800 
22115070 22124000 22572000 22196000 28048400 28024600 28057400 
28304530 32400600 37937000 37046270 37244300 37338000 39928000 
49323100 442706300 44275500 45134700 45435080 454354330 45435390 
SPOUTFR == PROCEDURE == OCECLARED AT 02132300 == FORWARD aT 00451800 
01261100 02256500 02434870 04252700 04352200 04371950 04376600 
04416400 04567609 04567830 04568590 04648000 04672700 04673150 
04687050 95744000 05953230 05979400 06022500 06077000 06084500 
06353551 06353700 06360540 06361610 07139565 07239000 07255000 
07374109 07429300 074372006 07452600 074681300 07483000 07511000 
0830,800 08315000 08340000 08374000 08445000 08428000 08437450 


37446000 


05979400 
07219000 
080527000 
08480000 
089141000 
15040000 
18835600 
28065600 
39955000 
451457000 


04383400 
04674850 
06090600 
07290000 
08052000 
08480000 


06022500 
07254000 
08093000 
08507000 
08926000 
15438450 
20044800 
28219200 
40292290 


04386800 
04675250 


06115900. 


07294000 
08093000 
08507000 


06077000 
07290000 
08116050 
08573200 
08927000 
15604600 
20102000 
28268000 
40320600 


04393000 
04683800 
06195185 
07295235 
08116050 
08544700 


06084500 
07294000 
08116950 
08597000 
09676000 
16343700 
20353900 
28293006 
41321100 


04404800 
04686350 
06206240 
07351000 
08116950 
08573200 


0869 3000 
09676000 
15040000 
16965000 
20044800 
22124000 
28304530 
402922202 
45157000 


06380350 


20576400 


08597000 08623500 08669000 08690600 
089741000 08926000 089297000 08947400 
12836000 44430400 14431600 445860000 
16689300 468294800 164902800) 16956090 
18791670 18835600 19768782 20034000 
20592700 20600470 20607600 22115070 
28219200 28264600 28768000 28293000 
37318000 37383000 399@8000 39955000 
45131700 45135080 454335130 45135490 

SPOUTFRR == LABEL = neeLARFN aT 06069900 
06085100 06085600 

SPOUT?T 2 DEFINE == DECLARED at 00451700 

SPOUTITNOW == SUBROUTINE == NECLARED AT 39903000 
39999000 39935000 39940000 39956000 

SPOUTMSGAREAV == DEFINE == DECLARED AT 00017360 
02442100 021814000 04004170 06037300 

SPOUTUNTT em DEFINE. == PFCLARED AT 20541148 
20511420 

SPOUTUNIT |=" REAL ==" DFCLARED aT 20560100 
20575080 20575100 20575200 20575400 
20878550 

SPOUTUNIT =" RFAL °°" DECLARED aT 20581000 

SPOUTUNTT "= REAL =" prcblaRFD at 205840900 
20585375 

SPOUTUNTT |" REAL =" PECLAREN AT 20566800 
20587550. 20588900 

SPOUTUNTT == REAL == DFCLARED AT 290589800 

SPQOUTUNIT e= REAL == DECLARED AT 20591000 
20592700 20593750 270594350 

SPOUTUNIT == REAL =" PECLARED aT 20595000 

SPOUTUNTT "=" REAL 7" NPECLARED aT 20596860 

SPOUTUNIT "" REAL °" DECLARED aT 20600010 


20600470 %70602460x% 20607040 


20769400 


28474600 


nreLaRen at 20701500 


20772009 


DECLARED AT 28007400 
DECILAREO AT 98206800 
DECLARED AT 28407600 


DECLARED aT 22234000 


#22260000e 22261000 #£222630004% 22264000 


SQaLL »= REAL 


pecbaRFA aT 16357000 == 


20600120 
SPOUTUNTT =" Real os 
20704270 20767000 
SPOUTUNTT © DFFINE == 
260744200 
SPOUTUNYTT == DEFINE #2 
28712000 2782703899 
SPOUTUNIT = UFFINE == 
28408400 28434800 
SPRT "=" REAL ARRAY °° 
-§Q0 "= Lagrelh = 
16366000 


06069100 #06085700% 06101400 


S@rv we LABEL = 
06111800 

SaSiZe ore INTEGER «= 
06069300 06973900 

SQUASHMESS =2 SUBROUTINE 
06108100 06108900 

SR *» REAL "=" DECLARED 


«19799400» 
SRCE  o"* 
#07003820% 


19721000 


STREAM VARIARLF 


07003910 


DECLAREN AT 06069000 


06197900 


DECLARED AT 06070000 #-= 


DECLARED AT 060699200 
*06085800* 06107600 


20607600 


oecuURS 


08695200 
09682800 
15114300 
16967500 
20102000 
22172000 
30930000 
40320600 


08784000 
12321000 
15115900 
17005400 
20118370 
22196000 
32002300 
44321100 


AT 06084400 


44603750 


20576405 


20608870 


18043000 


20577475 


08798500 
42474500 
15437400 
17914000 
201453900 
28018400 
32100600 
41323 100 


40278450 


20577775 


08848000 
12473280 
15438450 
18529100 
20374430 
28024600 
37037000 
41333090 


20577925 


08901000 
42709500 
15604600 
48570800 
20511420 
28057400 
37046270 
44206300 


20576000 


22284100 4222844004%22356150% 22356200 £22365150" 22365200 


06408400 


06108000 


m= DECLARED. AT 06073700 


06109100 


19736000 


06114500 


AT 19694000 


19740000 


19741000 


DECLARED AT 07003640 


NCRURS aT 16609000 


06108700 


OCCURS AT 06141300 


06108400 


19744000 


19757000 


19762000 


08906000 
12829000 
16343700 
18791640 
20511720 
28065600 
37243100 
44275500 


20576150 


SRenOuT ==" LAaBrFL =" neebAREn AT 37180500 "= O¢cuRS aT 37208500 
37495800 
SS ose REAL = DECLARED AT 04705500 
*04707500% 04712000 
SS ew LABEL == DECLARED AT 146355000 =# OCCURS AT 16391000 
16363000 
SSYSJQNBF = PEFINE “== DECLARED AT 00134030 
088R7010 ~20152100 20587310 
SSZ =" REAL =" VALUF PARAMETFR *" DECLARED AT 02015000 
02012000 02013000 92019000 0464735 
ST "=" bLangh =" nrclaRrn aT 16055000 == OCCURS AT 16162000 
16043000 
ST w= REAL © DECLARED AT 205661090 
#20567020% 90567025 20567035 *20569320%#20569 350 *90569380«" 20569440 *20570000" 20570040 
ST == REAL == DECLARED AT 20587000 
ST e» REAL == DECLARED AT 20584000 
ST =» REAL == DECLARED AT 270586800 
ST wm REAL == DECLARED AT 20589800 
ST =» REAL == DECLARED AT 20597000 
* 20597950 4#20593400%420593550% 20593800 
ST =" REAL @" DECLAREN AT 20595000 
ST ** REAL  "" DECLARED AT 20596800 
ST = REAL &" DFECLAREN AT 20600010 
ST © REAL °° DECLARED AT 20701500 
ST == LapeL == orcbaRen aT 28005800 == occURS aT 28099800 
28098000 
STA = REAL == DECLARED AT 08099775 
*08404520*% 08416050 084146950 
STA w= REAL == DECLARED AT 08283000 
*086292500% 08295200 *08297000* 08298000 
STA #* DEFINE "=" DECLARED AT 12518700 
12755500 
STA =" REAL =" OFCLARED AT 14624200 
STA ©" REAL “* DECLARED AT 38364100 
STA ©" REAL =" NECLARFD AT 38548100 
STA °™ REAL == DFCLAREN AT 38655100 
STA =" REAL =" DECLARED AT 41004100 
STACK == NEFINE =" DECLARED AT 29233000 
STACK == REAL == DECLARED AT 229230000 
*22266000% 99267000 222970200 222772000 22279000 2972814000 222783000 *29286050* 22286060 
22286150 22286570 22286190 «22326800% 22327200 22328400 22329000 29329200 
STACKAREAV |" DEFINE =" DECLARED AT 00017310 
STACKLOG "= Kral “" DFCLARED AT 20013200 
STackKLOe = Real =" pnechlaRED aT 20082400 
20118600 #20118900% 20119000 20119900 20420100 20121100 20121200 20123400 20123500 
20123800 
STacKLOc s= Real == neclaRrp at 20142600 
#20476090«% 20176096 270176135 20176444 #204761444" 20194000 20192800 20192900 20493000 
STACKMASK w= DEFINE e= DECLARED AT 00080400 
06410000 48049000 
STACKOVERFLOW we LABE{, == DECLARED AT 00024970 == OCCURS AT 46029000 
04403100 081732700 144014100 49525000 31005010 42517100 48025200 
STACKPRTAREAV =" DEFINE =" DECLARED AT 00017530 
20176093 
STACKUSE ** DEFINE = PFCLARED AT 00080400 
02028000 44180000 48048000 . 48054600 
STACURR "=" DEFINE =" DFCLARFD aT 08256000 


20570050 


99286090 


20123600 


20193100 


22286120 


20123700 


START = LABFL =" neclLaRep aT 00024270 OCCURS AT 46040000 
00055100 
START e= LABEL #= MFCLARED AT 04261200 OCCURS AT 04304000 
043900500 04302400 
START © LABFL, == PFCLARFD AT 04357200 OCCURS AT 046372200 
04379000 04397800 
START =" REAL "= DECLARED AT 07269100 
#07290800" 07295020 
START =" LABFL =" DECLARED aT 07425500 = OCCURS AT 07425600 
07497645 
START ©" LABEL 7" AFCLAREN AT 12371000 == OCCURS AT 12409500 
START *™ LABEL =" DrCLARED aT 13019000 "= OCCURS AT 13093000 
13136000 . 
START ©" LABFL == DFCLARFD AT 16914000 == OCCURS AT 16918000 
16969500 
START w= LABEL = DECLARED AT 20146600 2% OCCURS AT 20149600 
20446900 201499600 
START == LABEL == DECLARED AT 294032800 "= OCCURS AT 24036200 
24038200 
START ©" LABEL == DECLARED AT 37180600 == OCCURS AT 37222000 
37240050 37241700 37255000 
START =" LABFL =" DFCLARFED AT 41430500 == OCCURS AT 41500100 
44430600 . 
STARTADFCK = PROCENURE =" DECLARED AT 07422000 == FORWARD AT 07002000 
07420010 07461900 07469000 07573000 44280100 
STARTANFWNFILE == LABEL == DFCLARFD AT 12514000 == OCCURS AT 12694500 
12545000 42740500 
STARTANEWFILE |= DEFINE -= DECLARED AT 13026000 
13136000 . 
STARTIMING =" PROCEDURE ** DECLARED Al 37271000 = FORWARD AT 00377000 
044680050 94684700 07073000 07104000 12526500 12675250 12675500 12758000 28012080 28014200 28015400 
28037400 28052800 28071800 28074000 28082600 28084200 28226400 28247800 28248200 278251200 28305200 
28306200 28306800 28434600 278481600 37244000 37218300 37248000 37255000 38035900 38105600 38106400 
38114500 38203600 38204100 38232500 38735500 39238000 39242000 39293300 44212000 
START+Nea == REAL == DECLARED AT 12210500 
*12255000¥ 42277500 12278500 *12262000*% 
STARTING = REAL == DECLARED AT 42359500 
#12432000e 42435600 «194396000 
STARTING ©= DEFINE ©» NECLARED AT 20018800 
20023300 
STARTING = © DEFINE. vce PECLARED AT 20087700 
STARTING = DEFINE, == DECLARED AT 20147900 
20149400 20450600 20199400 
STARTIO =" PROCEDURE =" DECLARED AT 04020000 == FORWARD AT 01165000 
04037000 04377800 4432800 04564000 04671950 22035000 22097000 29913600 22220000 48149000 
STARTLOADN @" PROCENURE =" DECLARED AT 07243000 
(16536000 : 
STARTLOR ©© DEFINE == DECLARED aT 00025300 
02097000 12612000 428149500 20380350 22242300 48080200 
STARTOG = DEFINE == DECLARED AT 00081610 
07497610 07827620 07427640 
STARTWRD == DEFINE! == DECLARED AT 05780030 
05844920 05848955 05849500 05850200 05850300 05961000 05961800 05962000 05971800 06109200 06380450 
06380750 96380800 168276800 
STATE °" RFAL **  NECLARED aT 38006000 
38012000 38013400 38938000 38072000 
STATE *" Real = ‘peelLaRFN AT 38102600 


38141500 *36118500* 36125500 
STATE w= REAL == DECLARED AT 38200600 
36941500 38276500 
STATE e= REAL = DECLARED AT 383620600 
38389200 38389300 38389800 383927000 38397000 38398000 3844144100 
STATE =" REAL &= DECLARED AT 38547000 
38586000 *38642000« 
STATE =" REAL 7" DECLARED AT 38655000 


38681000 38682000 38746000 38749000 38750000 38753000 #38776000 «38777000 «% 38780000 #%38781000%4 38784000» 


¥38790000% 38794000 38798000 *38817000" 
STaTe oe Real we J pnrelLaRen at 39004000 
39035000 39037000 ¥39090000* 39301000 39303000 
STATE we REAL =©% DECLARED AT 44003000 
#419044000%%44987000% 41189000 441194000 
STATUANDBUF == DEFINE == DECLARED AT 08100530 
STATUS "= PROCEDURE = DECLARED AT 22055000 == FORWARD AT 00369000 
22297000 48044000 48084300 
STATUSBIT ew DEFINE == DECLARED AT 00080200 
22224000 48012500 48064100 
STATUSMASK =" DEFINE *= DECLARED AT 00080200 
02196000 07059900 07232000 08046000 08088000 08421000 08580000 
48084200 
STAWORNARFAY =" nrFINe == necbhakFn aT 00017460 
STeyRST = DEFINE = MECLAREN AT 00134420 
12271500 44431470 
STKSZ e* REAL © DECLARED AT 19696100 
*39738910% 19776110 
STNEXT © DEFINE |= DECLARED AT 00134440 
12271500 12454000 12454500 12473060 12473070 12473080 44431440 
STOG "=" REAL “" DECLARED AT 12507000 
12507500 *12712000u«12721000% 
STOG 7" Real ©" NECLARFN aT 12807000 
12807500 
STOG ** REAL =" DECLARFN aT 13019000 
STOP em RreAL == DECLARED AT 04423000 
047293500 *04459000%404164000* 04189000 04196400 04293000 
STOP ==» DEFINE =% DECLARED AT 060733090 
064744600 
STOP 2 SUBROUTINE = MECLARED AT 07011000 
072933000 07734000 
STOP *= LABEL = DECLARED AT 20020300 == gCCURS AT 20066400 
20055500 20060800 
STOP "= SUBROUTINE "= DECLARED AT 22247000 
22299000 22361000 22409000 
STOPCK "=" PDFFINE &" DFCLARED AT 06073400 
06087000 06090700 06091700 06092000 06096700 06110600 
STOPIT *"° LABEL 7" nWFCLARED AT 06070000 ==" OcecURS aT 06114600 
06108100 06108900 
STOPLOG == DEFINE == DECLARED aT 00025500 
02008300 02034000 06190000 427610100 128;7600 22257000 
STOPLOOP 2 LABEL == DECLARED AT 14351250 == OCCURS AT 14431410 
14431514 44431620 14431630 
STOPM =" PROCEDURE. == DECLARED aT 17900500 == FORWARD AT 00089100 
07928000 13107000 17928000 28043200 28046600 28089800 28730600 
48030000 . 
STOPM;X "" REAL =" pnreLaRFN at 12360000 
*12431000% 12435500 *12439500*% 12442500 12449000 12451000 42452000 


38411300 *£ 385038004 385960008 


12530500 


14431450 


28260800 


12453000 


37304000 


14431460 


28270822 


12453500 


45150000 


28303400 


12454000 


48013000 


28885500 


12457000 


*12457500% 72458000 42458500 12459000 42461000 427467000 42463000 
12473090 424734900 42473320 42473140 12473150 42473160 142473490 
STOPM1X == STREAM VARYARIE == PECLARED AT 12473200 
12473250 
STOPMIX = REAL =" NFCLAREN AT 14351250 
*14439450% 14431480 14431490 14434509 14431506 144431510 144431512 
STOPMIX = STREAM VARTARLE "= DECLARED aT 14431520 
14431570 
STOPPER °°" OFFINE @™" NneclARED aT 14160000 
14184000 14189000 
STOPSFT =" DEFINE "* pnrcbaREN aT 02110300 
07028000 42473420 13307000 44434500 145444700 28043200 28046600 
28303400 78885500 
STOPSQ == LABEL =" pMECLARED AT 06070000 = OCCURS AT 06113400 
06087000 06990700 06994700 06092000 06096700 061404900 06110600 
STOPTEST == DEFINE = PECLARED AT 00446760 
04654200 
STOPTIME e= LABEL == DECLARED AT 12513500 = OCCURS AT 12757750 
12755500 
STOPTIMING #" DEFINE =" DFCLARED AT 00382000 
04680050 42576500 42758000 28012080 28034700 28015400 28037400 
28305200 283062700 78306800 28434600 28481600 37214000 37218300 
38204100 41212000 
STOREADDRESS == DEFINE = DECLARED AT 07003412 
07003504 07003544 070035299 07003530 07003538 07003546 07003554 
STOREDY e= . DEFINE == DFCLARED aT 00080500 
12386000 18841400 18844000 20119600 24043000 47476000 44142000 
STOREMASK #2 DEFINE ==" DFCLARED AT 00080500 
02434480 029434490 02434530 09617000 09624000 42386000 44361000 
18844100 18845500 20119600 20119700 20120600 24043000 24043100 
STOUE "" REAL ARRAY |" necbhaREn aT 00134110 
*12454000% 12473070 412423080% 14434450 414431460%«17926000% 44463040 


STOUFMAX = DEFINE = NECLARED AT 00134115 
124739060 4446343440 17925500 441514059 
STR = STREAM LABEL == DECLARED AT 06079906 == OCCURS AT 06081600 
STR w= STREAM VARYABLE == VALUE PARAMETER «= DECLARED AT 28421600 
284292000 
STT == LABEL s* DECLARED AT 02194000 = OCCURS AT 02262000 
02266400 02272000 02315000 
ST1 2" LABEL =" DECLARED AT 20591500 = OCCURS AT 20594600 
20593150 
ST2 =" Lapel =" DECLARFO AT 20591550 = OccURS aT 20593450 
20593800 7 
SU 7 LarrL *= npeclaRFnN AT 37007000 =" oOccURS AT 37096000 
37008000 
SU "= STREAM VARTABLE "= DECLARED AT 39905000 
*399,2000% 39914000 
SU we REAL ARRAY == DECLARED AT 40005000 
40016200 *40046940" 400136400 40036540 400146920 #400147280% 40027240 
#40042100% 40047400 40060305 *40072000% 40074000 40076000 40078033 
#40261040% 49261200 40290400 40321310 40321400 40322220 40323600 
SUM =" REqaL 7" DECLAREN AT 06068500 
#061104800% 06110800 «06111400» 
SUPFR =" LARBFL @* ArclLAREN aT 07009000 == OccyuRS AT 07129000 
07181000 07230000 
SUPER »" REAL 7" DECLARED AT 40005100 
*40065050#*400657400**40078076**4007 8099" 40292200 *40299212% 4029922209 


12464000 
12473200 


14431518 


26089800 


28082600 
37255000 


07003562 


18841400 
24043800 


40027250 
40078074 
40323700 


12465000 
12473280 


14431520 


28230600 


28226400 
38105600 


07003570 


18841500 
42476000 


40027270 


12466000 


14431600 


28260800 


28247400 
38106100 


18843700 


40027290 


#12473070# 


282708290 


28251200 
38203600 


18844000 


40027295 


40078099 «402491008 40261910 


40324200 


*40292230% 


40327000 


40335000 


SUSTATUS = PROCEDURE == DECLARED AT 39900000 -=* FORWARD AT 084638900 
08484506 40356800 
SV == LABEL == DECLARED AT 16055000 *" gCCURS AT 16170000 
16943000 
SV os= STREAM VARIABLE == DECLARED AT 20105400 
#20106700 
SV == REAL "=" DECLARED AT 28003800 
*#28074200« 28074800 
SV "= REAL "* NECLARED AT 28204200 
28204400 *«28246800«% 28953000 28272400 28272800 «282782004«28278600% 28279200 *28282600«% 28284000 
SV = STREAM VARTABLE =" DECLARED AT 28272400 
SVALUF °? REAL ©" DFCLARFD AT 20014500 


SVALUF == REAL == DECLARED AT 200863700 


SVALUF == REAL == DFCLARED AT 20144100 
20151200 20462900 270186800 20187700 20489400 
SVD] e= STREAM VARIAB)E == BEC) ARED AT 04659300 


*04660100% 04660400 04660900 
SVPBT =" MEFINE =" NECLARED AT 00416610 
12528000 38256500 
SVSEARCH "™* LAREL "7" OFCLARED aT 24032800 =" OCCURS AT 24033200 
24034200 24034700 274934750 24034900 24035100 
SVST 7" STREAM VARIABLE °'" DECLARED AT 04652000 
*#04653200% 04653300 
SVSTART == LARFL == DFCLARFN AT 24032800 == OCCURS aT 24033100 
24034700 274040000 
SW o-28 LABEL == DECLARED AT 04195000 == gCCURS AT 04462000 
041323500 044429500 
SW = SWITCH LABEL 2 DECLARED AT 056351800 


06352000 

SW ose SWITCH LABEL == DECLARED AT 12514500 
12621500 

SW ore SWITCH LABEL "= DECLARED AT 12813500 
12847500 


SW oe SWITCH LABEL =" DECLARED AT 20146900 
20151500 20163200 20167100 20187900 20189700 
SW 7) SWITCH LABEL = NECLARED AT 20566620 


20567600 
SW o== SWITCH LABEL "= DECLARED AT 20593600 
20591650 
SW oe SWITCH LABEL |= ONFCLARED aT 20599000 
20606610 
SW e= LABEL <=" DECLARED AT 37004000 "= OCCURS AT 37056000 
37047800 
SW os= SWITCH LABEL “= NFCLARED AT 38662000 
38697000 
SW o'= SWITCH LABEL = NMFCLARED at 410060060 
41052000 
SW == SWITCH LABEL = NECLARED AT 42512000 
425718000 
SWIT == SWITCH LABEL «= DECLARED AT 28010000 
28049800 
SWITCHIT = LABEL == DECLARED AT 16914000 == OCCURS AT 16955800 
16951500 
SWITCHREELS "=" DEFINE == DECLARED AT 28207650 
28244040 


SXIT  ™* LaBEL *" DECLARED AT 37180600 =" OCCURS AT 37240200 
37241525 37241610 


SY 
SYL 


=- 


LABFL ==" DECLAREN aT 16700000 == occURS aT 16789000 


16704500 


STREAM VARTABLE == NFCLAKFD AT 416854700 


SYLLABLE «= INTEGER == DECLARED AT 00076000 
00032000 00034000 00035000 *00035500* 00039035 *00039050**00044000% 
SYLLABLE c= REAL 7" DECLARED AT 00310000 


SYN 
SYS 
SYS 
SYS 
SYS 
SYS 


$Z 


$Z 
$21 
$Z2 


4445-4 


TA 


JOBF 
MAX 
NO 


14902000 42523000 42524000 42525000 
=" PEFINE =" DECLAREN AT 20237000 
20585700 20585800 70585850 20604700 


LAREL =" DECLARED AT 09701000 *= O¢cCURS AT 09716000 


09706000 


LABEL =" DECLARED aT 18207000 == O¢cCURS AT 18388000 


18219000 16396000 
w= DEFINE == DFCLARED aT 00434030 


02261100 94252500 04302200 09608000 12416000 


em DEFINE = DECLARED AT 00310200 
44086300 
em NMEFINE ©" DECLARED AT 00310200 


07438100 08438410 08488430 08597810 08597830 
12321120 15501600 15531200 15550600 18047000 
38220500 441320330 44320350 44087000 44202800 
SYSTEMFrLE =e REAL PROCFNURE == DECLARED aT 09700000 
06093000 30544488 270574750 2057781,0 970592000 


REA], == DECLARED AT 18004000 


*#180;2000% 46044000 18046000 18048000 «18046000 
18059000 148060000 18062000 18069000 48071000 


REAL ™=" DECLARED AT 19694000 
*19760000% 19766300 


STREAM VARIABLE == DECLARED AT 12410500 


12412000 


STREAM VARTARLFE 7" NECLARED aT 12411000 


12442000 
REAL 7" NECLAREN aT 04126600 


14431425 15143500 146478000 


08630000 08673000 08832000 
18345000 18555000 20289415 
44203150 44209200 44213000 
w= FORWARD AT 00463300 

20593650 90729000 928445200 


18048000 48049000 48050000 
18073000 


20193400 22042100 


08834000 09641000 
28288400 28882200 
44243250 


38542000 
*{8054000* 48056000 


04127000 *04131000% 04132000 #£04137170% 04437190 «04178000% 04480000 *04494700% 041951400 04201000 


STREAM VARTABLE =* DFCLARED AT 04359400 
04360400 

REAL == DECLARED AT 19694000 
#19744000"% 149748000 

STREAM VARTABLE == DECLARED AT 04359400 
04362800 

REAL ©" DECLARED AT 20017400 

20017500 *20058800* 20059900 *20060500*« 
REAL &" DECLARED aT 00307000 

00308000 

STREAM VARIABLE =" DECLARFN aT 90308000 


REAL ** VALUF PARAMETFR = DFCLAREN AT 00316100 
REAL = VALUE PARAMETER #= PFCLAREN aT 00480010 


REAL == DECLARED AT 00650950 
00451000 

STREAM VARIABLE == DECLARED AT 01260600 
01240700 

REAL = DECLARED AT 027057000 


#02064000" 02067000 *02077000*% 02081000 02097000 


REAL “™" DECLARED aT 02116000 
#02123000% 02125000 02126000 

WNteGgeR =" pEcLAREN aT 02133200 
#02173110" 02173210 02173286 02173350 


02097400 


37185350 
09680400 


32000510 


18057000 


04213000 


+ 


ee 


ee 


“4-4 


ee 


REAL = DECLARED AT 02190000 


*02942000%#022914000% 02745000 *02245500*% 022746000 07276010 *09976400* 09946600 


02247000 *09247400" 02221000 


*02762000% 02263000 *92264000**02274000%802287 240402287 245 %*02287250%*02287260*% 02287270 *02293000% 02294000 
*#02303000% 02306000 *02308000* 92309000 02310000 02313000 *02343000* 029319000 «02320000**02322000% 02323000 


#02324000%«02328100% 02328200 
STREAM VARIABLE @" NECLAREH AT 02221000 
02228000 02231000 «*022681060* 02254090 *02251140*% 02251150 
REAL == DECLARED AT 02347220 
*02347320% 09347325 02347335 02347350 02347430 
INTEGER == DECLARED AT 92362000 
*02365000% 02366000 927368000 *02374000* 02375000 
REAL == DECLARED AT 02661000 
02664000 07668500 
STREAM VARIABLE == DECLARED AT 02664000 
02664100 
REAL == DECLARED AT 04021000 
*#04922000*% 04023000 04932000 
REAL ©" DECLARED AT 04844000 
#040488004%#04055000% 04057000 *04058000% 04059000 04062000 
REAL  "" DECLARED at 04068000 
#04073000% 04075000 «04085000 04086000 +#04090000* 04091000 
NAME @* nechaRrp at 04100000 
*04104000* 04105800 04107000 04109000 
STREAM VARJABLE #= DECLARED AT 04109000 
04440000 
REAL «= DECLARED AT 04126000 


#044 29000% OALZINN0N #0414 2000*40415240N% 04154000 *04160000% 04162000 «04164000 %«04182000 404192000" 04196600 


04201000 
Reab =" prclhaRen at 04243100 
*04251100" 04254300 04252000 04252700 049753000 
STREAM VARYTABLE = DECLARED AT 04251300 
REAL == DECLARED AT 04957400 
REAL = DECLARED AT 04354000 


*04374930% 043714950 *04372400* 04379800 04373200 04377600 *04449600%404491600% 04494900 


04425200 #04426600*% 04432200 


STREAM VARIABLE == DECLARED AT 04567320 
STREAM VARIABLE = NECLARED AT 04567790 
STREAM VARTABLE © DEC|ARED AT 04644000 
STREAM VARTABLE = DECLARED AT 04647100 
*04647400» 
STREAM VARIABLE == DECLARED AT 04651900 
*04653700" 
STREAM VARIABLE 7 DECLARED AT 94672500 
STREAM VARIABLE == QNDEFCLAREN AT 04672950 
STREAM VARJABLE =" DECLARED AT 04674750 
STREAM VARIABLE == OFCLARFD AT 94675000 
STREAM VARIABLE = DECLARED AT 04683500 
STREAM VARTABLE == DECLARED AT 04686400 
STREAM VARIABLE = ODECLARED AT 04686950 
REAL = DECLARED AT 04704000 
#04707000% 04709000 04710000 04712000 04722000 04731000 
STREAM VARIARLE "" DECLARFN aT 94709000 
STREAM VARIABLE "" DECLARFN AT 04712000 
04717000 04718000 
STREAM VARIABLE == DECLAREN AT 94737000 
REAL = VALUE PARAMETER »= DECLARED AT 05607000 


*05609000% 05640000 *05641000* 056149000 *05643000*% 05644000 


04737000 


94742000 


04497000 *044294600% 


a 


44-44 


-_ 


STREAM VARIABLE == DECLARED AT 05614000 

05615000 

REAL, w= VALUF pARAMETER = DECLARED AT 05839400 

05842200 05842475 05843000 05843500 «05844920* 05845700 

INTEGER 7" DECLARED AT 05847700 

#05850 30044958650 400e405850500% 05850600 «05851300*% 05851500 05851900 105852000 *058521004*05852200» 

tNteGgeR =" DECLAREN aT 05952000 

05952715 05952755 £0596 2000 **059629200 «e05962400*% 05969600 05962800 *05972000% 05972400 05979600 05972800 
05973600 05973800 

STREAM VARIABLE = DFCLARFD AT 05952715 


05952725 
STREAM VARIABLE = DECLARED AT 05952755 
*0595291(5%*#*059529930* 


REAL, ==" DECLARED AT 06022000 
*06022300* 06022500 96023000 
STREAM VARIABLE == NECLARED AT 06023000 
¥06929000«% 
REAL =" DECLARED AT 046037000 
406937700 06038100 

STREAM VARIABLE ™" DECLARED AT 96036100 
REAL ™™ DECLARED AT 06064000 

06065000 06066000 
REAL =" NecbLARen at 06068500 

06068600 06098400 06098600 
REAL == ODFCLARFOD AT 06185000 
406203650% 06203700 *£06206140* 06206240 *06208000% 06210000 06214000 06215000 06254000 062757000 
STREAM VARIABLE == MPMECLARED AT 06206140 

INTEGER == DECLARFD AT 06405000 
#06411000e 06412000 06413000 06416000 06421000 06422000 06423000 
REAL *™" DECLARED aT 07006050 

07018000 0701900 «07051110* 07051130 07051140 *07062000« 07065000 *07067000%«07077000%#07090000*% 07093000 
07120000 4071250004407128000%4%07139530% 07139565 07145000 07346000 07148000 07149000 «07155000*% 07156000 
07176000 07477600 «07214000% 07214100 07249000 «07224000% 07226000 *07227000 *%07233000*«07234000" 
STREAM VARYTABLE == DECLARED AT 07439530 

STREAM VARIABLE == DECLARED AT 077456000 

STREAM VARIABLE = DECLARED AT 07914100 
REAL w= DECLARED AT 07244000 
*07252000% 07255000 07262400 07263700 072764000 07264200 

STREAM VARIABLE 7 DECLARED AT 07262400 
REAL *™ DECLARED aT 07269000 

07284000 

STREAM VARIABLE "* DECLARED AT 97284000 

REAL 7" DECLARED aT 07299000 

407343000" 073446000 
REAL == DECLAREN aT 07408100 
*#074,8000* 07419900 07419300 

REAL == DECLARED AT 07424000 
#07444000%#07445100% 07445200 07445300 «07446000* 07446100 #07446150% 07447000 07448500 07449000 
REAL @" DECLARED AT 07542000 

#07545000«% 07559000 
REAL =" DECLARED AT 08027000 

08029015 08033980 *08033990% 08033992 «08033994* 08034000 08051000 08051010 08051065 

STREAM VaRIaBle. "* PECLAREN aT 08029015 
REAL "" DrchaRrD aT 08099650 

#08101520% 08101950 08102150 08102300 08402350 08103650 08403700 «08106800% 08107100 *08107600% 08108250 


#08108800% 08109300 ¥08109750% 08110350 408141350% 08142200 408413000% 08113300 %08113750% 08114650 «08114900e 


08115450 


ee 


44 


re | 


STREAM VARTABLE ee 
STREAM VARIABLE == 
STREAM VARIABLE == 
STREAM VARIABLE == 
STREAM VARIABLE = 
STREAM VARIABLE == 
STREAM VARIARLE °o=# 
STREAM VARIABLE =" 
REAL = 


NECLARED 
DECLARED 
DECLARED 
DECLARED 
NECLAREN 
DECLARED 
DECLARED 
NECLARED 


DECLARED aT 08172000 


AT 08107700 
AT 08408950 
AT 08469300 
AT 08110350 
AT 08112200 
AT 08113300 
AT 08114650 
AT 08115450 


#084974000«% 08175200 08175400 08175500 08176000 08178000 
REAL. *™ DECLARED aT 08344000 
REAL == DECLAREN aT 08377000 
08384000 08386000 
REAL == DECLARED AT 08391000 
*#08396000« 08397000 08409000 08410200 
STREAM VARIABLE == ODECLAREN AT 08397000 
REAL "= DECLARED AT 08440000 
*08447000% 08448000 08449000 08453000 08454000 084741010 


STREAM VARIABLE °&= 
INTEGER = 


DECLAREN AT 08472000 


DECLARFN aT 08528000 


08472000 


#985 30000% 08531000 408533400 «%08533700 «4085 34000 %4085 35000 e%085 36000 * #085 3700044085 38000*% 08540000 


STREAM VARTABLF == 
08541000 
REAL aw 
*08577700% 08578,00 
STREAM VARIABLE -*# 
STREAM VARIABLE == 
STREAM VARIABLE == 
*08613000*" 08618000 
REAL *=° 
08630000 08632000 
STREAM VARIABLE “== 
#08638000% 08643000 
STREAM VARIABLE s® 
08690430 08690490 
REAL 
08728000 
INTEGER) ee 
*08775000*% 08784000 
STREAM VARIABLE ©&= 
REAL =" 
REAL ae 
*08882500«% 089146000 
STREAM VARIABLE = 


DFCLARFN AT 08540000 


DECLARED AT 08576000 


08590000 08597000 «08597800 
DECLARED AT 08578460 

NECLAREN AT 08590000 

DECLARED AT 08605000 

08619500 


DECLARFD AT 08626000 


08670000 

DECLARFN AT 08632000 

08650000 08653000 *08655000* 
DFCLARFD AT 08690400 

08690250 08690280 %08690300« 


DECLARFD AT 08704000 
DEC|,ARED AT 08733000 


087864100 
DECLARED AT 08775000 


DECLARED AT 08801000 
DECLARED aT 08851000 


DECLAREN AT 08916000 


08917000 *08919000%«08922000* 


REAL me 
#09505000*« 09505500 
REAL «= 


09692100 *09631000« 
REAL = 


#09679800% 09679900 4«09680800% 09684000 


STREAM VARIABLE == 
STREAM VARIABLE == 
STREAM VARIABLE “== 
NEFINE =" DECLARED 
09703000 09704000 
STREAM VARIABLE. o= 


DECLARED aT 09501000 


09505600 09505700 


DECLARFD AT 09602000 


DECLARED AT 09679300 


08597840 


09632000 *09639000* 09640000 09643000 
09681505 09683515 

DECLARED AT 09661000 

DECLAREN AT 09681515 

DECLARED AT 09682200 

AT 09702000 

09704100 09704500 09705000 09706000 


DECLARFN AT 12225500 


08597820 


09505759 *09507500*% 09508000 


09646000 


09681540 


09706050 


08597830 


08597640 


*09510000%**09535000% 09535100 


09648800 


09684900 


09706400 


09682000 


09707000 


09682200 


09708000 


09536000 


SS ee ee 


a4 


*12237000% 12238000 *12241500* 

REAL =" DECLARED AT 12503500 

*12535500 «412537000441 2537500% 12538500 412549500%«19550000% 42550500 *412556000* 12556500 *42590000% 142590500 
12626500 12627000 4£126278000%«12639500% 12641000 412643000% 12643500 12645000 42647000 *42647500« 12648000 
12650500 «12655000% 12656000 126570090 12691500 12705750 «12708250% 12709500 wi2709750*" 12710250 

sTReaM VARTARLE =* nrcbaRrn at 12708250 

ReAL = nercblaRrn AT 128603500 

*42893000% 427829000 #19830000%«19833000« 12836000 


12862000 *12863500% 19864500 »12865500*% 142866000 142866500 


12873500 12874500 12875000 127875500 12880500 12887000 *19892500* 12897500 42898000 «12901000 
STREAM VARIABLE = DECLARED AT 12833000 
STREAM VARTABLE == ODECLAREN AT 12880500 
12882000 
STREAM VARIABLE == DECLARED AT 12887000 
*12888000" 
STREAM VARIABLE == DECLARED AT 12892500 
REAL ™* DECLARED aT 13004000 


13054000 13064000 #13108000* 13110000 *13135000« 

INTEGER =" DECLARED AT 14108000 

#14113000«814117000» 

STREAM VARIABLE = NECLAREN AT 14186100 
14186110 

STREAM VARTABLE == DECLARFH AT 14204100 

STREAM VARIABLE == ODECLAREN AT 14205300 

STREAM VARIABLE = DECLARED Al 14927300 
142997520 *74227560% 14777600 

STREAM VARIABLE "= DECLARED AT 14284000 
14285000 14287000 

REAL °" DECLARED aT 14348900 

#14351310% 14351320 14351330 14354350 14351370 *14351390m* 14351400 14351410" 143514420 14351440 

#14358595 414358598» 14358600 £14362000m 14364100 14364200 14364300 14364800 14381000 14383000 414383700« 
14383800 14384000 14388000 44390000 14393000 14398700 14398800 14399300 14399400 «14415200 
14430400 . 

STREAM VARTABLE = DECLARED AT 14445200 

REAL, == DECLARFD AT 44532000 

*14533000% 44534000 144535000 *44540350* 14541400 

REAL = DECLARED AT 14545000 

#14550500 ee 1455450044 14557500 ek1459000N& 14592000 £14595000KH14598 200% 14600500 «14601500 414603320 144604000 
14607000 14619000 

REAL =" pDrcbaRen at 14624450 

#1460000 481 4642000%% 14643000" 14645000 14711000 


*16855600 e487 68558008 


STREAM VARTABLE == DECLARFN AT 14645000 

STREAM VARTARBLE == DECLARED AT 14697000 

— $4693000 

STREAM VARIABLE == DECLARED AT 14731000 
14742000 

REAL = DECLARED AT 45020000 

*#15022000* 15039000 45040000 

REAL, == DECLARED AT 15066000 

#15098000*" 15099000 

STREAM VARIABLE == OECLARED AT 15113800 

STREAM VARIABLE == DECLARED AT 15115700 

REAL 7" DECLARED AT 15171000 

#151740000815180000e 15182000 

STREAM VARIABLE =" DECLAREN AT 16343500 

STREAM VARIABLE 7" DECLARFN AT 16689100 

STREAM VARIABLE ==" DFCLARFN AT 16654600 


4-44 “SY 


STREAM VARYJABLE =* DECLARED AT 169027600 

INTEGER ©* DECLARED AT 16912400 

*16926210% 16967000 16968100 *16968170* 

STREAM VARIABLE == DECLARED Al 16926710 

STREAM VARIABLE = DECLARED AT 16967000 

REAL &™ DECLARFD AT 17000800 

#170034508 37005400 

STREAM VARIABLE ** PDFCLARFN AT 17003450 

RFAL 7" DECLARED aT 18004000 

#18025000" 16028000 18030000 *18050000« 1052000 

ReaL =" prclaRrp at 18198000 

*18436120*% 48438,80 18438200 

STREAM VARIABLE ==" DECLARED AT 18438120 

REAL © DECLARED AT 18502300 

*18520600% 448521000 18522700 48524100" 18574200 
18540600 185441100 *18553400* 185534430 18553500 
18555200 41855560004%18585700% 18555900 18556000 

sTReaM VARIABLE *°" nFclLARrn aT 18521000 
18521300 

STREAM VARTABLE = DECLARE AT 18528900 

STREAM VARIARLE == DECLARED AT 18540600 
18540700 

STREAM VARIABLE «== DECLARED AT 185701400 

REAL 2 DECLARED AT 18701800 

#18720200% 48720300 «48720400" 48720600 48770800 
18835300 186835600 «18840200« 18840300 18840400 
18845200 18845300 18845400 

STREAM VARTARLF == NFCLAREN AT 18790600 

STREAM VARIABLE == DECLARED AT 18830900 

STREAM VARTABLE == DECLARED AT 18834900 

STREAM VARIABLE == ODECLARFN AT 18834700 

REAL = DECLARED AT 19519000 

* 1957610044 1957690044 1957630088 19576 4004s 19576500" 

STREAM VARIABLE ==" ODECLAREN AT 19680200 

REAL == DECLARED aT 19693000 

*19698000% 49699000 49700500 49703000 19707000 
19750000 149765000 19766800 197682700 419768764» 

STREAM VARIABLE °°" DECLARED AT 19768200 

REAL =" DECLARE AT 19900260 

%19900600%#19900610% 19900620 19900730" 19900735 

REAL *" DrcbaRen 4«zT 19901500 

#199024504%19902000% 19902300 «19902900 19903100 

REAL == DecbaRen at 20012000 

#209 345008 50035800 20036100 20036200 «20045900» 

REAL == DECLARFN pT 20081200 

*20101300% 20402000 *20418900* 20119000 204212700 

STREAM VARIABLE == DECLARED AT 20401300 

REAL ©= DECLARED AT 20341600 

*20163600% 29163700 *20183800% 20165300 20170600 

STREAM VARIABLE "= NECLARED AT 20194400 
20194600 

REAL "=" DECLARED AT 20289035 

#20289340% 20289360 20289380 20289560 

REAL 7" DECLARED at 20294000 

*20296200%%20298400% 20299020 20300000 

STREAM VARIABLE = DFCLARFN AT 20300000 
20301000 20301500 


18054000 18056000 «18057000 


*18525700% 18525900 *18527600«%18528200% 185279100 «18540500 


18553600 48553700 
18556200 48556400 


18553800 
18556500 


18554000 


*18770900% 48790600 «18830600% 18830900 
*16840500%416841600ee18844200% 18844400 


19576600 *19590000% 19592000 *19680200« 


19741300 497431400 49720000 49732000 
19768782 «197741008 49774750 


19900755 19909805 «*19900815* 19900820 


*19903810% 19903825 +«19903830" 19903850 


18554700 


18834200 
18844500 


19680500 


49733400 


19900830 


19904360 


18554800 


18556800 «18570100*% 18570800 


16834700 
18844600 


19733600 


19905200 


20046000 20046200 20046300 #20046400«*%20063300« 20063500 


20121800 20422100 *20124900* 20125000 


20176105 20178900 20194400 


4~a4-4 


tole 


REAI, Cy 


*20382068* 20389070 
STREAM VARIABLE == 
STREAM VARIABLE == 
STRFAM VARIABLE == 
STREAM VARIABLE == 


20484400 
REAL 7" 
20511660 
REAL °°" 
20566807 
90570280 
20575150 
20577150 
20577875 
REAL 7 
29581200 
REAL. om 


DECLARED AT 20382050 


DECLARFN aT 20511155 
20511662 20511664 
DECLARED aT 20566100 
20566822 20567260 


20511665 


20567600 


20382072 *20387165* 203821470 
DECLARED AT 20427000 
DECLARED AT 20433000 
DECLARED AT 20439000 
DECLARED AT 20484300 


20569526 


20570590 «20573850««20574750*% 20574900 


20575950 270575350 20575400 
20577950 *#20577675« 20577725 
20577950 2705780025 270578075 
DechaRen at 29581000 
*20583700# 
DECLAREN AT 20584000 


20575800 
#2057781 0% 
29578475 


#20584 350 #490584 450%%*20584500%820585 360% 20585365 


REAL == 


*20587200%«20587800% 20568000 


DECLARED AT 20586800 
20588010 


#2058870 2ne20586740 4x 20588747% 20588750 


REAL = 


DFCLARFN AT 20589800 


*20590050%«20590100#*«20590150*% 20590200 


20590710 
REAL mam 
20593060 
REAL = 
20595850 
REAL Lo 
20596950 
REAL == 
20600430 
20604300 
20605435 
20608050 
Real Cr) 
20704220 
20741000 
20771100 
REAL =e 
22058000 
22136000 
22205000 


STREAM VARJABLE «2 


22145040 


STREAM VARIABLE om» 


22420000 


STREAM VARIABLE == 


22130000 


STREAM VARIABLE => 


22160000 
REAL => 


DECLAREN aT 20591000 
#20593400% 20593750 
DecblaRen at 20595000 


20593900 


DECLARFN aT 20596800 
20597000 20597050 
DECLARFD AT 20600030 
*20604720% 20601740 
20604359 270604500 


70607760 


20588400 
«20589250 
20590300 


*20594450% 


*20602700% 


20382280 


20569529 
20574905 
20576200 
20577620 
20578210 


20585380 


20588200 
20589300 
20590400 


20594600 


20607800 


20569590 


20569610 


20569840 


20569840 


*20574910e 290574947 «20574990*% 90574950 

20576450 4205769004«90577000% 20577025 
*20577826% 20577828 *20577829" 20577835 
20578300 *20578375* 20578425 


20576210 
20577823 


20585385 


20588400 


20590450 


20603000 


20588450 


20590550 


20603565 


20570490 
20575000 


20588550 *20588650*«20588700% 


20590600 


20590668 


20590668 


20603600 *20604115%**20604250" 


*20605 46044 20605465¥420605470*% 20605480 *20605700e*20605702**20605880%«20607060% 20607600 


*20608074 20608078 *20608114% 20608116 *206087304*20608740 4420608770» 


DecbaRen at 20701500 
20704930 20704240 
20742000 20746000 


20704250 
20748000 


DECLARED. AT 22057000 
*22074000" 22075000 


22145000 272145050 22145500 


DECLARED AT 22231000 


20704260 *20722000«%20730000%*20731000« 


20749000 


22145550 


NECLARED AT 22115030 
DECLARED AT 22119000 
DECLARED AT 22129000 


DECLARED AT 22159000 


20750000 


22078000 «22407000% 29344500 


22147000 


20751000 


22115030 
22159000 


20753000 


22118000 
22178000 


20736000 
20756000 


22119000 
22181000 


20738000 
20758000 


22128000 
22185000 


20604850 *20605000* 20605050 £20605 360**20605 380%#20605400%*90605405*%%20605430« 


20608000 


4207390008 
20769600 


22129000 
*22203000" 


#22397000 4422309000 8422314000 22315000 «22354000%%22356200 4422356300 422 36 3000 4422365200 422365300 na 22390000% 
22393000 «22395000% 22397000 «22410000 224146000 


STReaM VARIABLE = 


22417000 


DFCLAREN AT 22616000 


4a 


Se ee | 


REAL = DECLARED AT 27902000 
REAL = DECLARED AT 24004000 
*24011000% 24012000 *24017000*% 24018000 24019000 *24024000*% 24026000 24027000 
REAL @* DECLARED AT 24032200 
*#2403360040e240338008 24034400 *«24035100% 24035300 24036400 74038900 24039000 24039100 74039300 24039500 
24039700 
ReaL 7" DrcbaRern at 24042550 
#24043600% 24043900 274045500 
REAL = DECLARED AT 24110000 
24416000 *24126000* 274727000 24128000 24434000 24143000 247458000 
STREAM VARYABLE = DECLARED AT 24116000 
24417000 
STREAM VARIABLE == DECLARED AT 24134000 
24135000 *24137000% 24139000 
STREAM VARIABLE == DECLARED AT 24158000 
24159000 
REAL 7" DECLARED aT 28001600 
28001800 *28018000e 28018400 «280238002802 46008e28024800e 28025000 28026800 28031000 28032000 «280564008 
28057400 *28058600% 28062000 28062200 28062400 
STReaM VARTARLF "=" nNFCLARFn aT 28018000 
STREAM VARIABLE "= DECLARED AT 28023800 
STREAM VARTABLE == NFCLARED AT 28031000 
STREAM VARIABLE = DEC|,ARED AT 28056000 
REAL ** DECLARED AT 28202000 
28202200 £€28213400 4428218400 «28219200 44 28219400% 28219600 28221400 «28263400m 2826460N *£2A267400% 28268000 
28275800 44282815504428281600% 28282200 28282600 28283000 28283200 28283600 428263800% 28284800 428285000» 
28285600 28285800 28286200 28286400 28286800 *«28287200% 28987600 «28788000% 28288200 78288400 28288800 
28289000 28295600 98798600 28302000 «28304510* 28304530 
STREAM VARTABLE == DECLARED AT 28213400 
STREAM VARTABLE = DECLARED AT 28918400 
STREAM VARIABLE | DECLARED AT 28263400 
STREAM VARIABLE -= DECLARED AT 28267400 
STREAM VARIABLE == ODECLARER AT 28304510 
REAL = DECLARED AT 28401000 
*284715400e 28415800 28436200 28416600 284;8400 28418800 28419400 *28420200% 28420600 284353000 «28459000» 
eee eon an 28460400 28460600 28460800 28461600 28461800 «28462800 28463600 28463800 «28470000 ee28474000« 
#28478400« 
STREAM VARIARLE °" DECLARED AT 28418400 
28418600 
REAL "==" DecbaRen aT 28803000 
*28832500% 
REAL == DECLARED AT 32000200 
*32000500% 32000530 32000600 *32000650*432000800%* 32004475" 32001700 
STREAM VARIABLE = DECLARFOH AT 32001700 
REA, == DECLARED AT 329400100 
*321900350* 32100900 *321300500* 327100600 
STREAM VARIABLE == DECLARED AT 32400500 
REAL = VALUE pARAMETER | DECLARED AT 36001000 
36907000 36008000 
STREAM VARIABLE "= DECLARED AT 37046194 
STREAM VARIABLE °™ DFCLARED AT 37284130 
REAL '7* DECLARED aT 37287500 
*37289000% 37290000 #«37291800e437294000" 37295000 «37297000% 37298000 
STReaM VARTABLF == pFCbLARFEn aT 37314200 
37316200 
REAL == DECLARED AT 37388200 
37395000 *37404000*% 37412000 37413000 


T == 
T es 
tT °* 
T oo 
T =e 
T == 
T =. 
tT == 
T == 
T me 
T = 
T «= 
Tl o- 
T «= 
T == 
tT oo 
t 
to 
TA 
TABCNT 
TABLE 
TABLE 
TABLEO 
TADPOL 
TANK 
TANK 
TANK 


STREAM VARIABLE = DECLARED AT 37395000 
37397000 
REAL ARRAY © NEFCLARED AT 37422000 
#37499000% 37430000 37431000 37432000 37433000 «37434000 ««374 37000 %% 37437500 e%374 40000 37441000 «37441500» 
«374A 2000 wa 3744 IND ae 37T4O4O00 we 37446000u 37447000 
sTReaM vaRtanlbe == orcbaRen aT 37441000 
REAL = DecbhaARen at 37507000 
*37522000*% 37526000 *37527000% 
STREAM VARYABLE == DECLARED AT 38083000 
38085000 
REAL == DECLARFN AT 383646010 
*38377AO0e*3ZR37BOOO* 38422000 38424000 
REAL == DECLARED AT 38561000 
# 385970004 38598000 38599000 38600000 38602000 38603000 38607000 38607100 38607200 38607900 38607950 
38608000 «386230008 38624000 
STREAM VARTABLF == DFCLARFH AT 38603000 
38605000 
REAL == DECLARED AT 386580090 
a 38704000 *38705000* 38707000 *38753000* 38754000 38755000 *38759000* 38760000 38767000 «38768000* 
38749000 
REAL = DECLARED AT 40004000 
40008340 *402800004 40281000 40282000 40292212 40293030 40293060 40309;100 40309150 40317210 40337220 
STREAM VARIABLE = DECLARED AT 402922192 
REAL © DECLARED AT 41017000 
41047100 #411914200% 41191300 *44195000% 41198000 44199000 #41200000««%4;208000« 441209000 
REAL 77 DECLARED AT 44011000 
440B0000 #441260004 444154200 444156000 6444156100 4444157000 4444157100 44 4157200%444158000% 4441590004444 1600008 
44160050 64441604004 444160500444 162000444416 2050e 44 162100444416 30008644 163020844416 3030 %444 16304004 44164010" 
444164020 6644164500 4444164600 meh 4 165700 4444 166000 4444167000 4444 168000 e444 168200 4444169000 %e441 70000444417 1000" 
444972000 #4497 300044441 75000 4444176000 444477000 4444781004444 779000444 179050%%44179400% 44203200 
STREAM VARIABLE "== pECLAREN AT 44203900 
REAL == DECLARED AT 44206700 
*44209200% 44209300 44709400 44209500 #44244200* 44214300 44914400 *44215000%*84240690% 44740695 *44243750" 
44244000 44744500 44948000 44248500 *£44250500e 44257000 £44954100%%40255500« 44256500 *44262000% 44262500 
44763000 44264000 «442700008 44270500 44271500 «446274500% 44275500 
REAL °" DECLARED aT 44442000 
Real =" orcbhaRrp aT 45002000 
#450946000%45135040% 45135080 
STREAM VARTABLE =" MFCLARFEH AT 45135040 
Real == nrclaRen aT 92434120 
*02434430% 02434580 
e= DEFINE == DFCLARED AT 00438100 
06903600 06203700 46118200 16206400 46343950 46689450 146902950 16956000 
== STREAM VARIABLE == DECLARED AT 07003462 
07003466 07003500 
w= STREAM VARIABLF == VALUE PARAMETER == DECLARED AT 07003610 
07003615 07003970 
FCONTENTS == PROCEMURE =" DECLARED aT 07268000 
16786500 
E = STREAM LABFL *" DECLARED AT 04662000 == OCCURS AT 04662200 
“em RFAL ARRAY = PFECLARED AT 04668800 
#04674450% 04674650 04677300 046829700 «04682750% 
"re Real =" DECLARED AT 14624100 
14644000 14645400 14645600 14675000 «14681000% 14689000 14691000 14698000" 44701000 14702000 44702025 
14702600 14705000 14708000 *14710000* 14711000 14712100 14712200 14712300 14712400 
me STREAM VARTARLE "=" NFCLARED AT 14691000 
14692000 


TAPE == |,ABEL ==© DECLARED AT 04357800 = OCCURS AT 04412700 
04358400 
TAPE "= ODFFINE == MECLARED AT 20243000 
20461900 20476000 
TAPE 7= LABEL °°" DECLARED AT 22064000 *= OCCURS aT 22106000 
22065000 
TAPEBUFFERSIZE °* DEFINE == DECLARED AT 04121850 
04421400 045554350 04555250 04555350 
TAPECHK == LARFL == NFCLARFED AT 13018000 *= OCCURS AT 13081000 
13037000 
TAPECL #7 LABEL =" pECLARED AT 42513500 == OCCURS AT 142756400 
12694800 02434410 «*02657000* 07091000 28072800 
TAPEND == LABEL =" NECLARED AT 32513000 =" FORWARD AT 12742500 = OCCURS AT 42742500 
12706750 
TAPEPAR *= LABFL =" ODFCLARFED AT 28005800 = OCCURS AT 28081200 
28010200 28092200 
TAPEPARITYRFTRY == REAL PROCEDURE == DECLARED AT 04548000 == FORWARD AT 04254000 
04421600 *04648150"*04651000% 04666000 
TAPEPURGE =" PROCEDURE =" DECLARED AT 08024000 
16770500 
TAPERD == LABEL == NECLARFD AT 13018000 ==© OCCURS AT 13062000 
139468000 
TAPERDR == LABEL == DECI,ARED AT 143018000 = OCCURS AT 13061000 
13970000 
TAPERETRY = LABEL == DECLARED AT 04357400 == OCCURS AT 04421200 
04424000 
TAR #* REAL ARRAY @* DECLARED at 00079100 
02202100 *02202200 4402202500 44024 34490 e024 34530 %%0584 23004405846 3954405849300 «405853600 %405960700 4405970500» 
#05975610#4#06103500%*061037004%06 116000 4%061416100%%06353500%*06463992%%070016408e0700 18404807 27 2500e%07 296000" 
#07 301000 «407352000 «407 37 1300 %%07 37 1600 4407371950 «407426000 «407427625 **07 455000 #40756 2000 * 407568000 e%0757 20008 
#98959575 «408268000 «%08970650 &*08 379000 #408 388000 «00857 7 100440857 1600 #408 628000 408677000 x08 689 300 4086961400" 
#088 30000 #*088 36000 **08880000 «408997000 4%096 4 7000%%096 24000% #096 38000440964 7000%%09 680 100%*0968 96 204% 143790008 
414396000 #1 4560000 14569000 «#14588 100 444648000 #41 8023000 e480 33000 e187 3000 #1 8425200 44718425400 4% 18466000» 
*18841500"%18843700%«188441 00%*188455 00e#1 97688 00%! 9786000%%*2 00350002011 9700201206002 0150900%"2021 03008 
* 20582450 462058 36504 20760000%% 20769200 %% 207710 20%%« 220 10000 %* 220 30000 %4# 29906000 4% 22920000 me 24043 100%e 240438008 
#24044 250 4424045950 4440336000 44%41320320%441320355ee44148200% 44160050 
TRBL = STREAM VARTABLE @"™ DFCLARED AT 16041200 
16041400 #460429300% 16042650 46042700 
TBL =" INTEGER == DECLARED AT 41430300 
* 41500200484 1500 300m%4 4500400%*41500600% 41500700 *44504700%%41502000K*4 4502000" 
TBLANNR es REAL =" HWECLARED AT 16035100 
#16041100*% 16043550 
TBLCNT == INTEGER == PFCLARED AT 41430300 
*44507800" 47502400 44502300 
TBLERR w= LABEL = DECLARED AT 16944000 == OCCURS AT 16961500 
16926500 
TBL1 == STREAM VARIABLE © DECLARED AT 17003250 
17003800 
TD =e LABEL == DECLARED AT 18701000 "= OCCURS AT 18710800 
18701200 
TE =" LABFL =" DECLARED AT 18701010 "= OCCURS AT 18710268 
18701200 
TECH ©" OFFINE =". DFCLARED AT 36385400 
38389200 38389800 
TELLSPO "= SURBROUTENE ==" DECLARFN AT 24042695 
24044130 24044000 74045600 
TEMP == STREAM VARTABLF =" DECLARED AT 04652000 


046527400 04653600 
TEMP = STREAM VARIABLE == 
*04661200* 04661300 
TEMP *= REAL =" DECLARED AT 04668600 
¥04676700m 04676800 #04677050% 64677150 *04678200%%04678600%%04682150% 04682250 
*#04686450% 04686550 04686600 *04686700% 046a7200 


DECLARED AT 04659300 


04682350 04682850 04682900 


TEMP © RealL =" pecLaRen at 08441050 
*08447100% 08448050 08451100 08454000 
TEMP em STREAM VARTABLE ==" DECLARED AT 08454000 
08454500 
TEMP = INTEGER ©#= NECLARED AT 08801000 
#088 38000 **08839000% 
TEMP = REAL © DECLARED AT 18198000 
*1B241000% 18255000 «18255200% 18260000 418261000«% 18265000 *18266000%% 1827 3055 %u 182765004 18295000 me 18425700" 
18440000 14465000 18467000 
TEMP = Rea~b ©" DFCLARFN AT 20561080 
*#20583050% 


TEMP = REAL #== DECLARED AT 28001000 

28001200 *28043000% 28043200 28013400 *£280;500U% 280145200 *28049600% 28049800 
TEMP == REAL == DECLARED AT 28201400 

28204600 *278250400*% 28251000 *282914000*% 282914400 
TEMP = STREAM VARIABLE =" DECLARED AT 28291400 
TEMP @= REAL == DECLARFN AT 28400600 


28052000 *28077400% 28086000 


28293000 *28993200* 282994000 «28305800% 28306000 


#28499400% 28429600 «28436000% 28436400 28436600 28437000 *28437200*% 28437800 28452400 78452600 28452800 
28453000 28454400 
TEMP = REAL DECLARED aT 42482000 
*#42489000e 47490000 42490100 42493000 42492000 4275019000 427501900 
TeEMPnsK =* neFINe =" neclaRen at 06073600 
064100200 
TERMFLAR == RrAL == DFCLARFD AT 12506000 
*127052508 427415900 12759500 42753000 
TERMGQ = DEFINE == DECIARED AT 00408000 
02957000 
TERMGOING © DEFINE e#= DECLARED AT 02110250 
22303200 48031000 
TERMINALCLOCK == REAL = DECLARED AT 02179000 
*#02185900% 22039000 22040000 «2204R200" 
TERMINALMESSAGA °° PROCENURE “" NECLARED aT 02188000 
02330400 
TERMINALMESSAGF == PROCFHURE =" NECLARFO aT 92330100 == FORWARD aT 00463200 
04195600 04253000 08728700 14233200 14658000 18510100 48552500 185592900 18822100 148835300 19525200 
19680500 37382000 36079500 42488300 42524100 49540000 425514000 48034100 48136000 48143500 
TERMINATE == PROCEDURE NECLARED AT 02180000 == FORWARD AT 00463100 
04405600 04252300 04300600 04359600 06360546 064434010 06463260 08728600 44233100 44279250 44358383 
14559500 14581700 14658000 16124000 48549100 48540120 148552400 48559400 18581400 48822100 48835200 
19525200 149680400 19697400 19796000 19904350 20195500 22024000 22025000 36006500 37046735 37225800 
37382000 37394700 38079000 42488200 42501400 42524100 42540000 49551000 48135000 48142500 
TERMNaTe "7" Rerab 7" neebaREn aT 04260000 
04352600 
TERMSFT == DFFINE = pnecLARFD AT 02110100 
04626000 04678350 06360540 06360550 06463300 06463340 07028100 49545000 142649000 42699500 42705250 
12710000 42710500 12861500 12878000 12880500 12900000 12901000 143108000 14193100 14193200 14203100 
14243000 44292350 14582000 14583000 15143300 45445000 17906250 47945000 18029000 48034000 48503300 
18540200 48540300 18580440 39799070 49900670 149903820 19903860 280292900 28036200 780414600 28043000 
28046400 2806;800 28085800 28086200 28089600 28095600. 28096800 280979200 28216600 282725200 28230400 
28232800 28242000 28242200 28258700 28270824 28285400 28993800 28295800 28303200 78303600 28307730 
28467400 28472800 28476200 28848000 28849000 28859100 28852200 28863000 28882000 36007000 36008000 


37046800 37046810 37047250 37048100 37121000 37172000 37381000 38014700 38106000 
TERMSGSZ "=" OFFINE @= nECLAREN aT 00439000 
02218000 07219000 30915000 30917000 
TEST @™= Lapel 7) DFeLARFND AT 04124000 *" OCCURS AT 04165000 
04161000 
TEST w= REAL =" DECLARED AT 08027100 
*08033990% 08057000 
TEST =e STREAM VARIAB).E = DECLARED AT 08774000 
*£08782000* 
TEST = {LABEL == DECLARED AT 09701000 == gCCURS AT 09720000 
09708000 
TEST = LABEL == DECLARED AT 12513500 =" oCCURS AT 12752500 
12743500 
TESTBACKUP == LABEL == DECLARED AT 22062000 “== OCCURS AT 22205500 
22213700 
TESTEND 7" LagEL =" PECLARFD AT 13019000 "= occURS aT 13134000 
13194000 
TESTING ™™ REAL ** NECLARED AT 04554800 
04567845 04568485 «04654600% 
TESTREANY =" LABEL "= NAFCLARED AT 14165000 =" OCCURS aT 14236000 
14244000 
TF =e REAL == VALUE PARAMETER *©* DECLARED AT 08800000 
08803000 
TF =» LABEL "= DECLARFD AT 16054000 *= OCCURS AT 16130000 
16062000 146063000 
TFID =» REAL == DECLARED AT 05950950 
05951000 05953435 *05956750*« 05975750 05976800 05977900 05978050 
TFID =" STREAM VARTABLE °°" DECLARED AT 05953135 
TFIO "= STREAM VARIABLE ** DECLARED AT 05978050 
THERE ©" STREAM VARTARLF = VALUF PARAMETFR = =" DECLARED aT 00082000 
00083000 00087000 
THERE = REAL SUBROUTINE *== DECLARED AT 14549000 
14558500 44567000 
THERE w= LABEL ©= DECLARED AT 37004000 == OCCURS AT 37046320 
37046120 37046940 
THING =" REAL = DECLARED AT 28803000 
28823000 *78881000% 28882100 28882120 28882400 28887000 
THISLINK "* INTEGER =" DECLARED AT 08852000 
08860000 «08860500 e+08B64000% 08865000 08915000 08941000 08944000 08944500 08946000 
THISLINK @= Realb * = prebaREn at 20012800 
20022300 *200250004*20025600* 20027300 20030700 20037100 
THYSLyNkK = RealL == DECLARED AT 20082000 
20090200 
THISLINK «= REAL == DECLARED AT 20142400 
THU »* (LABEL == DEC; ARFO AT 18205000 
TI = LABEL ** DECLARED AT 16055000 = oCCURS AT 16246000 
16064000 
TIM ©" REAL ©" DECLARED AT 04123500 
#04194050% 04195000 
TIME "" nFFINE =" DFCLARED aT 38363000 
38419000 38503000 
TIMF *@= neEINe =" pHechlaRED aT 38565000 
TIME w= MEFINE == DFCLARED AT 386676000 
388747000 
TIME we DEFINE == DECLARED AT 41020000 
41187000 41212000 
TIMEAX == REAL == DECLARED AT 06185000 


38204000 


39009050 


06189000 06195120 06198000 06199000 06201000 06202100 06203000 #06229000806272000% 06279100 
TIMETY "" SURROUTINE  ™" NECLARFD AT 06186000 
06253000 06263100 062780000 
TyMeOUT ©" PROcENURE “= neebLaRen aT 08305000 
08412000 46500000 45075600 
TrMeOUT == REAL == nECLAREN AT 14624200 
TIMER w= {LABEL == DFCLARED AT 00008000 -=.2 OCCURS AT 48000000 
4690071000 
TIMERELAXER == PROCEDURE == DECLARED AT 08730000 
08799000 146803000 
TIMEUSED e= PROCEDURE == DECLARED AT 08525000 
16247000 
TIMEX e= INTEGER = DECLARED AT 06184000 
06192000 06194000 06194900 06195410 06195115 06205030 06205040 «06224000% 06230100 06243100 «06271000« 
06279100 
TENU "= Real ARRAY "= NECLARED aT 00241700 
01260600 02434700 02668500 #04146000% 04244000 04254300 04271800 049359400 404393800%«404395400« 04401000 
#94405600% 04567320 04567790 04568550 £04569000% 04644000 04672500 04672950 04675000 04683800 04662550 
#94682850%#04682900% 04683500 04684950 «04685850% 04686400 06239000 «06240000" 07049000 *07020000% 07074400 
07475000 08003000 086009000 08030200 08259830 08259850 08298800 08420000 08494000 08444000 08483000 
08496000 08548000 08551100 08558000 08578000 08590000 42670500 49700000 42700500 «42704000« 42823000 
12833000 745113800 15115100 16204000 16263100 18556400 20289454 20567166 20590200 20607020 22075000 
22115030 22119000 22129000 22159000 22191000 28011200 28023800 28032000 28056400 28065000 28096400 
28212000 28218400 28235800 28263400 28270820 28408400 37036400 37046190 37047020 37098000 37113100 
37216000 37221320 37221400 37224200 37240700 37285300 37285320 «37285400" 37314000 38031000 38045200 
38104800 38105800 38202800 38203800 39034000 39905000 39950000 44190800 441333005 44168000 44491025 
*44193600» 
TrNU #* Real aRRay = Name PARAMETFR |=" DeClLARED AT 02348500 
02348000 07357000 
TINUL |= LABEL == DECLARED AT 440149000 == OCCURS AT 44194235 
44191025 
TIP w= LABEL © DECLARED AT 01750500 == OCCURS AT 01260450 
01260465 . 
TISKTASK #= PROCEDURE «= DECLARED AT 19687000 == FORWARD AT 17928500 
19685560 19800000 
TK == STREAM VARIABLE == DECLARED AT 14414000 
14426100 
TL © REAL ARRAY °* DECLARED AT 02434130 
*02434410% 02434424 02434532 02434770 02434840 
TL =" STREAM VARIARLE = DECLARED AT 02434424 
TM == REAL "" DECLARED AT 02434120 
*02434400e 02434534 02434760 02434800 
TM em REAL = DECLAREN AT 02663000 
02663000 *02667000* 07668000 
TM ee REAL == DECLARED AT 04668650 
*00678650*" 04678750 04679750 04681250 
TM == REAL @* DECLARED AT 28003600 
28011840 28012040 28041000 28047000 *28072600* 28082000 28082400 28095400 
TM "= REAL °* DECLARED AT 28204000 
28232200 28256800 28304600 
TM == INTEGER 7" perclLaREN aT 40005110 
#40249105*% 402902000 40290300 40322425 
TMB fe Real -* nechaRen aT 00650500 
*00655200*% 00655400 *00655600% 00656000 00656200 00656400 
TMID == REAL == DEC)ARED AT 05950900 
05950950 05953435 #05956550%#05957 350440596 3800% 05964000 05975750 05976800 05977900 05978050 
TMID * STREAM VARIABLE == DECLARFD AT 05953135 


TMID "= STREAM VARIABLE 77 DECLARED AT 05964000 
05964200 
TMID "= STREAM VARTABLE "" DECLARED AT 05978050 
05978250 
TMP #* Real == DFCLARFN AT 28001000 
*28012800% 28013000 *28014600* 28014800 28015000 28015400 *28015800* 28016000 28016200 *28050200««28050800« 
28051000 28054600 28052400 28053600 *28062800%%28063400% 28063600 *28065000% 28065600 *28096000% 298097000 
TMP == STREAM VARTABLF © DECLARED aT 28065000 
TMP »= REAL #= DECLARED AT 28204400 
*28934600%*28235000% 28935400 *28246800* 282948200 78248400 282748600 78250000 28250600 78254600 «98288800« 
28301600 *28305400% 28305600 28305800 28306200 *28307700" 28307705 
TMP **" REAL =" DECLARED AT 28400600 
#28428800«% 28429200 28429400 28429600 28430000 «28434200% 28434400 28434600 «28435000 28438200 4284400008 
28400200 %284428004 28443200 28447600 28448800 28449000 28449600 428452600% 28453400 «28453600% 28454200 
*28469200"*28477 800" 
TMP =" STREAM VARTABLe == OFCLARFD AT 28438200 
TMR w= LABEL == DECLARED AT 18701000 w= OCCURS AT 187411400 
148701200 
TN ee INTEGER == DECLARED AT 40005110 
40100200 40100600 40100700 40100800 40101250 *40249105*" 40254100 40261046 
TODEND =" DEFINE @* DECLARED AT 05780200 
TONSIZE 2 DEFINE == DECLARED aT 05780100 
05852000 05972600 05972800 05973800 06085700 06093700 40322442 40322800 
TOFUNP "" DEFINE @" OFCLARED aT 05780025 
40324210 
TOG =" STREAM VARIABLF “* ODFCLARFD AT 02223000 
yeas *022510308% 02251100 
TOR = AL == NMeCcLAREN AT 06068400 
Wiehe Ob0ee00bs4 ba lu oubo6 toes 06096300 
TOG ew STREAM VARIABLE ©= DECLARED AT 12225500 
12233000 12238000 *19938500* 
TOG == STREAM VARIABLE = DECLARED AT 16041200 
16941500 *16042650% 16942800 
ToG »* REAL = NAME PARAMETER =" DECLARED AT 18002000 
18000000 *18010000% 18017000 18026000 18029000 18031400 18032000 *18033500* 18035000 18050000 48053000 
TOG #" REaL @" DECLARED AT 18198000 
18255000 18760000 18265000 18299000 18460000 
TOG @=™ STREAM VARTARLF @" NeCLARFD aT 20053200 


20054600 

TO, = STREAM VARTABLF == PAFCLARED AT 20061100 
20062900 

TOG = STREAM VARIABLE «= DECLARED AT 20064000 
20064400 


ToG «= REAL #< DECLARED AT 20566100 
ToG = REAL, == DECLARED AT 20581000 
TOG =" REAL == DECLARED AT 20584000 
ToG =* REAL =" DECLARED AT 20586800 
TOG #" REAL "* DECLARED AT 20589800 
TOG ©" REAL =" NMECLAREN aT 20591000 
TOG =" RFaL ** DECLARED AT 20595000 
TOG ** Real @" pEcbaREN AT 20596800 
TOG ©" Real == DECLAREN aT 20600010 
*20603550%+*20606650% 
TOg == Real |= DECLARED AT 20701500 
20746000 90748000 20781000 20753000 20753800 90766000 70769400 20774 100 
TOG | REAL == DECLARED AT 38010100 
* 38013510 


TOG = REAL *= DECLARED AT 38103100 


Tog = 
TOG * 


TOG = 
TOGGLE 


TOGLE 


TORS 


TO6S 


TOGS 


TOG! 
T0462 


TOHLD 


TOIT 

TOL 
TOLTO¢ 
TOLTO¢ 
TOMAXS 
TONUME 


ToOPIO 


=" REAL == DECLARED AT 38201100 

= REAL =" DECLARED AT 39056100 
39258000 

=" STREAM VARYABLF "==2 NECLARED AT 41322500 
41322820 


S 7" REAL =" WECLARED AT 04668750 
#94674400% 04674900 04674295 *04674300%%04674350% 04675300 04675800 404677800% 04678950 04679050 04679550 
04680250 04680350 04680850 04684550 04686000 *04687350« 04687900 
em REAL = DECLARED AT 00080000 
#920 98000 4402043000 02196000 *09209100%%02202500% 09434480 409434490 4074345 30 #405849300 4*05846 395 44058493008 
#0585 3600 ##05 960700 %%05970500 «405975610 #0610 3500 406103700 mm06) 16000606 116100 940635 3500 4406410000 440646 3992% 
*07001640%%07001840«% 07059200 07232000 *07272500%407296000%#07 3010004807 352000880737 1300%*0737 1600407371950" 
*97426000% 07427610 407427620 4407427625 407497640 4407455000 «40756 2000 4 %07568000 407572000" 08046000 08088000 
#08959575*#08268000%«08970650% 08378000 «08379000%*«08388000«% 08421000 08574000 *08571100%*08571600" 08580000 
08677000 *€08628000%%9B677000% 08689200 «08689 300%%08696 1004 #088 30000 4088 36000 44088800008 «08997000%%0964 7000 
*09694000 «#096 30000% 09637000 «09638000 «%09647000%%09677000% 09680000 *09680400%%09682620% 42386000 142539500 
14361000 14378300 *14379000%«14396000%«14560000e« 1 4569000K4145838100K41 461 8000me1 802 3000441 8033000K« 182730008 
*184252004% 71842540044 18466000% 18544400 ¥ 188415004" 18843700% 18844000 #18844 400 %% 188455008 19768800K% 197860008 
290034900 *20035000« 20149600 4201197006%20120600% 20150800 «20450900% 20164000 4«20210300% 205827440 420582450" 
#2058 36504%20760000ms 20769200%%20774020% 22007000 «22007100m 22009000 «22010000%%220300000422053700e4 222240008 
22905000 #22906000%%22920000% 24036125 24043000 624043100 *42404 3800 %4 24044000 % 24044200 % «240452008 37304000 
¥#40336000 44403367004 41320340 441320320 %441320355% 42476000 *44 142000 £444 180000 %444250000 «444253500 4445102000" 
#45135220%%451386000ee451500N0e 48007000 448008000% 48042500 *48013000% 48048000 448049000%%48054600e 48059000 
48084100 *48084900%%48085000%e48098000" 
m= ReaAL =" DECLARED AT 28002200 
28002400 98044840 #28044839% 28042000 278043600 98043800 28092400 98095000 980959000 #98095600%% 980962008 
#28058600% 98099400 278936400 78043600 278043800 *28048600 «*28049600 ##28055000 &%28058400 «*98062600% 28063200 
28063800 *280660008%2 806 8800%*2 8084 100%e28084400%«2 80 86400%%28092000%%28092800« 
w= Real == DECLARED aT 28202600 
28202800 28213200 278237000 28219600 28279800 «28220200%*28920800% 282959000 28225400 28231000 28231200 
28235000 282352700 28237200 28242800 428246700% 28247800 428953400%4282956000% 28257400 *28258600% 28259600 
*28260000«% 28260600 #£26261100%*28 264900" 28266400% 28266600 *28268800% 28273400 28276000 *28280400« 28280600 
* 28285600 %%28296600% 28304500 28305000 
wm Real ©" AFCLARED AT 28401000 
#28415000e 28417800 28418000 #28418800%02844 9400 «4284 19800 4*28431200ue28433400% 28441200 *28449200 44 28448200% 
#25454800 «498458500 xe 25458400" 28466200 28469000% 78469600 28470000 78470700 28474000 78474200 78475800 
*28477600% 28478900 28478400 28484200 
me STREAM VARIABLE *" DECLARED AT 16854700 
16855300 
em STREAM VARJABLE == DECLARED AT 16854800 
16855400 
we REAL @= DECLARED AT 20566300 
20566310 20566812 20566835 *20567235%#20567950 #20567 255 %*205672970% 20567974 «20567280 *#90569529 «620569845» 
#20569846"% 20570350 20571700 
we LABEL °°" DECLARED AT 02189000 "*" OCCURS AT 02275250 
02276600 
=" STREAM VARIABLE *" DECLARED AT 12308000 
12317000 
"= RealL =" neeclaRen aT 12211000 
*12247000e%12260500e 12308000 
me STREAM VARIABLE == OFCLARED AT 12308000 
12316500 
IZ =e DEFINE em DECLARED aT 05780010 
05852800 40324910 40334085 
NT == DEFINE == DECLARED AT 05780040 
05852700 06101200 40324200 
e= REAL ™" DECLARED AT 02192000 


*#02766000*e 02266390 02275000 02275150 02275250 02275350 02275400 0227565N 02275700 027275800 02276100 
02276370 02276400 02777000 02278100 02283000 02285100 02287210 027303000 02304000 02314000 
TOP TOR == Real == peclaRen AT 04668650 
*04674000*% 04674050 04674450 046897000 *«04686450*% 04686600 
TOPIOD e= REAL == DECLARED AT 45111900 
*15113200*% 15113300 15115100 
TOREELNQN =* DEFINE == DECLARED AT 38568100 
38608100 
TOSIZE "= DEFINE == DECLARED AT 05780300 
05844110 05844930 05850120 05953070 05961400 05966600 06077500 06095100 06107200 06109400 06380140 
= 06381250 616827100 19904450 
TOSPFFO "" DFFINE =" necbaRED at 05780020 
40324200 
TOSTARTWRD cs" nFFINE == OFCLARFN AT 95760030 
06380550 403249430 
TOTALOLAY == REAL == DECLARED AT 12359000 
*12443000%*4 2493000" 12425000 12467000 
TOTALOLAYCORE = REAL == DECLARED AT 12362000 
*#12387000%* 129395000" 
TOTALPTIME = REAL = PECLARED AT 12358000 
#12413000%*12423500% 12425000 12467000 
TOTALSAVECORE "= REAL == DECLARED AT 12362500 
#123870000%1272391500»" , 
TOTALSYSTEMCORE "= REAL *" DECLARED AT 12363000 
#123870004%12388500% 
TOV =" OFFINE °" DECLARED AT 20239000 
20569610 20570310 20570500 
TP © REAL ARRAY "™ NECLARED AT 92434130 
#024344304%02434590e 02434600 02434830 
TP w= REAL &©= NFCLARED AT 20289035 
#20989444% 20289146 270289160 20289530 
TP ee STREAM VARIABLE == DECLARED AT 20289160 
20289195 20289935 
TPNO "= REAL ==" DECLARED AT 20397000 \ 
* 204450006 #204519004e 204570008 204590008 20460 100%e 2046 1200 %% 20461300%H 20461 310%% 2046 1600842046 1800K4 20461810" 
#2046 3000 0% 70465000 420466 100% 20469000 ee 20470000 4% 20470100 ne 2047 3000 420475000 04204675100 420481000 442046811008 
420481900 0%20482000 4420483000 %% 20483100 4%20486000% 20487000 20488000 20489000 20490000 «20503000% 20504000 
20305000 20507400 
TR se LABEL == DECLAREN AT 16356000 == occURS AT 16496000 
16364000 
TRACAREASIZE = DEFINE == DECLARED AT 00006000 
TRACAREASTART == DEFINE ©= DECLARED AT 00006000 
TRACESIZE == DEFINE == DECLARED AT 00006000 
TRACETABLEAREAV == DEFINE © DECLARED AT 00017510 
TRANS == REAL == DECLARED AT 41327400 
413299400 41329500 41329600 «41329700 
TRANSACTION "* REAL ARRAY =" DECLARED aT 00304000 
#904010000% 04011000 «04014500 04279800 4£04304400% 04367600 £04372600% 04374800 «04378200 4404378600 %%04397600% 
404412400 %«04567 300% 04568320 £04568450%%04568490% 04590000 04591000 *04630000%%046724600%#29115000« 44329700 


44472000 
TRANSFER == LABEL w= DECLARED AT 28402800 m= OCCURS AT 28479400 
28467600 
TRP =" REAL ARRAY #@ DECLARED AT 20013700 
*20966600% 


TRP =" REAL ARRAY =" DECLARED AT 20082900 
*20092700 0420093600 me 20122100% 20123500 420123700 «420123800 %820124900% 20125300 20129500 *£20129700« 
TRP #* Real aRRaAY &* nNecbLaRFO at 20143300 


*20187400% 20188600 *20190800%%20190900 #4 2019100044 20191400 %#20191700%%20192400%"201923008 20192500 


20192900 *20193100«% 20193200 20195600 20196600 
TRUTH =" LABEL == DFCLARED AT 09701000 == OCCURS AT 09713000 

09703000 09704000 09704300 09704500 09705000 09706000 09706050 
TRYAGAIN = LAREL ©= DECLARED AT 00030000 == oCCURS AT 00050000 


00039060 

TRYAGAIN == LABEL == NMECLARED AT 07244700 == OCCURS AT 07255100 
07265300 

TRYAGAIN == LABEL == DECLARED AT 08255700 == OCCURS AT 08273600 
08276570 

TRYAGAIN ** LABEL "= MFCLARED Al 20146700 =" OCCURS AT 20175000 
20175800 

TRYAGAIN =" LABEL ©" DPECLARED aT 20289030 == OCCURS AT 20289142 
20289146 

TRYAGAIN == LABEL =" NFCLARED aT 20586715 == OCCURS aT 20587170 
20587350 

TRYAGAIN © LAREL =" OFCLARED aT 22061200 == OCCURS AT 22069025 
22069540 

TRYAGN *= LABEL ©" DECLARED AT 28005800 «= OCCURS AT 28055200 
28057800 


TRYHERE == REAL =" NECLARED AT 02004500 
*02007100% 02007300 02007500 02008100 02008200 
TRYIT =" LABEL =" DECLARED AT 07356000 == OCCURS AT 07371800 
TRYNEXT == LABEL =" DECLARED AT 13018000 == OCCURS aT 13045000 
13041000 
TRYNEXT =" LaBprh *" DECLARFN AT 20597650 "= OCCURS aT 20604100 
20604125 20604600 20604700 
TRYNEXT =" LABFL == PFCLARFN AT 28005800 "= OCCURS AT 28019600 
28026400 
TRYNEXT ==" LABFL == DECLARFN AT 28211000 = OCCURS AT 28712800 
28921000 
TS == LARFL == DECLARED AT 08855000 == 9CCURS AT 08884000 
08883000 
TS ee LARFL == DECLARED AT 16699500 == OCCURS AT 16740500 
16703500 
TSKA "= REAL ARRAY = NECLARED AT 00024060 
*48032200% 48032950 «48032960 
TSKA "= RFAL ARRAY == NWECLARFD AT 14351050 


09706400 


09707000 


09708000 


14351230 #14358345* 14358360 14358375 14358380 144358383 143589386 *14358392%«14358393% 14358394 


14358400 44358450 #14358460%*14358625%«14358640" 
TSKA =e REAL ARRAY = DECLARED AT 19692100 


19697300 49697600 *19697700%419697800% 19704100 149788000 «19791000%819799000« 19799070 


TSKA *= REAL ARRAY = DECLARED AT 19907800 
*19903900% 19903907 *19903908% 19903917 «19904360%«19905300« 
TSKA "= REAL ARRAY "= MECLARED aT 20014000 
TSKA = REAL ARRAY = DECLARED aT 20083200 
TSKA "= RFAL ARRAY "= DECLARED aT 20143600 
#20 196600 *#20 196800 4%20196900 4420197000 %e 201974008 
TSKA == NFFINE =" DECLARED AT 22236150 
22356150 22356200 22365150 22365200 
TSPOL #" neeiNe =" peclLAREND AT 20235050 
TSSINTYPE == DEFINE == DECLARED AT 00005440 
09633200 
TSX »= DEFINE == DECLARED AT 00067090 
14358392 18860100 19685570 19900395 19900745 19903900 20195600 
48032940 
TS1 ©" LAREL =|" DECLARED aT 08855000 == OCCURS AT 08885000 


20196600 


22356150 


42501040 


20192800 


143533986 


48032200 


TS2. = 
TT os 
TYPE 

TU =e 


TU =e 
TU 


FU.) oe 
TUANDR 
TUSTA 
TUSTA 
TUSTA 
TUSTA 
TUSTA 
TUSTA 


TH te 


UF 


08885500 
Lagrl 
08885000 


STREAM VARIABLE <= 


37316200 
LAREL, 
28280800 
REAL = 
072784000 


STREAM VARIABLE == 
STREAM VARIABLE “== 


08112840 


STREAM VARIABLE == 


08890100 


s= DEFINE @* 


= REAL 
- REAL 


08903000 


"" DECLARED AT 088550 


DECLARED 


w= DECLARED AT 28910 
28303000 
DECLARED AT 07269000 


DESLARED 
DECLAREN 


DECLARED 
DECLARED aT 


e- VALUF PARAMETER 
== DECLARED AT 07269 


*07272000% 07274000 


i 


00 =" O¢cURS aT 08904000 
AT 37314200 


800 = gCCURS AT 282955200 


AT 07284000 
AT 08112175 


AT 08887000 
048100520 


me MECLARED aT 02177100 
000 


01259500 *01261150* 


- REAL = VALUF PARAMETER == )PECLARED aT 07298000 
07351000 
=" REAL = VAIUF PARAMETER == NMECLARED aT 07406000 
07410000 07420010 
= REAL = DECLARED AT 08441050 
08480000 *084862050« 08484500 08507000 
- REAL °= DECLARED AT 08680000 
*08689900% 08690600 08693000 08695200 
LaRFL == pecbaRen aT 19508010 == QccURS aT 19526200 
19541000 49542000 49533000 49543010 
REAL PROCEDURE «= DECLARED AT 00306000 
00309000 04260450 07261160 02197000 02434310 07434570 07665200 
04996400 06382800 04383200 04383900 04568360 05849420 06424000 
08193300 08114100 08259810 08427100 08432000 08450100 08551100 
12527500 12531000 12753500 12865500 14239000 44360400 ‘44431510 
20604150 20608950 206091450 22044620 24038100 24465000 24941000 
37395000 38040000 38436000 38122100 38237500 38256500 38633000 
40404300 40257060 40261944 40264048 40264400 40334075 44406000 
STREAM LABFL == NECLARED AT 07461500 == OCCURS AT 07461530 
REAL 2= DECLAREN AT 20566265 
20566970 #90577300*% 90577400 ¥*90577575* 
INTEGER == VAI,UE PARAMETER == DECLARED AT 000146000 
00014000 00015000 
REAL == VALUE PARAMETER == DECLARED AT 00019500 
REAL == VALUE PARAMETER ©= DECLARED AT 00370500 
REAL ©" VALUE PARAMETER 7" DECLARED AT 00373000 
00371000 00372000 
RFAL =" VALUE PARAMETER 7" DECLARED AT 00452000 
00451800 00451900 
REAL 77 VALUE PARAMETER =" DECLARED AT 00452800 
00452600 00452700 
Real oo = NAMeF PARAMETER 7" DECLAREN AT 01250200 
01250100 04255900 01256700 01257400 01257800 04258300 
ReAL e= VALUE PARAMETER |= DECLARED AT 02132500 
02437300 021432400 02134890 02173389 
INTEGER == VALUE PARAMETER == DECLARED AT 02697770 
02697750 02697770 
REAL =" VALUE PARAMETER ©" DECLARED AT 04121450 
SWITCH LABEL = DECLARED AT 04728000 


04405750 
07043000 
08579000 
14671000 
28028400 
38638500 
44122000 


04146400 
07059300 
08667000 
17904000 
37037100 
40100300 
44128200 


04150200 
07464500 
12453000 
17926500 
37046470 
401400600 
44214300 


04296200 
08008000 
12473350 
20128400 
37248000 
401400800 


TYPE 


TYPE 


TYPE 
TYPE 
TYPE 
TyPe 
TYPE 
TYPE 
TYPE 
TYPE 


TYPE 


TYPE 
TYPE 
TYPE 
TYPE 
TYPr 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 


TYPE 
TYPE 
TYPE 


04462000 
w= REAL =" DECLARED AT 04356400 
04367800 04368400 04370000 *04372800% 04377000 04380400 04380600 04380800 04382000 04387000 04387800 
04389000 04393400 
we Real =" DFCLAREN AT 05952220 ‘ 
05952755 95952975 05956450 05956700 05956750 05956950 05957150 05957500 #05975850**05976500««05976650" 
*05977950* 05978050 
mm STREAM VARIABLE © DECLARED AT 05952755 
*05952960» 
me STREAM VARIABLE = DECLARED AT 05978050 
05978400 *05978900« 
me ReaAb =" DECLARED AT 06462100 
496463225 «406463920 4406463940 % 06463950 £0646 3980 4006464 300 &%06 465400 *%06 465880 4%06466500% 06466700 
we REAL we VALUE PARAMETER =" DFCLARFEFD AT 08732000 
08730000 087373000 08736000 08757000 08775000 
me REAL © VALUE PARAMETER |= DECLARED AT 08850100 
08850000 08883000 *08901500**08904050* 089;,3000 08998200 
em INTEGER == VALUE PARAMETER = DECLARED AT 14107000 
14105000 44106000 14110000 
== SWITCH LABFL == DECLARED AT 15069000 
15974000 
me REAL =" DECLARED AT 16035100 
#16081100% 16044410 16041200 16043500 «16043680%«16043750« 
we Real =" DFCLARFN aT 16048000 
#16074000% 16077000 16982000 «16084000* 16123000 16131000 16132000 «16435000 16181000 46206200 16215000 
16244000 16254000 16343100 
ee ReaAL =" DECLARED AT 16349000 
*16375000% 46378000 46609100 
w= STREAM VARTABLE <= DECLARED AT 16609100 
*164610100# 
we REAL os DECLARFD AT 16693500 
16694000 16698100 «16711500*% 16714500 16741000 16750000 16786500 16803000 16804500 
me REAL =" DECLARED AT 16909000 
16909500 «1692760104 16926020 16927500 %16928500« 16929000 16951500 16953000 16957500 
m= Real =" prcbLaRep at 19901100 
19902700 
w= REAL == DECLARED AT 20013100 
20093200 90023300 *20095800% 20029300 *20036300%«90037400%«20037900% 20038500 *20046900*%*20047400% 20048100 
me REAL =" DECLARED AT 20082300 
== REAL == DECLARED AT 20147700 
*20149400e 20150600 20151400 *20151500%420142800*% 20163100 *20163200**20185800* 20187000 *20187100"#20187600" 
*20187900%*20189300% 20189600 *20189700%"20199400" 
me SWITCH LABEL ** DECLARED AT 20317000 
20357000 
w= Real ow" VALUE PARAMETER *" DECLARED aT 20386000 
20384000 20385000 20398000 «20409000 «420419000 %*e20423000% 20424000 #20426000 «e204 30000 &* 20432000 «e204 35000% 
#20438000"*20441000" 20448000 20448050 «20448100*% 20449000 20449100 20450000 «204510008*20461000% 20461050 
20461190 20464300 «20464500«% 20464650 20461700 20464810 20461900 20461950 «20463000«20467000% 20467400 
20468000 70470000 w70472000% 204731300 20474000 3704751900 270476000 90477000 «20678540 "«90478540% 20478550 
*294B4050m 270484400 *20484250% 20484300 20484500 90484650 90484750 20484855 20504000 970504500 90507300 
20507400 
ee RFAL == VALUE PARAMETER == DECLARED AT 20511120 
20544100 205444940 20541155 20514295 20541312 20544450 
wm SWITCH LABEL == DECLARED AT 20597900 
20603600 
me REAL =" VALUE PARAMETER =" DECLARED AT 24042400 
24042200 24042300 24045500 


TYPE c= REAL ©" PDECLARFED AT 28803000 
* 28857000" 
TYPF = ReaAL =" VALUF PARAMETER "=" DFCLARFOD AT 30903000 
30918000 30919000 
TYPE == INTEGER == VALUF PARAMETER ==" DFCLARED AT 31000000 
31995050 31044000 319472970 
TYPE = RFAL == VALUF PARAMETER == DECLARED AT 37002000 
37000000 37004N00 %37046005* 37046020 37046040 37046070 37046080 37046090 37046100 37046192 37046350 
37946370 37046630 37046730 37046800 37046855 %37046860% 37056000 «37058000% 
TYPe = Real == Valurp PARAMETER =" prcbaRrp at 37357500 
37357300 37357400 37383000 
TYPr = INTEGER =" pECLAREN AT 38003000 
38094100 38045300 38050000 
TYPE == INTEGER «= ECLARED AT 38102300 
TYPE == INTEGER == DECLARED AT 38200300 
38943500 38227009 38730000 38237000 *38245000*% 38246000 *38956000* 38965000 38279500 38789000 38289200 
TYPE = REAL ©* DECLARED AT 38562100 
38581910 38583000 38590100 38594100 38607100 38626000 
TYPE = INTEGER 7" DECLARED AT 39002000 
39934000 *39085N00* 39092045 39092050 39092055 39092060 «39092080 39092400 «39092160%«39092175« 39093000 
39093500 39094500 39297020 
TYPE 7" Rerab =" OFCLAREN aT 41017300 
*411440008 
TYPE ee REAL == VALUE PARAMETER |= neclaReEn aT 41310100 
41319400 
TYPE «= REAL «= VALUE PARAMETER == OFCLARED AT 42510000 
42518000 *49537050* 427539060 
TYPED?S«~ = REAL = DECLARED AT 20047900 
*20063900% 90064000 
TYPEDSPACE ©" DEFINE == DECLARED AT 00017010 
92181000 02434439 02639000 04004370 04978200 04365400 04555250 05959995 06037300 06240000 06380350 
07256400 07257400 08274250 08275500 08385100 08410000 08881000 08930000 14431820 14603750 18043000 
18286000 18438320 18520600 20026600 20049000 22069050 22069100 28070000 28452600 98456800 38434000 
40278150 41312700 41314000 41323130 
TYPENOMEMANDRETURN == FELD == DECLARED AT 24042585 


24044140 

TYPEQPEN == SUBROUTINE == DECLARED AT 38103400 
38145500 

TYPEOPEN == SUBROUTINE -= DECLARED AT 38201400 
38236500 

TYPEOUT *= LABEL =" DECLARED AT 98802000 == ocCURS AT 08837000 
08803000 

TYPESW = SWITCH LABEL == MPECLARED AT 37008000 
37056000 

TYPEO ©" LABEL == DECLARED AT 20316000 == OCCURS AT 20358000 
20317000 


TYPE1 =" LABEL ==" DECLARED AT 20316000 = OCCURS AT 20381000 
20317000 20324000 20365000 20367000 20372000 20374300 20374320 

TYPE13 =" REAL ** DOFCLARED aT 22235500 
#224202008 22423100 

TYPEL3INTARFAV =" DEFINE =" DECLARED AT 000147320 
22386010 

TYPE2 wm |,ABEL © DECLARED AT 20316000 «2 OCCURS AT 20368000 
20347000 

TYPE4S =" DEFINE "= DECLARED AT 00017576 

TYPEQ@6 => DEFINE =" DECLARED AT 00017578 

TYPES7 == DEFINE ™" DECLARED AT 00017580 


TYPE48 7" NMEFINE ~™ DECLARED aT 90017582 
TYPE7INTARFAV == NEFINE “@" NECLARED AT 00017260 
22386000 
TYPOP = PROCEDURE = DECLARED AT 08679000 
16750000 
TO == STREAM LABEL == DECLARED AT 05978450 == 
TOP =" REAL ARRAY «= DFCLARED AT 42513000 
42521000 427532000 
Ty == REAL © DECLARED AT 04259600 
*04309800% 04311600 *04311800*% 04312200 
Ti "= REAL 6™*) DECLAREN AT 04354800 
#04400400% 04400600 
TL ome oSTReaM vaRTARBLF ==) pecbLAaRFD aT 94401000 
Ti == REAL = DECLARED AT 04551000 
*04559000*% 04560000 04561000 04563000 04565000 
Ti ee REAL #= DECLARED AT 04668600 
"04671650% 04674700 04671750 04674800. 04674900 
Tq =e STREAM LABEL == DECLARED AT 05952845 == 
Ty = STREAM LABEL == DECLARED aT 05978450 == 
T1 = STREAM VARIABLE = DE6GLARED AT 06195110 
Ty |= REAL = DECLARED AT 97006050 
*07023000% 07024000 *07043000% 07044000 07045000 
Ti "= STREAM VARTABLE 7" DECLARED AT 07295030 
07295050 07295060 07295100 
Ti ote REAL &™ MECLARED AT 97542000 
07548100 #*07559000«% 07560000 07565000 07570000 
T1 *= REAL "= NECLAREN AT 12361090 
*12407000% 424730500 12431000 *12468000" 12471500 
Ti @= STREAM VARTABLE = DECLARED AT 12411000 
12412000 
Ty =e REAL == DECLARED AT 14002000 
14020000 14030000 *14045000* 14046000 14047000 
T{ s* STREAM VARIABLE = DECLARED AT 14020000 
*14027000% 
Ti *= STREAM VARIABLE = DECLARED AT 18831700 
18831900 
Ti = REAL "" OFCLAREN AT 19693000 
*19713000e 49744000 ¥#19722000% 19723000 49724000 
19751000 19753000 19754000 49757000 49766300 
Ti == STREAM VARJABLE == DECLARED AT 19768768 
Ti =m STREAM VARTABLE = DECLARED AT 20053200 
*20053900% 20054300 
Ti == REAL, == DECLARED AT 20511150 
*205141315**20511515* 20511666 
T1 "= REAL ™" DECLARED AT 20566100 
20567056 270567057 20567096 
20573402 *20573430% 20573432 *20573525™ 
Tl 7 = REAL @"™" NECLARED aT 20581000 
Ti =e REAL =" DECLARED AT 20584000 
Ty om REAL |= HECLAREN AT 20586800 
Ty ee REAL ©= DECLARED AT 20589800 
T1 = REAL, == DECLARED AT 20591000 
20593450 
Ti == REAL == DECLARED aT 20595000 
Ti =" REAL @* DECLAREN AT 20596800 
Ti "= REAL @" DECLARED AT 20600010 
Ti 7 REAL 7" DECLARED AT 20701500 


04672000 


*#12473210" 


19727000 
*19768768»% 


OccURS aT 05978500 


04313000 *04315400% 04316600 


04401000 «044292008 04430400 «04430600«% 04431000 


OCCURS AT 05952880 
OCCURS AT 05978600 


12473280 


19728000 #*419736000%«19746000% 49750000 
197638782 *19773000* 19792000 


20567097 4205699 30%%20569960% 20579130 


04431800 


20570150 


20570190 


19750400 


20570210 «20573400 


REAL "=" QMECLARED AT 220586000 

22060000 *£22112000m4221121008%22112500e 22143000 4221140008 22115020 
22164000 22172000 22185000 

STREAM VARIABLE 7" DECLARFN AT 22164000 


22116000 22117000 22146000 422163000 


T1 se REAL 288 NPECLAREN AT 37019000 
37092000 370229900 37024000 *37036300% 37036400 37037000 #37046400%«37086480% 37046494 37046260 37046270 
*37946280% 37046300 £37946370%437046390% 37046400 37046440 37096430 *37046520% 37046690 37046630 «37096000» 
37098000 37100000 «37112000*#37122000« 37123000 37124000 


STREAM VARIARLEF = DECLARED AT 37036400 


Ti 7" REAL *" DECLARED AT 37180000 
#37192000% 37193000 37194000 «37205000% 37206000 37212000 437221200 37221280 637221320 4%37221400 %%37230000« 
37232500 37233250 37233500 37235000 *37240500*% 37240600 *37241010* 37241030 *37241510* 37241525 37241530 
*37243000% 37244000 37245000 *37249000% 37254000 37255400 37955900 372756000 #37263000**37264000% 
T1 ee STREAM VARTABLE == DECLARED AT 37241030 
Ty == STREAM VARIABLE == DECLARED AT 37255100 
37955390 37255500 
T1 se REA} #= DECLARED AT 32388250 
373RB275 *37396000% 37394250 *37394650% 37394700 
Ti "= REAL &" DECLARED AT 38006090 
*38074000% 38075500 
Ti 7 REAL &" DECLARED AT 38102600 
#38193600% 38103700 38105000 38105400 438107000% 38107100 *38118000«438120000%"38120500% 38121000 38121500 
438123000e%38126000"%38129500e438130000" 38131000 38137000 38137500 *38139500e%38146500«e 38147500 38148000 
T1 #= REAL == DFCLAREND AT 38200600 
*38201600% 38204700 38703000 38203400 %*38205000*% 38205400 *389;8000% 38918500 38219000 3827270000 38220500 
38291000 38226500 38227500 38228000 «382465008 38247500 38248000 38248500 38249500 38250000 38251000 


*#38263500% 38267000 «38283500*% 38286000 *38292000%«38294000« 


Ti = REAL "= DECLARED AT 38365600 
*38448000% 38449000 + 3845300084 38457000 38467000 38468000 *38469000% 38472000 38473000 «38484000% 384835000 
38486000 
REAL *™™ nNFClARFN aT 38549000 


*38581200%%38608900% 38608910 38628100 


Ti == REAL 7" DECLARED AT 38656000 
Ti we REAL &* NFCLAREN AT 39004000 
*39032000% 39035000 39037000 39039000 «*390429000% 39043000 39046000 *39099465%439306400*% 39306300 
Ty == REAL = DECLARED AT 43007200 
T1 we REAL ©= DECLARED AT 44316300 
*41347790% 44378740 44378760 44348820 414378840 44338860 44338940 44378960 44349000 414319200 44349290 
91319280 41319320 44319600 41319900 41320000 44320100 41320200 44320220 44320330 44320340 44329345 
41320350 41320420 41320450 41320460 41320470 41320480 41320490 44320500 44321200 41321350 41321450 
41321500 41321600 41321800 41321900 41322000 41322100 41322200 41322300 41322400 41322450 41322500 
41323100 £413231304 41323150 41323160 41323170 44323180 4£41323300«444323400«% 41323550 41323600 41324200 
41324300 44324800 41325400 44325500 
TL == REAL ** HOECLAREN AT 41327600 
*41330700% 41330800 41331000 41334100 *41331200%441334700" 41332300 44332500 41332600 #*413330008 41333004 


#41333010% 44333090 *413393100%#41334400% 41334700 
REAL ©" DECLARED AT 48014000 

REAL, @= DECLARED AT 44207000 

#44241000*% 442946500 *44247000*% 44248000 


Ty ee REAL = DECLARED AT 45002600 
45154000 

TtFItt, o7 LABEL == DECLARED AT 37422300 == OCCURS AT 37437000 
T10 =" LABEL == DECLARED AT 06351500 = OCCURS AT 06381500 

06381395 06381400 
T17SIZE == REAL =" DECLARED AT 09501000 

#09505700% 09506000 09506100 09508600 09508800 
T2 "= Real ™* nFCLAREN aT 04259800 


@®eeeeeeesreesee8eeeeeeeeee@ 
~ 
~ 
a 
4 


T2 


T2 


REAL 7" DECLARED AT 04355000 
04365400 94365600 04370000 #04373000%%04 377000404 382000##04 387000%# 04 393400%%04 395800**04405400H40441 56008 


*#044691400% 
REAL == DECLARED AT 04554000 
#04563000% 04562000 £04567390* 04567600 #04567790% 04567830 *04568364* 04568366 %*04568550% 04568590 
*#04644000m 04647550 04648000 
STREAM VARIABLE == DECLARED AT 04647550 
REAL "=" NDFCLAREN AT 04668600 
*04671750% 04671850 *04672500% 04672700 4£04672950% 04673150 «04674750% 04674850 «04675000% 04675250 
04676300 4046814004 04681450 04681800 404683500% 04683800 «04686100% 04686350 404686950% 04687050 
STReaAM LaBrelL *" nrcblaRepD AT 05978450 == OccURS aT 05978650 
STREAM VARTABLE == DECLARED AT 06195115 
REA}, == DECLARED AT 06462100 
#06963200% 06463920 06463225 06463230 *06463380% 06463400 *06463500% 06463600 06463690 06463740 
STREAM VARIABLE == DECLARED AT 06463400 
06443420 *06463460% 
REAL ** DECLARED AT 07006050 
*¥079274000*% 07025000 *07043000«%407045000% 07047000 
STREAM VARIABLE =" DECLARED AT 07295030 
*907295040% 07295060 «07295070« 07295080 
REal, ™™ DECLARED aT 07542000 
*07548100*% 07559100 07559110 07559120 
Real "=" necblaRen aT 12361500 
*12408000% 12410500 12411000 
STREAM VARTABLE == DECLARED AT 12411000 
REAL, #= DECLARED AT. 44009000 
14990000 14030000 14033000 14040000 14043000 14051000 44056000 144065000 144072000 
STREAM VARIABLE == DECLARED AI 14020000 
14022000 
REAL, =" OECLARED AT 15111900 
*15113800% £5114300 *15115100* 15115200 #15115700* 15115900 
REAL 7" DECLARED AT 19693000 
#19711300% 19711400 *19756000% 19757000 19760000 19761000 19762000 «19779000 19781000 
STReaM vaRtaRgbr =" pecbaRFN aT 20053200 
#20054100*#20054300%*20054600* 20055000 
STREAM VARTABLE = DECLARED AT 20064000 
290062600 90069700 
REA}, = DECLARED AT 37019000 
37042000 *370461;00% 37946160 *37046400* 37046420 37046430 ¥*37046480% 37046520 
STREAM VARIABLE = DECLARED AT 37046520 
37046590 oe 
REAL @"" NECLARED aT 37180000 
437230000% 37230250 #37231500« 37232000 37232250 
STREAM VARTABLE 7" DFCLARED AT 37230250 
37230500 «37231000« 
Real 7" MrFcbLAREN aT 38006000 
38044200 38034620 38045700 «38039000% 38040000 438041000% 38043000 #38059000m 38070000 38074500 
38081750 *38087000«" 38088000 
REAL == DECLARED AT 38102600 


.#384¢05400e 38405500 38497000 38127500 «38,40000" 38444000 


REAL == DECLARED AT 38700600 
#36203400% 38203500 *38213000% 38236010 36253000 38284000 38285500 *#38293500« 38294000 
REAL. .*° DECLARED AT 38365000 . | 
#38450000% 38458000 38459000 «38460000* 

REAL * DECLARED AT 38549000 

REAL °* OFCLAREN aT 38656000 

REAL *"" PFCLARED aT 39004000 


04606000 


04675900 


06463840 


36080500 


*#39043000% 39046000 «39233200% 39233300 
Real == necbaREn aT 41007200 
REA, == OECLARED AT 41316300 
*44349240% 44349200 #44300460* 44390470 


REA|, "= NECLARED AT 41327600 
%#41333000«% 41334600 
REAL =" ODECLARED AT 04355700 


04356800 *04374600% 04378400 ¥*04410400*« 
REAL "" PECLAREN AT 04551000 
*045461000% 04563000 

Real °°" PFCLAREN aT 94668600 
#04671750" 04671900 

STREAM LABEL == HECLARED aT 05978450 

STREAM VARTABLE «## DECLARED AT 0619519 
REA, == DECLARED AT 19693000 
*19711100% 19711300 *19748000* 19750000 
REAL = DECLARED AT 37019000 
*37927000« 37027500 37978000 


STREAM VaRIaRLE "" DECLARED AT 3704652 
37046580 

Real "= nFClaAREn aT 38365000 
#38435000% 38439000 38443000 

REAL == DECLARED AT 38549000 
REAL == DECLARED AT 38656000 
REA; == DECLARED AT 41007200 
REA], |= DECLARED AT 41316300 


*#44347800% 41318370 
41321100 413213504 41321450 


41318380 «41319020 


REAL 7" NECLARFN aT 04554500 
#04555250% 04555300 04555500 
Real 7" nrclhaREn aT 04668600 


046714400 *04671450" 
STREAM LABEL == MECLARED AT 05978450 
STREAM VARIABLE = DECLARED AT 0619514 
REAL. ©= PECLARED AT 19693000 
¥#49733400% 49733600 *49734000% 19736000 
STREAM LABEL = PECLARED AT 05978450 


41390500 


44324200 


44321550 


-- OccURS aT 05978550 


0 


19750100 


0 


41319040 


41321500 441321550» 


04557200 «04557300 


19751000 


41319980 


38452000 *38461000«%«%38465000% 38469000 


41319100 4413194270 %4443149220% 443149240 44320600» 


=* OccURS aT 05978700 


8 


19746000 


w= OCCURS AT 05978800 


REAL =" VALUE PARAMETER == DECLARED AT 00019000 
00018000 00019000 

REAL ARRAY =" WAME PARAMETER =" DECLARED AT 00336110 
00336100 

REAL =" VALUE PARAMETER == DECLARED aT 00377000 

REAL @™*" VALUE PARAMETER == DECLARED aT 00380000 

REAL *°" VALUE PARAMETER =" DECLARED aT 00392000 

INTEGER =" VALUE PARAMETER =" DECLARED AT 00397000 

REAL "™" VALUF PARAMFTEFR @* DECLAREN aT 01165000 

REAL ** VALUE PARAMETER == OEFCLAREN aT 01250200 
01250100 03250200 03253900 01254650 041255100 01255200 
01258600 04258700 01258900 01260450 01260500 01260600 
REAL == DECLARED aT 02057000 

#02059000% 02064000 *02075000« 02077000 02092000 09097000 


REAL = DECLARED aT 02434120 

02434174 #02434, 85*e 02434190 

02434440 02434424 129434532 02434534 
02434800 02434810 

sTReaM VARIABLE ™™ necbaRen aT 02434700 
02434720 


02434195 «02434200 


02434600 


02434210 
02434630 


01255450 
01261100 


02097400 


02434250 
02434690 


04255500 
01261160 


02104000 


02434260 
02434700 


01256100 


02434270 
02434760 


37041000 «37046110% 37046160 *37046410% 370464290 %37046470% 37046520 


01256400 


02434310 
02434770 


01256500 


02434400 
024347860 


cc Cc 


c Cc cfc €£ 


Cc Cc f& € 


Sadia 


=e 


REAL = 
02696000 
REA, == 
REAL == 
049000000 
REAL °° 
04016100 
REAL =" 
04022000 
REAL = 
04036200 
REAL == 
*04045100* 
REAL, am 
04093006 
REAL == 
*#04447000 
REAL, == 
04421500 
REAL 7" 
04129560 
04154000 
Real =" 
04240000 
REAL = 
04254000 
REAL == 
042971800 
REAL = 
04359400 
04372600 
04394200 
04405600 
REAL == 
04548000 
04568360 
04644000 
REAL = 
04674750 
04674000 
#94681250% 
04684700 
04688050 
NEFINF of 
05842475 
NEFINE eo= 
05848255 
DEFINE ee 
05961000 
NEFINE == 
06101200 
DEFINE == 
06380100 
INTEGER «© 


REAL =" 
«07475000» 


VALUE PARAMFTFR we 
02696400 
NAME PARAMETER == 


DECLARED aft 029696100 


DECLARED AT 07696700 


VALUE pARAMETER «= PECLARED 
04001900 04005000 04008000 
VALUE PARAMETFR 7" DECLARED 
04016700 04017000 
VALUE PARAMETER @ DNDECLAREN 
04026000 04029000 04032000 
VALUF PARAMFTFR ©" DFCLARFH 
04037000 
DECLARFD AT 04044000 
04045200 *04048800* 04050000 
VALUE PARAMETER = DECLARED 
DECLARED AT 04116000 
04118000 04120000 
VALUE PARAMETER == DECLARED 
04121550 
DECLARFD AT 04123500 
904134000 04134060 04134300 
04156000 04180000 04191000 
VaALUF PARAMETFR =" DFCLAREH 
04241000 04244000 04247060 
VALUF PARAMETER: m= DECLARED 
04255000 
DECLARED AT 04256800 
04278400 042979800 042781800 
DECLAREN alt 04354600 
04365600 04367200 04367600 
04374600 04374800 04375800 
04382800 04383200 04383800 
04442400 04491600 *04421900» 
VALUE PARAMETER == DECLARED 
04549000 04555650 0456;000 
04568450 045468490 04568550 
914651000 04657400 04658400 
DECLARED AT 04668550 
04671850 04671900 04674950 
04675000 04675450 04675500 
04681350 04681450 046871800 
04684850 04684950 04685300 
DECLARFR AT 05841620 
95849700 05843000 05844990 
DECLARENM AT 85847600 
05849470 05849460 05849500 
DECLARED AT 95952400 
05964800 05962000 05977800 
DECLARED AT 06070300 
06108000 06108300 
DECLARED AT 96351105 
06380450 06380250 06380550 


~ DECLARED AT 07355100 
07360000 *07372090% 07372100 


DecbaRrn aT 07474000 


07477000 


07478000 


07372200 


“= OceURS aT 


07476100 


AT 04002000 


04010000 


04011000 


AT 04016000 


AT 04020000 


AT 04035000 


04052000 


04062000 


AT 04067000 


AT 04121550 


04137110 
04194200 


04137130 
04203000 


aT 04242000 


04251300 


04252800 


AT 04255000 


04283000 «04284200» 
04367800 04368200 
04377600 04377800 
94383900 04394550 
04498800 04432700 
AT 04550000 
04563000 04564000 
04569000 04569400 
04672300 04672400 
04678200 «04678450% 
04681950 04682000 
04685850 04685900 
05844935 05845400 
05850900 05850300 
05974000 05974200 
063813090 06381320 
07372300 07372310 
07360000 

07478500 07479100 


04013300 


04137220 
04205012 


042995400 
04368800 
04378000 
04393800 
04432600 
045867000 
04569200 


04672500 
04678600 
04682050 
04686100 
05845700 
05852700 


05975000 


07372320 


06014500 


04146000 
04211000 


042962900 


04369000 
04378200 
04395400 
04432800 


04567300 
04570000 


04672950 
04680150 
04682450 
04686550 


07372500 


04146100 
04219100 


04296400 


04369200 
04378400 
04397200 


04567320 
04590000 


04146200 
04220000 


04296600 


*#04372000% 
04378600 
04397600 


04567790 
04594000 


*04673650*% 04673750 


04680900 
04682550 


04687100 404687200» 


*04680950% 
04682850 


04150100 
04224010 


04304400 


04372400 
04378800 
04404000 


04568320 
04630000 


04673850 
04681950 
04683500 
04687 300 


cc Cc 


Cc ecccccccce 


cc 


= 


REAL == 


NAME PARAMFETFR == 


DECLARED AT 08001000 


08000000 *08003000* 08005000 08008000 08009000 
REAL == DECLARED AT 08026000 

08029000 08029;00 08030000 080302900 08030400 
08944000 08044600 08945009 08050000 08051010 
STREAM VARIABLE =" DECLARED AT 08030200 
08030310 

REAL "=" DECLARED aT 08080000 


08083000 98085000 08086000 
REAL =" prclaRen at 08172000 
#08174000% 08175100 08175300 
INTEGER == DECLARED AT 08255200 
*08958600%«408959870* 08299890 
REAL ew» DECLARED AT 08783000 
*06994500e 08299000 08299500 
STREAM VARIABLE == 
STREAM VARIABLE «== 


08087000 


08293000 


08299400 
REAL @" DECLARED AT 08418500 

#08420000«% 08421000 08422000 08424009 08427100 
08437150 
REAL 7" DecbaRen at 08440000 

08444000 08447000 08447100 08448050 08450400 
08472000 08473000 06478800 08478900 «08483000» 
REAL == DECLARED AT 08847000 

08547300 085474900 08547500 *08547600#%08548000% 
08564000 08565000 
REAL == DECLARFD AT 08576000 


*08578000% 08579000 08581000 08582000 


DECLARED AT 08296225 
DECLARED AT 08298800 


08091000 


08259650 «08970;00% 


08295200 


08582190 


STREAM VARIABLE &= 


12824000 *12825000+* 
VALUE PARAMETER =" 


REAL *™ 
15110000 
REAL an 


15110400 


DECLARFD AT 16048100 


#16263100« 16263200 
DECLAREN AT 16697800 


NEFINE == 


16826600 
REAL o 


16828400 


DECLARED AT 19900260 


*19900380« 19900440 


199006790 


19900675 *19900770* 


DECLARED AT 12823000 


15113100 
16263300 
16828200 


19900450 


DECLARED aT 15110100 


15113200 15113600 


16263350 16263600 


19900455 19900530 


19900800 


DECLARED aT 20566100 
DECLARED aT 20581000 
DECLARFD aT 20584000 
DecLaRrD at 20586800 
DECLARFN AT 20589800 
DECLARED aT 20591000 
DECLARED AT 29595000 
DECLARED AT 20896800 
DECLARED AT 20600010 


REAL *™ 
REAL =" 
REAL on 
REAL =e 
REAL = 
REAL = 
REAL == 
REAL e#- 
REAL ae 
20697020 
STREAM VARIABLE = 
20607120 
REAL 7" 
REAL C ) 
22957000 
22084500 
22112100 


DECLARED AT 20701500 
DECLARED aT 22056000 
22069190 22069350 
22090000 22091000 
22112500 22114000 


22069460 
22093000 
22115000 


NECLARED AT 20607020 


22069470 


22097000 
22145030 


08044000 


08034100 
08051065 


08270750 


08296225 


06430000 
08451100 
08484500 
08550000 


08590000 


15114700 


19900550 


22069480 
22100000 
22117000 


08018000 


08033990 
08054000 


08972000 


08996600 


08431000 


08454000 
08487400 


08551100 


15115000 


19900560 


08033994 


08296800 


08432000 


08460000 
*08495000" 


*#08555000" 


15115100 


19900565 


08041000 


08298009 


08434100 
08471010 
08496000 
08557000 


19900620 


22069490 «22075000*% 22081000 


22100500 
22119000 


22105000 
22125000 


22106000 
22129000 


08042000 08043000 
08298800 
08434200 08434400 
08474100 084714105 
08497000 


08558000 «08562000» 


19900630 19900650 
22083000 22084000 
22107000 22112000 
22145000 22145525 


221455590 22159000 97475000 22179000 22180000 29185000 92788000 99188400 29489000 72490000 22391000 
22200000 27203000 22204000 22207000 22212200 722172400 22212450 2923713600 22243700 22220000 

STREAM VARIABLE = DECLARED AT 22069350 
22069390 

REAL = DECLARED AT 28003800 

REAL 7" DECLARED AT 28204200 

28234000 28235800 28236400 *28240800*e2B244400%e28244 800% 

REAL ©" DECLARED AT 28401000 

ecnneave 28431000 28431800 28446300 «28459000«e 28459200 «28466000% 278480400 28481400 

REA DecbaRen ar 37003100 

%3 5 10000.4#3/01 1000443701 5000x4370 16000 wu370 19200 4437022000 037022100 4037023000 37024000 37025000 37026000 
37097000 *37034000% 37032000 37036400 437037400* 37037200 *37040000« 37044000 37042000 37046160 37046170 
37046177 =370464,90 37946260 37046300 37046320 *370465204%37046835*% 37046840 43704685548 37046860" 37046880 
37046980 37047020 4370475008037047c05« 37047610 37047625 37047650 «37048000% 37048200 37048300 37048340 
37058000 37059000 #37097000« 37098000 371090000 37122000 *37172000* 37173000 37174000 37174100 37175000 

STREAM VARIARLE @" NFCLAREN AT 37046190 
37046200 

REAL =" DECLARED AT 37180000 

*37185380"%37188500" 37189000 37189500 37190000 37491000 37492000 37495030 «37198000 37199000 37199100 
37200000 37202000 372984000 372705000 37207000 37232000 37244000 37216000 37248200 37224140 8837221160% 

*37221260% 37221320 372P1400 *£37221460%%37233750%437235000% 37935100 37235500 37235750 37236000 37236500 
37936750 *37240400% 37240500 37240700 37241020 37243030 *37241900% 37249600 37243000 37248000 37253000 
37254000 .37255900 37249000 

REAL == VALUE PARAMETER = DECLARED AT 37271000 

37273300 37276000 37284000 37284100 37284120 37284130 37284450 

REAL =e VALUE PARAMETFR |= DECLARED AT 37302000 

37393200 37305000 37344000 37314100 37344200 37318100 37319000 37319910 37319020 

REAL = VALUE PARAMETER == DECLARED AT 37321000 
37320000 37321000 37323300 37329000 37331000 

REAL =" DECLARED aT 37388400 
37404000 

TNTEGER =" Value PaRAMETER =" DrcbLaRFD At 37449000 
37453100 37455000 37456000 37458000 37464000 

*#38094;000* 38097000 38045200 

TNTEGER == DECLARED AT 38402300 

38104200 48194300 38104800 38195400 38405600 38105800 38106100 *38442000%«%38443000% 38144500 38115100 
38116000 38116500 38118000 38120000 381292100 38137000 38442000 38446500 38447000 38152000 38157000» 
INTEGER 7" DECLARED AT 38200300 

38202200 38202300 38202800 386203400 38203600 38203800 38204100 *38212000%«%38213500% 38216000 38217000 
38217500 38218500 38227000 38227500 38230500 38234000 «38232500m« 38934000 38235500 38237500 38936000 
38247000 38254490 38256500 38258500 38271000 38273500 38276000 38797500 

tNtearFR =" DECLARED AT 38359000 
38403000 38406000 38441750 

INTEGER = DECLARED AT 38544000 

36624000 386279000 38632000 38633000 38634000 38637000 386638000 38638500 38640000 

INTEGER =" DECLARED AT 38652000 

38689000 38699000 38700000 38719000 38770000 38794000 38730000 38737000 38732000 38737300 38736000 
38737000 38741000 38741100 38742000 38742199 38743000 38751000 38754000 38755000 38760000 38766000 
38767000 38769n00 38775000 38779000 38783000 38786000 38788000 38788500 38789000 38789100 38795000 
38798000 38799000 38804000 38806200 38806300 

tNrearR =" peclaRrn at 39002000 

390.34 400 399096000 39144000 39145210 39156000 39230000 %392350004%39236900" 39238000 *39240000« 39242000 
39244000 «39793100% 39293300 39293400 39298000 39306010 *39306100% 39306200 *39306 300% 


tNTegeR == 
*41043000% 44054620 441190800 
REAL #* VALUE PARAMETER wo 


DECLARED AT 41002000 


DECLAREN 


39296000 


AT 41312100 


Uo we 
UA 
uc om 
UCHANG 
UL == 
UL =e 
ULAB 


ULaAB 
ULAB 
ULAB 


ULAB 
ULAB 
UN -. 
UN on 


UNBLK 


41392000 414312100 
REAL = DECLARED AT 41327600 
*41329700*% 41333005 

REAL ARRAY 7" OFCLARED AT 06351104 
*06380140%4#06380400*% 06380525 06380850 06380900 06380950 06381070 06381085 
STREAM VARIARLF "" NECLARED AT 14570000 

14572100 

ee REAL "=" NeclLaRFO aT 40005110 
*40281110%*40283910%*40265035* 

Reat. == VALUE PARAMEFTFR #= NECLARFD AT 00376000 

00374000 00375000 

REAl, == NAME PARAMETER «= DECLARED AT 371379000 

37177000 37222100 37222500 37225100 *37235000* 37242000 372748500 


ee REAL ARRAY "= DECLARED aT 01250400 


#017250700~% 01250800 01251100 01252600 01254000 #01254650«% 01259800 01260609 


we sTREAM VARIARLF 7" DFCLARED AT 01251100 
we STREAM VARIABLF *" DECLARED AT 01252600 
we STREAM VARTABLF =" DFCLARED AT 01254000 


01254200 


ew STREAM VARJAB)F ee DECLARED AT 01759800 


01759900 


we STREAM VARIAB)E == DECLARED AT 61760600 


REA|, == DECLARED AT 28003400 
REAL = DECLARED AT 28401600 
*#28435400% 278440000 


e* LABEL =" DECLARED AT 270020300 *= OCCURS AT 20060900 


20066200 


UNHOOQUE "= PROCEDURE == DECLARED AT 02053000 


UNIT 


UNIT 


UNIT 


UNYT 
UNIT 


02109000 02260000 


"= Real ARRAY “=| fECLARED aT 00209000 


01261100 


02061000 02077000 «02097000 e*«02097K400K% 02267000 £02270500% 02293000 *027301000" 04022000 
04048800 «0406200048 044437000 «04120000% 04429000 %041454000% 04203000 «042954004 404296600% 04372400 «043776008 
*04563000*% 04567000 04569400 
*09682350%#04689450%K%096865900% 
*#22204000*% 22213700 37046840 
*#44191005* 44191010 441913015 


04378000 04378400 04378800 %04 383800 %%04 397 200 4004439200 %4%044 326008 04563000 
04569900 04570000 04651000 04674750 046719008 04672100 04673750 04682950 
04688050 07062000 «07065000 45434700 22033000 «22034000 %%22090000% 29105000 
37047650 37173000 37189500 37323300 *37329000%«"37331000" 38115100 44168200 
48117200 *48118000« 


ee REAL =e VALUE PARAMETER == DECLARED AT 02347210 


02347200 02347910 ¥00347230% 02347250 02307260 02347280 02347290 097347300 
02347340 02347430 02347450 


ve REAL =" ODECLARFD aT 12503000 


12522000 12522500 12527000 12527500 12528400 12528500 12529500 12530000 
12539000 12545500 12546500 12615500 12626750 12648500 «12670000% 12670250 
12687000 12687300 12687700 12668000 12700000 12701000 12706000 192711000 
12740500 


ee REAL |" DECLARED AT 12803000 


12892500 


ee REAL = DECLARED AT 13004000 


13037000 43039000 43062000 43104000 


UNITCODE = REAL ARRAY = DECLARED AT 02347300 


UNITE 


UNTTF 
UNYyTY 


02347325 *07232500% 07409250 *07409300%«084344008%20595200% 20602200 *20602050% 


#20608500% 20609400 44178100 «442041206 

"’ MEFINE =" necbaREnN aT 12516150 
12670000 12675500 

ee oneFINE ©" neEcLAREN AT 12815200 

e= LABEL «* DFCLARED AT 90597800 == OCCURS AT 20606800 
20598000 


02347315 


12531000 
12670500 
12715500 


20602400 


91261300 01261400 


04032000 «04036200 


02347325 02347330 


12535500 «12534500 
*12675500«% 12676500 
12716500 42720000 


*20603580%%20605820« 


UNITIN 
UNITL 
UNITNO 
UNT TNO 


UNTTNO 


UNTTNO 
UNITNO 
UNI TNO 
UNI TNO 
UNTTNO 
UNyTNO 
UNITNO 
UNI TNO 
UNITNO 
UNI TNO 
UNr TNO 
UNTTNO 
UNITNO 
UNTTNO 
UNIT TNO 
UNI TNO 
UNTTNO 


UNyTNO 
UNITNO 


UNITNO 


UNI TNO 


UNT TNO 


UNT TNO 


ee REAL PROCEDURE w= DECLARED AT 029348000 


*02358000» 
e" LABEL 


44191015 
ew REAL 
00451800 
ve REAL 
00454000 
Lad REAL 
02132300 
02473360 


ee DEFINE 


04352200 


em DEFINE 


04376600 


-- DEFINE 


04567600 


on 


pe RrabL 


07544000 


w= DEFINE 


08544700 


we DEFINE 


08784000 


aw DEFINE 


08901000 


ve NEFINE 


15114300 


"™ NEF TNE 


15437100 
on REAL, 


16956090 
ee §6REAL 
17900000 
ee €6REAL 


20034000 


wm DEFINE 


20118370 


mm DEF INF 


we §€60REAL 
20989010 
x) REAL 
20292000 
we REAL 
20314000 
20374430 
on REAL, 
20384000 
m= REAL, 
205466790 


EFIN 
04672700 


02359000 07475000 08003000 08470000 08483000 08548000 08578000 
m= DECLARED AT 44019000 "= OCCURS AT 44191150 


== VaLUF PARAMETFR =" DECLARED AT 00452000 
00451900 
m- valur PARAMETER °7 DECLARED AT 00454200 
00454400 
we VALUF PARAMETER =" DECLARED AT 02132500 
02132400 *02433300%«02133380% 02173075 #02473080% 02473085 09473087 
09573364 02473366 07473370 02473375 
m= DECLARED AT 94261300 


s= DECLARED AT 04356900 
04383400 04386800 04393000 04404800 04446400 
“= DECLARED AT 04554900 
04567830 04568590 04648000 
"" DECLARED aT 04671000 
046731450 04674850 04675250 04683800 04686350 04687050 
== prclaREn aT 06185100 


#06205010*% 06206120 06206250 06328200 06328300 
ee DEFINE 


== PFCLARED AT 07486500 
we DECLARED AT 08528500 


"= DECLARED AT 087345006 
08798500 

"= DECLARED AT 08854500 
08947200 08947400 

"= oFcbaREn at 15112900 
15115900 

ee prcbaRFp at 15402500 


we DECLARED AT 16696650 


*16743500%*716902650% 46902800 
em DEFINE 


w= DECLARED AT 16943000 


ww VALUE PARAMETER ©= DECLARED AT 17000400 
17000200 17005400 
"= DECLARED AT 18199100 


#18272300% 18438480 18438190 148438195 18439125 
“" DEFINE 


"= DECLARED aT 20020120 
=~ necbaRen at 20086600 


-= DFCLARED AT 20146420 
== VALUE PARAMETER «= DECLARED AT 20289020 
20289020 2702869144 20289154 20289160 20289163 20789540 
w= VALUF PARAMETER ©" DECLARED AT 20292200 
20292400 *20294800% 2029500N 20296100 20297000 20299000 20299020 
o- vaLUF PARAMETER @" DECLARED AT 20314200 
20314400 20323000 20325000 20364000 20374000 20374100 20374200 


eo valur PARAMETER =" DECLARED AT 20386000 
20385000 70397200 20489100 70489200 90489300 
w= DECLARED AT 20866400 

20566900 270569490 270569440 20574910 70577826 


16204000 


02173090 


20299110 


20374310 


16263100 


02173095 


20374400 


02173265 


20374410 


@®eeeeeee?eee#eee8e88e8e8e8006h60806hmhmUOUmUCUWUlUCU 


20585050 


20595400 
20596350 


«20600850 
20602540 
20606900 
20608200 
20608850 
20609570 


205696860 


28304600 


UNITNO ==" REAL == OFCLARED AT 20581000 
UNITNQ *= REAL == DFCLARED AT 20584000 
20584200 20584800 20584900 29584950 
UNITNO "" REAL "“" ODFCLARED aT 20586800 
20587100 20587700 20587850 
UNITNO "=" REAL "" DFCLARED AT 20589800 
20590000 
UNTTNO =" REAL ©" NeclLaARFD aT 20591000 
20591400 20592800 70594400 20594500 
UNTTNO == REAL #= DFCLARED AT 20595000 
20595200 270595950 270595300 70595350 
20595900 90596450 20596200 70596300 
UNITNO =* REAL ©" DECLARED AT 20596800 
UNITNO ©= REAL w= DECLARED AT 20600030 
20690040 20600460 20600400 29600480 
20692300 *20602350% 20602400 20602490 
206905410 20605440 70605520 20605820 
20607750 20608070 206081420 20608440 
20698650 20608700 70608790 20608840 
206094270 270609430 20609435 70609560 
UNTTNO = REAL *= DFCLARED AT 20701500 
20796000 
UNITNO == REAL |= ODFCLARED AT 28004000 
28004400 
UNITNO @* REAL 22 DECLARED AT 98704400 
28204800 
UNITNQ =" REAL @=* ODFCLARED AT 28401600 
*28456600% 
UNITNO ©" REAL 7" DFCLARED aT 32000250 
«32001500% 32002300 
UNITNUM "* pFFINE *" pneebaRen aT 20566640 
20567274 20567280 20569522 20569846 
UNTTNUM == nrFrNe == neclaREn at 28007300 
28028110 28070700 76097800 
UNITNUM = DEFINE == DECLARED AT 28207700 
28954900 78270844 28280800 27828;000 
UNITNUM = OEFINE *= DECLARED AT 28407500 
28444100 28465400 
UNITNUM =" DEFINE =" DECLARED AT 37007300 
37922000 37313n00 37113100 
UNITNUM "©" DEFINE =" HECLARED aT 37180800 
37187100 37224200 
UNKNOWNARE AV 7? NEFING @* nNecLARFD aT 00017190 
UNLABFLFD =* OFFINE == DECLAREN AT 37180700 
37235000 37242000 37248500 
UNLABELFD e= INTEGER @= DFCLARED AT 38005000 
*38093000% 
UNLABELED += INTEGER "= DECLARED AT 38102500 
38113000 38124500 «38144500 
UNLABELED =" INTEGER = DECLARED AT 38200500 
«38237000 «4382605008 38262000 
UNLABELED 77 INTEGER ™* DECLARED AT 38360000 
UNLABELED =" INTEGER °* DECLARED AT 38545000 
38591000 38628000 
UNLABFLFD =" INTFGER "=" DECLARFN AT 38653000 
38736000 36742000 38754100 38764000 


UNLABrlrD «= 


INTEGER =e 


DECLARED 


AT 39003000 


20585100 


20595450 
20596400 


20604000 
20602520 
20606910 
20608460 
20608870 
70609580 


20570350 


20585125 


20595500 
20596450 


20601100 
20602530 
20606920 
20608500 
20608950 
20609660 


20570464 


20585620 


20595550 


20604450 
20603560 
20607020 
20608510 
20609000 
20609750 


20595560 


20602050 
20603580 
20607040 
20608520 
20609100 
2067,0500 


20595650 


20602200 
20604850 
20607500 
20608550 
20609450 


20595700 


20602250 
20605050 
20607700 
20608600 
20609400 


* 39090000 4439937000 w% 39941000 *#39293000% 39994000 


39307200 


UNL ABFLED = INTEGER == DECLARED AT 4100200N 
*410440008% 41706000 
UNLD = LABEL *= DECLARED AT 22064000 == QCCURS AT 222700000 
22065000 27176000 
UNLOAD 7" DEFINE 7" OFCLARED AT 20223000 
20569529 20569610 20569802 2056984n 20570120 
UNLOAn *" DEFINE "" DECLARED AT 28208206 
28307715 
UNLOCKCONTROLDFCKS = DEFINE == NFCLARED aT 07001300 
07296000 073527000 07373600 07374950 07497625 07455000 
UNLOCKDTRECTORY “= DEFINE == DECLARED AT 00421500 
0674169000 06463995 07568000 08959575 08970650 14569000 44678000 
20769200 20771020 40336000 
UNLOCKHDR =~ DEFINE == DECLARED AT 18201500 
UNLOCKTOG =" DEFINE == DECLARED AT 00079400 
02202500 02434530 05846395 05853600 05970500 05975610 06116000 
07296000 07352009 07371600 07371950 07427625 07455000 07568000 
08571600 08677000 08696100 08636000 08997000 09624000 09647000 
19093000 148425500 168466000 148843700 148845500 49786000 2704270600 
20774020 22030000 22920000 24043800 40336000 44320355 
UNLOCKV == DEFINE == DECLARED AT 20219050 
20541450 20574662 20544664 20593060 2705937100 270609800 90603600 
UNLOK = STREAM LABEL == DECLARED AT 08110600 == OCCURS AT 08111450 
UNLOX ©" LABEL ©" DFCLARED AT 20597750 == OCCURS AT 270606150 
20597900 
UNSYS = {ABEL ©" DECLARED AT 18207000 == OCCURS AT 18397000 
18719000 
UNUM "* EFINE ©" DFCLARED AT 00005210 
UNUSEH *" LABEL ©" HFCLARED AT 18208000 == OCCURS AT 16466101 
18220000 
UP e* LARFL *= HECLARFN AT 06351500 "= oOccURS AT 06360150 
06353570 06380700 
UP ee LABEL == DECLARED AT 28240800 == OCCURS AT 28258600 
28260200 28302900 
UP -e LABEL == DECLARED AT 28407800 == gCCURS AT 28460200 
28464800 
UPDATE == REAL = VALUE PARAMETER == QECLARED AT 07001600 
07001780 
UPDATE = LABEL = DECLARED AT 20391000 == OCCURS AT 20483000 
20395000 
US = STREAM VARIABLE = DECLARED AT 08839000 
US == LABEL = DECLARED AT 18701000 *= OCCURS AT 18710600 
18701200 
USAST ©" REAL = DECLARED AT 14624550 
*14702550" 14702600 
USAST =  NTEGFR "= DECLARED AT 37160300 
%37255900*% 37267050 
USAS] = REAL = DECLARED AT 38103200 
*384 36500" 38137000 
USASI *= REAL = DECLARED AT 38201200 
USASITAPE == PROCEDURE == OFCLARED AT 01750;00 
01264500 44702600 272145550 37255900 38337000 
USE »* REAL == DFCLAREN AT 06068400 
*06093700% 06094900 06094700 06096400 406103100« 06401200 06401600 
USFEDRA ™" DEFINE == NECLARED AT 00403000 
USFORR °°" NEFINE @" DFCLARFD AT 00404000 


189293000 


06116400 
07572000 
09682620 
20240300 


20604350 


18425200 


06353500 
08259575 
14396000 
20583650 


18466000 


06463992 
08270650 
14569000 
20760000 


90760000 


07001649 
08368000 
14618000 
20769200 


06101700 «06110400 #4*06111300*% 06112000 


USEPBD =" DEFINE &=" DECLARED AT 00416600 
39099070 39092,50 
USFR == REAL == DECLAREO AT 06467100 
*06465100% 06465930 06465290 06465300 06465500 06465830 06465880 
USER 7 DEFINE =" DFCLARED AT 20219400 
20603565 
USFRCODF = REAL ARRAY =" NECLARFED AT 02695000 
04105550 06203000 *06205100* 14534500 14541000 14569200 18520900 18522300 18524900 1485276300 
18553500 148710600 19699000 19768200 19774850 «20180400% 22917000 28282800 28283000 28446400 
28435200 37428400 38013030 38013040 38077000 38217000 38253100 38490000 38533000 44162100 


*44262500% 44264500 
USFROTSK "= Real aRRay =" pDecLARED aT 00419900 
USFRDYSKBOTTOM == REAL =" QMECLARED AT 00438000 


44268500 *44270000%%446276000% 45107000 


45122000 *45123000 


05844930 05849000 05850120 05963400 06109500 
44086300 
USERDISKMASK "=" HEFINEF =" DECLARED AT 00080600 
05842300 05846395 05849300 05853600 05960700 
— 45102000 
USERD1SKREADY == DEFINE © DECLARED AT 00080600 


USERDySKSPECTALCASF == PROCEDURE 


06380450 06380900 146827000 40321000 40321300 
05970500 05975610 06103700 06116300 06353500 
FORWARD AT 00336100 


DECLARED AT 06350000 «= 


05824119 05849460 05851600 05973400 06381550 
USERID =" REAL ** VALUE PARAMETER =" DECLARED AT 06460200 
06460000 06460400 06463910 06463920 06465300 
USERID =" REAL = DECLARED AT 07408100 
*074092508% 07418850 
USERID "" REAL *°* DECLARED aT 08099800 
*08192000% 08104550 08105500 08106020 08106040 
USFRIN @™" REAL "" DECLARED AT 20566100 
20575350 20575400 20578050 20578075 
USFRIN *" REAL *" NecbLaRFD aT 20581000 
USFRIn 7" ReaAL == neclaRrp aT 20584000 
20586500. 
USERID = REAL = DFCLARED AT 20586800 
205883400 70588500 
USERID = REAL, == DECLARED AT 20589800 
USERID =" REAL 2" DECLARED AT 90591000 
*20591700«% 20592400 20592900 20593320 20593600 
USERID ™* STREAM VARIABLE "" DECLARED aT 20592400 
20592450 
USERID "™" REAL 7" DFCLARED AT 20595000 
20595200 


USFRIN @*" RealL =" prclaRED aT 20596800 
USFRIn = REAL ©" NWecLARED AT 20600010 
#20602 300%%90602400% 20603570 *20603575* 20603580 


USERID == REAL == OFCLARED AT 20701590 


20605750 *20605810% 20605820 *20609400%*906094 36" 


OCCURS AT 20605700 


ocCURS aT 20606050 


20740000 20741000 
USERS e= LABEL == DECLARED AT 90597750 == 
20597900 
USERSTA == REAL ©" VALUE PARAMETER =* DECLARED AT 14531100 
14531000 14540400 14540350 
USES "" LABEL "" DECLARED AT 20597750 = 
20597900 


USFTO0G 7" REAL =" pDFCLARFD aT 12211500 
#12247000e 12248500 «12258000%%12259000% 12293500 
USFTOR = STREAM VARY ABLE =" DFCLARED aT 12310000 
12317500 
USFV =e MEFINE =" DECLARED AT 90249060 


12294500 12310000 


18528100 
284146600 
*44255000% 


*44086200« 


40336100 


20511295 70511312 20593900 7059460n 
UT = REAL ARRAY "= DFCLARED AT 05841620 
*O5844110eeO5R844930% 05845000 *0584530N* 05845500 05845700 
UT "7 REAL ARRAY "=" NFCLAREN aT 05847600 
#05850120% 05850300 05880400 05850500 05850600 05851300 *05851500% 
*05852000«405852500« 
UT e» REAL ARRAY == DECLARED AT 05952400 . 
#0596 7400% 05969000 05969200 05960400 05969600 05965800 %05966600-" 


05851600 


05967600 


05851700 


05968900 


05969200 05974490 05972000 %05979400%e0597 2600 «0597 5800% 05973600 *05973800*% 05974400 


UT = REAL ARRAY = PECLAREN AT 06069300 


06088300 06089000 06089100 06989300 «06094500 %+06099400 «*06099500 4806 400800% 06100900 


06110700 06110800 06110900 06111000 06141700 06111800 *06113400« 
UT = REAL ARRAY = NAME PARAMFTFR = DECLARED AT 06350300 
06350000 06351000 06380140 
UT ©" REAL ARRAY 72 DPFCLARFD AT 16697200 
#16827100% 16828000 
UVROWARFAV =" DEFINE *" NMFCLARED aT 00017370 
Uf "= REAL "" NMECLAREN aT 94259200 
Ul = barnrFL ==" prclaRen aT 20589720 "= QcrURS aT 20590300 
20590200 
Voom REAL ARRAY =") VYALUE PARAMFTEFR "==" DFCLAREN AT 02696300 
Voe= REAL ==" DECLARED AT 04068000 
04078000 04080000 0408,000 G4095000 04097000 
Voom= REAL == DECLARED AT 04126000 
¥04130000% 041330900 04137245 O4144000 *£04147000%%*04151000% 04454000 
04213000 «04218000» 
Voo'™ STREAM VARIABLE "* DECLARED aT 04659000 
04659800 *04661800« 
Vo" LABEL "" ECLARED AT 05847800 “= OPcyURS aT 05849500 
05851675 
Vo" LABEL *= DECLARED AT 95952600 r= Or¢cuRS at 05959200 
05960600 05960670 
Voo== STREAM VARIABLE == ODFCLARFD AT 06364395 
06381405 
Vooe= REAL == DECLARFD AT 07299000 
*07318000% 07319000 07320000 «*«07344000¥ 07345000 
Voo*" INTEGER =" DECLARED AT 08255200 
08256440 08756450 £08257500««08257600«e08258000e 08258200 082959225 
08268500 08269510 082769520 08270750 08272000 08280000 08280030 
yvoe* stTRraM vARTABLE == DFCLARFH AT 08448050 


08448100 

Voo#= STREAM VARIABLE = DECLARED AT 08454100 
08451200 

V oee STREAM VARIABLE == ODFCLARED AT 08454000 
08454500 


Vooe= REAL = DECLARFD AT 42503000 
12567500 126006500 12607000 12656000 17657000 «126A7750% 12669500 
12677500 12679500 12700500 12701000 12705500 12707750 12753500 
vo7* Real =" prebaRep at 12803000 
12823000 142843000 42843500 42843600 142843700 42860400 47873500 
*12876500% 12878000 17886000 128690100 12892000 12897500 
Vo" REAL == DECLARED aT 13004000 
13127899 143128000 
Voo** STREAM VARTABLE == DECLARED AT 14415400 
14448100 
Voom REAL == DECLARED AT 19900260 
*19900300% 49900340 *19900370* 49900330 *19900745* 19900755 419900760 


04159000 «042070008 04208000 *04210000" 


08259830 


12670500 
12755500 


172874500 


19900780 


08259840 


12671250 
12757500 


12875000 


19900800 


05851800 


05968600 
05974800 


06101100 


08259850 «08260500» 


12675000 


12875500 


05851900 


05968900 


*06109400" 


12675250 


12876000 


Voo== REAL == DECLARFD AT 37287500 
%*37293220«4372939304437293240%%37 2932950 37293760% 37293770 
Vos" REAL ARRAY ==" PECLARED AT 40006000 
40907000 *€40010000 %#40911000% 40012000 «44001 3000% 40014000 *40263000% 40293050 440293060 %44029 3070 %%4029 3080" 
#40293090% 40293110 40293120 40317210 40317230 40317300 
VanpAR ** Rralb aRRaY =" nechaRen at 39902000 
*39959000« 39962000 39965000 39966000 
VALU *= RrAL == DECLARFN AT 12212000 
12225000 #*12244500% 12249500 1226;000 12262000 149262500 422765500 12266500 429269500 49283000 42286500 
12287000 12307000 
VALU = STREAM VARTABLE =» DECLARED AT 42225000 
12241500 
VALU = STREAM VARIABLE = DECLARED AT 42307000 
12312000 
VALU =* REAL © DECLARED AT 12363500 
*#12438000*% 12439900 
VALUTOG *" STREAM VARIABLE 7" DECLARED aT 12307000 
12312000 
VARRAY "" REAL =" DFCLARED AT 19694000 
*#19696800% 19697300 «197250008 19755000 *19763000" 
VASE "= RrabL =" DFECLARFO AT 08680000 
08681200 *08689900% 08690600 08693000 «08693200% 08694200 08695700 08695400 
VASE == STREAM VARIABLE == DECLARED AT 08684200 
08686500 
VASE ==» STREAM VARIABLE == DECLARED AT 08694200 
VAX ew DEFINE == DECLARED AT 00013710 
18540140 18540400 
Vec =" DEFINE =" DECLARED AT 09013820 
16943680 16926020 
VeT 7" OFFINE ™" DECLARED AT 08734010 
VECTOR ** REAL ARRAY 7" VALUE PARAMETER =" DECLARED AT 06182000 
06180000 06181000 06192000 06193500 06194000 06195105 06195120 96196000 06199000 06200000 062014000 
06296120 06206140 06706240 06206250 06207000 06207400 06208000 06217400 06222000 06222100 06222700 
06222300 06222409 06227500 06722550 06246000 06328300 06328400 063278500 
VECTOR =" REAL ARRAY == DECLARFD AT 14350000 
#14358000% 14358400 14358200 144356340 14358315 1435839; 14358710 ¥44358800« 14360100 44360200 44360310 
14360380 143710900 14372000 14373000 14374000 14382000 14383900 14394000 149394000 144395000 44398700 
14399000 14402000 #14403900« 14404000 14405000 14406000 «14406100« 14407100 14408000 «*«14410000« 14411800 
14411850 14411860 14411870 14414880 14411890 44444000 44445000 14415400 14430800 44431000 
VERYFrRST 2° RealL =" preblaRFD aT 07006172 
#07905500% 07145400 07447100 *07418510%«07149200% 07490010 07423500 %074 26000%«07129200« 074401400 «071691440» 
07274100 
VF ee DEFINE ©* DECLARFD AT 12516400 
12667750 
VF oe» DEFINE *= DECLARED AT 12815100 
VFM = DEFINE == DECLARED AT 00013790 
12830000 12863000 16244000 37046740 37046825 37046830 37047010 37047600 37048000 
VFR =" DEFINE ©" DECLARED AT 00013800 
37225100 
VIF **" DEFINE "" DECLAREN AT 00013830 
18025000 18258000 28293200 
VIL =" perINe "" nrelLaRFn aT 00013720 
. 06463280 37225000 37233500 37241300 37241510 37241600 
VOF =" DEFINE = pErLARED AT 90013810 
28293400 28294400 37225100 38044610 38045400 
VOK © DEFINE == DECLARED AT 00013780 
06360590 06360590 06463280 12473190 12709750 147830000 429899500 149900500 14431518 144569500 46163000 


17944100 17944500 17918500 28293400 28294200 37046829 37047010 37047400 
37243600 38014610 38015400 
VOL »** LageEL =" NECLARFN aT 01250500 "= O¢cURS aT 01256100 
01257600 
VOLig-rLi == SURROUT{Ne =" OecbaRFO aT 01251000 
01251600 04255000 01256000 04257500 
VOU == DEFINE = DECLARED AT 00013750 
37046740 379046825 37947010 
VQ we LABEL = DFCLARED AT 16355000 -= OCCURS AT 16456000 
16364000 
VOT w= DEFINE == DECLARED AT 00013740 
12709750 12830000 142899500 12900500 
VR owe REAL ARRAY = DECLARED AT 40007000 
#AO2A9250ee40257N60e 40261300 £40265000 4440347500 4440324130 «440 324200 4440 334077 440334079 4440334085 % 
VRM ©" DEFINE =" DECLARED AT 00013770 
14569500 14581700 14585000 
VTL ©" OFFINE 7" DECLARED AT 08734030 
08736000 
VUL =" prerNe = preblaRFn AT 00013730 
37295000 
VWY = DEFINE == DECLAREN AT 00013760 
06360520 06360590 06463280 08607000 08609000 1497709750 42830000 47899500 
16963000 146953000 417914500 47937500 17948500 48025000 48540140 48540400 
37046825 37047010 37948000 37085000 37100000 37113000 37225000 37241300 
VXT 7" DFFINE &@* DEPeLARED AT 08734020 
08757000 08775000 
Vi m= STREAM VaRTARLE == NECLARFN AT 12460500 
12469000 
V7Q we STREAM VARYJABLE we DECLARED AT 42465000 
Vi_ == STREAM VARIABLE w= DECLARED AT 12465500 
Vio me STREAM VARIABLE ee DECLARED AT 12466000 
Vi3 = STREAM VARIABLE -= DECLARED AT 12466500 
Via =~ STREAM VARIABLE «== DECLARED AT 12467000 
V2 8 STREAM VARTABLE == DECLARED AT 12461000 
V3 "= STREAM VARIABLE = DECLARED AT 12461500 
V4 = STREAM VARIARLE = DECLARED AT 12462000 
V5 "= STREAM VARIARLE ©" DECLARED AT 12462500 
V6 = STREAM VARIABLE 7" DECLARED Al 12463000 
V7 == STREAM VARIABLE =" DECLARED AT 12463500 
V8 "= STREAM VARIARLE ©" DFCLARED AT 12464000 
V9 = STREAM VARIABLE =" NECLARED AT 12464500 
W REAL &" VALUE PARAMETER =" PDeFCLAREN aT 00480010 
w Real w= VaLitt PARAMETFR == HFCLAREn aT 07696300 
W SWiTcH LABEL == DFCLARED aT 04358400 
04389000 
W REAL = DECLARED AT 04552000 
04568400 604593000% 04598000 *04608000*% 04677000 
W REAL  ™* DECLARED aT 04704000 
#04706000*%*04731000% 04732000 
W REAL @" VALUF PARAMETFR == DECLARED aT 05607000 
05614000 
Ww STREAM VARTARLE 7" NPFCLARFN AT 95614000 
05617000 
W NAME = VALUF PARAMEFTFR == OFCLARFH AT 05701000 
05700000 05701000 4#05745100* 05725000 05727000 05728180 
W LABEL = DECLARED AT 05841650 *= OcCURS AT 05846500 
05842100 


19727000 


28080400 


28236400 
28267000 
28290400 


WH ee | ABEL == DECLARED AT 95847800 == OCCURS AT 05850000 
05850400 05850500 
Woe LABEL ** DECLARED AT 05952600 78 OCCURS aT 059622700 
05952715 05952755 95962400 
W o*" STREAM VARIABLE "=" ODECLAREN AT 05952715 
05952725 
Woo" STREAM VARIABLE **= DFCLAREN AT 05952755 
Wo" STREAM VARTARLE == DECLARED AT 06381400 
06381405 
Ww " STREAM VARIABLE == DFCLAREN AT 14284000 
14286000 
Wome REAL ARRAY = DECLARED AT 49692000 
#19741100% 49714300 19714000 497144100 149774000 
W oe STREAM VARIABLE = DECLARED AT 20031500 
20032925 
Wome REAL * DECLARED AT 28003200 
28078000 28078400 278978800 2807900nN 278080000 
28096800 
wow" ReaL =" pechaRen at 28203600 
28934800 78235500 278235400 28236000 78936200 
28749400 278243400 2782944200 28245000 28245700 
* 28289 200% #28 28960044 282789800%*e28290000« 28290900 
#287299800%*28300000%8 28300200 28300400 278300600 
W 7" REAL 7" DECLARED AT 28803000 
28831000 28831600 28832000 28832500 28833000 
Woof" TNTFGER ** NECLARFED AT 37422100 
*#37433000%837434000% 37435000 
Woe" RFAL =" neclaRen at 40005100 
#40008320 «#40008 3404640275700 4440353700" 40353420 
W oe REAL "=" DECLARED AT 44011000 
44078000 #44454700*% 44173200 
Woem REAL = DECLARED AT 44206700 
44207200 
Woowm REAL, == DECLARED AT 45002009 
45002800 
WAIT = LABEL == DECLARED AT 04250500 ©" gCCURS AT 
012556090 01256500 01259300 
WAIT = LAREL ** DECLARED AT 20597880 "= OCCURS AT 
20598000 
WAITIO 7" REAL PROCEDURE “" DECLARED At 04240000 = 
00044000 01255100 01255200 04255450 01255500 
01260500 029120000 02276100 02287255 02287260 
02434760 02434770 02434800 07434810 02666000 
07077000 07125000 07428000 07224000 079297000 
08087000 12522000 425272500 12527000 12545500 
12843700 12890;900 12897500 13962000 13128000 
14703000 16921500 20299000 20601000 20608000 
22114000 22203000 26011840 28011850 2804142040 
28041000 28041400 28042600 28044800 28046000 
28078000 28978800 28082000 28082200 28082400 
28095400 282143000 28236400 28216600 26292600 
28956800 278258400 78262200 28273000 28303200 
37453100 37456000 37458000 38305400 38442000 
38632000 38688000 38700000 38720000 38736000 
38760000 38766000 38767000 38769000 38775000 
WAYTTQUE == REAL ARRAY == DECLARED AT 00278000 


02092000 *02094000% 029095000 *04016200**040; 7000% 


19760000 


28080600 


19766800 


28080800 428095800" 28096200 


28237200 «28940400 «%«28241600% 78241800 


28268600 *98978400*% 298278600 *28278800« 
*282994B800*% 28295000 


28290600 


*40353180% 40353200 


01260425 

20609555 

FORWARD aT 00018000 
01256100 01256400 
09308000 07434474 
02668000 *04250000" 
08030000 08042000 
12546500 42600500 
14204600 14205500 
20609000 221306000 
28019800 28021800 
28047000 28058800 
28086800 278089200 
28223000 28223200 
28304600 37046260 
38203400 38402000 
38744000 38741100 
38795000 38799000 
04117000 44473000 


01258500 
02434532 
05960600 
08043000 
12607000 
14255000 
22107000 
28022000 
28063000 
26090500 
28230000 
37046300 
38406000 
38742000 
40257030 


01258600 
02434534 
05960660 
06044000 
12648500 
14256000 
22112000 
28033400 
28063200 
28090400 
28232200 
37212000 
38411750 
38742400 
40258000 


98295200 


*#28837000%*2868345500% 28848000 «28850000% 28852100 


01258700 
02434600 
07054110 
08044600 
12843000 
14679000 
22112100 
28033800 
28074600 
28091600 
28232600 
37253000 
38624000 
38754000 
45104200 


28096600 


28242000 
28279200 
28295400 


01250900 
02434630 
07059000 
08045000 
12843600 
14701000 
22112500 
26034000 
28077200 
28095000 
28256400 
37303200 
38629000 
38755000 


WATTV w= DEFINE ©" PECLARED AT 20226100 
WATE =m {ABEL ct DECLARED AT 28210800 = oCCURS AT 28241490 
28245200 
WATE ™= LABEL "=" DECLARED AT 28806000 "=" OCCURS al 28848000 
WC te REAL @" DECLARED AT 41600300 
*41602900% 41603000 41607300 
WD se bagel == pECcLAREN AT 16355000 “= OCCURS aT 16493000 
16364000 
WO e* LABFL = DFECLAREN AT 18701000 == OCCURS AT 18711600 
18701200 
WD == REAL == DECLARED AT 44327500 
44327700 *44334700% 
WOSLEFT == STREAM VARTABLE "=" DECLARED AT 04658800 
04461800 
WEEKDAY =" REAL ** NECLARED AT 08303300 
08332500 08333000 18711600 20289265 «442413150» 
WEEKDAY 7" STREAM VARTABLE "" NECLARED AT 20289265 
WEGOTAFYLF " REAL SURROUTINE == YHECLARED AT 08104750 
08104950 08105000 081416750 
WETRDFORK = DEFINE +" NFCLARED AT 28405000 
28433400 284419700 28442200 
WEWANTTHISFTLE e# REAL SUBROUTINE == DECLARED AT 08105300 
08305500 08105900 08106040 08105080 08406100 08116800 
WHAT e= REAL == VALUE PARAMETER == DECLARED AT 02348000 
02350000 
WHAT # STREAM VARIABILE =" DECLARED AT 02350000 
02351000 
WHAT "= REAL =" DECLARED AT 08028000 
08029000 
WHAT "= REAL =" VALUE PARAMETER "= DECLARED AT 08079000 
08080000 
WHATINTRNS1G == PROCENURF == NFCLARED aT 15534000 -= FORWARD AT 09400000 
09535000 09659000 15555000 4626;000 
WHATMCP e©= PROCEDURE = ODOECLARED AT 15500000 
15533000 16503,;00 41323500 
WHILOOP == LABEL == DECLARED AT 14628000 
WHY =" LABEL =" DECLARED AT 06351500 *= OCCURS AT 06355000 
06360610 
WHY =" LABEL =" DECLARFD AT 06462200 =" OCCURS AT 06463210 
06463360 
WHY #" LABFL =" DECLARED aT 12812500 = OCCURS aT 12898500 
12892000 12900500 
WHY =* Lagel =" DECLARED AT 14547000 == O¢cURS aT 14570000 
14584000 
WHY = LABEL |= DECLAREN AT 37380600 == OCCURS AT 37224000 
372992500 37229500 
WHYSLEEP == REAL PROCEDURE = DECLARED AT 08599000 = FORWARD AT 02022000 
06360590 06463360 %08622500% 08623000 12740250 12862000 42900500 14584000 47948500 
28294000 36008000 37046825 372729500 37241600 
WI w= REAL °°" DECLARED AT 09602100 
Wr = REAL °™ DECLARED AT 15536000 
WI o*= LABFL "= DECLARENM AT 16056000 == gccuURS aT 16260000 
16065000 
WINDUP w= LABEL =" nFCLARED AT 20146600 == OceURS aT 20189900 
20788900 
WITCHINGHOUR == REAL == DECLARED AT 00457500 
06188000 06188100 15622000 20157700 22012000 27909000 *44090500*% 48002000 


18030000 


16540400 


WITH "= NEFINE 
20585300 

WITHOUT ©* LABEL 

WK "=e LAREL am 


16366000 
WKSETeLOCK ©" neEé 
124095500 
WKSeT¢YcLeETIMe == 
12270500 
48040072 
WKSETNDATA #* REA 
06195095 
*#12280000« 
12308000 
12426500 
*12473060« 
*14437650 %« 
«4429092008» 
WKSETDATASTZE == 
44154059 
WKSETINSTRUCT wm 
12272000 
WKSETMAXOLAY == 
12266500 
WKSETMONITOR "= 
06195095 
WKSeTNOseLeeT = 
08839500 
WKSETOLFRANCE =< 
12262500 
WKSETRUNNING == 
12475500 
WKSETSTOPJORS <= 
12453000 
WKSETSWITCHTIME = 
12403500 
WKSETVALUES 7" P 
16615200 
WLOG 7 RralL #* 
413277700 »* 
WM ee LABEL «= 
16364000 
WMCP wm REAL =2 
#41334000% 
WORD == REAL == 
05952715 
WORD 7" INTEGER 
#24213000« 
WORDOFEASE "" RE 
20190800 »« 
WORHS =" I NTFGFR 
244041000 
WORKSFT ee PROCE 
489,0089 
WP oe LABEL =e 
16703500 


WR == LABEL == 


"= DFCLARED AT 20235099 
20593319 
=" DECLARFD AT 09602000 


DECLARED AT 16357000 "= OCCURS AT 16615100 


FINE =" NECLARFD AT 90134150 
48010074 48010080 

DEFINE =" OECLARED aT 00134350 
12279000 422780000 42280500 422814000 
48010074 
L ARRAY == DECLARED AT 00434130 


12283000 


12283500 42306000 142306500 149323120 44209200 


08839500 *12262500%412266500% 12270500 «12271500 12972000 #12273000#«12276000%«{ 2276500 eu1 2279000" 
12280500 12281000 *12283000«« 1228 3500««12287000%#12296500% 19297500 12306000 142306500 42307500 


12309000 12321120 12321130 12321140 


12321150 


12403500 *£12405500m 12494700 412425000% 42425200 


12431500 12444500 £12452500 441245 3000m%12453100% 92454000 «£19454500% 12456500 12473030 42473040 
12473070 42473080 442473450" 12475500% 14434420 444434440e 14434450 44431460 *14437470%444431508« 
14434975m« 14431980 47904000 17904600 4447926400 me, 7926500% 20465420 420490620% 22044620 44463090 


44209300%*44709400%444209500" 480;0072 
DEFINE =" BPECLARED AT 00434480 
44163020 

DEFINE == DECLARED AT 00434310 
12273000 42296500 142297500 12391130 
NEFINE == DECLARED AT 00134250 
12276500 12307500 12321150 12425000 
NEFINEG "" NECLARED aT 00134230 
12287000 12309000 12456500 

DEFINE @* DECLARED AT 00134200 
12283500 42424700 42425000 42495200 
DEFINE = DECLARED AT 00434280 
12276000 12308000 427321440 12444500 
DEFINE e#= DECLARED AT 00134180 
48010076 486010084 

DEFINE ==" DECLARED AT 00434390 
12473030 12473150 14443749n 14434508 
- DEFINE =" DECLARED aT 00134460 
12452500 14431650 17904600 17926100 
ROCEDURE ™™ MECLARED at 12201000 


DFCLARFD AT 41327500 
41334400 


48010074 


12437500 


12426500 


12453400 


44209400 


14434975 


20190620 


DECLAREN AT 46356000 == gc¢ccURS AT 16502000 


DECLARED AT 41327500 


DECLARED AT 05952230 

05952755 95956550 05956600 05956750 
=" MECLARED AT 24204000 

24224000 24226000 

AL “= neECLARED aT 00157500 

440910004 44189500 48024000 


05957050 


== valur PARAMETER *= necbARFD AT 24103000 


24102000 24151000 


48010076 *48010080#«48010084« 


44209300 


12473040 44209500 


14431975 20465420 


14431980 17904000 17926500 70165120 22014620 


05957150 *05957250% 05957500 «05977600 


NURE == DECLARED AT 12350500 -= FORWARD AT 00134125 


DECLARED AT 16699500 "= 4CCURS AT 167199500 


DECLARED AT 16699500 "= oCCURS AT 16737500 


WRAP 


WRocNY 


WRnHERR 


WRDLOCN 


WRDSZ 


WRDSZ 


WROSZ 
WRITBACK “= DEFINE “= PECLARED aT 38385500 


16703500 


14279000 

"= sTReaM VARIABLE °™ DFCLARED aT 04658600 
04660200 *04661500» 

e= STREAM VARTARLF 7 ODFCLARED aT 04658600 
*#04660000% 04662500 


m= STREAM VARTARILF #8 DECLARED AT 04659400 
04660300 
ew REAL ARRAY w= PECLARED AT 28004800 
*28069200» 


ee REAL ARRAY =" DECLARED AT 28205200 
*28235200" 278243400 
wm REAL ARRAY =" DECLARED AT 28401800 


38389200 


WRITEAFTERFOF =" MEFINE 7" DECLARED AT 38385600 


WRITER 
WRITEBANDEJECT == SUBROUTINE = DECLARED AT 12838500 


38389400 38389700 38389800 38390100 38390500 
w= SUBROUTINE =" NECLARFEN AT 12603000 


12885500 142890000 


WRITENDINGLABEL == SUBROUTINE = DECLARED AT 28040600 


28945000 278075000 


WRITENDINGL ABEL = SUBROUTINE «8 DECLARED AT 28231800 


WRITEPARITYRFELSWITCH © REAL PROCEDURE "=" QECLARED AT 04667000 


28261200 28268800 
04648150 «04688050% 04688100 15115200 


WRITTFNON =" REAL SUBROUTINE "" DECLARFD aT 38377000 


WT 
WT 


WU 
WY 
WY 
Wi 


w2 


38378400 38503600 38507500 
LABEL == pECLARER AT 16356000 == occuRS aT 16499000 
16364000 
REAI, == DECLARED AT 41327400 
41333005 *41333900» 
LABEL == DECLARED AT 16699500 == gCCURS AT 16715000 
16703500 
LAREL = DFCLARED AT 16054000 “= OCCURS AT 16102000 
16062000 
LABEL =" DECLARED AT 28210800 *= OCCURS AT 28291000 
28294000 
REAL 7" ValUF PARAMETER @" NECLARFD AT 14531100 
14531000 14535000 
Real == value PaARAMETFR == DECLARED AT 14531100 
44531000 
LABEL == DECLARED AT 37005000 == QCCURS AT 37046680 
37946826 = =637946899 
INTEGER @= VALUE PARAMETER |= DECLARED AT 00379000 
REAL = VALUE PARAMETER == DECLARED AT 00454200 
00454000 00454100 
STREAM VARIABLE == DECLARED AT 01251800 
01251900 91252000 
REAL *= DECLARED aT 02057000 
02057500 «02081000x 02087000 02101000 02101100 
STREAM VARIABLE =" ODFCLARFN AT 02144500 
02145000 
STREAM VARIABLE = NFCLARED AT 02221000 
02245000 
LABEL == NECLARED AT 92434135 == OCCURS aT 02434870 


LABEL 7 DECLARED AT 14165000 "= ocCURS AT 14298000 


FORWARD AT 04255100 


x 


MK 


“7 


02434240 


LABEL, 7s DECLARED AT 94125000 "= OCCURS AT 04159000 


04134900 04134960 


LABEL ™" NECLAREN AT 95847800 °" OCCURS AT 05850600 


05850300 


LABEL "* NECLARED AT 95952600 = OCCURS aT 05962600 


05962000 
STREAM VARIABLE 7" DECLARED AT 96023000 


REAL = VALUE PARAMFTFR ## DECLAREN AT 06179000 


STREAM VARIABLE = DECLAREN AT 06269000 
06970000 
STREAM VARIABLE == DECLARED AT 07003462 


#97003486% 07003488 £07003504% 07003508 £07003514« 07003518 *07003522% 07003596 «07003530* 07003534 #07003538« 
07003542 w07003546% 07003550 «07003554% 07003558 %07003562« 07003566 07003570 


STREAM VARIABLE 7" NnecbLARFn at 97032000 

07035000 *07037000« 

STREAM VARIABLE == DECLARED AT 07214;00 

07944110 

STREAM VARIABLE «= DECLARED AT 07358000 

073460100 07362000 

STREAM LABEL = DECLARED AT 07490000 == 


oCCURS AT 07495000 


LABEL, 2" DECLARED AT 08002000 "" OCCURS AT 06023000 


08021000 
REAL, =" DECLARED AT 08099850 


08105700 08105900 08107950 08108200 08108250 *08114300+«#08114350" 


STREAM VARIABLE ‘= DECLAREN AT 08105700 
STREAM VARIABLE "=" DECLARFN AT 08107950 
08108050 

STREAM VARIABLE "= DECLARFN AT 08108250 
06108500 

STREAM VARIABLE *= DECLARED AT 08298800 
08299400 

STREAM VARIABLE = DECLARED AT 08338200 
08318300 08318400 

STREAM LABEL °&* DECLARED AT 08348000 = 

STREAM VARIABLE 77 DECLARED AT 98365000 
08365100 08365200 

STREAM LaBEL “* ODFCLARED aT 08401000 © 


OCCURS AT 08357000 


OCCURS AT 08406000 


REAL "=" VALUE PARAMFETFR == DECLAREN at 08527000 
08525000 08526000 08533400 08533500 08535000 08538000 08540000 


STRraM VARTABLE == NFCLAREN aT 98540000 

#98540300% 08541000 +0854 3000%+4085442008 
STREAM VARIABLE == DECLARED AT 08551900 

STREAM VARIABLE == DECLARED AT 08558000 

REAL ©= DECLARED AT 08680000 

*08692400e 08692800 08694000 08694200 
STREAM VARIABLE "" DECLARED AT 08694200 
084694600 

STREAM VARIABLE =" DECLARED AT 08774000 
087A0000 

STREAM VARIABLE “" DECLAREM AT 08791000 
08792000 


STREAM LABEL == nFCLARED aT 08918000 == 


REAL = DECLARED AT 12505000 
*12554500#619555000**49654;000* 12659000 
REAL w= DECLARED AT 12805060 
REAL == DECLARED AT 13006000 


OCCURS aT 08923000 


06544700 


*13061000e 13066000 *13968000%#13072000*% 13073000 

STREAM VARIABLE *= DECLARED AT 14020000 

REAL "=" DECLARED AT 14164000 
14183000 #14184000n414186020«% 14186120 14186130 14186140 14186148 «14197000%414198100e 14198200 44198300 
14198400 14198700 14198800 414206000«4%14210000% 14211000 442136000 144217000 414224000» 

STREAM LAREL =" NECLARFA at 14424000 == OCCURS AT 14429000 
14427000 

REAL, ARRAY = DECLARED AT 14546900 
14551500 14552000 14552750 14554000) = 144555500 #44559250*% 44594000 44595000 £14596000%*1 459K 3004844600000" 
14692500 *14603000% 14603200 «14603300%«14603310% 14603600 #14604000« 

STREAM VARIABLE "=" NMECLARED AT 14645900 
14646000 14647900 #14650000* 14650400 *14650600*% 14651000 

STReaM VARIABLE =" DFCLAREH aT 14702025 


oe 


aon 


14702050 14702300 
ReAL =" VaALUF PARAMETER o@ 
15991000 *15039000* 45040000 
STREAM VARIABLE == DECLARED 
15933000 *45037000* 


OF CLARFH aT 15019000 


AT 15021000 


LABEL, == DECLARED AT 15172000 == 


15173000 


LABFEi, == PECLARED AT 15403000 == 


15438170 
REAL =" DECLARED AT 15501000 
*#15501200% 15501300 15501600 


15552400 
REAL 7° VALUF PARAMETFR &* 
17000000 17000200 17005400 
REAL *™" DrcbLaReo aT 18198000 
*18227000% 48227500 18228000 


19768300 


OCCURS AT 15175900 
OcCURS AT 15440000 


15531100 15531200 
STREAM VARIABLE *" DECLARED AT 15550000 


DECLAREN aT 17000400 == 


18232000 48245000 
STREAM VARIABLE = DECLARED AT 19768200 


STREAM VARIABLE = DECLARED AT 20064090 


20044300 
REAL, == DECLARED AT 20289035 
#20789 335%*202893708 20289510 
REAL "=" DECLARED aT 20382050 
#20382220% 203822960 20382360 
REAL ARRAY =" NAME PARAMETER 


20289580 


20382380 20382440 


DECLARED AT 20386100 
20384000 *20400000« 20415100 *203504000%«20505000*% 20507100 *20507400% 


STREAM VARTABLE =" NFECLARFN AT 290511663 


20541685 20541702 


STREAM VARTABLE == DECLARED AT 20566915 


20566940 
REAL == DECLARED AT 22902000 
*22042000% 22047100 22045000 


STREAM VARIABLE = DECLARED AT 22136000 


22142000 


STREAM VARIABLE = DECLARED AT 22145050 


22145350 
REAL @" pecbaRrn at 22231000 


52261000 #22263000% 22264000 4222770004422312000* 22315000 


*22423000% 22423;00 

REAL == VALUE PARAMFTER == 
22976000 

REAl, »= DECLARED AT 24004000 
*24011000*% 24012000 


DECLARED aT 22900000 


OCCURS AT 16926154 


22317000 4223712720 4422387000 %%22399000% 22400000 


X om 
x oo 
X we 
xX = 
X a 
XY «- 
X os 
X «am 
X we 
X os 
x oe 
xX ow 
XY == 
X oo 
XY ae 
X =e 
X e«« 
X =e 
X == 
X == 
X «an 
X 
XY == 
XY «= 
XCLICK 
XCLICK 
XCLOCK 


REAL =" DECLARFD AT 24032200 


# 24933600" 24033900 


*2H0 34000 ee 24035600e 24035700 24035800 *£24036900*% 24037200 «2403730N* 24037600 424038000« 


24038100 #£24038900% 24099000 «24039100%%24039700% 24039900 


STREAM vVARTARLF == 
24042600 


NECLAReEn AT 24042700 


INTEGER == DECLARED AT 24907000 


*24212000*% 24225000 


REAL ARRAY ==" DECLARED AT 28004400 
28004600 ¥28058600% 28059600 *28062000* 28062200 
REAL ARRAY 7" DECLARED AT 28401800 
«28458000 «*28466600% 28467000 28467600 28467800 28475400 28476400 28487000 
REAL ARRAY °" NnECLARED AT 28894000 
* 2885600044 28860000% 28861000 +*28665000%%28866000« 288668300 28868400 4#28868500% 28879000 78881000 278883000 


28889000 
STREAM VARIABLE == 
30925000 


NECLARFH AT 30920000 


DEFINE = DECLARED AT 36004000 


36007000 36009000 
LABEL ** DECLARED 
37046840 37047700 
LABFI, c= DECLARED 
37240700 37241540 
STREAM VARIABLE "2 


37740B00 *372409010% 


STREAM VARIABLE 7° 
37255200 


AT 37004000 == OCCURS aT 37172000 
379048400 379850090 371000190 37121900 
AT 37180600 “= OCCURS AT 37241810 
37255100 
DECLARED AT 37240700 


DECLARED AT 37255100 


REAL °™" DECLARED aT 37323000 


*37327000« 37328000 
STREAM VARIABLE °o 

38131500 384132000 
STREAM VARIABLE <= 


37329000 
DECLARFn AT 38131000 


DECLARFN AT 39905000 


39906000 *39909000% 39942000 39938000 


STREAM VARIABLE =# 
39951000 


DECLARED AT 39950000 


REAL eo DECLARED AT 40004500 


409046025 4001672700 
40027270 40027290 


40016240 40016400 40016510 40016910 40016920 40017280 «40017290% 40027240 40027250 
40027295 49042100 40047100 40060305 40062000 40072000 40074000 40076000 40078033 


40078068 «40078070% 40078074 40078099 4401007004440 1009004440 101 250%6 402610464 u 40290 3004440290400 %% 40290600» 


¥40390200% 40320600 

40324200 40327000 
STREAM VARTABLE == 
*#40390300*% 40320500 
STREAM VARJABLE <= 
41316530 41316535 
STREAM VARIABLE == 


#40321100%440324310% 40391400 40322100 40322220 40322410 40322425 40323600 40323700 
DECLARFN AT 40320200 

DECLARED AT 41316525 

DECLARED AT 41333005 


REAL ARRAY =" QOFCIARED AT 44018000 


44037000 


REAL ARRAY =" DECLARED AT 44207200 

REAL ARRAY "" MECLARED aT 45002800 

%#45094600 44451010008 45111000 £45114000 44451150008 45116000 £45119000 «645120000 4445121000 "445 122000 «045124000" 
#451 25000%#451260004 45128000 *45129000*% 45130000 45131100 451435010 


STREAM VARTABLE == 
45431200 


NechaRen aT 45131100 


w= INTEGER == DECLARED AT 44016000 
“= INTEGER = ODFCLARED AT 44297100 


*#44216900% 


we REAL == DECLARED AT 00114000 


02173297 05953085 06188000 *06188100% 07550100 08307000 086383100 08394000 08410100 08572510 08713000 
12699000 12855000 14411860 14415000 #15622000* 18710800 20031500 20043800 20106000 *20157700% 20173200 
20289148 20289760 «22012000%«29909000% 28299000 37444500 38217500 38920000 44340500 44346520 44319900 
41432990430 44324900 44399700 44333900 41603800 44046000 449071400 45099480 45448000 *45435200e 45435230 
*48000000« 48002000 
XCLOCK *= STREAM VARTABLE °° DECLARED al 05953085 
XCLOCKT IME © DEFINE #= DECLARED AT 20019500 
20031500 20043800 
XCLOCKTIME "= DEFINE -= DECLARED AT 20086000 
20106000 
XCLOCKTIME == DEFINE == DECI,ARED AT 201469200 
XD =e LABEL 77 DECLARED AT 16700500 *= gCCURS AT 16804000 


16705000 

XOFILE °" LABEL °°" DECLARED AT 05952620 *=* OCCURS AT 05975700 
05960680 

XEXIT =" LABEL =" DeclhaRFD aT 04555000 “= OCCURS AT 04648400 
04626000 


Xf ose REAL =" DECLARED aT 20566250 
*20567010% 20567050 20567057 29567065 20567085 20567090 20567097 205671405 #20570010* 90570020 «20573460" 
20573540 
X10 s@ LABEL == DECLARED AT 04554700 == OCCURS AT 04568900 
04567845 04567900 
XIQ ©" LAREL = DECLARED AT 04670650 == OCCURS AT 04673550 


04673400 
XLST "= REAL ARRAY == NAME PARAMETER == DECLARED AT 02052800 
02052700 
XLST "= REAL ARRAY "= PECLARED aT 08100050 
08104900 


XLST "= Real ARRAY = NAME PARAMETER *= DFCLARED AT 20382015 
20382010 20382720 270352280 70382300 20382340 «2703823608820 382380%%20 382400" 
XLST = Rral ARRAY = fHECLARED AT 20566280 
20566290 *20567005* 20567005 20567030 «20567035%#20567050"*20567057 #e90567065% 20567085 #70567090ne20567097" 
#20567105* 20570040 20570050 #20570070%%20573350%"20573540e 20574400 20580302 
XLSTSZ  "" REAL "7 DFCLARED AT 20566260 
*20567005« 20567010 «20567020 20567025 20567035 
XSFS 7" bLaBEL *" DECLARED AT 08856000 "=" OCCURS AT 08910000 
08883000 08912000 
XT 7 STREAM LABFL *= NECLARED AT 16042300 "= OccURS aT 16043400 
XT == STREAM LABFL == peclLaREn at 16092000 == OccURS aT 46098000 
16093000 76094000 160995000 46096000 
XT = STREAM LABEL |= PECLARED AT 16143000 == OCCURS AT 146147000 
16145000 
XT = STREAM LABEL == DECLARED AT 16191000 = OCCURS AT 16196000 
XTRA = INTEGER = VALUE PARAMETER = DECLARED AT 39000100 
39900000 39000400 39307100 39307300 
XTRA = REAL o* DECLARED AT 41003100 
413099000 
XTRAC *" REAL 7" DFCLARED AT 39001200 
239307200 
XTRAR =" REAL ** DHECLAREN AT 39001200 
-39307400 
XX me LARFL == DECLAREN AT 24032800 == occuURS AT 24038500 
24037600 
XX7T em (LABEL = DECLARED AT 04555000 ee gCCURS AT 04567840 
04567700 
XX1T = STREAM LABEL = DECLARED AT 12234000 = OCCURS AT 12242000 
12236000 127238000 
XXIT "= STREAM LABEL 7" DECLARED AT 16038200 ** OCCURS AT 16040600 


16038400 16038700 

XXIT "=" STREAM LABEL "=" DECLARFD AT 16855300 == OCCURS aT 16856000 
16855400 

XX7T of" STREAM LaREL @" NECLARFO AT 20054400 = OCCURS aT 20055300 


XX1T we STREAM LABEL ee DECLARED AT 20061700 = OCCURS AT 20063100 
20062200 

XXXXXX f= DEFINE #=| DECLARED AT 00447000 

XXXXXX ce SUBROUTINE == DECLARED AT 44037000 

XXQo == STREAM LABEL #=© ODEFCI,ARED AT 12231500 = OCCURS AT 12234000 

XXq = REAL == DECLARED AT 28201200 
28205400 

XX2 ** REAL ©" DECLARED AT 28201200 
26201400 

XYrt ©" LanFL =" DFCLAREN AT 19695000 =" OrcuURs aT 19799060 
19697400 19697700 

XYT =" LABEL |= DECLARED AT 42511500 = OCCURS aT 42553000 
42539060 


Xq oe REAL, 2 DECLARED AT 06068700 


*06073900" 06074;00 *06077400*% 06085100 06085600 «06091600 06091800 06093900 06094100 *06097100%«%06097400« 
06098300 #06110800« 06111100 06111400 06111700 
Xy == STREAM VARIABLE == DECLARED AT 07463000 
07464000 
Xt = DEFINE =" DECLARED AT 14546200 
14598300 14602500 14603000 14603200 14603300 14603310 14603600 144604000 
X1 ** STREAM VARIABLE ** DECLARED aT 14702025 
Xi oe STREAM VARIABLE =" DECLARED aT 38131000 


Xf = REAL 72 NECLARED aT 40005110 
*40100200*% 40100300 40100600 

X2 "= REAL @" DECLARED AT 06068700 
#06074200«" 06077000 *06077400% 04078100 06085900% 06086300 


40100700 40101100 *40249200% 40250000 


06086400 *06090000*% 06090600 *06099600« 06092700 


06093900 *«06097000%%06440800% 06444000 06141400 
X2 em STREAM VARIABLE = DECLARED AT 06074200 
X2 ee STREAM VARIABLE == DECLARED AT 06090000 
X2 = STREAM VARTABLFE == DECLARED AT 07463000 
07464100 
X2 "= STREAM VARIABLF ==" DECLARED AT 14702025 
X2 == STREAM VARIABLE ==" DECLARED AT 38131000 
X2 = REAL #= NECLARED AT 40005110 
#40100200% 40400800 *40404100% 40104250 40404300 *40252000% 40253000 *40257030% 40257060 40264040 40261043 
40261048 40261300 
X3 == REAL "= DECLARED AT 96068700 
%#06073900% 06074,00 %06084900% 06085400 06085200 «06087000% 06087200 «06087300% 06087400 *06088200% 06088300 
06089000 *06092500% 96092700 060933400 06093200 06093300 06093400 06093700 «06140900% 06143300 
X4 "© REAL ™ PECLARED AT 96068700 
06068800 #06085400% 06085200 «06085600% 06085700 «06095100e 06095200 06095400 «06110900% 06111500 
XS os REAL &* NECLAREN aT 96068700 
06068800 06068900 «06977400% 06077500 06077600 «06077700«% 06078000 «06085500*% 06085700 96085800 «06111000» 
06171500 06111700 
Y = REAL we DECLARED AT 01250300 
04257800 #04257350% 04255400 014256300 01259300 
Y we STREAM VARIABLE © DECLARED AT 01251800 
*049529200" 
Y oem REAL #* DECLARED AT 02133450 
#021731008% 02173300 
Yo o== REAL == DECLARED aT 02382000 
02385000 02387000 *02369000%*«02390000* 02391000 
Yor REAL °° DECLARED pT 04554100 


<<< 


#045561000e 045678704 

STReaM VARTABLF == 
04588340 

STREAM VARJABLE == 
04588480 


REAL, me 
*04671250%*04673300% 
LABFL °*= 

05881220 05852900 
LABEL *'" NECLARED 
05970600 


STREAM VARIABLE = 
STREAM VARIABLE == 
07036220 
REAL ee 
08348200 08390000 
STREAM VARIABLE == 
STREAM VARIABLE «= 


_ STREAM VARIABLE == 


*14702450% 

STREAM VARIABLE == 

STREAM VARIABLE <= 
16752500 

STREAM VARIABLE == 

*16767000« 

REAL - = 
#18042000% 18034,00 

STREAM VARTABLE == 
20513702 

STREAM VARIABLE «= 
22141000 

STREAM VARIABLE «= 
22145300 

REAL °° 


DECLARED AT 05847800 = 


AT 05952600 °° 


04588270 
NECLAREN AT 9045689270 


DECLARED AT 04568400 


DECLARED AT 04668550 


05852350 


DECLARFN aT 96269000 
NECLARFH AT 97032000 


DECLARED AT 08318000 


08394000 08332;00 

DECLARED AT 08348700 
DECLARED AT 06365000 
DECLARED AT 14702025 


DECLARED AT 15022000 
DECLARED AT 16751500 


DECLARED AT 16756000 


DeEcLARrFD at 18004000 


18075000 
DECLARED AT 20511665 


DECLARED AT 22136000 


DECLARED AT 22445050 


DECLARFN aT 24032200 


*24033700% 24033800 ¥24033900« 24034000 


24035800 
24039600 
REAL on 


DECLARED AT 28003000 


58075800 

REAL on 
28203600 

LABE|, = 
37232750 


98076000 


DECLARED AT 28203400 


28078409 


28080000 


24034200 


24035900 ¥£24037000e 24037300 424037200 


28085000 


*28242400% 282943200 *28267000% 28967200 
== OCCURS AT 37241700 


DECLARED AT 37180600 


37233250 


37255100 


STREAM VARIABLE °= 
#37255700« 
STREAM VARIABLE == 
¥ 38135500 « 
REAL “@* 
#400462004 40016400 
40322442 
REAL a@ 
42547030 
STREAM VARIABLE == 
REA, pas 
REAL me 
*44940800% 44240880 
REAL om 


DECLARED AT 37255100 


DECLARED AT 38131000 


DECLARED aT 49004000 


40046470 40046420 


DECLARED AT 42516000 
42517050 *495951420* 429525440 


DECLARED AT 42517030 


DECLARED AT 44011000 
DECLARED AT 44906700 


44240900 


DECLARED AT 45007000 


400 16500 


64588409 £04648150% 04648200 


OcCURS aT 05851600 


OCCURS aT 05963800 


18017000 *18059000%%18062000« 18063000 


24037300 


28085700 


40016600 


400147200 


24037500 «24039100«e 24039200 


18068000 «18069000* 18073000 


*24034400% 24034500 #24035300% 24035400 «*24035600% 24034700 


24039300 424039500% 


40017250 «40074000% 40075000 «40322440% 


YECH 


YR 
Y1 


Y2 


Nn NN NN NO O™ 


NI 


N NN  ~ NNO NON NOUNONOS Ns N 


n nN NOUN 


N 


e= STREAM LABEL "" DFCLAREO 


16926125 16926160 
REAL "" DECLAREN aT 9834400 
*08360000*% 08364000 08367000 
REAL °™ OFCLAREN AT 4000521 
*#40100500* 40100700 40100800 
REAL =" DECLARED AT 4000521 
*40700500% 40400600 40100700 
REAL ** DECLARED AT 02433159 
#02173095% 02173410 02173150 
STREAM VARIABLE “= DECLARED 
02224000 
STREAM VARIABLE "= DFECLAREN 
STREAM VARIABLE =" NECLAREN 
04251400 
REAL == DECLARED AT 04554100 
*04588090% 04588,00 *04588240* 
STREAM VARTABLE == DECLARED 
04588350 
STREAM VARIABLE = DECLARED 
04588500 
NEF INE == ODECLARFD AT 057020 
05793500 05704000 05722000 
INTEGER =" DECLARED AT 05841 
05842500 05843500 05843950 
LaprL =" neclarRrn aT 0584780 
05850600 05851700 
LABFL =*= DFCLARFN AT 0595260 
05967900 05969400 
REAL =* DECLARED AT 06351000 
#06 35 3500#06353530" 06353540 
STREAM VARIABLE = NECLARED 
STREAM VARIABLE =" DECLARED 
STREAM VARIABLE =" DFCLAREN 
STREAM VARIABLE "= DECLAREN 
07036240 
STREAM LarmFL *=" nrebLAaRED aT 
STREAM VARIABLE ==" DFCLAREN 
STREAM VARTABLE == DECLARED 
REAL = VALUE PARAMETER on 
08547000 08547300 08547600 
STREAM VARIABLE == DECLARED 
08776000 08778000 08781000 
STREAM LABEL =" DECLARED at 
REAL 7" DECLARED AT 09679300 
*09680200% 09680300 09680400 
REAL 7° VALUE PARAMETER = 
12500000 12500500 12621000 
REAL ** VALUE PARAMFTFR &*= 
12800000 742800500 12847000 
REAL == DECLARED AT 14545000 
*14555500* 744556000 *14569500* 
STREAM VARIABLE = DECLARED 
14650000 
STREAM VARIABLE = DECLARED 
14702200 
STREAM VARIABLE == DECLARED 


AT 16926090 =" OCCURS AT 16926180 


0 

08368090 08370000 
0 

40100900 
0 


92173210 02173296 024173300 
AT 02221000 : 


AT 92275850 
AT 04251300 


*04588230*% 04588240 04588270 
AT 94588970 


AT 04588400 


00 

05724000 05728000 05728180 
350 

4058449 200%05844930% 05846360 
Oo =" OrcuURS aT 05851700 


0 == OCCURS aT 05970300 


*06353545* 06353551 *06353600« 
AT 06353545 
AT 06353600 
AT 06353680 
AT 07032000 


02473350 


04588400 


05729300 


06353650 *06353680" 06353700 


07494000 == OccURS aT 07496000 


AT 08318200 
AT 08365000 

DECLARED AT 08546000 
08554200 08558000 
AT 08774000 


08922000 «== OCCURS AT 08924000 


09682610 09682700 
DECLAREN aT 12500500 


DECLAREN aT 12800500 

1458;000 44584000 «44592000« 
AT 14645400 

AT 14702025 


AT 20411000 


14598 ;00 


20413000 
Z 7" REAL @™ VALUE PARAMETER |= DECLAREN aT 28000000 
28049400 
Z 7" STREAM VARTARLE & = DFCLARFN AT 32001700 
* 32002070 
2 == REAL ©" NAME PARAMETER == DECLARED AT 36001000 
36003000 
Z "© REAL == DECLARED AT 37359000 
37341000 
Z == STREAM VARIABLE *= DECLARED AT 37361000 
37366000 37369000 *37376000™ 
Z ©" STREAM VARIABLE @" DECLARED AT 38131000 
38133000 
Z =" STREAM VARIABLE *" NECLARFD AT 38575000 
Z 7" REAL =" DECLARED at 40004000 
#40027240 4440027950 %440321000% 40324300 ¥40392600% 40324500 4#40325000 «403320008 40334057 
Z ©" REAL #* DECLARED AT 44011000 
Z ©* REAL == DECLARED AT 44206700 
*449408008% 44240840 442740860 
Z = REAL == DECLARED AT 45002000 
45902100 
ZER © LABFL =" DECLARED AT 18207000 
ZERO == STREAM VARIARLF =" DECLARFD AT 20061000 


20061600 
ZEROAROW == SURROUTING == DFCLARED AT 28835000 
28885000 
ZERODKANDR == LABFL -* DFCLAREN AT 385480;0 == OCCURS AT 38609700 
38581930 


ZEROING = REAL =" PECLARED AT 238803000 
28891000 *98878000« 
ZIPEXIT = LABEL = DECLARED AT 20597850 = OCCURS AT 20610200 
20599100 70607700 20608880 20608900 206092750 70609580 
ZIPLIST = LABEL "= DFCLARFH AT 20597880 “= OCCURS aT 20600380 


20600490 

ZIPMIX ©" NWEFINE ™* DECLARED AT 20566630 
20566785 

ZIPM]y "=" HEFINE "" NeeLARED AT 20584275 
20585610 


ZIPMIX = DEFINE == DECLARED AT 2060000U 
20609470 90602480 2096055460 20607020 20698412 20608114 20609660 20640760 
ZIPPER ** PROCEDURE #* DECLARED AT 14531000 *= FORWARD AT 14342100 
144741680 144542000 18759400 
ZSFo = «6REAL ARRAY ©" DECLARED AT 39902000 
39932000 39933000 39937000 39938000 «39958000 *«% 39962000 %*39965000% 39970000 
ZSFo =" REAL ARRAY 7" NECLAREND aT 40005200 
* 40008330 %%40008 340 %440275500%%40275600e 40353100 40353140 40353170 40353200 40356550 
ZZ os RealL ** necbaRFn aT 98547050 
#08547200% 08547300 08547400 
ZZP ee «STREAM VARYABLFE == DECLAREN AT 20600400 
20600420 70600830 70600460 
ZZP oe STREAM VARIABLE e@= DECLARED AT 20607040 
20607140 
ZZSTA =e REAL == DECLARED AT 12212500 
*122930008 42321000 - 
ZZSTA ©" INTEGER = DECLARED AT 16047000 
*16076000« 16343700 
ZZSTA *™ INTEGER “" NFECLARFD AT 16348000 


a a or or or er er ee er ee er rr 2 2 2 en oe | 


ZZSTA 
ZZSTA 


CROSS 


sunwe 


PHASE 


PHASE 


PHASE 


LABEL 


#16377000% 16522000 16689306 
=" INTEGFR @" NFCLAREB AT 166920 
16692500 *16712500% 36739500 16788 59600 16902800 
*>= NTearFR @" NeclARED aT 16907500 
16908000 46925500 16965000 16967500 


REFERENCE STATISTICS 


Sq RF aeag_aene Peg Geng = 


ONE ™ SORT 7507 IDENTIFIERS 
3:57 ELAPSED TIMF CMIN?SEC) 
2120 PROCESSOR TIME 
3:46 1/0 TIME 


TwO = SORT 53608 RerrRENcrFSs 
9100 ELAPSED TIME cMINISEC) 
8324 PROCESSOR TIME 
1819 1/0 TIME 


THREE = PRINT CROSS REFERENCE (€ 14650 LINES) 
4159 ELAPSED TIME (MINtSEC) 
4:25 PROCESSOR TIME 
2200 1/0 TYrMF 


OOOO0O0O00OL INE 00177244017725400000000000000001070000150001500000000000 FSPOL 


/DISK 


